"; print "close();"; print ""; } ini_set('memory_limit','1024M'); ini_set('max_execution_time ','0'); //-------------------------------------------------------------------------------------------------------------------------------- function uf_print_encabezado_pagina($as_titulo,$as_moneda,&$io_pdf) { ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_print_encabezadopagina // Acess: private // Arguments: as_titulo // Título del Reporte // as_periodo_comp // Descripción del periodo del comprobante // as_fecha_comp // Descripción del período de la fecha del comprobante // io_pdf // Instancia de objeto pdf // Description: función que imprime los encabezados por página // Creado Por: Ing. Yozelin Barragán // Fecha Creación: 26/06/2006 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $io_encabezado=$io_pdf->openObject(); $io_pdf->saveState(); $io_pdf->line(10,30,1000,30); $io_pdf->rectangle(10,440,990,150); //$io_pdf->addJpegFromFile('../../shared/imagebank/logo.jpg',15,525,80); // Agregar Logo /*$io_pdf->addText(15,580,11,"OFICINA NACIONAL DE PRESUPUESTO (ONAPRE)"); // Agregar la Fecha $io_pdf->addText(15,565,11,"OFICINA DE PLANIFICACIÓN DEL SECTOR UNIVERSITARIO (OPSU)"); // Agregar la Fecha*/ $li_tm=$io_pdf->getTextWidth(16,$as_titulo); $tm=505-($li_tm/2); $io_pdf->addText($tm,550,16,$as_titulo); // Agregar el título $li_tm=$io_pdf->getTextWidth(16,''.$as_moneda.''); $tm=505-($li_tm/2); $io_pdf->addText($tm,530,16,''.$as_moneda.''); // Agregar el título $io_pdf->addText(900,560,10,$_SESSION["ls_database"]);// Agrerar el nombre de la base de datos actual $io_pdf->addText(900,550,10,date("d/m/Y")); // Agregar la Fecha $io_pdf->addText(10,40,10,'Forma: 0407'); // Agregar la Fecha /*$io_pdf->addText(900,540,10,date("h:i a")); // Agregar la hora*/ $io_pdf->restoreState(); $io_pdf->closeObject(); $io_pdf->addObject($io_encabezado,'all'); }// end function uf_print_encabezadopagina //-------------------------------------------------------------------------------------------------------------------------------- //-------------------------------------------------------------------------------------------------------------------------------- function uf_print_titulo_reporte($io_encabezado,$as_programatica,$ai_ano,$as_mes,$as_denestpro,&$io_pdf) { ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_print_encabezadopagina // Acess: private // Arguments: as_titulo // Título del Reporte // as_periodo_comp // Descripción del periodo del comprobante // as_fecha_comp // Descripción del período de la fecha del comprobante // io_pdf // Instancia de objeto pdf // Description: función que imprime los encabezados por página // Creado Por: Ing. Yozelin Barragán // Fecha Creación: 26/06/2006 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $io_pdf->saveState(); $io_pdf->ezSetY(526); $ls_codemp=$_SESSION["la_empresa"]["codemp"]; $ls_nombre=$_SESSION["la_empresa"]["nombre"]; $ls_nomorgads=$_SESSION["la_empresa"]["nomorgads"]; $la_data=array(array('name'=>'CODIGO DEL ENTE: '.''.$ls_codemp.''), array('name'=>'DENOMINACION: '.''.$ls_nombre.''), array('name'=>'ORGANO DE ADSCRIPCION: '.''.$ls_nombre.''), array('name'=>'PROYECTO O ACCION CENTRALIZADA: '.''.$as_programatica.''), array('name'=>''.''.trim($as_denestpro).'')); $la_columna=array('name'=>'','name'=>'','name'=>''); $la_config =array('showHeadings'=>0, // Mostrar encabezados 'fontSize' => 8, // Tamaño de Letras 'titleFontSize' => 8, // Tamaño de Letras de los títulos 'showLines'=>0, // Mostrar Líneas 'shaded'=>0, // Sombra entre líneas 'xPos'=>465,//65 'shadeCol2'=>array(0.9,0.9,0.9), // Color de la sombra 'xOrientation'=>'center', // Orientación de la tabla 'width'=>900, // Ancho de la tabla 'maxWidth'=>900); //'cols'=>array('name'=>array('justification'=>'left','width'=>600))); // 'name'=>array('justification'=>'left','width'=>500), // 'name'=>array('justification'=>'left','width'=>500))); $io_pdf->ezTable($la_data,$la_columna,'',$la_config); $io_pdf->restoreState(); $io_pdf->closeObject(); $io_pdf->addObject($io_encabezado,'all'); }// end function uf_print_encabezadopagina //-------------------------------------------------------------------------------------------------------------------------------- //-------------------------------------------------------------------------------------------------------------------------------- function uf_print_titulo($io_titulo,&$io_pdf) { ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_print_titulo // Access: private // Arguments: as_codper // total de registros que va a tener el reporte // as_nomper // total de registros que va a tener el reporte // io_pdf // total de registros que va a tener el reporte // Description: función que imprime la cabecera de cada página // Creado Por: Ing. Yozelin Barragán // Fecha Creación: 26/06/2006 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $io_pdf->saveState(); $io_pdf->ezSetDy(-25); // para el rectangulo $io_pdf->addText(315,414,7,'PROGRAMADO'); // Agregar la hora $la_data=array(array('name1'=>'','name2'=>'', 'name3'=>'EJECUTADO', 'name4'=>'DISPONIBILIDAD PRESUPUESTARIA')); $la_columna=array('name1'=>'','name2'=>'','name3'=>'','name4'=>''); $la_config =array('showHeadings'=>0, // Mostrar encabezados 'fontSize' => 7, // Tamaño de Letras 'titleFontSize' => 7, // Tamaño de Letras de los títulos 'showLines'=>1, // Mostrar Líneas 'shaded'=>0, // Sombra entre líneas 'xPos'=>504, 'shadeCol2'=>array(0.9,0.9,0.9), // Color de la sombra 'xOrientation'=>'center', // Orientación de la tabla 'width'=>990, // Ancho de la tabla 'maxWidth'=>990, 'colGap'=>0, 'cols'=>array('name1'=>array('justification'=>'right','width'=>270),// Justificación y ancho de la columna 'name2'=>array('justification'=>'right','width'=>140),// Justificación y ancho de la columna 'name3'=>array('justification'=>'center','width'=>420),// Justificación y ancho de la columna 'name4'=>array('justification'=>'center','width'=>160))); // Justificación y ancho de la columna $io_pdf->ezTable($la_data,$la_columna,'',$la_config); unset($la_data); unset($la_columna); unset($la_config); $la_data=array(array('name1'=>'', 'name2'=>'', 'name3'=>'TRIMESTRE', 'name4'=>'ACUMULADO', 'name5'=>'')); $la_columna=array('name1'=>'','name2'=>'','name3'=>'','name4'=>'','name5'=>''); $la_config =array('showHeadings'=>0, // Mostrar encabezados 'fontSize' => 7, // Tamaño de Letras 'titleFontSize' => 7, // Tamaño de Letras de los títulos 'showLines'=>1, // Mostrar Líneas 'shaded'=>0, // Sombra entre líneas 'xPos'=>504, 'shadeCol2'=>array(0.9,0.9,0.9), // Color de la sombra 'xOrientation'=>'center', // Orientación de la tabla 'width'=>990, // Ancho de la tabla 'maxWidth'=>990, 'colGap'=>0, 'cols'=>array('name1'=>array('justification'=>'center','width'=>270),// Justificación y ancho de la columna 'name2'=>array('justification'=>'center','width'=>140),// Justificación y ancho de la columna 'name3'=>array('justification'=>'center','width'=>210),// Justificación y ancho de la columna 'name4'=>array('justification'=>'center','width'=>210),// Justificación y ancho de la columna 'name5'=>array('justification'=>'center','width'=>160))); // Justificación y ancho de la columna $io_pdf->ezTable($la_data,$la_columna,'',$la_config); $io_pdf->restoreState(); $io_pdf->closeObject(); $io_pdf->addObject($io_titulo,'all'); }// end function uf_print_titulo //-------------------------------------------------------------------------------------------------------------------------------- //-------------------------------------------------------------------------------------------------------------------------------- //-------------------------------------------------------------------------------------------------------------------------------- //-------------------------------------------------------------------------------------------------------------------------------- function uf_print_cabecera($io_cabecera,&$io_pdf) { ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_print_cabecera // Access: private // Arguments: as_codper // total de registros que va a tener el reporte // as_nomper // total de registros que va a tener el reporte // io_pdf // total de registros que va a tener el reporte // Description: función que imprime la cabecera de cada página // Creado Por: Ing. Yozelin Barragán // Fecha Creación: 26/06/2006 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $io_pdf->saveState(); $la_data=array(array('cuenta'=>'Cuenta','denominacion'=>'Denominación','pres_anual'=>'Presupuesto Anual', 'programado'=>'Trimestre','programado_acum'=>'Acumulado','compromiso'=>'Compromiso','causado'=>'Causado', 'pagado'=>'Pagado','porc_comprometer'=>' Compromiso','porc_causado'=>'Causado', 'porc_pagado'=>'Pagado','disp_trim_ant'=>'Trimestre Anterior', 'disp_fecha'=>'A la Fecha')); $la_columna=array('cuenta'=>'','denominacion'=>'','pres_anual'=>'','programado'=>'','programado_acum'=>'','compromiso'=>'','causado'=>'', 'pagado'=>'','porc_comprometer'=>'','porc_causado'=>'','porc_pagado'=>'','disp_trim_ant'=>'','disp_fecha'=>''); $la_config=array('showHeadings'=>0, // Mostrar encabezados 'fontSize' => 7, // Tamaño de Letras 'titleFontSize' => 7, // Tamaño de Letras de los títulos 'showLines'=>2, // Mostrar Líneas 'shaded'=>0, // Sombra entre líneas 'shadeCol2'=>array(0.9,0.9,0.9), // Color de la sombra 'xOrientation'=>'center', // Orientación de la tabla 'width'=>990, // Ancho de la tabla 'maxWidth'=>990, 'colGap'=>0, 'cols'=>array('cuenta'=>array('justification'=>'center','width'=>60), // Justificación y ancho de la columna 'denominacion'=>array('justification'=>'center','width'=>130), // Justificación y ancho de la columna 'pres_anual'=>array('justification'=>'center','width'=>80), // Justificación y ancho de la columna 'programado'=>array('justification'=>'center','width'=>70), // Justificación y ancho de la columna 'programado_acum'=>array('justification'=>'center','width'=>70), // Justificación y ancho de la columna 'compromiso'=>array('justification'=>'center','width'=>70), // Justificación y ancho de la columna 'causado'=>array('justification'=>'center','width'=>70), // Justificación y ancho de la columna 'pagado'=>array('justification'=>'center','width'=>70), // Justificación y ancho de la columna 'porc_comprometer'=>array('justification'=>'center','width'=>70), // Justificación y ancho de la columna 'porc_causado'=>array('justification'=>'center','width'=>70), // Justificación y ancho de la columna 'porc_pagado'=>array('justification'=>'center','width'=>70), // Justificación y ancho de la columna 'disp_trim_ant'=>array('justification'=>'center','width'=>80), // Justificación y ancho de la columna 'disp_fecha'=>array('justification'=>'center','width'=>80))); // Justificación y ancho de la columna $io_pdf->ezTable($la_data,$la_columna,'',$la_config); $io_pdf->restoreState(); $io_pdf->closeObject(); $io_pdf->addObject($io_cabecera,'all'); }// end function uf_print_cabecera //-------------------------------------------------------------------------------------------------------------------------------- //-------------------------------------------------------------------------------------------------------------------------------- function uf_print_detalle($la_data,&$io_pdf) { ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_print_detalle // Acess: private // Arguments: la_data // arreglo de información // io_pdf // Objeto PDF // Description: función que imprime el detalle // Creado Por: Ing. Yozelin Barragán // Fecha Creación: 26/06/2006 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $la_config=array('showHeadings'=>0, // Mostrar encabezados 'fontSize' => 7, // Tamaño de Letras 'titleFontSize' => 7, // Tamaño de Letras de los títulos 'showLines'=>2, // Mostrar Líneas 'shaded'=>0, // Sombra entre líneas 'colGap'=>0, // separacion entre tablas 'width'=>990, // Ancho de la tabla 'maxWidth'=>990, // Ancho Máximo de la tabla 'xOrientation'=>'center', // Orientación de la tabla 'cols'=>array('cuenta'=>array('justification'=>'center','width'=>60), // Justificación y ancho de la columna 'denominacion'=>array('justification'=>'left','width'=>130), // Justificación y ancho de la columna 'pres_anual'=>array('justification'=>'right','width'=>80), // Justificación y ancho de la columna 'programado'=>array('justification'=>'right','width'=>70), // Justificación y ancho de la columna 'programado_acum'=>array('justification'=>'right','width'=>70), // Justificación y ancho de la columna 'compromiso'=>array('justification'=>'right','width'=>70), // Justificación y ancho de la columna 'causado'=>array('justification'=>'right','width'=>70), // Justificación y ancho de la columna 'pagado'=>array('justification'=>'right','width'=>70), // Justificación y ancho de la columna 'porc_comprometer'=>array('justification'=>'right','width'=>70), // Justificación y ancho de la columna 'porc_causado'=>array('justification'=>'right','width'=>70), // Justificación y ancho de la columna 'porc_pagado'=>array('justification'=>'right','width'=>70), // Justificación y ancho de la columna 'disp_trim_ant'=>array('justification'=>'right','width'=>80), // Justificación y ancho de la columna 'disp_fecha'=>array('justification'=>'right','width'=>80))); // Justificación y ancho de la columna $la_columnas=array('cuenta'=>'', 'denominacion'=>'', 'pres_anual'=>'', 'programado'=>'', 'programado_acum'=>'', 'compromiso'=>'', 'causado'=>'', 'pagado'=>'', 'porc_comprometer'=>'', 'porc_causado'=>'', 'porc_pagado'=>'', 'disp_trim_ant'=>'', 'disp_fecha'=>''); $io_pdf->ezTable($la_data,$la_columnas,'',$la_config); }// end function uf_print_detalle //-------------------------------------------------------------------------------------------------------------------------------- //-------------------------------------------------------------------------------------------------------------------------------- function uf_print_pie_cabecera($la_data_tot,&$io_pdf) { ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function : uf_print_pie_cabecera // Acess : private // Arguments : ad_total // Total General // Description : función que imprime el fin de la cabecera de cada página // Creado Por: Ing. Yozelin Barragán // Fecha Creación: 26/06/2006 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $la_config=array('showHeadings'=>0, // Mostrar encabezados 'fontSize' => 8, // Tamaño de Letras 'titleFontSize' => 8, // Tamaño de Letras de los títulos 'showLines'=>2, // Mostrar Líneas 'shaded'=>0, // Sombra entre líneas 'colGap'=>0, // separacion entre tablas 'width'=>990, // Ancho de la tabla 'maxWidth'=>990, // Ancho Máximo de la tabla 'xOrientation'=>'center', // Orientación de la tabla 'cols'=>array('total'=>array('justification'=>'right','width'=>190),// Justificación y ancho de la columna 'pres_anual'=>array('justification'=>'right','width'=>80), // Justificación y ancho de la columna 'programado'=>array('justification'=>'right','width'=>70), // Justificación y ancho de la columna 'programado_acum'=>array('justification'=>'right','width'=>70), // Justificación y ancho de la columna 'compromiso'=>array('justification'=>'right','width'=>70), // Justificación y ancho de la columna 'causado'=>array('justification'=>'right','width'=>70), // Justificación y ancho de la columna 'pagado'=>array('justification'=>'right','width'=>70), // Justificación y ancho de la columna 'porc_comprometer'=>array('justification'=>'right','width'=>70), // Justificación y ancho de la columna 'porc_causado'=>array('justification'=>'right','width'=>70), // Justificación y ancho de la columna 'porc_pagado'=>array('justification'=>'right','width'=>70), // Justificación y ancho de la columna 'disp_trim_ant'=>array('justification'=>'right','width'=>80), // Justificación y ancho de la columna 'disp_fecha'=>array('justification'=>'right','width'=>80))); // Justificación y ancho de la columna $la_columnas=array('total'=>'', 'pres_anual'=>'', 'programado'=>'', 'programado_acum'=>'', 'compromiso'=>'', 'causado'=>'', 'pagado'=>'', 'porc_comprometer'=>'', 'porc_causado'=>'', 'porc_pagado'=>'', 'disp_trim_ant'=>'', 'disp_fecha'=>''); $io_pdf->ezTable($la_data_tot,$la_columnas,'',$la_config); }// end function uf_print_pie_cabecera //-------------------------------------------------------------------------------------------------------------------------------- require_once("../../shared/ezpdf/class.ezpdf.php"); require_once("../../shared/class_folder/class_funciones.php"); $io_funciones=new class_funciones(); require_once("sigesp_spg_funciones_reportes.php"); $io_function_report=new sigesp_spg_funciones_reportes(); require_once("../../shared/class_folder/class_fecha.php"); $io_fecha = new class_fecha(); $ls_tipoformato=$_GET["tipoformato"]; //----------------------------------------------------------------------------------------------------------------------------- global $ls_tipoformato; global $la_data_tot_bsf; global $la_data_tot; if($ls_tipoformato==1) { require_once("sigesp_spg_reporte_comparados_forma04_bsf.php"); $io_report = new sigesp_spg_reporte_comparados_forma04_bsf(); } else { require_once("sigesp_spg_reporte_comparados_forma04.php"); $io_report = new sigesp_spg_reporte_comparados_forma04(); } require_once("../../shared/class_folder/sigesp_c_reconvertir_monedabsf.php"); $io_rcbsf= new sigesp_c_reconvertir_monedabsf(); $li_candeccon=$_SESSION["la_empresa"]["candeccon"]; $li_tipconmon=$_SESSION["la_empresa"]["tipconmon"]; $li_redconmon=$_SESSION["la_empresa"]["redconmon"]; //-------------------------------------------------- Parámetros para Filtar el Reporte ----------------------------------------- $ldt_periodo=$_SESSION["la_empresa"]["periodo"]; $li_ano=substr($ldt_periodo,0,4); $li_estmodest=$_SESSION["la_empresa"]["estmodest"]; $ls_codestpro1_min = $_GET["codestpro1"]; $ls_codestpro2_min = $_GET["codestpro2"]; $ls_codestpro3_min = $_GET["codestpro3"]; $ls_codestpro1h_max = $_GET["codestpro1h"]; $ls_codestpro2h_max = $_GET["codestpro2h"]; $ls_codestpro3h_max = $_GET["codestpro3h"]; $ls_estclades = $_GET["estclades"]; $ls_estclahas = $_GET["estclahas"]; if($li_estmodest==1) { $ls_codestpro4_min = "0000000000000000000000000"; $ls_codestpro5_min = "0000000000000000000000000"; $ls_codestpro4h_max = "0000000000000000000000000"; $ls_codestpro5h_max = "0000000000000000000000000"; if(($ls_codestpro1_min=="")&&($ls_codestpro2_min=="")&&($ls_codestpro3_min=="")) { if($io_function_report->uf_spg_reporte_select_min_programatica($ls_codestpro1_min,$ls_codestpro2_min, $ls_codestpro3_min,$ls_codestpro4_min, $ls_codestpro5_min,$ls_estclades)) { $ls_codestpro1 = $ls_codestpro1_min; $ls_codestpro2 = $ls_codestpro2_min; $ls_codestpro3 = $ls_codestpro3_min; $ls_codestpro4 = $ls_codestpro4_min; $ls_codestpro5 = $ls_codestpro5_min; } } else { $ls_codestpro1 = $ls_codestpro1_min; $ls_codestpro2 = $ls_codestpro2_min; $ls_codestpro3 = $ls_codestpro3_min; $ls_codestpro4 = $ls_codestpro4_min; $ls_codestpro5 = $ls_codestpro5_min; } if(($ls_codestpro1h_max=="")&&($ls_codestpro2h_max=="")&&($ls_codestpro3h_max=="")) { if($io_function_report->uf_spg_reporte_select_max_programatica($ls_codestpro1h_max,$ls_codestpro2h_max, $ls_codestpro3h_max,$ls_codestpro4h_max, $ls_codestpro4h_max,$ls_estclahas)) { $ls_codestpro1h = $ls_codestpro1h_max; $ls_codestpro2h = $ls_codestpro2h_max; $ls_codestpro3h = $ls_codestpro3h_max; $ls_codestpro4h = $ls_codestpro4h_max; $ls_codestpro5h = $ls_codestpro5h_max; } } else { $ls_codestpro1h = $ls_codestpro1h_max; $ls_codestpro2h = $ls_codestpro2h_max; $ls_codestpro3h = $ls_codestpro3h_max; $ls_codestpro4h = $ls_codestpro4h_max; $ls_codestpro5h = $ls_codestpro5h_max; } } elseif($li_estmodest==2) { $ls_codestpro4_min = $_GET["codestpro4"]; $ls_codestpro5_min = $_GET["codestpro5"]; $ls_codestpro4h_max = $_GET["codestpro4h"]; $ls_codestpro5h_max = $_GET["codestpro5h"]; if(($ls_codestpro1_min=='**') ||($ls_codestpro1_min=='')) { $ls_codestpro1_min=''; } else { $ls_codestpro1_min = $io_funciones->uf_cerosizquierda($ls_codestpro1_min,25); } if(($ls_codestpro2_min=='**') ||($ls_codestpro2_min=='')) { $ls_codestpro2_min=''; } else { $ls_codestpro2_min = $io_funciones->uf_cerosizquierda($ls_codestpro2_min,25); } if(($ls_codestpro3_min=='**')||($ls_codestpro3_min=='')) { $ls_codestpro3_min=''; } else { $ls_codestpro3_min = $io_funciones->uf_cerosizquierda($ls_codestpro3_min,25); } if(($ls_codestpro4_min=='**') ||($ls_codestpro4_min=='')) { $ls_codestpro4_min=''; } else { $ls_codestpro4_min = $io_funciones->uf_cerosizquierda($ls_codestpro4_min,25); } if(($ls_codestpro5_min=='**') ||($ls_codestpro5_min=='')) { $ls_codestpro5_min=''; }else { $ls_codestpro5_min = $io_funciones->uf_cerosizquierda($ls_codestpro5_min,25); } if(($ls_codestpro1h_max=='**')||($ls_codestpro1h_max=='')) { $ls_codestpro1h_max=''; } else { $ls_codestpro1h_max = $io_funciones->uf_cerosizquierda($ls_codestpro1h_max,25); } if(($ls_codestpro2h_max=='**') ||($ls_codestpro2h_max=='')) { $ls_codestpro2h_max=''; }else { $ls_codestpro2h_max = $io_funciones->uf_cerosizquierda($ls_codestpro2h_max,25); } if(($ls_codestpro3h_max=='**') ||($ls_codestpro3h_max=='')) { $ls_codestpro3h_max=''; }else { $ls_codestpro3h_max = $io_funciones->uf_cerosizquierda($ls_codestpro3h_max,25); } if(($ls_codestpro4h_max=='**') ||($ls_codestpro4h_max=='')) { $ls_codestpro4h_max=''; }else { $ls_codestpro4h_max = $io_funciones->uf_cerosizquierda($ls_codestpro4h_max,25); } if(($ls_codestpro5h_max=='**') || ($ls_codestpro5h_max=='')) { $ls_codestpro5h_max=''; }else { $ls_codestpro5h_max = $io_funciones->uf_cerosizquierda($ls_codestpro5h_max,25); } if(($ls_codestpro1_min=="")||($ls_codestpro2_min=="")||($ls_codestpro3_min=="")||($ls_codestpro4_min=="")||($ls_codestpro5_min=="")) { if($io_function_report->uf_spg_reporte_select_min_programatica($ls_codestpro1_min,$ls_codestpro2_min,$ls_codestpro3_min, $ls_codestpro4_min,$ls_codestpro5_min,$ls_estclades)) { $ls_codestpro1 = $ls_codestpro1_min; $ls_codestpro2 = $ls_codestpro2_min; $ls_codestpro3 = $ls_codestpro3_min; $ls_codestpro4 = $ls_codestpro4_min; $ls_codestpro5 = $ls_codestpro5_min; } } else { $ls_codestpro1 = $ls_codestpro1_min; $ls_codestpro2 = $ls_codestpro2_min; $ls_codestpro3 = $ls_codestpro3_min; $ls_codestpro4 = $ls_codestpro4_min; $ls_codestpro5 = $ls_codestpro5_min; } if(($ls_codestpro1h_max=="")||($ls_codestpro2h_max=="")||($ls_codestpro3h_max=="")||($ls_codestpro4h_max=="")||($ls_codestpro5h_max=="")) { if($io_function_report->uf_spg_reporte_select_max_programatica($ls_codestpro1h_max,$ls_codestpro2h_max, $ls_codestpro3h_max,$ls_codestpro4h_max, $ls_codestpro5h_max,$ls_estclahas)) { $ls_codestpro1h = $ls_codestpro1h_max; $ls_codestpro2h = $ls_codestpro2h_max; $ls_codestpro3h = $ls_codestpro3h_max; $ls_codestpro4h = $ls_codestpro4h_max; $ls_codestpro5h = $ls_codestpro5h_max; } } else { $ls_codestpro1h = $ls_codestpro1h_max; $ls_codestpro2h = $ls_codestpro2h_max; $ls_codestpro3h = $ls_codestpro3h_max; $ls_codestpro4h = $ls_codestpro4h_max; $ls_codestpro5h = $ls_codestpro5h_max; } } $ls_codestpro1 = $io_funciones->uf_cerosizquierda($ls_codestpro1_min,25); $ls_codestpro2 = $io_funciones->uf_cerosizquierda($ls_codestpro2_min,25); $ls_codestpro3 = $io_funciones->uf_cerosizquierda($ls_codestpro3_min,25); $ls_codestpro4 = $io_funciones->uf_cerosizquierda($ls_codestpro4_min,25); $ls_codestpro5 = $io_funciones->uf_cerosizquierda($ls_codestpro5_min,25); $ls_codestpro1h = $io_funciones->uf_cerosizquierda($ls_codestpro1h_max,25); $ls_codestpro2h = $io_funciones->uf_cerosizquierda($ls_codestpro2h_max,25); $ls_codestpro3h = $io_funciones->uf_cerosizquierda($ls_codestpro3h_max,25); $ls_codestpro4h = $io_funciones->uf_cerosizquierda($ls_codestpro4h_max,25); $ls_codestpro4h = $io_funciones->uf_cerosizquierda($ls_codestpro5h_max,25); $cmbnivel=$_GET["cmbnivel"]; if($cmbnivel=="s1") { $li_cmbnivel="1"; } else { $li_cmbnivel=$cmbnivel; } $ls_cmbmes=$_GET["cmbmes"]; $li_mesdes=substr($ls_cmbmes,0,2); $ldt_fecdes=$li_ano."-".$li_mesdes."-01"; $li_meshas=substr($ls_cmbmes,2,2); $ldt_ult_dia=$io_fecha->uf_last_day($li_meshas,$li_ano); $fechas=$ldt_ult_dia; $ldt_fechas=$io_funciones->uf_convertirdatetobd($fechas); $ls_mesdes=$io_fecha->uf_load_nombre_mes($li_mesdes); $ls_meshas=$io_fecha->uf_load_nombre_mes($li_meshas); $ls_codfuefindes=$_GET["txtcodfuefindes"]; $ls_codfuefinhas=$_GET["txtcodfuefinhas"]; if (($ls_codfuefindes=='')&&($ls_codfuefindes=='')) { if($io_function_report->uf_spg_select_fuentefinanciamiento($ls_minfuefin,$ls_maxfuefin)) { $ls_codfuefindes=$ls_minfuefin; $ls_codfuefinhas=$ls_maxfuefin; } } //---------------------------------------------------- Parámetros del encabezado --------------------------------------------- $ls_titulo=" EJECUCION FINANCIERA TRIMESTRAL DEL PRESUPUESTO DE GASTOS (FORMA 0407)"; //-------------------------------------------------------------------------------------------------------------------------------- // Cargar el dts_cab con los datos de la cabecera del reporte( Selecciono todos comprobantes ) $lb_valido=$io_report->uf_spg_reportes_select_ejecucion_financiera_forma0402($ls_codestpro1,$ls_codestpro2, $ls_codestpro3,$ls_codestpro4, $ls_codestpro5,$ls_codestpro1h, $ls_codestpro2h,$ls_codestpro3h, $ls_codestpro4h,$ls_codestpro5h, $ls_codfuefindes,$ls_codfuefinhas, $ls_estclades,$ls_estclahas); if($lb_valido==false) // Existe algún error ó no hay registros { print(""); } else // Imprimimos el reporte { //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(7.9,3,3,3); // Configuración de los margenes en centímetros(para el rectangulo) if($ls_tipoformato==1) { uf_print_encabezado_pagina($ls_titulo,'(Bolivares Fuertes)',$io_pdf); // Imprimimos el encabezado de la página } else { uf_print_encabezado_pagina($ls_titulo,'(Bolivares)',$io_pdf); // Imprimimos el encabezado de la página } $io_pdf->ezStartPageNumbers(980,40,10,'','',1); // Insertar el número de página $li_tot=$io_report->dts_cab->getRowCount("programatica"); $ls_loncodestpro1 = $_SESSION["la_empresa"]["loncodestpro1"]; $ls_loncodestpro2 = $_SESSION["la_empresa"]["loncodestpro2"]; $ls_loncodestpro3 = $_SESSION["la_empresa"]["loncodestpro3"]; $ls_loncodestpro4 = $_SESSION["la_empresa"]["loncodestpro4"]; $ls_loncodestpro5 = $_SESSION["la_empresa"]["loncodestpro5"]; for($li_i=1;$li_i<=$li_tot;$li_i++) { $io_pdf->transaction('start'); // Iniciamos la transacción $thisPageNum=$io_pdf->ezPageCount; $ls_programatica=$io_report->dts_cab->data["programatica"][$li_i]; $ls_estcla=substr($ls_programatica,-1); $ls_codestpro1=substr($ls_programatica,0,25); $ls_denestpro1=""; $lb_valido=$io_function_report->uf_spg_reporte_select_denestpro1($ls_codestpro1,$ls_denestpro1,$ls_estcla); if($lb_valido) { $ls_denestpro1=trim($ls_denestpro1); } $ls_codestpro2=substr($ls_programatica,25,25); if($lb_valido) { $ls_denestpro2=""; $lb_valido=$io_function_report->uf_spg_reporte_select_denestpro2($ls_codestpro1,$ls_codestpro2,$ls_denestpro2,$ls_estcla); $ls_denestpro2=trim($ls_denestpro2); } $ls_codestpro3=substr($ls_programatica,50,25); if($lb_valido) { $ls_denestpro3=""; $lb_valido=$io_function_report->uf_spg_reporte_select_denestpro3($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_denestpro3,$ls_estcla); $ls_denestpro3=trim($ls_denestpro3); } if($li_estmodest==2) { $ls_codestpro4=substr($ls_programatica,75,25); if($lb_valido) { $ls_denestpro4=""; $lb_valido=$io_function_report->uf_spg_reporte_select_denestpro4($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_denestpro4,$ls_estcla); $ls_denestpro4=trim($ls_denestpro4); } $ls_codestpro5=substr($ls_programatica,100,25); if($lb_valido) { $ls_denestpro5=""; $lb_valido=$io_function_report->uf_spg_reporte_select_denestpro5($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_denestpro5); $ls_denestpro5=trim($ls_denestpro5); } $ls_denestpro=trim($ls_denestpro1)." , ".trim($ls_denestpro2)." , ".trim($ls_denestpro3)." , ".trim($ls_denestpro4)." , ".trim($ls_denestpro5); $ls_programatica=substr($ls_codestpro1,-$ls_loncodestpro1)."-".substr($ls_codestpro2,-$ls_loncodestpro2)."-".substr($ls_codestpro3,-$ls_loncodestpro3)."-".substr($ls_codestpro4,-$ls_loncodestpro4)."-".substr($ls_codestpro5,-$ls_loncodestpro5); } else { $ls_denestpro=trim($ls_denestpro1)." , ".trim($ls_denestpro2)." , ".trim($ls_denestpro3); $ls_programatica=substr($ls_codestpro1,-$ls_loncodestpro1)."-".substr($ls_codestpro2,-$ls_loncodestpro2)."-".substr($ls_codestpro3,-$ls_loncodestpro3); } $ls_lentden=strlen($ls_denestpro); //print $ls_lentden."
"; if($ls_lentden<=100) { $io_pdf->ezSetCmMargins(7.5,3,3,3); // Configuración de los margenes en centímetros } else { $io_pdf->ezSetCmMargins(7.6,3,3,3); // Configuración de los margenes en centímetros } $lb_ok=$io_report->uf_spg_reportes_comparados_ejecucion_financiera_forma0402($ls_codestpro1,$ls_codestpro2, $ls_codestpro3,$ls_codestpro4, $ls_codestpro5,$ls_codestpro1, $ls_codestpro2,$ls_codestpro3, $ls_codestpro4,$ls_codestpro5, $ldt_fecdes,$ldt_fechas,$li_cmbnivel, $ls_codfuefindes,$ls_codfuefinhas, $ls_estclades,$ls_estclahas); /*if($li_estmodest==2) { $ls_codestpro1=substr($ls_codestpro1,-2); $ls_codestpro2=substr($ls_codestpro2,-2); $ls_codestpro3=substr($ls_codestpro3,-2); $ls_programatica=$ls_codestpro1."-".$ls_codestpro2."-".$ls_codestpro3."-".$ls_codestpro4."-".$ls_codestpro5; } else { $ls_programatica=$ls_codestpro1; }*/ if($lb_ok==false) // Existe algún error ó no hay registros { print(""); } else { $ld_pres_anual=0; $ld_porc_comprometer=0; $ld_porc_causado=0; $ld_porc_pagado=0; $ld_total_pres_anual=0; $ld_total_compromiso=0; $ld_total_causado=0; $ld_total_pagado=0; $ld_total_programado=0; $ld_total_prog_t_ant=0; $ld_total_disp_fecha=0; $ld_total_compromiso_acumulado=0; $ld_total_causado_acumulado=0; $ld_total_pagado_acumulado=0; $ld_total_monto_acumulado=0; $li_total=$io_report->dts_reporte->getRowCount("spg_cuenta"); for($z=1;$z<=$li_total;$z++) { $thisPageNum=$io_pdf->ezPageCount; $ls_spg_cuenta=trim($io_report->dts_reporte->data["spg_cuenta"][$z]); $ls_denominacion=trim($io_report->dts_reporte->data["denominacion"][$z]); $li_nivel=$io_report->dts_reporte->data["nivel"][$z]; $ld_asignado=$io_report->dts_reporte->data["asignado"][$z]; $ld_monto_programado=$io_report->dts_reporte->data["monto_programado"][$z]; $ld_monto_acumulado=$io_report->dts_reporte->data["monto_programado_acumulado"][$z]; $ld_aumdismes=$io_report->dts_reporte->data["aumdis_mes"][$z]; $ld_aumdisacum=$io_report->dts_reporte->data["aumdis_acumulado"][$z]; $ld_monto_ejecutado=$io_report->dts_reporte->data["ejecutado_mes"][$z]; $ld_ejecutado_acumulado=$io_report->dts_reporte->data["ejecutado_acum"][$z]; $ld_comprometer=$io_report->dts_reporte->data["compromiso"][$z]; $ld_causado=$io_report->dts_reporte->data["causado"][$z]; $ld_pagado=$io_report->dts_reporte->data["pagado"][$z]; $ld_comprometer_acumulado=$io_report->dts_reporte->data["compromiso_acumulado"][$z]; $ld_causado_acumulado=$io_report->dts_reporte->data["causado_acumulado"][$z]; $ld_pagado_acumulado=$io_report->dts_reporte->data["pagado_acumulado"][$z]; $ld_ejec_t_ant=$io_report->dts_reporte->data["ejec_t_ant"][$z]; $ld_compr_t_ant=$io_report->dts_reporte->data["compr_t_ant"][$z]; $ld_dispon_fecha=$io_report->dts_reporte->data["disponible_fecha"][$z]; $ld_pres_anual=$ld_asignado+$ld_aumdismes+$ld_aumdisacum; $ld_ejec_t_ant=$ld_ejec_t_ant; $ld_dispon_fecha=$ld_dispon_fecha; //totales if($li_nivel==1) { $ld_total_pres_anual=$ld_total_pres_anual+($ld_asignado+$ld_aumdisacum); $ld_total_compromiso=$ld_total_compromiso+$ld_comprometer; $ld_total_causado=$ld_total_causado+$ld_causado; $ld_total_pagado=$ld_total_pagado+$ld_pagado; $ld_total_compromiso_acumulado=$ld_total_compromiso_acumulado+$ld_comprometer_acumulado; $ld_total_causado_acumulado=$ld_total_causado_acumulado+$ld_causado_acumulado; $ld_total_pagado_acumulado=$ld_total_pagado_acumulado+$ld_pagado_acumulado; } else { $ld_total_pres_anual=$ld_total_pres_anual+0; } if($li_nivel==$li_cmbnivel) { $ld_total_programado=$ld_total_programado+$ld_monto_programado; $ld_total_prog_t_ant=$ld_total_prog_t_ant+($ld_ejec_t_ant-$ld_compr_t_ant); $ld_total_disp_fecha=$ld_total_disp_fecha+$ld_dispon_fecha; } if($li_cmbnivel>3) { if($li_cmbnivel==4){ $li_nro_resta=1; } if($li_cmbnivel==5){ $li_nro_resta=2; } if($li_cmbnivel==6){ $li_nro_resta=3; } if($li_cmbnivel==7){ $li_nro_resta=4; } if($li_nivel==($li_cmbnivel-$li_nro_resta)) { $ld_total_programado=$ld_total_programado+$ld_monto_programado; $ld_total_monto_acumulado=$ld_total_monto_acumulado+$ld_monto_acumulado; $ld_total_prog_t_ant=$ld_total_prog_t_ant+($ld_ejec_t_ant-$ld_compr_t_ant); $ld_total_disp_fecha=$ld_total_disp_fecha+$ld_dispon_fecha; } } $ld_pres_anual=number_format($ld_pres_anual,2,",","."); $ld_monto_programado=number_format($ld_monto_programado,2,",","."); $ld_monto_acumulado=number_format($ld_monto_acumulado,2,",","."); $ld_comprometer=number_format($ld_comprometer,2,",","."); $ld_causado=number_format($ld_causado,2,",","."); $ld_pagado=number_format($ld_pagado,2,",","."); $ld_comprometer_acumulado=number_format($ld_comprometer_acumulado,2,",","."); $ld_causado_acumulado=number_format($ld_causado_acumulado,2,",","."); $ld_pagado_acumulado=number_format($ld_pagado_acumulado,2,",","."); $ld_ejec_t_ant=number_format($ld_ejec_t_ant,2,",","."); $ld_dispon_fecha=number_format($ld_dispon_fecha,2,",","."); $la_data[$z]=array('cuenta'=>$ls_spg_cuenta,'denominacion'=>$ls_denominacion,'pres_anual'=>$ld_pres_anual, 'programado'=>$ld_monto_programado,'programado_acum'=>$ld_monto_acumulado, 'compromiso'=>$ld_comprometer,'causado'=>$ld_causado, 'pagado'=>$ld_pagado,'porc_comprometer'=>$ld_comprometer_acumulado, 'porc_causado'=>$ld_causado_acumulado,'porc_pagado'=>$ld_pagado_acumulado, 'disp_trim_ant'=>$ld_ejec_t_ant,'disp_fecha'=>$ld_dispon_fecha); $ld_pres_anual=str_replace('.','',$ld_pres_anual); $ld_pres_anual=str_replace(',','.',$ld_pres_anual); $ld_monto_programado=str_replace('.','',$ld_monto_programado); $ld_monto_programado=str_replace(',','.',$ld_monto_programado); $ld_monto_acumulado=str_replace('.','',$ld_monto_acumulado); $ld_monto_acumulado=str_replace(',','.',$ld_monto_acumulado); $ld_comprometer=str_replace('.','',$ld_comprometer); $ld_comprometer=str_replace(',','.',$ld_comprometer); $ld_causado=str_replace('.','',$ld_causado); $ld_causado=str_replace(',','.',$ld_causado); $ld_pagado=str_replace('.','',$ld_pagado); $ld_pagado=str_replace(',','.',$ld_pagado); $ld_comprometer_acumulado=str_replace('.','',$ld_comprometer_acumulado); $ld_comprometer_acumulado=str_replace(',','.',$ld_comprometer_acumulado); $ld_causado_acumulado=str_replace('.','',$ld_causado_acumulado); $ld_causado_acumulado=str_replace(',','.',$ld_causado_acumulado); $ld_pagado_acumulado=str_replace('.','',$ld_pagado_acumulado); $ld_pagado_acumulado=str_replace(',','.',$ld_pagado_acumulado); $ld_ejec_t_ant=str_replace('.','',$ld_ejec_t_ant); $ld_ejec_t_ant=str_replace(',','.',$ld_ejec_t_ant); $ld_dispon_fecha=str_replace('.','',$ld_dispon_fecha); $ld_dispon_fecha=str_replace(',','.',$ld_dispon_fecha); if($z==$li_total) { if($ls_tipoformato==1) { $ld_total_pres_anual=number_format($ld_total_pres_anual,2,",","."); $ld_total_programado=number_format($ld_total_programado,2,",","."); $ld_total_monto_acumulado=number_format($ld_total_monto_acumulado,2,",","."); $ld_total_compromiso=number_format($ld_total_compromiso,2,",","."); $ld_total_causado=number_format($ld_total_causado,2,",","."); $ld_total_pagado=number_format($ld_total_pagado,2,",","."); $ld_total_compromiso_acumulado=number_format($ld_total_compromiso_acumulado,2,",","."); $ld_total_causado_acumulado=number_format($ld_total_causado_acumulado,2,",","."); $ld_total_pagado_acumulado=number_format($ld_total_pagado_acumulado,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,",","."); $la_data_tot[$z]=array('total'=>'TOTALES BsF.','pres_anual'=>$ld_total_pres_anual,'programado'=>$ld_total_programado, 'programado_acum'=>$ld_total_monto_acumulado,'compromiso'=>$ld_total_compromiso,'causado'=>$ld_total_causado,'pagado'=>$ld_total_pagado, 'porc_comprometer'=>$ld_total_compromiso_acumulado,'porc_causado'=>$ld_total_causado_acumulado, 'porc_pagado'=>$ld_total_pagado_acumulado,'disp_trim_ant'=>$ld_total_prog_t_ant, 'disp_fecha'=>$ld_total_disp_fecha); } else { $ld_total_pres_anual=number_format($ld_total_pres_anual,2,",","."); $ld_total_programado=number_format($ld_total_programado,2,",","."); $ld_total_monto_acumulado=number_format($ld_total_monto_acumulado,2,",","."); $ld_total_compromiso=number_format($ld_total_compromiso,2,",","."); $ld_total_causado=number_format($ld_total_causado,2,",","."); $ld_total_pagado=number_format($ld_total_pagado,2,",","."); $ld_total_compromiso_acumulado=number_format($ld_total_compromiso_acumulado,2,",","."); $ld_total_causado_acumulado=number_format($ld_total_causado_acumulado,2,",","."); $ld_total_pagado_acumulado=number_format($ld_total_pagado_acumulado,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,",","."); $la_data_tot[$z]=array('total'=>'TOTALES Bs.','pres_anual'=>$ld_total_pres_anual,'programado'=>$ld_total_programado, 'programado_acum'=>$ld_total_monto_acumulado,'compromiso'=>$ld_total_compromiso,'causado'=>$ld_total_causado,'pagado'=>$ld_total_pagado, 'porc_comprometer'=>$ld_total_compromiso_acumulado,'porc_causado'=>$ld_total_causado_acumulado, 'porc_pagado'=>$ld_total_pagado_acumulado,'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_mesdes,$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 $io_pdf->ezStopPageNumbers(1,1); if (isset($d) && $d) { $ls_pdfcode = $io_pdf->ezOutput(1); $ls_pdfcode = str_replace("\n","\n
",htmlspecialchars($ls_pdfcode)); echo ''; echo trim($ls_pdfcode); echo ''; } else { $io_pdf->ezStream(); } unset($io_pdf); }//else unset($io_report); unset($io_funciones); ?>