$ls_numdoc = $io_report->DS->data["numdoc"][$li_i];
$ls_numref = $io_report->DS->data["numref"][$li_i];
$ld_fecemidoc = $io_funciones->uf_convertirfecmostrar($io_report->DS->data["fecemidoc"][$li_i]);
$li_montotdoc = number_format($io_report->DS->data["montotdoc"][$li_i], 2, ',', '.');
$li_monobjret = number_format($io_report->DS->data["monobjret"][$li_i], 2, ',', '.');
$li_retenido = number_format($io_report->DS->data["retenido"][$li_i], 2, ',', '.');
$li_porcentaje = number_format($io_report->DS->data["porcentaje"][$li_i], 2, ',', '.');
if ($ls_codigo != $ls_codigoant) {
if ($li_z >= 1) {
uf_print_firma($io_pdf);
$io_pdf->ezNewPage();
}
$ls_codigoant = $ls_codigo;
}
uf_print_encabezado_pagina($ls_titulo, $ls_numsol, $io_pdf);
uf_print_encabezado($ls_agente, $ls_nombre, $ls_rif, $ls_nit, $ls_consol, $io_pdf);
uf_print_detalle($ls_numsol, $ld_fecemidoc, $ls_numdoc, $li_monobjret, $li_porcentaje, $li_retenido, $io_pdf);
uf_print_firma($io_pdf);
if ($li_i < $li_total) {
$io_pdf->ezNewPage();
}
}
}
}
if ($lb_valido) {
$io_pdf->ezStopPageNumbers(1, 1);
// Detenemos la impresión de los números de página
$io_pdf->ezStream();
// Mostramos el reporte
} else {
print "<script language=JavaScript>";
{
error_reporting(E_ALL);
set_time_limit(1800);
$io_pdf=new class_pdf('LEGAL','landscape'); // Instancia de la clase PDF
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
$io_pdf->ezSetCmMargins(5,3,3,3); // Configuración de los margenes en centímetros
uf_print_encabezado_pagina($ls_titulo,$ls_titulo1,$io_pdf); // Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
$li_tot=$io_report->ds_cuentas->getRowCount("sc_cuenta");
$ld_saldo4="";
$ld_saldo3="";
$ld_saldo2="";
$ld_total=0;
$la_data[1]=array('cuentas'=>'CUENTAS','programado'=>'BALANCE PROGRAMADO','real'=>'BALANCE REAL','variacion'=>'VARIACION','reprog'=>'REPROGRAMACION');
uf_print_encabezado($la_data,$io_pdf); // Imprimimos el detalle
$la_data[1]=array('cuentas'=>'REPROGRAMACION');
$la_data[2]=array('cuentas'=>'PROXIMO' );
$la_data[3]=array('cuentas'=>strtoupper($ls_etiqueta));
uf_print_encabezado_reprog($la_data,$io_pdf); // Imprimimos el detalle
unset($la_data);
$la_data[1]=array('cuentas'=>' ','denominacion'=>' ','periodo1'=>' ','acumulado1'=>' ','periodo2'=> ' ','acumulado2'=>' ');
$la_data[2]=array('cuentas'=>'Codigo','denominacion'=>'Denominacion','periodo1'=>strtoupper($ls_etiqueta),
'acumulado1'=>'Acumulado','periodo2'=>strtoupper($ls_etiqueta),'acumulado2'=>'Acumulado');
uf_print_encabezado2($la_data,$io_pdf);
uf_print_absolutos($ls_etiqueta,&$io_pdf);
for($li_i=1;$li_i<=$li_tot;$li_i++)
$ls_numdoc = $io_report->DS->data["numdoc"][$li_i];
$ls_numref = $io_report->DS->data["numref"][$li_i];
$ls_consol = $io_report->DS->data["consol"][$li_i];
$ls_dended = $io_report->DS->data["dended"][$li_i];
$ls_cheque = $io_report->DS->data["cheque"][$li_i];
$ld_fecemidoc = $io_funciones->uf_convertirfecmostrar($io_report->DS->data["fecemidoc"][$li_i]);
$li_montotdoc = number_format($io_report->DS->data["montotdoc"][$li_i], 2, ',', '.');
$li_monobjret = number_format($io_report->DS->data["monobjret"][$li_i], 2, ',', '.');
$li_retenido = number_format($io_report->DS->data["retenido"][$li_i], 2, ',', '.');
$li_porcentaje = number_format($io_report->DS->data["porcentaje"][$li_i], 2, ',', '.');
if ($ls_codigo != $ls_codigoant) {
if ($li_z >= 1) {
uf_print_firmas($ls_nombre, $io_pdf);
$io_pdf->ezNewPage();
}
uf_print_encabezado($ls_agente, $ls_nombre, $ls_rif, $ls_nit, $ls_telefono, $ls_direccion, $ls_consol, $io_pdf);
$ls_codigoant = $ls_codigo;
}
uf_print_detalle($ls_numdoc, $ls_consol, $ld_fecemidoc, $li_monobjret, $li_retenido, $li_porcentaje, $ls_numref, $li_montotdoc, $ls_dended, $ls_cheque, $io_pdf);
}
}
}
if ($lb_valido) {
uf_print_firmas($ls_nombre, $io_pdf);
$io_pdf->ezStopPageNumbers(1, 1);
// Detenemos la impresión de los números de página
$io_pdf->ezStream();
// Mostramos el reporte
} else {
print "<script language=JavaScript>";
print " alert('Ocurrio un error al generar el reporte. Intente de Nuevo');";
print(" alert('No hay nada que Reportar');");
print(" close();");
print("</script>");
}
else // Imprimimos el reporte
{
error_reporting(E_ALL);
set_time_limit(1800);
$io_pdf=new Cezpdf('LEGAL','landscape'); // Instancia de la clase PDF
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
$io_pdf->ezSetCmMargins(4.35,3,3,3); // Configuración de los margenes en centímetros
uf_print_encabezado_pagina($ls_titulo,$ls_desperiodo,$ls_desrango,$io_pdf); // Imprimimos el encabezado de la página
///////////////////////////////////// CLASIFICACIÓN DEL PERSONAL ///////////////////////////////////////////////////////////////////
$io_clasificacion=$io_pdf->openObject();
uf_print_encabezado($ls_titulo,$ls_desperiodo,$ls_desrango,&$io_clasificacion,&$io_pdf);
$li_totrow=$io_report->DS->getRowCount("codrep");
$li_totalcargoprog=0;
$li_totalcargoreal=0;
$li_totalcargoabsoluta=0;
$li_totalcargoporcentaje=0;
$li_totalmontoprog=0;
$li_totalmontoreal=0;
$li_totalmontoabsoluta=0;
$li_totalmontoporcentaje=0;
for($li_i=1;(($li_i<=$li_totrow)&&($lb_valido));$li_i++)
{
$ls_codded=$io_report->DS->data["codded"][$li_i];
$ls_codtipper=$io_report->DS->data["codtipper"][$li_i];
$ls_desded=$io_report->DS->data["desded"][$li_i];
$ls_destipper=$io_report->DS->data["destipper"][$li_i];
$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];
$ls_direccion = $io_report->DS->data["dirbene"][$li_i];
$ls_rif = $io_report->DS->data["rifben"][$li_i];
}
$ls_nit = $io_report->DS->data["nit"][$li_i];
$ls_consol = $io_report->DS->data["consol"][$li_i];
$ls_numdoc = $io_report->DS->data["numdoc"][$li_i];
$ls_numref = $io_report->DS->data["numref"][$li_i];
$ld_fecemidoc = $io_funciones->uf_convertirfecmostrar($io_report->DS->data["fecemidoc"][$li_i]);
$li_montotdoc = number_format($io_report->DS->data["montotdoc"][$li_i], 2, ',', '.');
$li_monobjret = number_format($io_report->DS->data["monobjret"][$li_i], 2, ',', '.');
$li_retenido = number_format($io_report->DS->data["retenido"][$li_i], 2, ',', '.');
$li_porcentaje = number_format($io_report->DS->data["porcentaje"][$li_i], 2, ',', '.');
uf_print_encabezado($ls_agente, $ls_nombre, $ls_rif, $ls_nit, $ls_telefono, $ls_direccion, $ls_consol, $ld_fecemidoc, $li_monobjret, $li_retenido, $li_porcentaje, $li_montotdoc, $io_pdf);
if ($li_i < $li_total) {
$io_pdf->ezNewPage();
}
}
}
}
if ($lb_valido) {
$io_pdf->ezStopPageNumbers(1, 1);
// Detenemos la impresión de los números de página
$io_pdf->ezStream();
// Mostramos el reporte
} else {
print "<script language=JavaScript>";
print " alert('Ocurrio un error al generar el reporte. Intente de Nuevo');";
print " close();";
uf_print_encabezado_pagina($ls_titulo, $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_codret = $io_report->DS->data["codret"][$li_i];
$ls_nomsujret = $io_report->DS->data["nomsujret"][$li_i];
$ls_rif = $io_report->DS->data["rif"][$li_i];
$ls_nit = $io_report->DS->data["nit"][$li_i];
$ls_dirsujret = $io_report->DS->data["dirsujret"][$li_i];
$li_estcmpret = $io_report->DS->data["estcmpret"][$li_i];
$ls_numlic = $io_report->DS->data["numlic"][$li_i];
}
uf_print_encabezado($ls_agente, $ls_nomsujret, $ls_rif, $ls_nit, $ls_dirsujret, &$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 && $lb_valido; $li_i++) {
$ls_numsop = $io_report->ds_detalle->data["numsop"][$li_i];
$li_baseimp = $io_report->ds_detalle->data["basimp"][$li_i];
$li_porimp = 'RETENCION 1 X 1.000';
$li_porcentaje = '0,001';
$li_totimp = $io_report->ds_detalle->data["iva_ret"][$li_i];
$lb_valido = $io_report->uf_select_datos_cheque_retencion($ls_numsop, $ls_nummov, $ld_fecmov, $li_monto);
$li_totalbaseimp = $li_totalbaseimp + $li_baseimp;
$li_totalmontoimp = $li_totalmontoimp + $li_totimp;
$li_baseimp = number_format($li_baseimp, 2, ",", ".");
