texto="SELECT procedimientos_acciones.idprocedimientoaccion as identificador,procedimientos_acciones.orden, procedimientos_acciones.parametros,procedimientos_acciones.procedimientoid, comandos.idcomando,comandos.descripcion as comando, procedimientostemp.descripcion as procedimiento FROM procedimientos INNER JOIN procedimientos_acciones ON procedimientos_acciones.idprocedimiento=procedimientos.idprocedimiento LEFT OUTER JOIN comandos ON comandos.idcomando=procedimientos_acciones.idcomando LEFT OUTER JOIN procedimientos as procedimientostemp ON procedimientostemp.idprocedimiento=procedimientos_acciones.procedimientoid WHERE procedimientos.idprocedimiento=".$idprocedimiento." ORDER by procedimientos_acciones.orden"; //echo $cmd->texto; $idprocedimientos=escribeAcciones($cmd,$AMBITO_PROCEDIMIENTOS,true,7); //$idprocedimientos.=$idprocedimiento; // Excluye a él mismo de la segunda ronda $idprocedimientos=$idprocedimiento; // Excluye sólo a él para evitar dead-lock $cmd->texto="SELECT idprocedimiento as identificador, 0 as orden, 0 as idcomando,descripcion as procedimiento FROM procedimientos WHERE idprocedimiento NOT IN (".$idprocedimientos.") ORDER BY descripcion"; escribeAcciones($cmd,$AMBITO_PROCEDIMIENTOS,false,8); } // ************************************************************************************************************************************************* function listaTareas($cmd,$idtarea,$ambito) { global $AMBITO_PROCEDIMIENTOS; global $AMBITO_TAREAS; global $AMBITO_TAREAS; global $TbMsg; /* Contenido de tarea */ $cmd->texto="SELECT tareas.ambito,tareas.idambito,tareas_acciones.idtareaaccion as identificador,tareas_acciones.orden, tareas_acciones.tareaid,procedimientos.idprocedimiento,procedimientos.descripcion as procedimiento, tareastemp.descripcion as tarea FROM tareas INNER JOIN tareas_acciones ON tareas_acciones.idtarea=tareas.idtarea LEFT OUTER JOIN procedimientos ON procedimientos.idprocedimiento=tareas_acciones.idprocedimiento LEFT OUTER JOIN tareas as tareastemp ON tareastemp.idtarea=tareas_acciones.tareaid WHERE tareas.idtarea=".$idtarea." ORDER by tareas_acciones.orden"; //echo $cmd->texto; $idtareas=escribeAcciones($cmd,$AMBITO_TAREAS,true,7); /* Procedimientos disponibles */ if(!empty($ambito)){ $cmd->texto="SELECT idprocedimiento as identificador, 0 as orden, 0 as idcomando,descripcion as procedimiento FROM procedimientos ORDER BY descripcion"; escribeAcciones($cmd,$AMBITO_PROCEDIMIENTOS,false,8); } /* Tareas disponibles */ //$idtareas.=$idtarea; // Excluye a ella misma de la segunda ronda $idtareas=$idtarea; // Excluye sólo a ella para evitar dead-lock $cmd->texto="SELECT idtarea as identificador, 0 as orden, 0 as idprocedimiento, descripcion as tarea FROM tareas WHERE idtarea NOT IN (".$idtareas.") ORDER BY descripcion"; escribeAcciones($cmd,$AMBITO_TAREAS,false,9); } //________________________________________________________________________________________________________ function escribeAcciones($cmd,$tipoaccion,$sw,$imsg) { global $AMBITO_PROCEDIMIENTOS; global $AMBITO_TAREAS; global $AMBITO_COMANDOS; global $conTR; global $TbMsg; $rs=new Recordset; $rs->Comando=&$cmd; if (!$rs->Abrir()) return(""); $idacciones=""; echo ''; if($rs->EOF && !sw){ echo '

'; return; } echo '

'.$TbMsg[$imsg].'
'; echo ' '; escribeCabecera(); while (!$rs->EOF){ echo ''; $conTR++; echo ''; echo ''; // Descripcion de la acción switch($tipoaccion){ case $AMBITO_PROCEDIMIENTOS: if(!empty($rs->campos["idcomando"])){ $urlimg="../images/iconos/comandos.gif"; $accion=$rs->campos["comando"]; $value=$AMBITO_COMANDOS; } else{ $urlimg="../images/iconos/procedimiento.gif"; $accion=$rs->campos["procedimiento"]; $idacciones.=$rs->campos["procedimientoid"].","; $value=$AMBITO_PROCEDIMIENTOS; } break; case $AMBITO_TAREAS: if(!empty($rs->campos["idprocedimiento"])){ $urlimg="../images/iconos/procedimiento.gif"; $accion=$rs->campos["procedimiento"]; $value=$AMBITO_PROCEDIMIENTOS; } else{ $urlimg="../images/iconos/tareas.gif"; $accion=$rs->campos["tarea"]; $idacciones.=$rs->campos["tareaid"].","; $value=$AMBITO_TAREAS; } break; } echo ''; echo ''; // Orden del item del item echo ''; /* Muestra parámetros de los comandos (Se hace en Información) if($tipoaccion==$AMBITO_PROCEDIMIENTOS){ if(!empty($rs->campos["idcomando"])){ // Se trata de un comando, se muestran parámetros) $htmlprm=escribeParametros($rs->campos["parametros"]); if(!empty($htmlprm)){ echo ''; echo ''; echo ''; } } } */ $rs->Siguiente(); } echo '
'.$accion.'
 '.escribeParametros($rs->campos["parametros"]).'
'; if($sw) escribePie(); echo '

'; $rs->Cerrar(); $idacciones.="0"; // Para evitar el último ";" return($idacciones); } //________________________________________________________________________________________________________ function escribeCabecera() { global $TbMsg; global $litcab; echo '    '.$TbMsg[4].'  T  '.$litcab.' '; } //________________________________________________________________________________________________________ function escribePie() { global $litmsg; global $op; echo '

'.$litmsg.'
'; } ?>