";
print "
";
print "| Presupuestaria | ";
print "".$la_empresa["nomestpro1"]." | ";
print "".$la_empresa["nomestpro2"]." | ";
print "".$la_empresa["nomestpro3"]." | ";
if($li_estmodest==2)
{
print "".$la_empresa["nomestpro4"]." | ";
print "".$la_empresa["nomestpro5"]." | ";
}
print "Estatus | ";
print "Denominación | ";
print "Contable | ";
print "Disponible | ";
print "
";
if($ls_operacion=="BUSCAR")
{
$ls_codestpro1 = str_pad($ls_estpro1,25,0,0);
$ls_codestpro2 = str_pad($ls_estpro2,25,0,0);
$ls_codestpro3 = str_pad($ls_estpro3,25,0,0);
if($li_estmodest==2)
{
$ls_codestpro4 = str_pad($ls_estpro4,25,0,0);
$ls_codestpro5 = str_pad($ls_estpro5,25,0,0);
$ls_sql = "SELECT spg_cuenta,denominacion,estcla,codestpro1,codestpro2,codestpro3,codestpro4,codestpro5,sc_cuenta,status,
(asignado-(comprometido+precomprometido)+aumento-disminucion) as disponible".
" FROM spg_cuentas ".
" WHERE codemp = '".$ls_codemp."'".
" AND spg_cuenta like '".$_SESSION["la_empresa"]['gasto']."".$ls_codigo."'".
" AND denominacion like '".$ls_denominacion."'".
" AND sc_cuenta like '".$ls_codscg."'".
" AND codestpro1 like '%".$ls_codestpro1."%'".
" AND codestpro2 like '%".$ls_codestpro2."%'".
" AND codestpro3 like '%".$ls_codestpro3."%'".
" AND codestpro4 like '%".$ls_codestpro4."%'".
" AND codestpro5 like '%".$ls_codestpro5."%' ".
" AND estcla like '%".$ls_estcla."%' ".
" ORDER BY spg_cuenta";
}
else
{
$ls_sql ="SELECT spg_cuenta,denominacion,estcla,codestpro1,codestpro2,codestpro3,codestpro4,codestpro5,sc_cuenta,status,
(asignado-(comprometido+precomprometido)+aumento-disminucion) as disponible".
" FROM spg_cuentas ".
" WHERE codemp = '".$ls_codemp."'".
" AND spg_cuenta like '".$_SESSION["la_empresa"]['gasto']."".$ls_codigo."'".
" AND denominacion like '".$ls_denominacion."'".
" AND sc_cuenta like '".$ls_codscg."'".
" AND codestpro1 = '".$ls_codestpro1."'".
" AND codestpro2 = '".$ls_codestpro2."'".
" AND codestpro3 like '%".$ls_codestpro3."%'".
" AND estcla like '%".$ls_estcla."%' ".
" ORDER BY spg_cuenta";
}
$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_numrows = $io_sql->num_rows($rs_data);
if ($li_numrows>0)
{
while ($row=$io_sql->fetch_row($rs_data))
{
$ls_spgcta = trim($row["spg_cuenta"]);
$ls_denctaspg = ltrim($row["denominacion"]);
$ls_estcla = $row["estcla"];
$ls_estatus = "";
switch($ls_estcla)
{
case "A":
$ls_estatus="Acción";
break;
case "P":
$ls_estatus="Proyecto";
break;
}
$ls_codestpro1 = substr($row["codestpro1"],(strlen($row["codestpro1"])-$li_len1),$li_len1);
$ls_codestpro2 = substr($row["codestpro2"],(strlen($row["codestpro2"])-$li_len2),$li_len2);
$ls_codestpro3 = substr($row["codestpro3"],(strlen($row["codestpro3"])-$li_len3),$li_len3);
$ls_codestpro4 = substr($row["codestpro4"],(strlen($row["codestpro4"])-$li_len4),$li_len4);
$ls_codestpro5 = substr($row["codestpro5"],(strlen($row["codestpro5"])-$li_len5),$li_len5);
$ls_scgcta = trim($row["sc_cuenta"]);
$ls_status = $row["status"];
$ld_disspgcta = $row["disponible"];
if ($ls_status=="S")
{
echo "
";
echo "| ".$ls_spgcta." | ";
}
elseif($ls_status=="C")
{
echo "
";
if ($li_estmodest=="1")
{
echo "| ".$ls_spgcta." | ";
}
elseif($li_estmodest=="2")
{
echo "".$ls_spgcta." | ";
}
}
echo "".$ls_codestpro1." | ";
echo "".$ls_codestpro2." | ";
echo "".$ls_codestpro3." | ";
if ($li_estmodest=="2")
{
echo "".$ls_codestpro4." | ";
echo "".$ls_codestpro5." | ";
}
echo "".$ls_estatus." | ";
echo "".$ls_denctaspg." | ";
echo "".$ls_scgcta." | ";
echo "".number_format($ld_disspgcta,2,",",".")." | ";
echo "
";
}
unset($row);
$io_sql->free_result($rs_data);
$io_sql->close();
}
else
{
$io_msg->message("No se han creado Cuentas Presupuestarias !!!");
}
}
}
print "";
?>