'?>

 
 

: 

texto='SELECT procedimientos_acciones.*, comandos.descripcion,comandos.visuparametros FROM procedimientos_acciones INNER JOIN comandos ON procedimientos_acciones.idcomando = comandos.idcomando WHERE procedimientos_acciones.idprocedimiento='.$idprocedimiento.' ORDER BY procedimientos_acciones.orden'; $rs->Comando=&$cmd; if ($rs->Abrir()){ $rs->Primero(); $tabla_parametros=""; // Tabla para localizar parametros $cont_parametros=0; // Contador de la tabla CreaTablaParametros($cmd); // Crea tabla especificaciones de parametros while (!$rs->EOF){ echo 'campos["idprocedimientocomando"].'>'; echo ''; // Descripcion de la comando echo ''; // Orden del item del item echo ''; echo ''; echo ''; pintacomandos($cmd,$rs); echo ''.chr(13); $rs->Siguiente(); } } $rs->Cerrar(); ?>
  A
campos["idprocedimientocomando"].' type=checkbox onclick="gestion_comandos('.$rs->campos["idprocedimientocomando"].',this)" checked > '.$rs->campos["descripcion"].' campos["idprocedimientocomando"].' style="WIDTH:20px" type=text value="'.$rs->campos["orden"].'">

.

campos["idprocedimientocomando"].'" >'.chr(13); $HTMLparametros.= ' '.chr(13); $HTMLparametros.= ''.$TbMsg[5].''.chr(13); $HTMLparametros.= ''.$TbMsg[6].''.chr(13); $HTMLparametros.= ' '.chr(13); $HTMLparametros.= ' '.chr(13); $HTMLparametros.= ''.chr(13); $urlimg=""; $auxVP=explode(";",$rs->campos["visuparametros"]); // Parametros visualizables $auxP=explode(chr(13),$rs->campos["parametros"]); // Recorre parametros para visualizar los que así sean for ($i=0;$i=0){ $auxtabla_parametros=$tabla_parametros[$posp][1]; $HTMLparametros.=''.chr(13); $HTMLparametros.= ' '.chr(13); $HTMLparametros.= ' '.$auxtabla_parametros["descripcion"].' '.chr(13); if($auxtabla_parametros["tipopa"]==1){ $valor=TomaDato($cmd,0,$auxtabla_parametros["nomtabla"],$dualparam[1],$auxtabla_parametros["nomidentificador"],$auxtabla_parametros["nomliteral"]); }else $valor=$dualparam[1]; if($dualparam[0]!="iph") $HTMLparametros.= ' '.$valor.' '.chr(13); else{ $tablaipes=PintaOrdenadores($cmd,$valor); $HTMLparametros.= ' '.$tablaipes.' '.chr(13); } $HTMLparametros.= ' '.chr(13); $HTMLparametros.= ' '.chr(13); $HTMLparametros.= ''.chr(13); } } } } echo $HTMLparametros; } //________________________________________________________________________________________________________ function PintaOrdenadores($cmd,$cadenaip){ $auxP=explode(";",$cadenaip); if(sizeof($auxP)<1) return(""); $clauslaIN="'".$auxP[0]."'"; for ($i=1;$itexto=" SELECT nombreordenador,ip FROM ordenadores INNER JOIN aulas ON aulas.idaula=ordenadores.idaula WHERE ip IN(".$clauslaIN.") ORDER by nombreaula,nombreordenador"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return(""); // Error al abrir recordset $tablaHtml=''; while (!$rs->EOF){ $contor++; $tablaHtml.= ''; if($contor>$maxord){ $contor=0; $tablaHtml.=''; } $rs->Siguiente(); } $tablaHtml.=''; $tablaHtml.= '

'.$rs->campos["nombreordenador"].'
'; return($tablaHtml); }