Conexion->Cerrar();
}
// *************************************************************************************************************************************************
?>
'.$tablanodo.'';
if ($resul){
echo '';
}
else{
echo '';
}
?>
CreaParametro("@idcentro",$idcentro,1);
$cmd->CreaParametro("@idsoftware",$idsoftware,1);
$cmd->CreaParametro("@descripcion",$descripcion,0);
$cmd->CreaParametro("@idtiposoftware",$idtiposoftware,1);
$cmd->CreaParametro("@idtiposo",$idtiposo,1);
$cmd->CreaParametro("@grupoid",$grupoid,1);
switch($opcion){
case $op_alta :
$cmd->texto="INSERT INTO softwares (descripcion,idtiposoftware,idtiposo,idcentro,grupoid) VALUES (@descripcion,@idtiposoftware,@idtiposo,@idcentro,@grupoid)";
$resul=$cmd->Ejecutar();
if ($resul){ // Crea una tabla nodo para devolver a la página que llamó ésta
$idsoftware=$cmd->Autonumerico();
$arbolXML=SubarbolXML_Componentesoftwares($cmd,$idsoftware,$descripcion,$idtiposoftware);
$baseurlimg="../images/signos"; // Url de las imagenes de signo
$clasedefault="texto_arbol"; // Hoja de estilo (Clase por defecto) del árbol
$arbol=new ArbolVistaXML($arbolXML,0,$baseurlimg,$clasedefault);
$tablanodo=$arbol->CreaArbolVistaXML();
}
break;
case $op_modificacion:
$cmd->texto="UPDATE softwares SET descripcion=@descripcion,idtiposoftware=@idtiposoftware,idtiposo=@idtiposo WHERE idsoftware=@idsoftware";
$resul=$cmd->Ejecutar();
if ($resul) // Toma la imagen del tipo de componente software
$urlimgth=TomaDato($cmd,0,'tiposoftwares',$idtiposoftware,'idtiposoftware','urlimg');
break;
case $op_eliminacion :
$resul=EliminaSoftwares($cmd,$idsoftware,"idsoftware");
break;
case $op_movida :
$cmd->texto="UPDATE softwares SET grupoid=@grupoid WHERE idsoftware=@idsoftware";
$resul=$cmd->Ejecutar();
break;
default:
break;
}
return($resul);
}
/*________________________________________________________________________________________________________
Crea un arbol XML para el nuevo nodo insertado
________________________________________________________________________________________________________*/
function SubarbolXML_Componentesoftwares($cmd,$idsoftware,$descripcion,$idtiposoftware){
global $LITAMBITO_COMPONENTESSOFT;
$urlimg=TomaDato($cmd,0,'tiposoftwares',$idtiposoftware,'idtiposoftware','urlimg');
$cadenaXML='