$li_s=$li_s+1;
$ls_codestpro1=trim($row["codestpro1"]);
$ls_codestpro2=trim($row["codestpro2"]);
$ls_codestpro3=trim($row["codestpro3"]);
$ls_codestpro4=trim($row["codestpro4"]);
$ls_codestpro5=trim($row["codestpro5"]);
$ls_codestpro1 = substr($ls_codestpro1,-$_SESSION["la_empresa"]["loncodestpro1"]);
$ls_codestpro2 = substr($ls_codestpro2,-$_SESSION["la_empresa"]["loncodestpro2"]);
$ls_codestpro3 = substr($ls_codestpro3,-$_SESSION["la_empresa"]["loncodestpro3"]);
$ls_codestpro4 = substr($ls_codestpro3,-$_SESSION["la_empresa"]["loncodestpro4"]);
$ls_codestpro5 = substr($ls_codestpro3,-$_SESSION["la_empresa"]["loncodestpro5"]);
$ls_spg_cuenta=$row["spg_cuenta"];
$ld_monto=$row["monto"];
$ld_monto=number_format($ld_monto,2,",",".");
$ls_dencuenta="";
$lb_valido = $io_report->uf_select_denominacionspg($ls_spg_cuenta,$ls_dencuenta);
if($ls_estmodest==1)
{
$ls_codestpro = $ls_codestpro1.'-'.$ls_codestpro2.'-'.$ls_codestpro3;
}
else
{
$ls_codestpro=$ls_codestpro1.'-'.$ls_codestpro2.'-'.$ls_codestpro3.'-'.$ls_codestpro4.'-'.$ls_codestpro5;
}
$la_data[$li_s]=array('codestpro'=>$ls_codestpro,'denominacion'=>$ls_dencuenta,
'cuenta'=>$ls_spg_cuenta,'monto'=>$ld_monto);
}
uf_print_detalle_cuentas($la_data,&$io_pdf);
unset($la_data);
}
