:

CreaArbolVistaXml(); // Crea arbol de configuraciones?> texto="SELECT tipohardwares.descripcion as tipohardware,perfileshard.idperfilhard , perfileshard.descripcion as pdescripcion, perfileshard.comentarios, hardwares.idhardware,hardwares.descripcion as hdescripcion,tipohardwares.urlimg FROM perfileshard "; $cmd->texto.=" LEFT OUTER JOIN perfileshard_hardwares ON perfileshard.idperfilhard=perfileshard_hardwares.idperfilhard"; $cmd->texto.=" LEFT OUTER JOIN hardwares ON hardwares.idhardware=perfileshard_hardwares.idhardware"; $cmd->texto.=" LEFT OUTER JOIN tipohardwares ON hardwares.idtipohardware=tipohardwares.idtipohardware" ; $cmd->texto.=" WHERE perfileshard.idperfilhard=".$idperfilhard; $cmd->texto.=" ORDER by tipohardwares.idtipohardware,hardwares.descripcion"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); $cadenaXML.='campos["pdescripcion"].'"'; $cadenaXML.='>'; if($rs->campos["comentarios"]>" "){ $cadenaXML.='campos["comentarios"].'"'; $cadenaXML.='>'; $cadenaXML.=''; } $swcompo=false; while (!$rs->EOF){ if ($rs->campos["idhardware"]){ if (!$swcompo) { $cadenaXML.='campos["urlimg"]; $cadenaXML.=' infonodo="('.$rs->campos["tipohardware"].") ".$rs->campos["hdescripcion"].'"'; $cadenaXML.='>'; $cadenaXML.=''; } $rs->Siguiente(); } if ($swcompo) { $cadenaXML.=''; } $cadenaXML.=SubarbolXML_Ordenadores($cmd,$idperfilhard); $cadenaXML.=SubarbolXML_ImagenesDisponibles($cmd,$idperfilhard); $cadenaXML.=''; $rs->Cerrar(); return($cadenaXML); } //________________________________________________________________________________________________________ function SubarbolXML_Ordenadores($cmd,$idperfilhard) { global $TbMsg; $cadenaXML=""; $gidaula=0; $cmd->texto="SELECT DISTINCT aulas.idaula,aulas.nombreaula,ordenadores.idordenador,ordenadores.nombreordenador FROM ordenadores INNER JOIN aulas ON ordenadores.idaula=aulas.idaula WHERE ordenadores.idperfilhard=".$idperfilhard." ORDER BY aulas.idaula,ordenadores.nombreordenador"; $rs=new Recordset; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); if ($rs->numeroderegistros>0){ $cadenaXML.='EOF){ if ($gidaula!=$rs->campos["idaula"]){ if (!empty($gidaula)) $cadenaXML.=''; $cadenaXML.='campos["nombreaula"].'"'; $cadenaXML.='>'; $gidaula=$rs->campos["idaula"]; } $cadenaXML.='campos["nombreordenador"].'"' ; $cadenaXML.='>'; $rs->Siguiente(); } if (!empty($gidaula)) $cadenaXML.=''; if ($rs->numeroderegistros>0) $cadenaXML.=''; $rs->Cerrar(); return($cadenaXML); } //________________________________________________________________________________________________________ function SubarbolXML_ImagenesDisponibles($cmd,$idperfilhard) { global $TbMsg; $cadenaXML=""; $gidimagen=0; $cmd->texto="SELECT DISTINCT imagenes.* FROM imagenes INNER JOIN perfilessoft ON perfilessoft.idperfilsoft=imagenes.idperfilsoft INNER JOIN ordenadores_particiones ON ordenadores_particiones.idperfilsoft=imagenes.idperfilsoft INNER JOIN ordenadores ON ordenadores.idordenador=ordenadores_particiones.idordenador INNER JOIN perfileshard ON perfileshard.idperfilhard=ordenadores.idperfilhard WHERE perfileshard.idperfilhard=".$idperfilhard." AND imagenes.codpar>0 ORDER by imagenes.descripcion"; $rs=new Recordset; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset if ($rs->numeroderegistros>0) { $cadenaXML.='EOF){ if ($gidimagen!=$rs->campos["idperfilsoft"]){ if ($gidimagen){ $cadenaXML.=''; } $gidimagen=$rs->campos["idperfilsoft"]; $cadenaXML.='campos["descripcion"].'"'; $cadenaXML.='>'; } $rs->Siguiente(); } if ($gidimagen){ $cadenaXML.=''; $cadenaXML.=''; } $rs->Cerrar(); return($cadenaXML); } ?>