1 files changed, 42 insertions, 0 deletions
diff --git a/admin/ogAdmSources/ogAdmWebCon/gestores/relaciones/softwares_eliminacion.php b/admin/ogAdmSources/ogAdmWebCon/gestores/relaciones/softwares_eliminacion.php
new file mode 100644
index 00000000..9de9b09b
--- /dev/null
+++ b/admin/ogAdmSources/ogAdmWebCon/gestores/relaciones/softwares_eliminacion.php
@@ -0,0 +1,42 @@
+<?
+// *************************************************************************************************************************************************
+// Aplicación WEB: ogAdmWebCon
+// Autor: José Manuel Alonso (E.T.S.I.I.) Universidad de Sevilla
+// Fecha Creación: Año 2003-2004
+// Fecha Última modificación: Marzo-2005
+// Nombre del fichero: softwares_eliminacion.php
+// Descripción :
+//	Elimina en cascada registros de la tabla softwares 
+//		Parametros: 
+//		-	cmd:Una comando ya operativo (con conexión abierta)  
+//		-	identificador: El identificador por el que se eliminará el software
+//		-	nombreid: Nombre del campo identificador del registro 
+//		-	swid: Indica 0= El identificador es tipo alfanumérico	1= EI identificador es tipo numérico ( valor por defecto) *************************************************************************************************************************************************
+function	EliminaSoftwares($cmd,$identificador,$nombreid,$swid=1){
+	if (empty($identificador)) return(true);
+	if($swid==0)
+		$cmd->texto="SELECT  idsoftware  FROM  softwares WHERE ".$nombreid."='".$identificador."'";
+	else
+		$cmd->texto='SELECT  idsoftware  FROM softwares WHERE '.$nombreid.'='.$identificador;
+	$rs=new Recordset; 
+	$rs->Comando=&$cmd; 
+	if (!$rs->Abrir()) return(false); // Error al abrir recordset
+	if ($rs->numeroderegistros==0) return(true);
+	$rs->Primero(); 
+	while (!$rs->EOF){	
+		$cmd->texto="DELETE  FROM perfilessoft_softwares WHERE idsoftware=".$rs->campos["idsoftware"];
+		$resul=$cmd->Ejecutar();
+		if (!$resul){
+			$rs->Cerrar();
+			return(false);
+		}
+		$rs->Siguiente();
+	}
+	if($swid==0)
+		$cmd->texto="DELETE  FROM softwares WHERE ".$nombreid."='".$identificador."'";
+	else
+		$cmd->texto='DELETE  FROM softwares  WHERE '.$nombreid.'='.$identificador;
+	$resul=$cmd->Ejecutar();
+	return($resul);
+}
+?>