:

CreaArbolVistaXml(); // Crea arbol de configuraciones?> texto="SELECT tipohardwares.pci,perfileshard.idperfilhard ,perfileshard.descripcion as pdescripcion, perfileshard.comentarios,hardwares.idhardware,hardwares.descripcion as hdescripcion,tipohardwares.urlimg,fabricantes.nombre as nombrefabricante 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 fabricantes ON fabricantes.codigo=hardwares.codigo1"; $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["pci"]>0) $fabricante="(".trim($rs->campos["nombrefabricante"]).")"; else $fabricante=""; $cadenaXML.='campos["urlimg"]; $cadenaXML.=' infonodo="'.$fabricante.$rs->campos["hdescripcion"].'"'; $cadenaXML.='>'; $cadenaXML.=''; } $rs->Siguiente(); } if ($swcompo) { $cadenaXML.=''; } $cadenaXML.=SubarbolXML_PerfilesSoftwaresDisponibles($cmd,$idperfilhard); $cadenaXML.=''; $rs->Cerrar(); return($cadenaXML); } //________________________________________________________________________________________________________ function SubarbolXML_PerfilesSoftwaresDisponibles($cmd,$idperfilhard){ global $TbMsg; $cadenaXML=""; $gidperfilsoft=null; $rs=new Recordset; $cmd->texto="SELECT perfilessoft.idperfilsoft ,perfilessoft.descripcion,perfilessoft.comentarios FROM perfilessoft "; $cmd->texto.=" LEFT OUTER JOIN perfileshard_perfilessoft ON perfileshard_perfilessoft.idperfilsoft=perfilessoft.idperfilsoft" ; $cmd->texto.=" WHERE perfileshard_perfilessoft.idperfilhard=".$idperfilhard; $cmd->texto.=" ORDER by perfilessoft.descripcion"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); if ($rs->numeroderegistros>0) { $cadenaXML.='EOF){ if ($gidperfilsoft!=$rs->campos["idperfilsoft"]){ if ($gidperfilsoft){ $cadenaXML.=''; } $gidperfilsoft=$rs->campos["idperfilsoft"]; $cadenaXML.='campos["descripcion"].'"'; $cadenaXML.='>'; if($rs->campos["comentarios"]>" "){ $cadenaXML.='campos["comentarios"].'"'; $cadenaXML.='>'; $cadenaXML.=''; } $cadenaXML.=SubarbolXML_ComponentesSoftware($cmd,$rs->campos["idperfilsoft"]); $cadenaXML.=SubarbolXML_IncrementalesDisponibles($cmd,$rs->campos["idperfilsoft"],$idperfilhard); } $rs->Siguiente(); } if ($gidperfilsoft){ $cadenaXML.=''; $cadenaXML.=''; } $rs->Cerrar(); return($cadenaXML); } //________________________________________________________________________________________________________ function SubarbolXML_ComponentesSoftware($cmd,$idperfilsoft){ global $TbMsg; $cadenaXML=""; $rs=new Recordset; $cmd->texto="SELECT softwares.descripcion,tiposoftwares.urlimg FROM perfilessoft_softwares "; $cmd->texto.=" LEFT OUTER JOIN softwares ON softwares.idsoftware=perfilessoft_softwares.idsoftware"; $cmd->texto.=" LEFT OUTER JOIN tiposoftwares ON softwares.idtiposoftware=tiposoftwares.idtiposoftware" ; $cmd->texto.=" WHERE perfilessoft_softwares.idperfilsoft=".$idperfilsoft; $cmd->texto.=" ORDER by tiposoftwares.idtiposoftware,softwares.descripcion"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); $cadenaXML.='EOF){ $cadenaXML.='campos["urlimg"]; $cadenaXML.=' infonodo="'.$rs->campos["descripcion"].'"'; $cadenaXML.='>'; $cadenaXML.=''; $rs->Siguiente(); } $cadenaXML.=''; $rs->Cerrar(); return($cadenaXML); } //________________________________________________________________________________________________________ function SubarbolXML_IncrementalesDisponibles($cmd,$idperfilsoft,$idperfilhard){ global $TbMsg; $cadenaXML=""; $rs=new Recordset; $cmd->texto="SELECT softincrementales.descripcion, softincrementales.idsoftincremental, perfileshard_perfilessoft.idperfilhard, perfileshard_perfilessoft.idperfilsoft FROM perfileshard_perfilessoft INNER JOIN phard_psoft_softincremental ON perfileshard_perfilessoft.idphardidpsoft = phard_psoft_softincremental.idphardidpsoft INNER JOIN softincrementales ON phard_psoft_softincremental.idsoftincremental = softincrementales.idsoftincremental WHERE ( perfileshard_perfilessoft.idperfilhard = ".$idperfilhard.") AND ( perfileshard_perfilessoft.idperfilsoft = ".$idperfilsoft.")"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset if($rs->EOF) return($cadenaXML); $cadenaXML.='EOF){ $cadenaXML.=SubarbolXML_SoftwaresIncrementales($cmd,$rs->campos["idsoftincremental"]); $rs->Siguiente(); } $cadenaXML.=''; $rs->Cerrar(); return($cadenaXML); } //________________________________________________________________________________________________________ function SubarbolXML_SoftwaresIncrementales($cmd,$idsoftincremental){ global $TbMsg; $cadenaXML=""; $rs=new Recordset; $cmd->texto="SELECT softincrementales.idsoftincremental ,softincrementales.descripcion as idescripcion, softincrementales.comentarios,softwares.idsoftware,softwares.descripcion as sdescripcion,tiposoftwares.urlimg FROM softincrementales "; $cmd->texto.=" LEFT OUTER JOIN softincremental_softwares ON softincrementales.idsoftincremental=softincremental_softwares.idsoftincremental"; $cmd->texto.=" LEFT OUTER JOIN softwares ON softwares.idsoftware=softincremental_softwares.idsoftware"; $cmd->texto.=" LEFT OUTER JOIN tiposoftwares ON softwares.idtiposoftware=tiposoftwares.idtiposoftware" ; $cmd->texto.=" WHERE softincrementales.idsoftincremental=".$idsoftincremental; $cmd->texto.=" ORDER by tiposoftwares.idtiposoftware,softwares.descripcion"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); $cadenaXML.='campos["idescripcion"].'"'; $cadenaXML.='>'; if($rs->campos["comentarios"]>" "){ $cadenaXML.='campos["comentarios"].'"'; $cadenaXML.='>'; $cadenaXML.=''; } $swcompo=false; while (!$rs->EOF){ if ($rs->campos["idsoftware"]){ if (!$swcompo) { $cadenaXML.='campos["urlimg"]; $cadenaXML.=' infonodo="'.$rs->campos["sdescripcion"].'"'; $cadenaXML.='>'; $cadenaXML.=''; } $rs->Siguiente(); } if ($swcompo) { $cadenaXML.=''; } $cadenaXML.=''; $rs->Cerrar(); return($cadenaXML); } ?>