$ld_total_precompromiso=number_format($ld_total_precompromiso,2,",","."); $ld_total_compromiso=number_format($ld_total_compromiso,2,",","."); $ld_total_saldo_comprometer=number_format($ld_total_saldo_comprometer,2,",","."); $ld_total_causado=number_format($ld_total_causado,2,",","."); $ld_total_pagado=number_format($ld_total_pagado,2,",","."); $ld_total_por_paga=number_format($ld_total_por_paga,2,",","."); $la_data_tot[$z]=array('total'=>'<b>TOTAL</b>','asignado'=>$ld_total_asignado,'aumento'=>$ld_total_aumento, 'disminución'=>$ld_total_disminucion,'montoactualizado'=>$ld_total_monto_actualizado, 'precomprometido'=>$ld_total_precompromiso,'comprometido'=>$ld_total_compromiso, 'saldoporcomprometer'=>$ld_total_saldo_comprometer,'causado'=>$ld_total_causado, 'pagado'=>$ld_total_pagado,'porpagar'=>$ld_total_por_paga); }//if }//for $io_encabezado=$io_pdf->openObject(); uf_print_titulo_reporte($io_encabezado,$ls_programatica,$ls_denestpro,$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_cabecera); unset($la_data); unset($la_data_tot); }//if if($li<$li_total) { $io_pdf->ezNewPage(); // Insertar una nueva página } }//while $io_pdf->ezStopPageNumbers(1,1);
'prog_acum'=>number_format($ld_total_c2_bsf,2,",","."), '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);
'caus_eje_acum'=>$ld_total_ejecutado_acum_caus, 'caus_vari_abs_mens'=>$ld_total_variacion_mens_caus, 'caus_porc_vari_abs_mens'=>'', 'caus_vari_abs_acum'=>$ld_total_variacion_acum_caus, 'caus_porc_vari_abs_acum'=>'', 'paga_prog_mensual'=>$ld_total_programado_mensual, 'paga_prog_acum'=>$ld_total_programado_acumulado, 'paga_eje_mens'=>$ld_total_ejecutado_mens_paga, 'paga_eje_acum'=>$ld_total_ejecutado_acum_paga, 'paga_vari_abs_mens'=>$ld_total_variacion_mens_paga, 'paga_porc_vari_abs_mens'=>'', 'paga_vari_abs_acum'=>$ld_total_variacion_acum_paga, 'paga_porc_vari_abs_acum'=>''); $io_encabezado=$io_pdf->openObject(); uf_print_titulo_reporte($io_encabezado,"",$li_ano,$ls_mes,"",$io_pdf); $io_pdf->ezSetCmMargins(8.1,3,3,3); uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle uf_print_pie_cabecera($la_data_tot,$io_pdf); unset($la_data); unset($la_data_tot); $io_pdf->ezStopPageNumbers(1,1); if (isset($d) && $d) { $ls_pdfcode = $io_pdf->ezOutput(1); $ls_pdfcode = str_replace("\n","\n<br>",htmlspecialchars($ls_pdfcode)); echo '<html><body>'; echo trim($ls_pdfcode); echo '</body></html>'; } else
$ld_total_variacion_absoluta=str_replace(',','.',$ld_total_variacion_absoluta); $ld_total_porcentaje_variacion=str_replace('.','',$ld_total_porcentaje_variacion); $ld_total_porcentaje_variacion=str_replace(',','.',$ld_total_porcentaje_variacion); $ld_total_variacion_abs_acum=str_replace('.','',$ld_total_variacion_abs_acum); $ld_total_variacion_abs_acum=str_replace(',','.',$ld_total_variacion_abs_acum); $ld_total_porcentaje_variacion_acum=str_replace('.','',$ld_total_porcentaje_variacion_acum); $ld_total_porcentaje_variacion_acum=str_replace(',','.',$ld_total_porcentaje_variacion_acum); $ld_total_reprog_prox_mes=str_replace('.','',$ld_total_reprog_prox_mes); $ld_total_reprog_prox_mes=str_replace(',','.',$ld_total_reprog_prox_mes); } }//if }//for uf_print_titulo_reporte($li_ano,$ls_mes,$io_pdf); uf_print_titulo($io_pdf); uf_print_cabecera("Mensual",$io_pdf); uf_print_detalle_proyectos($la_data,$io_pdf); // Imprimimos el detalle if($ls_tipoformato) { uf_print_pie_cabecera_proyecto($la_data_tot,$io_pdf); }else { uf_print_pie_cabecera_proyecto($la_data_tot,$io_pdf); uf_print_pie_cabecera_proyecto($la_data_tot_bsf,$io_pdf); } // unset($la_data); unset($la_data_tot); if($z<$li_total)
$ld_total_pagado=number_format($ld_total_pagado,2,",","."); $ld_total_prog_t_ant=number_format($ld_total_prog_t_ant,2,",","."); $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_meses_trimestre,$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
$ld_total_disp_fecha_bsf=number_format($ld_total_disp_fecha_bsf,2,",","."); $ld_total_porc_comprometer_bsf=""; $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);
$ld_montotdac = 0; $ld_montotlac = 0; $ld_montotrac = 0; $ld_montotire = 0; $thisPageNum=$io_pdf->ezPageCount; $io_encabezado=$io_pdf->openObject(); if ($ls_codestpro1=="") { $ls_denestpro1 = " TODAS"; } else { $io_spirep->uf_spg_reporte_select_denestpro1(str_pad($ls_codestpro1,25,0,0),$ls_denestpro1,$ls_estclades); } uf_print_titulo_reporte($io_encabezado,"",$li_ano,$ls_mesdes,$ls_codestpro1,$ls_denestpro1,$ls_trimestre,$io_pdf); $io_pdf->ezSetCmMargins(8.0125,3,3,3); $ls_partida_aux=""; for ($z=1;$z<=$li_tot;$z++) { $ld_previsto=0; $ld_modificado=0; $ld_programado=0; $ld_devengado=0; $ld_liquidado=0; $ld_recaudado=0; $ld_programado_acum=0; $ld_devengado_acum=0; $ld_liquidado_acum=0; $ld_recaudado_acum=0; $ld_ingresos_recibir=0;
$ld_total_monto_ejecutado_acumulado=number_format($ld_total_monto_ejecutado_acumulado,2,",","."); $ld_total_variacion_absoluta=number_format($ld_total_variacion_absoluta,2,",","."); $ld_total_porcentaje_variacion=number_format($ld_total_porcentaje_variacion,2,",","."); $ld_total_variacion_absoluta_acumulada=number_format($ld_total_variacion_absoluta_acumulada,2,",","."); $ld_total_porcentaje_variacion_acumulada=number_format($ld_total_porcentaje_variacion_acumulada,2,",","."); $ld_total_reprog_proxima=number_format($ld_total_reprog_proxima,2,",","."); $la_data_tot[$z]=array('total'=>'<b>TOTALES</b>','pres_anual'=>$ld_total_monto_programado,'prog_acum'=>$ld_total_monto_programado_acumulado, 'monto_eject'=>$ld_total_monto_ejecutado,'acum_eject'=>$ld_total_monto_ejecutado_acumulado, 'varia_abs'=>$ld_total_variacion_absoluta,'varia_porc'=>$ld_total_porcentaje_variacion, 'varia_abs_acum'=>$ld_total_variacion_absoluta_acumulada,'varia_porc_acum'=>$ld_total_porcentaje_variacion_acumulada, 'reprog_prox_mes'=>$ld_total_reprog_proxima); }//if }//for //uf_print_titulo_venta($io_pdf); uf_print_titulo_reporte($li_ano,$ls_meses,$ls_etiqueta,$io_pdf); uf_print_titulo($ls_etiqueta,$io_pdf); uf_print_cabecera($ls_etiqueta,$io_pdf); uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle uf_print_pie_cabecera($la_data_tot,$io_pdf); unset($la_data); unset($la_data_tot); ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $ld_total_monto_programado=0; $ld_total_monto_programado_acumulado=0; $ld_total_monto_ejecutado=0; $ld_total_monto_ejecutado_acumulado=0; $ld_total_variacion_absoluta=0; $ld_total_porcentaje_variacion=0; $ld_total_variacion_absoluta_acumulada=0; $ld_total_porcentaje_variacion_acumulada=0;
$ld_modificado_partida=0; $ld_programado_partida=0; $ld_compromiso_partida=0; $ld_causado_partida=0; $ld_pagado_partida=0; $ld_programado_acum_partida=0; $ld_compromiso_acum_partida=0; $ld_causado_acum_partida=0; $ld_pagado_acum_partida=0; $ld_disp_fecha_partida=0; //-------------------------------- $thisPageNum=$io_pdf->ezPageCount; $io_encabezado=$io_pdf->openObject(); uf_print_titulo_reporte($io_encabezado,"",$li_ano,$ls_mesdes,"",$ls_trimestre,$as_nombre,$io_pdf); $io_pdf->ezSetCmMargins(8.0125,1,3,3); $ls_partida_aux=""; for($z=1;$z<=$li_tot;$z++) { $ld_asignado=0; $ld_modificado=0; $ld_programado=0; $ld_compromiso=0; $ld_causado=0; $ld_pagado=0; $ld_programado_acum=0; $ld_compromiso_acum=0; $ld_causado_acum=0; $ld_pagado_acum=0; $ld_disp_fecha=0;
$la_data_totales[$z]=array('total'=>'<b>TOTALES Bs.</b>', 'presupuesto'=>$ld_asignado_total, 'presupuesto_modificado'=>$ld_asignado_modificado_total, 'programado'=>$ld_programado_trimestral_total, 'compromiso'=>$ld_comprometer_total, 'causado'=>$ld_causado_total, 'pagado'=>$ld_pagado_total, 'programado_acumulado'=>$ld_programado_acumulado_total, 'compromiso_acumulado'=>$ld_comprometer_acumulado_total, 'causado_acumulado'=>$ld_causado_acumulado_total, 'pagado_acumulado'=>$ld_pagado_acumulado_total, 'disponibilidad'=>$ld_disponibilidad_total); $io_encabezado=$io_pdf->openObject(); uf_print_titulo_reporte($io_encabezado,$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); $io_pdf->ezSetCmMargins(7.6,3,3,3); uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle uf_print_pie_cabecera($la_data_totales,$io_pdf); $io_pdf->stopObject($io_encabezado); $io_pdf->stopObject($io_titulo); $io_pdf->stopObject($io_cabecera); unset($la_data); unset($la_data_totales); $io_pdf->ezStopPageNumbers(1,1); if (isset($d) && $d) {
$ld_total_prevision_prox_mes = number_format($ld_total_prevision_prox_mes,2,",","."); $la_data_tot[1]=array('totales'=>"TOTALES", 'programado_mensual'=>$ld_total_programado_mensual, 'programado_acumulado'=>$ld_total_programado_acumulado, 'ejecutado_mens_comp'=>$ld_total_ejecutado_mens_comp, 'ejecutado_mens_caus'=>$ld_total_ejecutado_mens_caus, 'ejecutado_acum_comp'=>$ld_total_ejecutado_acum_comp, 'ejecutado_acum_caus'=>$ld_total_ejecutado_acum_caus, 'variacion_comp'=>'', 'variacion_caus'=>'', 'responsable_ejec'=>'', 'prevision_prox_mes'=>$ld_total_prevision_prox_mes); $io_cabecera=$io_pdf->openObject(); uf_print_titulo_reporte($io_cabecera,"",$li_ano,$ls_mes,$ls_pry_acc." - ".$ls_denpryacc,$io_pdf); $io_pdf->stopObject($io_cabecera); $io_pdf->ezSetCmMargins(8.0125,3,3,3); uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle uf_print_pie_cabecera($la_data_tot,$io_pdf); unset($la_data); unset($la_data_tot); if ((!empty($ls_pry_acc))&&($z<$li_tot)) { $io_pdf->ezNewPage(); // Insertar una nueva página } }//for $io_pdf->ezStopPageNumbers(1,1); if (isset($d) && $d) {
$ld_asignado_modificado=number_format($ld_asignado_modificado,2,",","."); $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);