$ld_comprometer=str_replace(',','.',$ld_comprometer);
$ld_causado=str_replace('.','',$ld_causado);
$ld_causado=str_replace(',','.',$ld_causado);
$ld_pagado=str_replace('.','',$ld_pagado);
$ld_pagado=str_replace(',','.',$ld_pagado);
}
// Imprimimos la cabecera
uf_print_cabecera_programatica($ls_spg_cuenta,$ls_programatica,$ls_denestpro,$io_pdf);
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$ld_subtotal_comprometer=$ld_sub_total_comprometer;
$ld_subtotal_causado=$ld_sub_total_causado;
$ld_subtotal_pagado=$ld_sub_total_pagado;
$ld_sub_total_comprometer=number_format($ld_sub_total_comprometer,2,",",".");
$ld_sub_total_causado=number_format($ld_sub_total_causado,2,",",".");
$ld_sub_total_pagado=number_format($ld_sub_total_pagado,2,",",".");
uf_print_total_programatica($ld_sub_total_comprometer,$ld_sub_total_causado,$ld_sub_total_pagado,$io_pdf);
//unset($la_data);
}
/*if ($io_pdf->ezPageCount==$thisPageNum)
{// Hacemos el commit de los registros que se desean imprimir
$io_pdf->transaction('commit');
}
elseif($thisPageNum>1)
{// Hacemos un rollback de los registros, agregamos una nueva página y volvemos a imprimir
$io_pdf->transaction('rewind');
$io_pdf->ezNewPage(); // Insertar una nueva página
//uf_print_cabecera($ls_procede,$ls_comprobante,$ls_nomprobene,$ls_tipo_destino,$io_pdf);
uf_print_cabecera_programatica($ls_spg_cuenta,$ls_programatica,$ls_denestpro,$io_pdf);
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$ld_subtotal_comprometer=number_format($ld_subtotal_comprometer,2,",",".");
$ld_subtotal_causado=number_format($ld_subtotal_causado,2,",",".");
uf_print_total_comprobante($ld_totalcomprobante,$io_pdf); // Imprimimos el total comprobante
$ld_totalcomprobante=0;
$ld_totalprogramatica=0;
}
if ($io_pdf->ezPageCount==$thisPageNum)
{// Hacemos el commit de los registros que se desean imprimir
$io_pdf->transaction('commit');
}
elseif($thisPageNum>1)
{// Hacemos un rollback de los registros, agregamos una nueva página y volvemos a imprimir
$io_pdf->transaction('rewind');
$io_pdf->ezNewPage(); // Insertar una nueva página
uf_print_cabecera($ls_procede,$ls_comprobante,$ls_nomprobene,$io_pdf); // Imprimimos la cabecera del registro
uf_print_cabecera_programatica($ls_programatica,$ls_denestpro,$io_pdf); // Imprimimos la cabecera del registro
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
uf_print_total_programatica($ld_totalprogram,$io_pdf); // Imprimimos el total programatica
uf_print_total_comprobante($ld_totalcomprob,$io_pdf); // Imprimimos el total comprobante
}
else
{
$io_pdf->transaction('commit');
}
if($li_i==$li_tot)
{
$ld_total=number_format($ld_total,2,",",".");
uf_print_pie_cabecera($ld_total,$io_pdf); // Imprimimos pie de la cabecera
}
unset($la_data);
}//for
$io_pdf->ezStopPageNumbers(1,1);
if (isset($d) && $d)
$io_encabezado=$io_pdf->openObject();
uf_print_cabecera_detalle($io_encabezado,$ls_saldol,$io_pdf);
//uf_print_cabecera_detalle($io_pdf);
uf_print_detalle($la_data,$ls_saldol,$io_pdf); // Imprimimos el detalle
if($ls_tipoformato==1)//BsF.
{
$ld_totalprogramatica=number_format($ld_totalprogramatica,2,",",".");
uf_print_total_programatica($ld_totalprogramatica,'Bs.',$io_pdf); // Imprimimos el total programatica
}
else //Bs.
{
// $ld_totalprogramatica_bsf = $io_rcbsf->uf_convertir_monedabsf($ld_totalprogramatica, $li_candeccon,$li_tipconmon,1000,$li_redconmon);
$ld_totalprogramatica=number_format($ld_totalprogramatica,2,",",".");
$ld_totmontodol=number_format($ld_totmontodol,2,",",".");
uf_print_total_programatica($ld_totalprogramatica,'Bs.',$ld_totmontodol,$ls_saldol,$io_pdf); // Imprimimos el total programatica
// $ld_totalprogramatica_bsf=number_format($ld_totalprogramatica_bsf,2,",",".");
// uf_print_total_programatica($ld_totalprogramatica_bsf,'BsF.',$io_pdf); // Imprimimos el total programatica
}
$io_pdf->stopObject($io_encabezado);
}
$io_pdf->stopObject($io_cabecera);
unset($la_data);
if($li_i<$li_tot)
{
$io_pdf->ezNewPage(); // Insertar una nueva página
}
}//While
$ld_total=number_format($ld_total,2,",",".");
