";
echo "
";
echo "| Presupuestaria | ";
echo "".$la_empresa["nomestpro1"]." | ";
echo "".$la_empresa["nomestpro2"]." | ";
echo "".$la_empresa["nomestpro3"]." | ";
if ($li_estmodest=='2')
{
echo "".$la_empresa["nomestpro4"]." | ";
echo "".$la_empresa["nomestpro5"]." | ";
}
echo "Denominación | ";
echo "Contable | ";
echo "Disponible | ";
echo "
";
if ($ls_operacion=="BUSCAR")
{
$ls_sqlaux = "";
$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);
$ls_sqlaux = " AND codestpro4='".$ls_codestpro4."' AND codestpro5='".$ls_codestpro5."'";
}
$ls_sql = "SELECT codestpro1,codestpro2,codestpro3,codestpro4,codestpro5,estcla,
TRIM(spg_cuenta) as spg_cuenta,denominacion,TRIM(sc_cuenta) as sc_cuenta,status
FROM spg_cuentas
WHERE codemp = '".$la_empresa["codemp"]."'
AND spg_cuenta like '".$ls_spgcta."%'
AND denominacion like '%".$ls_denctaspg."%'
AND sc_cuenta like '".$ls_scgcta."%'
AND codestpro1='".$ls_codestpro1."'
AND codestpro2='".$ls_codestpro2."'
AND codestpro3='".$ls_codestpro3."' $ls_sqlaux
AND estcla='".$ls_estcla."'
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_numrows = $io_sql->num_rows($rs_data);
if ($li_numrows>0)
{
while (!$rs_data->EOF)
{
$ls_spgcta = $rs_data->fields["spg_cuenta"];
$ls_denctaspg = $rs_data->fields["denominacion"];
$ls_codestpro1 = trim(substr($la_estprog[0] = $rs_data->fields["codestpro1"],-$li_loncodestpro1));
$ls_codestpro2 = trim(substr($la_estprog[1] = $rs_data->fields["codestpro2"],-$li_loncodestpro2));
$ls_codestpro3 = trim(substr($la_estprog[2] = $rs_data->fields["codestpro3"],-$li_loncodestpro3));
$ls_codestpro4 = trim(substr($la_estprog[3] = $rs_data->fields["codestpro4"],-$li_loncodestpro4));
$ls_codestpro5 = trim(substr($la_estprog[4] = $rs_data->fields["codestpro5"],-$li_loncodestpro5));
$ls_estcla = $la_estprog[5] = $rs_data->fields["estcla"];
$ls_scgcta = $rs_data->fields["sc_cuenta"];
$ls_estctaspg = $rs_data->fields["status"];
$lb_valido=$io_intspg->uf_spg_saldo_select($la_empresa["codemp"],$la_estprog,$ls_spgcta,$ls_status,$adec_asignado,
$adec_aumento,$adec_disminucion,$adec_precomprometido,
$adec_comprometido,$adec_causado,$adec_pagado);
$ld_disponible = ($adec_asignado-($adec_comprometido+$adec_precomprometido)+$adec_aumento-$adec_disminucion);
$ld_disponible = number_format($ld_disponible,2,",",".");
if ($ls_estctaspg=='S')
{
echo "
";
echo "| ".$ls_spgcta." | ";
}
elseif($ls_estctaspg=='C')
{
echo "
";
echo "| ".$ls_spgcta." | ";
}
echo "".$ls_codestpro1." | ";
echo "".$ls_codestpro2." | ";
echo "".$ls_codestpro3." | ";
if ($li_estmodest=='2')
{
echo "".$ls_codestpro4." | ";
echo "".$ls_codestpro5." | ";
}
echo "".$ls_denctaspg." | ";
echo "".$ls_scgcta." | ";
echo "".$ld_disponible." | ";
echo "
";
$rs_data->MoveNext();
}
$io_sql->free_result($rs_data);
$io_sql->close();
}
else
{
$io_msg->message("No se han creado Cuentas de gasto para la programatica seleccionada !!!");
}
}
}
print "";
?>