}
$ld_totalcomprob=$ld_totalcomprobante;
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
$ld_comprometer=number_format($ld_comprometer,2,",",".");
$ld_causado=number_format($ld_causado,2,",",".");
$ld_pagado=number_format($ld_pagado,2,",",".");
$la_data[$li_s]=array('comprobante'=>$ls_proc_comp,'fecha'=>$ldt_fecha,'comprometido'=>$ld_comprometer,
'causado'=>$ld_causado,'pagado'=>$ld_pagado);
$ld_comprometer=str_replace('.','',$ld_comprometer);
$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)
