'?> '?> CreaArbolVistaXML(); // Crea árbol (HTML) a partir del XML $flotante=new MenuContextual(); // Crea objeto MenuContextual // Crea contextual de componentes componentes software $XMLcontextual=CreacontextualXMLComponentes_Software(); echo $flotante->CreaMenuContextual($XMLcontextual); $XMLcontextual=ContextualXMLGruposComponentes(); // Grupos de componentes echo $flotante->CreaMenuContextual($XMLcontextual); $XMLcontextual=CreacontextualXMLComponente_Software(); // Crea menu contextual de componentes softwares echo $flotante->CreaMenuContextual($XMLcontextual); // Crea contextual de perfiles software $XMLcontextual=CreacontextualXMLPerfiles_Software(); echo $flotante->CreaMenuContextual($XMLcontextual); $XMLcontextual=ContextualXMLGruposPerfiles(); // Grupos de perfiles echo $flotante->CreaMenuContextual($XMLcontextual); $XMLcontextual=CreacontextualXMLPerfil_Software(); // Crea menu contextual de perfiles softwares echo $flotante->CreaMenuContextual($XMLcontextual); // Crea contextual de softtware incremental $XMLcontextual=CreacontextualXMLSoftwares_Incrementales(); echo $flotante->CreaMenuContextual($XMLcontextual); $XMLcontextual=ContextualXMLGruposIncrementales(); // Grupos de software incremental echo $flotante->CreaMenuContextual($XMLcontextual); $XMLcontextual=CreacontextualXMLSoftware_Incremental(); // Crea menu contextual de software incremental echo $flotante->CreaMenuContextual($XMLcontextual); ?> '; $cadenaXML.='texto="SELECT idtiposoftware,descripcion,urlimg FROM tiposoftwares order by descripcion"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); while (!$rs->EOF){ $cadenaXML.='campos["urlimg"]; $cadenaXML.=' infonodo="'.$rs->campos["descripcion"].'"'; $cadenaXML.=' nodoid="TipoSoftwares"'; $cadenaXML.='>'; $cadenaXML.=''; $rs->Siguiente(); } $rs->Cerrar(); return($cadenaXML); } //________________________________________________________________________________________________________ function SubarbolXML_grupos_componentessoft($cmd,$idcentro,$grupoid){ global $LITAMBITO_GRUPOSCOMPONENTESSOFT; global $AMBITO_GRUPOSCOMPONENTESSOFT; $cadenaXML=""; $rs=new Recordset; $cmd->texto="SELECT idgrupo,nombregrupo,grupoid FROM grupos WHERE grupoid=".$grupoid." AND idcentro=".$idcentro." AND tipo=".$AMBITO_GRUPOSCOMPONENTESSOFT." ORDER BY nombregrupo"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); while (!$rs->EOF){ $cadenaXML.='campos["nombregrupo"].'"'; $cadenaXML.=' nodoid='.$LITAMBITO_GRUPOSCOMPONENTESSOFT.'-'.$rs->campos["idgrupo"]; $cadenaXML.='>'; $cadenaXML.=SubarbolXML_grupos_componentessoft($cmd,$idcentro,$rs->campos["idgrupo"]); $cadenaXML.=''; $rs->Siguiente(); } $rs->Cerrar(); $cadenaXML.=SubarbolXML_ComponentesSoftwares($cmd,$idcentro,$grupoid); return($cadenaXML); } //________________________________________________________________________________________________________ function SubarbolXML_ComponentesSoftwares($cmd,$idcentro,$grupoid){ global $LITAMBITO_COMPONENTESSOFT; $cadenaXML=""; $rs=new Recordset; $cmd->texto="SELECT softwares.idsoftware,softwares.descripcion,tiposoftwares.urlimg FROM softwares INNER JOIN tiposoftwares ON softwares.idtiposoftware=tiposoftwares.idtiposoftware WHERE idcentro=".$idcentro." AND grupoid=". $grupoid." order by tiposoftwares.idtiposoftware,softwares.descripcion"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); while (!$rs->EOF){ $cadenaXML.='campos["urlimg"]!="") $cadenaXML.=' imagenodo='.$rs->campos["urlimg"]; else $cadenaXML.=' imagenodo="../images/iconos/confisoft.gif"'; $cadenaXML.=' infonodo="'.$rs->campos["descripcion"].'"'; $cadenaXML.=' nodoid='.$LITAMBITO_COMPONENTESSOFT.'-'.$rs->campos["idsoftware"]; $cadenaXML.=' clickcontextualnodo="menu_contextual(this,' ."'flo_".$LITAMBITO_COMPONENTESSOFT."'" .')"'; $cadenaXML.='>'; $cadenaXML.=''; $rs->Siguiente(); } $rs->Cerrar(); return($cadenaXML); } //________________________________________________________________________________________________________ function SubarbolXML_grupos_perfilessoft($cmd,$idcentro,$grupoid){ global $LITAMBITO_GRUPOSPERFILESSOFT; global $AMBITO_GRUPOSPERFILESSOFT; $cadenaXML=""; $rs=new Recordset; $cmd->texto="SELECT idgrupo,nombregrupo,grupoid FROM grupos WHERE grupoid=".$grupoid." AND idcentro=".$idcentro." AND tipo=".$AMBITO_GRUPOSPERFILESSOFT." ORDER BY nombregrupo"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); while (!$rs->EOF){ $cadenaXML.='campos["nombregrupo"].'"'; $cadenaXML.=' nodoid='.$LITAMBITO_GRUPOSPERFILESSOFT.'-'.$rs->campos["idgrupo"]; $cadenaXML.='>'; $cadenaXML.=SubarbolXML_grupos_perfilessoft($cmd,$idcentro,$rs->campos["idgrupo"]); $cadenaXML.=''; $rs->Siguiente(); } $rs->Cerrar(); $cadenaXML.=SubarbolXML_PerfilesSoftwares($cmd,$idcentro,$grupoid); return($cadenaXML); } //________________________________________________________________________________________________________ function SubarbolXML_PerfilesSoftwares($cmd,$idcentro,$grupoid){ global $LITAMBITO_PERFILESSOFT; $cadenaXML=""; $rs=new Recordset; $cmd->texto="SELECT perfilessoft.idperfilsoft ,perfilessoft.descripcion FROM perfilessoft WHERE perfilessoft.idcentro=".$idcentro." AND perfilessoft.grupoid=". $grupoid; $cmd->texto.=" ORDER by perfilessoft.descripcion"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); while (!$rs->EOF){ $cadenaXML.='campos["descripcion"].'"'; $cadenaXML.=' nodoid='.$LITAMBITO_PERFILESSOFT.'-'.$rs->campos["idperfilsoft"]; $cadenaXML.=' clickcontextualnodo="menu_contextual(this,' ."'flo_".$LITAMBITO_PERFILESSOFT."'" .')"'; $cadenaXML.='>'; $cadenaXML.=''; $rs->Siguiente(); } $rs->Cerrar(); return($cadenaXML); } //________________________________________________________________________________________________________ function SubarbolXML_grupos_softincremental($cmd,$idcentro,$grupoid){ global $LITAMBITO_GRUPOSSOFTINCREMENTAL; global $AMBITO_GRUPOSSOFTINCREMENTAL; $cadenaXML=""; $rs=new Recordset; $cmd->texto="SELECT idgrupo,nombregrupo,grupoid FROM grupos WHERE grupoid=".$grupoid." AND idcentro=".$idcentro." AND tipo=".$AMBITO_GRUPOSSOFTINCREMENTAL." ORDER BY nombregrupo"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); while (!$rs->EOF){ $cadenaXML.='campos["nombregrupo"].'"'; $cadenaXML.=' nodoid='.$LITAMBITO_GRUPOSSOFTINCREMENTAL.'-'.$rs->campos["idgrupo"]; $cadenaXML.='>'; $cadenaXML.=SubarbolXML_grupos_softincremental($cmd,$idcentro,$rs->campos["idgrupo"]); $cadenaXML.=''; $rs->Siguiente(); } $rs->Cerrar(); $cadenaXML.=SubarbolXML_SoftwaresIncrementales($cmd,$idcentro,$grupoid); return($cadenaXML); } //________________________________________________________________________________________________________ function SubarbolXML_SoftwaresIncrementales($cmd,$idcentro,$grupoid){ global $LITAMBITO_SOFTINCREMENTAL; $cadenaXML=""; $rs=new Recordset; $cmd->texto="SELECT softincrementales.idsoftincremental ,softincrementales.descripcion FROM softincrementales WHERE softincrementales.idcentro=".$idcentro." AND softincrementales.grupoid=". $grupoid; $cmd->texto.=" ORDER by softincrementales.descripcion"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); while (!$rs->EOF){ $cadenaXML.='campos["descripcion"].'"'; $cadenaXML.=' nodoid='.$LITAMBITO_SOFTINCREMENTAL.'-'.$rs->campos["idsoftincremental"]; $cadenaXML.=' clickcontextualnodo="menu_contextual(this,' ."'flo_".$LITAMBITO_SOFTINCREMENTAL."'" .')"'; $cadenaXML.='>'; $cadenaXML.=''; $rs->Siguiente(); } $rs->Cerrar(); return($cadenaXML); } //________________________________________________________________________________________________________ // // Menús Contextuales //________________________________________________________________________________________________________ function CreacontextualXMLComponentes_Software(){ global $AMBITO_COMPONENTESSOFT; global $AMBITO_GRUPOSCOMPONENTESSOFT; global $LITAMBITO_GRUPOSCOMPONENTESSOFT; global $TbMsg; $layerXML='