print " alert('No hay nada que Reportar');";
print " close();";
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];
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm');
$io_pdf->ezSetCmMargins(4, 2, 3, 3);
$lb_valido = true;
$li_totalbaseimp2porc = 0;
$li_totalmontret2porc = 0;
$li_totalbaseimp3porc = 0;
$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 {
