CreaArbolVistaXml()); // Crea arbol de configuraciones?> texto="SELECT tareas.descripcion as descritarea,procedimientos.descripcion as descriprocedimiento, tareas_acciones.orden,tareas_acciones.idprocedimiento,tareas_acciones.tareaid, tareas.ambito,tareas.idambito,tareas.restrambito FROM tareas INNER JOIN tareas_acciones ON tareas_acciones.idtarea=tareas.idtarea LEFT OUTER JOIN procedimientos ON procedimientos.idprocedimiento=tareas_acciones.idprocedimiento WHERE tareas_acciones.idtarea=".$idtarea." ORDER BY tareas_acciones.orden"; //echo $cmd->texto; $rs=new Recordset; $rs->Comando=&$cmd; if (!$rs->Abrir()) return; // Error al abrir recordset $cadenaXML.='campos["descritarea"].'"'; $cadenaXML.='>'; while (!$rs->EOF){ if($rs->campos["tareaid"]>0) // Tarea recursiva SubarbolXML_Tareas($cmd,$rs->campos["tareaid"]); else{ SubarbolXML_procedimientos($cmd,$rs->campos["idprocedimiento"]); } $rs->Siguiente(); } $cadenaXML.=''; } //________________________________________________________________________________________________________ function SubarbolXML_procedimientos($cmd,$idprocedimiento) { global $cadenaXML; $cmd->texto="SELECT procedimientos.descripcion as descriprocedimiento,procedimientos_acciones.idcomando, comandos.descripcion as descricomando,comandos.visuparametros,procedimientos_acciones.procedimientoid, procedimientos_acciones.parametros FROM procedimientos INNER JOIN procedimientos_acciones ON procedimientos_acciones.idprocedimiento=procedimientos.idprocedimiento LEFT OUTER JOIN comandos ON comandos.idcomando=procedimientos_acciones.idcomando WHERE procedimientos.idprocedimiento=".$idprocedimiento." ORDER BY orden"; //echo $cmd->texto; $rs=new Recordset; $rs->Comando=&$cmd; if (!$rs->Abrir()) return; // Error al abrir recordset $cadenaXML.='campos["descriprocedimiento"].'"'; $cadenaXML.='>'; while (!$rs->EOF){ if($rs->campos["procedimientoid"]>0) // Procedimiento recursivo SubarbolXML_procedimientos($cmd,$rs->campos["procedimientoid"]); else{ SubarbolXML_comandos($rs->campos["descricomando"],$rs->campos["parametros"],$rs->campos["visuparametros"]); } $rs->Siguiente(); } $cadenaXML.=''; } //________________________________________________________________________________________________________ function SubarbolXML_comandos($descricomando,$parametros,$visuparametros) { global $cadenaXML; $cadenaXML.='2) $valor=$tbParametrosValor[$nemo][$j]["valor"]; else $valor=$tbParametrosValor[$nemo]["valor"]; escribiendoParametros($descripcion,$valor); } } } } //________________________________________________________________________________________________________ function escribiendoParametros($descripcion,$valor) { global $cadenaXML; $cadenaXML.=''.$valor.''; $cadenaXML.=' infonodo="'.urlencode($litprm).'"'; $cadenaXML.='>'; $cadenaXML.=''; } ?>