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