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]);