print "</script>"; } else { error_reporting(E_ALL); set_time_limit(1800); $io_pdf = new Cezpdf('LETTER', 'portrait'); $io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); $io_pdf->ezSetCmMargins(5, 3, 3, 3); $lb_valido = true; $ls_codigoant = ""; for ($li_z = 0; $li_z < $li_totrow && $lb_valido; $li_z++) { $ls_numsol = $la_datos[$li_z]; $ls_procede = $la_procedencias[$li_z]; if ($ls_procede == "SCBBCH") { $lb_valido = $io_report->uf_retencionesislr_scb($ls_numsol); } else { $lb_valido = $io_report->uf_retencionesislr_cxp($ls_numsol); } if ($lb_valido) { $li_total = $io_report->DS->getRowCount("numdoc"); for ($li_i = 1; $li_i <= $li_total; $li_i++) { $ls_tipproben = $io_report->DS->data["tipproben"][$li_i]; if ($ls_tipproben == "P") { $ls_codigo = $io_report->DS->data["cod_pro"][$li_i]; $ls_nombre = $io_report->DS->data["proveedor"][$li_i]; $ls_telefono = $io_report->DS->data["telpro"][$li_i]; $ls_direccion = $io_report->DS->data["dirpro"][$li_i]; $ls_rif = $io_report->DS->data["rifpro"][$li_i]; } else { $ls_codigo = $io_report->DS->data["ced_bene"][$li_i]; $ls_nombre = $io_report->DS->data["beneficiario"][$li_i]; $ls_telefono = $io_report->DS->data["telbene"][$li_i];
$li_totalmontret3porc = 0; $li_totalbaseimp5porc = 0; $li_totalmontret5porc = 0; $li_s = 0; uf_print_encabezado_pagina($ls_titulo, $io_pdf); while (!$rs_data->EOF && $lb_valido) { $li_s = $li_s + 1; switch (trim($rs_data->fields["procede"])) { case "SCBBCH": $lb_valido = $io_report->uf_retencionesislr_scb($rs_data->fields["numero"]); break; case "INT": $lb_valido = $io_report->uf_retencionesislr_int($rs_data->fields["numero"]); break; default: $lb_valido = $io_report->uf_retencionesislr_cxp($rs_data->fields["numero"]); break; } $li_total = $io_report->DS->getRowCount("numdoc"); for ($li_i = 1; $li_i <= $li_total; $li_i++) { $ls_codpro = $io_report->DS->data["cod_pro"][$li_i]; $ls_cedbene = $io_report->DS->data["ced_bene"][$li_i]; if ($ls_codpro != "----------") { $ls_tipproben = "P"; } else { $ls_tipproben = "B"; } if ($ls_tipproben == "P") { $ls_codigo = $io_report->DS->data["cod_pro"][$li_i]; $ls_nombre = $io_report->DS->data["proveedor"][$li_i]; $ls_rif = $io_report->DS->data["rifpro"][$li_i];