//-------------------------------------------------------------------------------------------------------------------------------- $ld_monto = 0; $ld_impuesto = 0; $ld_sumcom = 0; $ld_baseimp = 0; $arremp = $_SESSION["la_empresa"]; $ls_codemp = $arremp["codemp"]; 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(3.5, 3, 2.5, 2.5); // Configuracin de los margenes en centmetros uf_print_titulo(&$io_pdf); $io_pdf->ezStartPageNumbers(970, 40, 10, '', '', 1); // Insertar el nmero de pgina $lb_valido = $io_report->uf_select_report_libcompra($as_fechadesde, $as_fechahasta, &$rs_resultado); uf_print_encabezado_pagina($ls_titulo, $ls_mesletras, $ls_agno, &$io_pdf); uf_print_cabecera(&$io_pdf); $ldec_totimp8 = 0; //Variable de tipo acumulador que almacenara el monto total de los impuestos a 8%. $ldec_totimp9 = 0; //Variable de tipo acumulador que almacenara el monto total de los impuestos a 14%. $ldec_totimp25 = 0; //Variable de tipo acumulador que almacenara el monto total de los impuestos a 25%. $ldec_totbasimp8 = 0; $ldec_totbasimp9 = 0; $ldec_totbasimp25 = 0; $ldec_totcomsiniva = 0;
$ld_total_disp_fecha=number_format($ld_total_disp_fecha,2,",","."); $ld_total_porc_comprometer=""; $ld_total_porc_causado=""; $ld_total_porc_pagado=""; $la_data_tot[$z]=array('total'=>'<b>TOTALES</b>','pres_anual'=>$ld_total_pres_anual,'programado'=>$ld_total_programado, 'compromiso'=>$ld_total_compromiso,'causado'=>$ld_total_causado,'pagado'=>$ld_total_pagado, 'porc_comprometer'=>$ld_total_porc_comprometer,'porc_causado'=>$ld_total_porc_causado, 'porc_pagado'=>$ld_total_porc_pagado,'disp_trim_ant'=>$ld_total_prog_t_ant, 'disp_fecha'=>$ld_total_disp_fecha); }//if }//for $io_encabezado=$io_pdf->openObject(); uf_print_titulo_reporte($io_encabezado,$ls_programatica,$li_ano,$ls_mes,$ls_denestpro,$io_pdf); $io_titulo=$io_pdf->openObject(); uf_print_titulo($io_titulo,$io_pdf); $io_cabecera=$io_pdf->openObject(); uf_print_cabecera($io_cabecera,$io_pdf); uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle uf_print_pie_cabecera($la_data_tot,$io_pdf); $io_pdf->stopObject($io_encabezado); $io_pdf->stopObject($io_titulo); $io_pdf->stopObject($io_cabecera); } unset($la_data); unset($la_data_tot); if($li_i<$li_tot) { $io_pdf->ezNewPage(); // Insertar una nueva página } }//for
'monto_eject'=>number_format($ld_total_c3_bsf,2,",","."), 'acum_eject'=>number_format($ld_total_c4_bsf,2,",","."), 'varia_abs'=>number_format($ld_total_c5_bsf,2,",","."), 'varia_porc'=>number_format($ld_total_c6_bsf,2,",","."), 'varia_abs_acum'=>number_format($ld_total_c7_bsf,2,",","."), 'varia_porc_acum'=>number_format($ld_total_c8_bsf,2,",","."), 'responsable'=>"", 'reprog_prox_mes'=>number_format($ld_total_c9_bsf,2,",",".")); } }//if }//for if(!$lb_valido_proyectos) { uf_print_titulo_reporte($li_ano,$ls_mes,"Mensual",$io_pdf); uf_print_titulo("Mensual",$io_pdf); uf_print_cabecera("Mensual",$io_pdf); } $io_encabezado=$io_pdf->openObject(); uf_print_titulo_proyecto("ACCIONES CENTRALIZADAS",$io_encabezado,$io_pdf); $io_pdf->stopObject($io_encabezado); uf_print_detalle_acciones($la_data_a,$io_pdf); // Imprimimos el detalle //uf_print_pie_cabecera_acciones($la_data_tot_a,$io_pdf); if($ls_tipoformato==1) { uf_print_pie_cabecera($la_data_totales,$io_pdf); } else { uf_print_pie_cabecera($la_data_totales,$io_pdf); uf_print_pie_cabecera($la_data_totales_bsf,$io_pdf);
$ld_total_porc_causado_bsf=""; $ld_total_porc_pagado_bsf=""; $la_data_tot_bsf[$z]=array('total'=>'<b>TOTALES BsF.</b>','pres_anual'=>$ld_total_pres_anual_bsf,'programado'=>$ld_total_programado_bsf, 'compromiso'=>$ld_total_compromiso_bsf,'causado'=>$ld_total_causado_bsf,'pagado'=>$ld_total_pagado_bsf, 'porc_comprometer'=>$ld_total_porc_comprometer_bsf,'porc_causado'=>$ld_total_porc_causado_bsf, 'porc_pagado'=>$ld_total_porc_pagado_bsf,'disp_trim_ant'=>$ld_total_prog_t_ant_bsf, 'disp_fecha'=>$ld_total_disp_fecha_bsf); } }//if }//for $io_encabezado=$io_pdf->openObject(); uf_print_titulo_reporte($io_encabezado,$ls_programatica,$li_ano,$ls_meses,$ls_etiqueta,$ls_denestpro,$io_pdf); $io_titulo=$io_pdf->openObject(); uf_print_titulo($io_titulo,$ls_etiqueta,$io_pdf); $io_cabecera=$io_pdf->openObject(); uf_print_cabecera($io_cabecera,$ls_etiqueta,$io_pdf); uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle uf_print_pie_cabecera($la_data_tot,$io_pdf); if($ls_tipoformato==0) { //uf_print_pie_cabecera($la_data_tot_bsf,$io_pdf); } $io_pdf->stopObject($io_encabezado); $io_pdf->stopObject($io_titulo); $io_pdf->stopObject($io_cabecera); } unset($la_data); unset($la_data_tot); unset($la_data_tot_bsf);
$ls_codranaux=$ls_codran; if ($sumar>0) { uf_print_cabecera("RANGO: ".$ls_denran,'left',0,2,&$io_pdf); uf_print_cabecera("CATEGORIA: ".$ls_dencat,'left',0,2,&$io_pdf); uf_print_detalle($ls_data,$io_pdf); unset($ls_data); } } $io_report->rs_data->MoveNext(); }//fin del for uf_print_totales(number_format($subtotalper,0,"","."),number_format($sub_total,2,",","."),&$io_pdf); //PARA TODOS LOS REGISTROS $io_pdf->ezSetDy(-2); uf_print_titulo('Total de Asignaciones',&$io_pdf); $io_pdf->ezSetDy(-2); $li_totrow=$io_report->DS->getRowCount("codcom"); $ls_codcomaux=""; $ls_codranaux=""; $ls_codcataux=""; $sub_total=0; $subtotalper=0; $io_report->rs_data->MoveFirst(); while(!$io_report->rs_data->EOF) { $ls_codcom=$io_report->rs_data->fields["codcom"]; $ls_dencom=$io_report->rs_data->fields["descom"]; $ls_codran=$io_report->rs_data->fields["codran"]; $ls_denran=$io_report->rs_data->fields["desran"]; $ls_codcat=$io_report->rs_data->fields["codcat"];
$ld_programado=number_format($ld_programado,2,",","."); $ld_ejecutado=number_format($ld_ejecutado,2,",","."); $ld_variacion_absoluta=number_format($ld_variacion_absoluta,2,",","."); $ld_variacion_porcentual=number_format($ld_variacion_porcentual,2,",","."); $ld_programado_acumulado=number_format($ld_programado_acumulado,2,",","."); $ld_ejecutado_acumulado=number_format($ld_ejecutado_acumulado,2,",","."); $la_data_resultado[$li]=array('total'=>'<b>Resultado del Ejercicio ( 3 = 1 - 2 )</b>', 'presupuesto'=>$ld_asignado,'presupuesto_modificado'=>$ld_asignado_modificado, 'programado'=>$ld_programado,'ejecutado'=>$ld_ejecutado, 'absoluta'=>$ld_variacion_absoluta,'porcentaje'=>$ld_variacion_porcentual, 'programado_acumulado'=>$ld_programado_acumulado, 'ejecutado_acumulado'=>$ld_ejecutado_acumulado); } uf_print_titulo_reporte($io_pdf); uf_print_titulo($li_mesdes,$io_pdf); uf_print_cabecera($io_pdf); uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle uf_print_resultado($la_data_resultado,$io_pdf); unset($la_data); unset($la_data_resultado); if($z<$li_total) { $io_pdf->ezNewPage(); // Insertar una nueva página } $io_pdf->ezStopPageNumbers(1,1); $io_pdf->ezStream(); if (isset($d) && $d) { $ls_pdfcode = $io_pdf->ezOutput(1); $ls_pdfcode = str_replace("\n","\n<br>",htmlspecialchars($ls_pdfcode));