$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm');
 $io_pdf->ezSetCmMargins(7, 4, 3, 3);
 $lb_valido = true;
 for ($li_z = 0; $li_z < $li_totrow && $lb_valido; $li_z++) {
     uf_print_encabezado_pagina($ls_titulo1, $ls_titulo2, $io_pdf);
     $ls_numcom = $la_datos[$li_z];
     $lb_valido = $io_report->uf_retencionesmunicipales_proveedor($ls_numcom, $ls_mes, $ls_anio);
     if ($lb_valido) {
         $li_total = $io_report->DS->getRowCount("numcom");
         for ($li_i = 1; $li_i <= $li_total; $li_i++) {
             $ls_numcon = $io_report->DS->data["numcom"][$li_i];
             $ls_nomsujret = $io_report->DS->data["nomsujret"][$li_i];
             $ls_rif = $io_report->DS->data["rif"][$li_i];
         }
         uf_print_cabecera($ls_numcon, $ls_agenteret, $ls_rifagenteret, $ls_diragenteret, $ls_telagenteret, $ls_nomsujret, $ls_rif, &$io_pdf);
         $lb_valido = $io_report->uf_retencionesmunicipales_detalles($ls_numcom);
         if ($lb_valido) {
             $li_totalbaseimp = 0;
             $li_totalmontoimp = 0;
             $li_total = $io_report->ds_detalle->getRowCount("numfac");
             for ($li_i = 1; $li_i <= $li_total; $li_i++) {
                 $ld_fecfac = $io_funciones->uf_convertirfecmostrar($io_report->ds_detalle->data["fecfac"][$li_i]);
                 $li_baseimp = $io_report->ds_detalle->data["basimp"][$li_i];
                 $li_porimp = $io_report->ds_detalle->data["porimp"][$li_i];
                 $li_totimp = $io_report->ds_detalle->data["iva_ret"][$li_i];
                 $li_totalbaseimp = $li_totalbaseimp + $li_baseimp;
                 $li_totalmontoimp = $li_totalmontoimp + $li_totimp;
                 $li_baseimp = number_format($li_baseimp, 2, ",", ".");
                 $li_porimp = number_format($li_porimp, 4, ",", ".");
                 $li_totimp = number_format($li_totimp, 2, ",", ".");
             }