"; print "close();"; print ""; } //-------------------------------------------------------------------------------------------------------------------------------- function uf_print_encabezado_pagina($as_titulo,&$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: 07/06/2006 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $io_encabezado=$io_pdf->openObject(); $io_pdf->saveState(); $io_pdf->line(10,30,1000,30); $io_pdf->addJpegFromFile('../../shared/imagebank/logo.jpg',10,525,80); // Agregar Logo $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 $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->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_meses_trimestre,$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: 07/06/2006 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $io_pdf->saveState(); $io_pdf->ezSetY(525); if ($_SESSION["la_empresa"]["estmodest"] == 2) { $la_data=array(array('name'=>'Programatica '.''.$as_programatica.''), array('name'=>''.''.$as_denestpro.''), array('name'=>'Trimestre '.''.$as_meses_trimestre.''.' Presupuesto '.''.$ai_ano.'')); } else { $ls_loncodestpro1 = $_SESSION["la_empresa"]["loncodestpro1"]; $ls_loncodestpro2 = $_SESSION["la_empresa"]["loncodestpro2"]; $ls_loncodestpro3 = $_SESSION["la_empresa"]["loncodestpro3"]; $la_data=array(array('name'=>' Estructura Presupuestaria '), array('name'=>''.' '.substr($as_programatica,0,$ls_loncodestpro1).' '.$as_denestpro[0].''), array('name'=>''.' '.substr($as_programatica,$ls_loncodestpro1,$ls_loncodestpro2).' '.$as_denestpro[1].''), array('name'=>''.' '.substr($as_programatica,$ls_loncodestpro1+$ls_loncodestpro2,$ls_loncodestpro3).' '.$as_denestpro[2].''), array('name'=>'Trimestre '.''.$as_meses_trimestre.''.' Presupuesto '.''.$ai_ano.'')); } $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'=>260,//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'=>500), '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: 07/06/2006 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $io_pdf->saveState(); $la_data=array(array('name1'=>'EJECUTADO TRIMESTRAL ACUMULADO','name2'=>'PORCENTAJE DE EJECUCION', 'name3'=>'DISPONIBILIDAD PRESUPUESTARIA')); $la_columna=array('name1'=>'','name2'=>'','name3'=>''); $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'=>684, '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('name1'=>array('justification'=>'center','width'=>240),// Justificación y ancho de la columna 'name2'=>array('justification'=>'center','width'=>240),// Justificación y ancho de la columna 'name3'=>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: 07/06/2006 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $io_pdf->saveState(); $la_data=array(array('cuenta'=>'Cuenta','denominacion'=>'Denominación','pres_anual'=>'Presupuesto Anual', 'programado'=>'Programado 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'=>'','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'=>80), // Justificación y ancho de la columna 'compromiso'=>array('justification'=>'center','width'=>80), // Justificación y ancho de la columna 'causado'=>array('justification'=>'center','width'=>80), // Justificación y ancho de la columna 'pagado'=>array('justification'=>'center','width'=>80), // Justificación y ancho de la columna 'porc_comprometer'=>array('justification'=>'center','width'=>80), // Justificación y ancho de la columna 'porc_causado'=>array('justification'=>'center','width'=>80), // Justificación y ancho de la columna 'porc_pagado'=>array('justification'=>'center','width'=>80), // 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: 07/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'=>80), // Justificación y ancho de la columna 'compromiso'=>array('justification'=>'right','width'=>80), // Justificación y ancho de la columna 'causado'=>array('justification'=>'right','width'=>80), // Justificación y ancho de la columna 'pagado'=>array('justification'=>'right','width'=>80), // Justificación y ancho de la columna 'porc_comprometer'=>array('justification'=>'right','width'=>80), // Justificación y ancho de la columna 'porc_causado'=>array('justification'=>'right','width'=>80), // Justificación y ancho de la columna 'porc_pagado'=>array('justification'=>'right','width'=>80), // 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'=>'', '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: 07/06/2006 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $la_config=array('showHeadings'=>0, // Mostrar encabezados 'fontSize' => 9, // Tamaño de Letras 'titleFontSize' => 9, // 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'=>80), // Justificación y ancho de la columna 'compromiso'=>array('justification'=>'right','width'=>80), // Justificación y ancho de la columna 'causado'=>array('justification'=>'right','width'=>80), // Justificación y ancho de la columna 'pagado'=>array('justification'=>'right','width'=>80), // Justificación y ancho de la columna 'porc_comprometer'=>array('justification'=>'right','width'=>80), // Justificación y ancho de la columna 'porc_causado'=>array('justification'=>'right','width'=>80), // Justificación y ancho de la columna 'porc_pagado'=>array('justification'=>'right','width'=>80), // 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'=>'', '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("sigesp_spg_reporte_comparados.php"); $io_report = new sigesp_spg_reporte_comparados(); require_once("../../shared/class_folder/class_funciones.php"); $io_funciones=new class_funciones(); require_once("../../shared/class_folder/class_fecha.php"); $io_fecha = new class_fecha(); //-------------------------------------------------- Parámetros para Filtar el Reporte ----------------------------------------- $ldt_periodo=$_SESSION["la_empresa"]["periodo"]; $li_ano=substr($ldt_periodo,0,4); $ls_codestpro1 = $_GET["codestpro1"]; $ls_codestpro2 = $_GET["codestpro2"]; $ls_codestpro3 = $_GET["codestpro3"]; $ls_codestpro1h = $_GET["codestpro1h"]; $ls_codestpro2h = $_GET["codestpro2h"]; $ls_codestpro3h = $_GET["codestpro3h"]; $ls_codestpro4 ="0000000000000000000000000"; $ls_codestpro5 ="0000000000000000000000000"; $ls_codestpro4h="0000000000000000000000000"; $ls_codestpro5h="0000000000000000000000000"; $li_cmbnivel=$_GET["cmbnivel"]; $li_ctasinmov=$_GET["ckbctasinmov"]; if($li_ctasinmov==1) { $lb_ctasinmov=true; } else { $lb_ctasinmov=false; } $li_ominoprog=$_GET["ckbominoprog"]; if($li_ominoprog==1) { $lb_ominoprog=true; } else { $lb_ominoprog=false; } $ls_trimestres=$_GET["combo"]; if($ls_trimestres=="0103") { $ls_meses_trimestre="Enero - Marzo"; } if($ls_trimestres=="0406") { $ls_meses_trimestre="Abril - Junio"; } if($ls_trimestres=="0709") { $ls_meses_trimestre="Julio - Septiembre"; } if($ls_trimestres=="1012") { $ls_meses_trimestre="Octubre - Diciembre"; } $lb_ckbformil=$_GET["ckbformil"]; //---------------------------------------------------- Parámetros del encabezado ----------------------------------------------- $ls_titulo=" EJECUCION FINANCIERA TRIMESTRAL DEL PRESUPUESTO DE GASTOS (FORMA 0707)"; //-------------------------------------------------------------------------------------------------------------------------------- // 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_formato3($ls_codestpro1,$ls_codestpro2, $ls_codestpro3,$ls_codestpro4, $ls_codestpro5,$ls_codestpro1h, $ls_codestpro2h,$ls_codestpro3h, $ls_codestpro4h,$ls_codestpro5h); 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(5.6,3,3,3); // Configuración de los margenes en centímetros uf_print_encabezado_pagina($ls_titulo,$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"); 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_codestpro1=substr($ls_programatica,0,25); $ls_denestpro1=""; $lb_valido=$io_report->uf_spg_reporte_select_denestpro1($ls_codestpro1,$ls_denestpro1); if($lb_valido) { $ls_denestpro1=$ls_denestpro1; } $ls_codestpro2=substr($ls_programatica,25,25); if($lb_valido) { $ls_denestpro2=""; $lb_valido=$io_report->uf_spg_reporte_select_denestpro2($ls_codestpro1,$ls_codestpro2,$ls_denestpro2); $ls_denestpro2=$ls_denestpro2; } $ls_codestpro3=substr($ls_programatica,50,25); if($lb_valido) { $ls_denestpro3=""; $lb_valido=$io_report->uf_spg_reporte_select_denestpro3($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_denestpro3); $ls_denestpro3=$ls_denestpro3; } $ls_denestpro = array(); //$ls_denestpro=$ls_denestpro1." , ".$ls_denestpro2." , ".$ls_denestpro3; $ls_denestpro[0]=$ls_denestpro1; $ls_denestpro[1]=$ls_denestpro2; $ls_denestpro[2]=$ls_denestpro3; $lb_valido=$io_report->uf_spg_reportes_comparados_ejecucion_financiera_formato3($ls_codestpro1,$ls_codestpro2, $ls_codestpro3,$ls_codestpro4, $ls_codestpro5,$ls_codestpro1, $ls_codestpro2,$ls_codestpro3, $ls_codestpro4,$ls_codestpro5, $lb_ctasinmov,$lb_ominoprog,$ls_trimestres, $li_cmbnivel); if($lb_valido==false) // Existe algún error ó no hay registros { print(""); } else //if($lb_valido) { $ld_pres_anual=0; $ld_programado=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; $li_total=$io_report->dts_reporte->getRowCount("spg_cuenta"); for($z=1;$z<=$li_total;$z++) { $thisPageNum=$io_pdf->ezPageCount; $ls_spg_cuenta=$io_report->dts_reporte->data["spg_cuenta"][$z]; $ls_denominacion=$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_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_reprog_prox_mes=$io_report->dts_reporte->data["reprog_prox_mes"][$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_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]; if($lb_ckbformil==1) { $ld_pres_anual=($ld_asignado+$ld_aumdismes+$ld_aumdisacum)/1000; $ld_programado=($ld_monto_programado)/1000; $ld_comprometer=$ld_comprometer/1000; $ld_causado=$ld_causado/1000; $ld_pagado=$ld_pagado/1000; if($ld_monto_programado<>0) { $ld_porc_comprometer=(($ld_comprometer*100)/$ld_monto_programado)/1000; } else { $ld_porc_comprometer=0; } if($ld_monto_programado<>0) { $ld_porc_causado=(($ld_causado*100)/$ld_monto_programado)/1000; } else { $ld_porc_causado=0; } if($ld_monto_programado<>0) { $ld_porc_pagado=(($ld_pagado*100)/$ld_monto_programado)/1000; } else { $ld_porc_pagado=0; } $ld_ejec_t_ant=$ld_ejec_t_ant/1000; $li_mesdes=substr($ls_trimestres,0,2); $li_mesdes=intval($li_mesdes); if($li_mesdes>3) { $ld_dispon_fecha=$ld_dispon_fecha/1000; } else { $ld_dispon_fecha=$ld_dispon_fecha/1000; } //totales if($li_nivel==1) { $ld_total_pres_anual=($ld_total_pres_anual+($ld_asignado+$ld_aumdisacum))/1000; $ld_total_compromiso=($ld_total_compromiso+$ld_comprometer)/1000; $ld_total_causado=($ld_total_causado+$ld_causado)/1000; $ld_total_pagado=($ld_total_pagado+$ld_pagado)/1000; } else { $ld_total_pres_anual=($ld_total_pres_anual+0)/1000; } if($li_nivel==$li_cmbnivel) { $ld_total_programado=($ld_total_programado+$ld_monto_programado)/1000; $ld_total_prog_t_ant=($ld_total_prog_t_ant+($ld_ejec_t_ant-$ld_compr_t_ant))/1000; $ld_total_disp_fecha=($ld_total_disp_fecha+($ld_asignado+$ld_aumdismes+$ld_aumdisacum-$ld_compr_t_ant-$ld_comprometer))/1000; } else { $ld_total_programado=($ld_total_programado+0)/1000; $ld_total_prog_t_ant=($ld_total_prog_t_ant+0)/1000; $ld_total_disp_fecha=($ld_total_disp_fecha+0)/1000; } } else { $ld_pres_anual=$ld_asignado+$ld_aumdismes+$ld_aumdisacum; $ld_programado=$ld_monto_programado; $ld_comprometer=$ld_comprometer; $ld_causado=$ld_causado; $ld_pagado=$ld_pagado; if($ld_monto_programado<>0) { $ld_porc_comprometer=($ld_comprometer*100)/$ld_monto_programado; } else { $ld_porc_comprometer=0; } if($ld_monto_programado<>0) { $ld_porc_causado=($ld_causado*100)/$ld_monto_programado; } else { $ld_porc_causado=0; } if($ld_monto_programado<>0) { $ld_porc_pagado=($ld_pagado*100)/$ld_monto_programado; } else { $ld_porc_pagado=0; } $ld_ejec_t_ant=$ld_ejec_t_ant; $li_mesdes=substr($ls_trimestres,0,2); $li_mesdes=intval($li_mesdes); if($li_mesdes>3) { $ld_dispon_fecha=$ld_dispon_fecha; } else { $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; } 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_asignado+$ld_aumdismes+$ld_aumdisacum-$ld_compr_t_ant-$ld_comprometer); } else { $ld_total_programado=$ld_total_programado+0; $ld_total_prog_t_ant=$ld_total_prog_t_ant+0; $ld_total_disp_fecha=$ld_total_disp_fecha+0; } } $ld_pres_anual=number_format($ld_pres_anual,2,",","."); $ld_programado=number_format($ld_programado,2,",","."); $ld_comprometer=number_format($ld_comprometer,2,",","."); $ld_causado=number_format($ld_causado,2,",","."); $ld_pagado=number_format($ld_pagado,2,",","."); $ld_porc_comprometer=number_format($ld_porc_comprometer,2,",","."); $ld_porc_causado=number_format($ld_porc_causado,2,",","."); $ld_porc_pagado=number_format($ld_porc_pagado,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_programado,'compromiso'=>$ld_comprometer,'causado'=>$ld_causado, 'pagado'=>$ld_pagado,'porc_comprometer'=>$ld_porc_comprometer,'porc_causado'=>$ld_porc_causado, 'porc_pagado'=>$ld_porc_pagado,'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_programado=str_replace('.','',$ld_programado); $ld_programado=str_replace(',','.',$ld_programado); $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_porc_comprometer=str_replace('.','',$ld_porc_comprometer); $ld_porc_comprometer=str_replace(',','.',$ld_porc_comprometer); $ld_porc_causado=str_replace('.','',$ld_porc_causado); $ld_porc_causado=str_replace(',','.',$ld_porc_causado); $ld_porc_pagado=str_replace('.','',$ld_porc_pagado); $ld_porc_pagado=str_replace(',','.',$ld_porc_pagado); $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) { $ld_total_pres_anual=number_format($ld_total_pres_anual,2,",","."); $ld_total_programado=number_format($ld_total_programado,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_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'=>'TOTALES','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 } }//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); ?>