";
echo "
";
echo "| Cuenta | ";
echo "Denominación | ";
echo "Contable | ";
echo "Disponible | ";
echo "
";
if ($ls_operacion=="BUSCAR")
{
$ls_sqlaux = $ls_straux = "";
if ($li_estpreing==1)
{
$ls_straux = ", spi_cuentas_estructuras, spg_ep5";
$ls_codestpro1 = str_pad($ls_codestpro1,25,0,0);
$ls_codestpro2 = str_pad($ls_codestpro2,25,0,0);
$ls_codestpro3 = str_pad($ls_codestpro3,25,0,0);
if ($li_estmodest==2)
{
$ls_codestpro4 = str_pad($ls_codestpro4,25,0,0);
$ls_codestpro5 = str_pad($ls_codestpro5,25,0,0);
}
elseif($li_estmodest==1)
{
$ls_codestpro4 = $ls_codestpro5 = str_pad("",25,0,0);
}
$ls_sqlaux = " AND spi_cuentas_estructuras.codestpro1 = '".$ls_codestpro1."'
AND spi_cuentas_estructuras.codestpro2 = '".$ls_codestpro2."'
AND spi_cuentas_estructuras.codestpro3 = '".$ls_codestpro3."'
AND spi_cuentas_estructuras.codestpro4 = '".$ls_codestpro4."'
AND spi_cuentas_estructuras.codestpro5 = '".$ls_codestpro5."'
AND spi_cuentas_estructuras.estcla = '".$ls_estcla."'
AND spi_cuentas.codemp=spi_cuentas_estructuras.codemp
AND spi_cuentas.spi_cuenta=spi_cuentas_estructuras.spi_cuenta
AND TRIM(spi_cuentas.codemp)=TRIM(spi_cuentas_estructuras.codemp)
AND spi_cuentas_estructuras.codemp = spg_ep5.codemp
AND spi_cuentas_estructuras.codestpro1 = spg_ep5.codestpro1
AND spi_cuentas_estructuras.codestpro2 = spg_ep5.codestpro2
AND spi_cuentas_estructuras.codestpro3 = spg_ep5.codestpro3
AND spi_cuentas_estructuras.codestpro4 = spg_ep5.codestpro4
AND spi_cuentas_estructuras.codestpro5 = spg_ep5.codestpro5
AND spi_cuentas_estructuras.estcla = spg_ep5.estcla";
}
$ls_sql ="SELECT DISTINCT TRIM(spi_cuentas.spi_cuenta) as spi_cuenta,
spi_cuentas.denominacion,spi_cuentas.status,
(spi_cuentas.previsto+spi_cuentas.aumento-spi_cuentas.disminucion) as disponible,
TRIM(spi_cuentas.sc_cuenta) as sc_cuenta
FROM spi_cuentas $ls_straux
WHERE spi_cuentas.codemp = '".$ls_codemp."'
AND spi_cuentas.spi_cuenta like '".$ls_spicta."%'
AND UPPER(spi_cuentas.denominacion) like '%".strtoupper($ls_denspicta)."%'
AND spi_cuentas.sc_cuenta like '".$ls_scgcta."%' $ls_sqlaux
ORDER BY spi_cuenta ASC"; //print $ls_sql;
$rs_data = $io_sql->select($ls_sql);//echo $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)
{
$ls_spicta = $rs_data->fields["spi_cuenta"];
$ls_denspicta = $rs_data->fields["denominacion"];
$ls_scgcta = $rs_data->fields["sc_cuenta"];
$ld_totmondis = number_format($rs_data->fields["disponible"],2,',','.');
$ls_estspicta = $rs_data->fields["status"];
if ($ls_estspicta=='S')
{
echo "
";
echo "| ".$ls_spicta." | ";
}
elseif($ls_estspicta=='C')
{
echo "
";
echo "| ".$ls_spicta." | ";
}
echo "".$ls_denspicta." | ";
echo "".$ls_scgcta." | ";
echo "".$ld_totmondis." | ";
echo "
";
$rs_data->MoveNext();
}
}
else
{
$io_msg->message("No se encontraron cuentas Presupuestarias de Ingreso !!!");
}
}
}
echo "";
?>