";
print "
";
print "| Presupuestaria | ";
print "".$arr["nomestpro1"]." | ";
print "".$arr["nomestpro2"]." | ";
print "".$arr["nomestpro3"]." | ";
print "Denominación | ";
print "Contable | ";
print "
";
if($ls_operacion=="BUSCAR")
{
$ls_cadena =" SELECT spg_cuenta,sc_cuenta,status,denominacion, ".
" SUBSTR(codestpro1,".$li_longestpro1.",25) as codestpro1,".
" SUBSTR(codestpro2,".$li_longestpro2.",25) as codestpro2,".
" SUBSTR(codestpro3,".$li_longestpro3.",25) as codestpro3,".
" SUBSTR(codestpro4,".$li_longestpro4.",25) as codestpro4,".
" SUBSTR(codestpro5,".$li_longestpro5.",25) as codestpro5".
" FROM spg_cuentas ".
" WHERE codemp = '".$ls_codemp."' AND spg_cuenta like '4%' ".
" ORDER BY spg_cuenta";
$rs_cta=$SQL->select($ls_cadena);
$data=$rs_cta;
if ($row=$SQL->fetch_row($rs_cta))
{
while ($row=$SQL->fetch_row($rs_cta))
{
$cuenta=$row["spg_cuenta"];
$denominacion=$row["denominacion"];
$codest1=$row["codestpro1"];
$codest2=$row["codestpro2"];
$codest3=$row["codestpro3"];
$scgcuenta=$row["sc_cuenta"];
$status=$row["status"];
if($status=="S")
{
print "
";
print "| ".$cuenta." | ";
print "".$codest1." | ";
print "".$codest2." | ";
print "".$codest3." | ";
print "".$denominacion." | ";
print "".$scgcuenta." | ";
}
else
{
print "
";
print "| ".$cuenta." | ";
print "".$codest1." | ";
print "".$codest2." | ";
print "".$codest3." | ";
print "".$denominacion." | ";
print "".$scgcuenta." | ";
}
print "
";
}
$SQL->free_result($rs_cta);
$SQL->close();
}
else
{ ?>
";
?>