$io_pdf = new Cezpdf('LETTER', 'landscape');
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm');
$io_pdf->ezSetCmMargins(4.4, 3, 3, 3);
uf_print_encabezado_pagina($ls_titulo, $ld_fecdes, $ld_fechas, &$io_pdf);
$li_rowcargos = $io_report->DS->getRowCount("codded");
//print"s";
$io_report->DS->sortData("codded");
$lb_existe = false;
for ($li_j = 1; $li_j <= $li_rowcargos; $li_j++) {
$ls_codded = $io_report->DS->data["codded"][$li_j];
$ls_dended = $io_report->DS->data["dended"][$li_j];
$li_islr = $io_report->DS->data["islr"][$li_j];
$li_iva = $io_report->DS->data["iva"][$li_j];
$li_estretmun = $io_report->DS->data["estretmun"][$li_j];
$li_retaposol = $io_report->DS->data["retaposol"][$li_j];
$lb_valido = $io_report->uf_retencionesespecifico($ls_codded, $ls_coddedhas, $ls_tipproben, $ls_codprobenhas, $ls_codprobendes, $ld_fecdes, $ld_fechas, $ls_tipper);
$li_totbase = 0;
$li_totcargos = 0;
$li_totrow = $io_report->ds_detalle->getRowCount("numsol");
for ($li_i = 1; $li_i <= $li_totrow; $li_i++) {
$ls_codded = $io_report->ds_detalle->data["codded"][$li_i];
$ls_numsol = $io_report->ds_detalle->data["numsol"][$li_i];
$ls_nombre = $io_report->ds_detalle->data["nombre"][$li_i];
$ls_numcomiva = $io_report->ds_detalle->data["numcomiva"][$li_i];
$ls_numcommun = $io_report->ds_detalle->data["numcommun"][$li_i];
$ls_numcomapo = $io_report->ds_detalle->data["numcomapo"][$li_i];
$li_porded = $io_report->ds_detalle->data["porded"][$li_i] * 100;
if ($li_porded > 100) {
$li_porded = number_format($io_report->ds_detalle->data["porded"][$li_i], 2, ',', '.');
} else {
$li_porded = number_format($li_porded, 2, ',', '.');
