";
print "
";
print "| Presupuestaria | ";
print "".$arr["nomestpro1"]." | ";
print "".$arr["nomestpro2"]." | ";
print "".$arr["nomestpro3"]." | ";
if ($li_estmodest=='2')
{
print "".$arr["nomestpro4"]." | ";
print "".$arr["nomestpro5"]." | ";
}
print "Denominación | ";
print "Contable | ";
print "
";
if ($ls_operacion=="BUSCAR")
{
if (!empty($ls_codestpro1)&&!empty($ls_codestpro2)&&!empty($ls_codestpro3))
{
}
$ls_cadena =" SELECT spg_cuenta,denominacion,sc_cuenta,status,
estcla,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 '".$ls_codigo."%' AND ".
" denominacion like '%".$ls_denominacion."%' AND sc_cuenta like '%".$ls_cuenta."%' 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_estcla3%' ".
" ORDER BY spg_cuenta
";
$rs_cta=$io_sql->select($ls_cadena);
$data=$rs_cta;
if($row=$io_sql->fetch_row($rs_cta))
{
$data = $io_sql->obtener_datos($rs_cta);
$arrcols = array_keys($data);
$totcol = count($arrcols);
$ds->data = $data;
$totrow = $ds->getRowCount("spg_cuenta");
for($z=1;$z<=$totrow;$z++)
{
$cuenta = trim($data["spg_cuenta"][$z]);
$denominacion = $data["denominacion"][$z];
$ls_codestpro1 = trim($data["codestpro1"][$z]);
$ls_codestpro2 = trim($data["codestpro2"][$z]);
$ls_codestpro3 = trim($data["codestpro3"][$z]);
$ls_codestpro4 = trim($data["codestpro4"][$z]);
$ls_codestpro5 = trim($data["codestpro5"][$z]);
$ls_estcla = trim($data["estcla"][$z]);
$ls_codestp1 = $io_funcion->uf_cerosizquierda($ls_codestpro1,25);
$ls_codestp2 = $io_funcion->uf_cerosizquierda($ls_codestpro2,25);
$ls_codestp3 = $io_funcion->uf_cerosizquierda($ls_codestpro3,25);
$ls_codestp4 = $io_funcion->uf_cerosizquierda($ls_codestpro4,25);
$ls_codestp5 = $io_funcion->uf_cerosizquierda($ls_codestpro5,25);
$ls_codestpro = $ls_codestpro1.$ls_codestpro2.$ls_codestpro3;
if ($li_estmodest=='2')
{
$ls_codestpro=$ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
}
$scgcuenta = trim($data["sc_cuenta"][$z]);
$status = $data["status"][$z];
if($status=="S")
{
print "
";
print "| ".$cuenta." | ";
print "".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
if ($li_estmodest=='2')
{
print "".$ls_codestpro4." | ";
print "".$ls_codestpro5." | ";
}
print "".$denominacion." | ";
print "".$scgcuenta." | ";
}
else
{
print "
";
print "| ".$cuenta." | ";
print "".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
if ($li_estmodest=='2')
{
print "".$ls_codestpro4." | ";
print "".$ls_codestpro5." | ";
}
print "".$denominacion." | ";
print "".$scgcuenta." | ";
}
print "
";
}
$io_sql->free_result($rs_cta);
$io_sql->close();
}
else
{ ?>
";
?>