$li_totrowcuentas=$io_report->ds_cuentas->getRowCount("codestpro1");
$la_data="";
for($li_s=1;$li_s<=$li_totrowcuentas;$li_s++)
{
$ls_codestpro1=trim($io_report->ds_cuentas->data["codestpro1"][$li_s]);
$ls_codestpro2=trim($io_report->ds_cuentas->data["codestpro2"][$li_s]);
$ls_codestpro3=trim($io_report->ds_cuentas->data["codestpro3"][$li_s]);
$ls_codestpro4=trim($io_report->ds_cuentas->data["codestpro4"][$li_s]);
$ls_codestpro5=trim($io_report->ds_cuentas->data["codestpro5"][$li_s]);
$ls_estcla=trim($io_report->ds_cuentas->data["estcla"][$li_s]);
$ls_spgcuenta=$io_report->ds_cuentas->data["spg_cuenta"][$li_s];
$ls_dencuenta="";
$lb_valido = $io_report->uf_select_denominacionspg($ls_spgcuenta,$ls_dencuenta);
$ld_disponible =0;
$lb_valido = $io_report->uf_select_disponible($ls_spgcuenta,$ls_codestpro1,$ls_codestpro2,
$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_estcla,
$ld_disponible);
$ld_disponible = number_format($ld_disponible,2,',','.');
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;
}
$li_montocta=$io_report->ds_cuentas->data["monto"][$li_s];
$li_montocta=number_format($li_montocta,2,",",".");
