'?> '?> CreaArbolVistaXML(); // Crea árbol (HTML) a partir del XML $flotante=new MenuContextual(); // Crea objeto MenuContextual $XMLcontextual=CreacontextualXMLComandos(); // comandos echo $flotante->CreaMenuContextual($XMLcontextual); $XMLcontextual=CreacontextualXMLComando(); // comando echo $flotante->CreaMenuContextual($XMLcontextual); // Crea contextual de los procedimientos $XMLcontextual=CreacontextualXMLProcedimientos(); echo $flotante->CreaMenuContextual($XMLcontextual); $XMLcontextual=ContextualXMLGruposProcedimientos(); // Grupo de Procedimientos echo $flotante->CreaMenuContextual($XMLcontextual); $XMLcontextual=CreacontextualXMLProcedimiento(); // Procedimientos echo $flotante->CreaMenuContextual($XMLcontextual); // Crea contextual de las tareas $XMLcontextual=CreacontextualXMLTareas(); echo $flotante->CreaMenuContextual($XMLcontextual); $XMLcontextual=ContextualXMLGruposTareas(); // Grupo de Tareas echo $flotante->CreaMenuContextual($XMLcontextual); $XMLcontextual=CreacontextualXMLTarea(); // Tareas echo $flotante->CreaMenuContextual($XMLcontextual); ?> '; $cadenaXML.='texto="SELECT idcomando,descripcion,urlimg FROM comandos Where activo=1 order by descripcion"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); while (!$rs->EOF){ $cadenaXML.='campos["descripcion"].'"'; $cadenaXML.=' nodoid=comando-'.$rs->campos["idcomando"]; $cadenaXML.='>'; $cadenaXML.=''; $rs->Siguiente(); } $rs->Cerrar(); return($cadenaXML); } //________________________________________________________________________________________________________ function SubarbolXML_grupos_procedimientos($cmd,$idcentro,$grupoid){ global $AMBITO_GRUPOSPROCEDIMIENTOS; global $LITAMBITO_GRUPOSPROCEDIMIENTOS; $cadenaXML=""; $rs=new Recordset; $cmd->texto="SELECT idgrupo,nombregrupo,grupoid FROM grupos WHERE grupoid=".$grupoid." AND idcentro=".$idcentro." AND tipo=".$AMBITO_GRUPOSPROCEDIMIENTOS." 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_GRUPOSPROCEDIMIENTOS.'-'.$rs->campos["idgrupo"]; $cadenaXML.='>'; $cadenaXML.=SubarbolXML_grupos_procedimientos($cmd,$idcentro,$rs->campos["idgrupo"]); $cadenaXML.=''; $rs->Siguiente(); } $rs->Cerrar(); $cadenaXML.=SubarbolXML_Procedimientos($cmd,$idcentro,$grupoid); return($cadenaXML); } //________________________________________________________________________________________________________ function SubarbolXML_Procedimientos($cmd,$idcentro,$grupoid){ global $LITAMBITO_PROCEDIMIENTOS; $cadenaXML=""; $rs=new Recordset; $cmd->texto="SELECT idprocedimiento,descripcion FROM procedimientos WHERE idcentro=".$idcentro." AND grupoid=".$grupoid." ORDER BY descripcion"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); while (!$rs->EOF){ $cadenaXML.='campos["descripcion"].'"'; $cadenaXML.=' nodoid='.$LITAMBITO_PROCEDIMIENTOS.'-'.$rs->campos["idprocedimiento"]; $cadenaXML.=' clickcontextualnodo="menu_contextual(this,' ."'flo_".$LITAMBITO_PROCEDIMIENTOS."'" .')"'; $cadenaXML.='>'; $cadenaXML.=''; $rs->Siguiente(); } $rs->Cerrar(); return($cadenaXML); } //________________________________________________________________________________________________________ function SubarbolXML_grupos_tareas($cmd,$idcentro,$grupoid){ global $AMBITO_GRUPOSTAREAS; global $LITAMBITO_GRUPOSTAREAS; $cadenaXML=""; $rs=new Recordset; $cmd->texto="SELECT idgrupo,nombregrupo,grupoid FROM grupos WHERE grupoid=".$grupoid." AND idcentro=".$idcentro." AND tipo=".$AMBITO_GRUPOSTAREAS." 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_GRUPOSTAREAS.'-'.$rs->campos["idgrupo"]; $cadenaXML.='>'; $cadenaXML.=SubarbolXML_grupos_tareas($cmd,$idcentro,$rs->campos["idgrupo"]); $cadenaXML.=''; $rs->Siguiente(); } $rs->Cerrar(); $cadenaXML.=SubarbolXML_Tareas($cmd,$idcentro,$grupoid); return($cadenaXML); } //________________________________________________________________________________________________________ function SubarbolXML_Tareas($cmd,$idcentro,$grupoid) { global $LITAMBITO_TAREAS; $cadenaXML=""; $rs=new Recordset; $cmd->texto="SELECT tareas.idtarea,tareas.descripcion,tareas.ambito FROM tareas WHERE tareas.idcentro=".$idcentro." AND grupoid=".$grupoid." ORDER by tareas.descripcion"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); while (!$rs->EOF){ $cadenaXML.='campos["descripcion"].'"'; $cadenaXML.=' nodoid='.$LITAMBITO_TAREAS.'-'.$rs->campos["idtarea"]; $cadenaXML.=' nodovalue="'.$rs->campos["ambito"].'"'; $cadenaXML.=' clickcontextualnodo="menu_contextual(this,' ."'flo_".$LITAMBITO_TAREAS."'" .')"'; $cadenaXML.='>'; $cadenaXML.=''; $rs->Siguiente(); } $rs->Cerrar(); return($cadenaXML); } //________________________________________________________________________________________________________ // // Mens Contextuales //________________________________________________________________________________________________________ function CreacontextualXMLComandos() { global $LITAMBITO_COMANDOS; global $EJECUCION_COMANDO; global $TbMsg; $layerXML='