'?> '?>

> >

'.$TbMsg[5].' 
'; echo '  '.$TbMsg[6].': '.$textambito.','.$nombreambito.'  

'; ?>

CreaArbolVistaXML(); // Crea árbol (HTML) a partir del XML $flotante=new MenuContextual(); // Crea objeto MenuContextual // Crea contextual de los procedimientos $XMLcontextual=CreacontextualXMLProcedimiento(); // Procedimientos echo $flotante->CreaMenuContextual($XMLcontextual); ?> '; $cadenaXML.=SubarbolXML_grupos_procedimientos($cmd,$idcentro,0); $cadenaXML.=''; 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); } //________________________________________________________________________________________________________ // // Menús Contextuales //________________________________________________________________________________________________________ function CreacontextualXMLProcedimiento(){ global $EJECUCION_PROCEDIMIENTO; global $AMBITO_PROCEDIMIENTOS; global $LITAMBITO_PROCEDIMIENTOS; global $EJECUCION_AUTOEXEC; global $TbMsg; $layerXML='