";
echo "
";
echo "| Código | ";
echo "Denominación | ";
echo "
";
if($ls_operacion=="BUSCAR")
{
if($li_estmodest==1)
{
$ls_codestpro1 = $fun->uf_cerosizquierda(trim($ls_codestpro1),25);
$ls_codestpro2 = $fun->uf_cerosizquierda(trim($ls_codestpro2),25);
$ls_codestpro3 = $fun->uf_cerosizquierda(trim($ls_codestpro3),25);
$ls_codestpro4 = $fun->uf_cerosizquierda(trim($ls_codestpro4),25);
$ls_codestpro5 = $fun->uf_cerosizquierda(trim($ls_codestpro5),25);
$ls_codestpro1h = $fun->uf_cerosizquierda(trim($ls_codestpro1h),25);
$ls_codestpro2h = $fun->uf_cerosizquierda(trim($ls_codestpro2h),25);
$ls_codestpro3h = $fun->uf_cerosizquierda(trim($ls_codestpro3h),25);
$ls_codestpro4h = $fun->uf_cerosizquierda(trim($ls_codestpro4h),25);
$ls_codestpro5h = $fun->uf_cerosizquierda(trim($ls_codestpro5h),25);
if (strtoupper($ls_gestor)=="MYSQLT")
{
if(($ls_codestpro1!="")&&($ls_codestpro2!="")&&($ls_codestpro3!="")&&($ls_codestpro1h!="")&&($ls_codestpro2h!="")&&($ls_codestpro3h!="")&&($ls_estclades!="")&&($ls_estclahas!=""))
{
$ls_codestprodes=$ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5.$ls_estclades;
$ls_codestprohas=$ls_codestpro1h.$ls_codestpro2h.$ls_codestpro3h.$ls_codestpro4h.$ls_codestpro5h.$ls_estclahas;
$ls_cad=" AND CONCAT(codestpro1,codestpro2,codestpro3,codestpro4,codestpro5,estcla) BETWEEN '".$ls_codestprodes."' AND '".$ls_codestprohas."' ";
}
else
{
$ls_cad="";
}
}
else
{
if(($ls_codestpro1!="")&&($ls_codestpro2!="")&&($ls_codestpro3!="")&&($ls_codestpro1h!="")&&($ls_codestpro2h!="")&&($ls_codestpro3h!="")&&($ls_estclades!="")&&($ls_estclahas!=""))
{
$ls_codestprodes=trim($ls_codestpro1).trim($ls_codestpro2).trim($ls_codestpro3).trim($ls_codestpro4).trim($ls_codestpro5).trim($ls_estclades);
$ls_codestprohas=trim($ls_codestpro1h).trim($ls_codestpro2h).trim($ls_codestpro3h).trim($ls_codestpro4h).trim($ls_codestpro5h).trim($ls_estclahas);
$ls_cad=" AND (codestpro1||codestpro2||codestpro3||codestpro4||codestpro5||estcla) BETWEEN '".$ls_codestprodes."' AND '".$ls_codestprohas."' ";
}
else
{
$ls_cad="";
}
}
}
else
{
$ls_cad="";
if($ls_codestpro1!=""&&$ls_codestpro1!="**"&&$ls_codestpro1!="0000000000000000000000000")
{
$ls_codestpro1 = $fun->uf_cerosizquierda(trim($ls_codestpro1),25);
}
else
{
$ls_codestpro1 = uf_buscar($io_sql,"SELECT MIN(codestpro1) as codestpro1 FROM spg_ep1 WHERE " ,"codestpro1");
}
if($ls_codestpro2!=""&&$ls_codestpro2!="**"&&$ls_codestpro2!="0000000000000000000000000")
{
$ls_codestpro2 = $fun->uf_cerosizquierda(trim($ls_codestpro2),25);
}
else
{
$ls_codestpro2 = uf_buscar($io_sql,"SELECT MIN(codestpro2) as codestpro2 FROM spg_ep2 WHERE codestpro1='$ls_codestpro1' AND estcla='$ls_estclades' ","codestpro2");
}
if($ls_codestpro3!=""&&$ls_codestpro3!="**"&&$ls_codestpro3!="0000000000000000000000000")
{
$ls_codestpro3 = $fun->uf_cerosizquierda(trim($ls_codestpro3),25);
}
else
{
$ls_codestpro3 = uf_buscar($io_sql,"SELECT MIN(codestpro3) as codestpro3 FROM spg_ep3 WHERE codestpro1='$ls_codestpro1' AND codestpro2='$ls_codestpro2' AND estcla='$ls_estclades' ","codestpro3");
}
if($ls_codestpro4!=""&&$ls_codestpro4!="**"&&$ls_codestpro4!="0000000000000000000000000")
{
//$ls_cad=$ls_cad.",codestpro4";
$ls_codestpro4 = $fun->uf_cerosizquierda(trim($ls_codestpro4),25);
}
else
{
$ls_codestpro4 = uf_buscar($io_sql,"SELECT MIN(codestpro4) as codestpro4 FROM spg_ep4 WHERE codestpro1='$ls_codestpro1' AND codestpro2='$ls_codestpro2' AND codestpro3='$ls_codestpro3' AND estcla='$ls_estclades' " ,"codestpro4");
}
if($ls_codestpro5!=""&&$ls_codestpro5!="**"&&$ls_codestpro5!="0000000000000000000000000")
{
//$ls_cad=$ls_cad.",codestpro5";
$ls_codestpro5 = $fun->uf_cerosizquierda(trim($ls_codestpro5),25);
}
else
{
$ls_codestpro5 = uf_buscar($io_sql,"SELECT MIN(codestpro5) as codestpro5 FROM spg_ep5 WHERE codestpro1='$ls_codestpro1' AND codestpro2='$ls_codestpro2' AND codestpro3='$ls_codestpro3' AND codestpro4='$ls_codestpro4' AND estcla='$ls_estclades' " ,"codestpro5");
}
if($ls_codestpro1h!=""&&$ls_codestpro1h!="**"&&$ls_codestpro1h!="0000000000000000000000000")
{
$ls_codestpro1h = $fun->uf_cerosizquierda(trim($ls_codestpro1h),25);
}
else
{
$ls_codestpro1h = uf_buscar($io_sql,"SELECT MAX(codestpro1) as codestpro1 FROM spg_ep1 " ,"codestpro1");
}
if($ls_codestpro2h!=""&&$ls_codestpro2h!="**"&&$ls_codestpro2h!="0000000000000000000000000")
{
$ls_codestpro2h = $fun->uf_cerosizquierda(trim($ls_codestpro2h),25);
}
else
{
$ls_codestpro2h = uf_buscar($io_sql,"SELECT MAX(codestpro2) as codestpro2 FROM spg_ep2 WHERE codestpro1='$ls_codestpro1h'" ,"codestpro2");
}
if($ls_codestpro3h!=""&&$ls_codestpro3h!="**"&&$ls_codestpro3h!="0000000000000000000000000")
{
$ls_codestpro3h = $fun->uf_cerosizquierda(trim($ls_codestpro3h),25);
}
else
{
$ls_codestpro3h = uf_buscar($io_sql,"SELECT MAX(codestpro3) as codestpro3 FROM spg_ep3 WHERE codestpro1='$ls_codestpro1h' AND codestpro2='$ls_codestpro2h' AND estcla='$ls_estclahas' " ,"codestpro3");
}
if($ls_codestpro4h!=""&&$ls_codestpro4h!="**"&&$ls_codestpro4h!="0000000000000000000000000")
{
$ls_codestpro4h = $fun->uf_cerosizquierda(trim($ls_codestpro4h),25);
}
else
{
$ls_codestpro4h = uf_buscar($io_sql,"SELECT MAX(codestpro4) as codestpro4 FROM spg_ep4 WHERE codestpro1='$ls_codestpro1h' AND codestpro2='$ls_codestpro2h' AND codestpro3='$ls_codestpro3h' AND estcla='$ls_estclahas'" ,"codestpro4");
}
if($ls_codestpro5h!=""&&$ls_codestpro5h!="**"&&$ls_codestpro5h!="0000000000000000000000000")
{
$ls_codestpro5h = $fun->uf_cerosizquierda(trim($ls_codestpro5h),25);
}
else
{
$ls_codestpro5h = uf_buscar($io_sql,"SELECT MAX(codestpro5) as codestpro5 FROM spg_ep5 WHERE codestpro1='$ls_codestpro1h' AND codestpro2='$ls_codestpro2h' AND codestpro3='$ls_codestpro3h' AND codestpro4='$ls_codestpro4h' AND estcla='$ls_estclahas'" ,"codestpro5");
}
$ls_codestprodes=$ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5.$ls_estclades;
$ls_codestprohas=$ls_codestpro1h.$ls_codestpro2h.$ls_codestpro3h.$ls_codestpro4h.$ls_codestpro5h.$ls_estclahas;
if (strtoupper($ls_gestor)=="MYSQLT")
{
$ls_cad=" AND CONCAT(codestpro1,codestpro2,codestpro3,codestpro4,codestpro5,estcla) BETWEEN '".$ls_codestprodes."' AND '".$ls_codestprohas."' ";
}
else
{
$ls_cad=" AND (codestpro1||codestpro2||codestpro3||codestpro4||codestpro5||estcla) BETWEEN '".$ls_codestprodes."' AND '".$ls_codestprohas."' ";
}
}
$ls_sql = " SELECT DISTINCT trim(spg_cuenta) as spg_cuenta,max(denominacion) as denspgcta
FROM spg_cuentas
WHERE codemp = '".$as_codemp."'
AND spg_cuenta like '".$ls_codigo."'
AND UPPER(denominacion) like '".strtoupper($ls_denominacion)."' $ls_cad
GROUP BY spg_cuenta
ORDER BY spg_cuenta";
$rs_data = $io_sql->select($ls_sql);
if ($rs_data===false)
{
$io_msg->message("Error en Consulta, Contacte al Administrador del Sistema !!!");
}
else
{
$li_totrows = $io_sql->num_rows($rs_data);
if ($li_totrows>0)
{
while(!$rs_data->EOF)
{
echo "
";
$ls_spgcta = $rs_data->fields["spg_cuenta"];
$ls_denspgcta = rtrim($rs_data->fields["denspgcta"]);
echo "| ".$ls_spgcta." | ";
echo "".$ls_denspgcta." | ";
echo "
";
$rs_data->MoveNext();
}
}
else
{
$io_msg->message("No se han definido Cuentas Presupuestarias !!!");
}
}
}
print "";
?>