if($lb_valido==false) // Existe algún error ó no hay registros
{
print("<script language=JavaScript>");
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('LETTER','portrait'); // Instancia de la clase PDF
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
$io_pdf->ezSetCmMargins(1,1,1,2); // Configuración de los margenes en centímetros
uf_print_encabezado_pagina1($ls_titulo,$ls_descripcion,$ld_fechasper,$io_pdf); // Imprimimos el encabezado de la página
uf_print_encabezado_pagina2($ls_titulo,$ls_descripcion,$ld_fechasper,$io_pdf); // Imprimimos el encabezado de la página
$li_totrow=$io_report->DS->getRowCount("codper");
$li_reg=1;
for($li_i=1;(($li_i<=$li_totrow)&&($lb_valido));$li_i++)
{
$li_toting=0;
$li_totded=0;
$ls_codper=$io_report->DS->data["codper"][$li_i];
$ls_cedper=$io_report->DS->data["cedper"][$li_i];
$ls_nomper=$io_report->DS->data["apeper"][$li_i].", ".$io_report->DS->data["nomper"][$li_i];
$ls_descar=$io_report->DS->data["descar"][$li_i];
$ls_desuniadm=$io_report->DS->data["desuniadm"][$li_i];
$ls_nomban=$io_report->DS->data["banco"][$li_i];
$ls_codcueban=$io_report->DS->data["codcueban"][$li_i];
$li_sueper=number_format($io_report->DS->data["sueper"][$li_i],2,",",".");
$ld_fecingper=$io_funciones->uf_convertirfecmostrar($io_report->DS->data["fecingper"][$li_i]);
if(($lb_valido==false) || ($io_report->rs_data->RecordCount()==0)) // Existe algún error ó no hay registros
{
print("<script language=JavaScript>");
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('LETTER','portrait'); // Instancia de la clase PDF
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
$io_pdf->ezSetCmMargins(3,1,1,2); // Configuración de los margenes en centímetros
uf_print_encabezado_pagina1($ls_titulo,$ls_desnom,$ls_periodo,$io_pdf); // Imprimimos el encabezado de la página
uf_print_encabezado_pagina2($ls_titulo,$ls_desnom,$ls_periodo,$io_pdf); // Imprimimos el encabezado de la página
$li_totrow=$io_report->rs_data->RecordCount();
$li_reg=1;
$li_i=1;
while((!$io_report->rs_data->EOF)&&($lb_valido))
{
$li_toting=0;
$li_totded=0;
$ls_codper=$io_report->rs_data->fields["codper"];
$ls_cedper=$io_report->rs_data->fields["cedper"];
$ls_nomper=$io_report->rs_data->fields["apeper"].", ".$io_report->rs_data->fields["nomper"];
$ls_descar=$io_report->rs_data->fields["descar"];
$ls_codcueban=$io_report->rs_data->fields["codcueban"];
$li_total=$io_report->rs_data->fields["total"];
$io_cabecera=$io_pdf->openObject(); // Creamos el objeto cabecera
if($li_reg==1)
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(3.4,3,3,3); // Configuración de los margenes en centímetros
$io_pdf->ezStartPageNumbers(980,40,10,'','',1); // Insertar el número de página
$ld_total_previsto=0;
$ld_total_aumento=0;
$ld_total_disminucion=0;
$ld_total_devengado=0;
$ld_total_cobrado=0;
$ld_total_cobrado_anticipado=0;
$ld_total_monto_actualizado=0;
$ld_total_por_cobrar=0;
if ($ls_estpreing==1)
{
uf_print_encabezado_pagina2($ls_titulo,$ls_titulo1,$io_pdf); // Imprimimos el encabezado de la página
$lb_valido=$io_report->select_estructuras_spi($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,
$ls_codestpro5,$ls_codestpro1h,$ls_codestpro2h,$ls_codestpro3h,
$ls_codestpro4h,$ls_codestpro5h,$ls_estclades,$ls_estclahas);
$li_totfila=$io_report->data_est->getRowCount("programatica");
if ($li_totfila>0)
{
for ($j=1;(($j<=$li_totfila)&&($lb_valido));$j++)
{
$ls_codestpro1=trim($io_report->data_est->data["codestpro1"][$j]);
$ls_codestpro2=trim($io_report->data_est->data["codestpro2"][$j]);
$ls_codestpro3=trim($io_report->data_est->data["codestpro3"][$j]);
$ls_codestpro4=trim($io_report->data_est->data["codestpro4"][$j]);
$ls_codestpro5=trim($io_report->data_est->data["codestpro5"][$j]);
$ls_estcla=trim($io_report->data_est->data["estcla"][$j]);
$ls_estclades=trim($io_report->data_est->data["estcla"][$j]);
