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