";
print "close();";
print "";
}
ini_set('memory_limit','256M');
ini_set('max_execution_time','0');
//--------------------------------------------------------------------------------------------------------------------------------
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: 27/09/2006
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$io_encabezado=$io_pdf->openObject();
$io_pdf->saveState();
$io_pdf->line(10,30,1000,30);
$io_pdf->addJpegFromFile('../../shared/imagebank/'.$_SESSION["ls_logo"],10,550,$_SESSION["ls_width"],$_SESSION["ls_height"]); // 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,550,10,date("d/m/Y")); // 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_encabezado_pagina2($as_titulo,$as_titulo1,&$io_pdf)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_encabezadopagina2
// 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 manejando esructuras presupuestarias
// Creado Por: Ing. Yozelin Barragán
// Fecha Creación: 27/09/2006
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$io_encabezado=$io_pdf->openObject();
$io_pdf->saveState();
$io_pdf->line(10,30,1000,30);
$io_pdf->addJpegFromFile('../../shared/imagebank/'.$_SESSION["ls_logo"],10,550,$_SESSION["ls_width"],$_SESSION["ls_height"]); // 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
$li_tm=$io_pdf->getTextWidth(16,$as_titulo1);
$tm=505-($li_tm/2);
$io_pdf->addText($tm,530,16,$as_titulo1); // Agregar el título
$io_pdf->addText(900,550,10,date("d/m/Y")); // 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_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: 27/09/2006
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/*$io_encabezado=$io_pdf->openObject();
$io_pdf->saveState();*/
//$io_pdf->ezSetY(460);
$la_data=array(array('cuenta'=>'Cuenta','denominacion'=>'Denominación','previsto'=>'Previsto',
'aumento'=>'Aumento','disminución'=>'Disminución','devengado'=>'Devengado',
'cobrado'=>'Cobrado','cobrado_anticipado'=>'Cobrado Anticipado',
'montoactualizado'=>'Saldo por Devengar','porcobrar'=>'Por Cobrar'));
$la_columna=array('cuenta'=>'','denominacion'=>'','previsto'=>'','aumento'=>'','disminución'=>'','devengado'=>'',
'cobrado'=>'','cobrado_anticipado'=>'','montoactualizado'=>'','porcobrar'=>'');
$la_config=array('showHeadings'=>0, // Mostrar encabezados
'fontSize' => 9, // Tamaño de Letras
'titleFontSize' => 9, // Tamaño de Letras de los títulos
'showLines'=>1, // 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'=>80), // Justificación y ancho de la
'denominacion'=>array('justification'=>'center','width'=>160), // Justificación y
'previsto'=>array('justification'=>'center','width'=>90), // Justificación y ancho de la
'aumento'=>array('justification'=>'center','width'=>90), // Justificación y ancho de la
'disminución'=>array('justification'=>'center','width'=>90), // Justificación y ancho de la
'devengado'=>array('justification'=>'center','width'=>90), // Justificación y ancho de
'cobrado'=>array('justification'=>'center','width'=>90), // Justificación y ancho de
'cobrado_anticipado'=>array('justification'=>'center','width'=>90), // Justificación
'montoactualizado'=>array('justification'=>'center','width'=>90), // Justificación y ancho
'porcobrar'=>array('justification'=>'center','width'=>90))); // Justificación y ancho de la
$io_pdf->ezTable($la_data,$la_columna,'',$la_config);
/*$io_pdf->restoreState();
$io_pdf->closeObject();
$io_pdf->addObject($io_encabezado,'all');*/
unset($la_data);
unset($la_columnas);
unset($la_config);
}// 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: 27/09/2006
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $ls_tiporeporte;
if($ls_tiporeporte==1)
{
$ls_titulo="Monto Bs.F.";
}
else
{
$ls_titulo="Monto Bs.";
}
$la_config=array('showHeadings'=>1, // Mostrar encabezados
'fontSize' => 8, // Tamaño de Letras
'titleFontSize' => 8, // Tamaño de Letras de los títulos
'showLines'=>1, // Mostrar Líneas
'shaded'=>0, // Sombra entre líneas
'colGap'=>7, // 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'=>80), // Justificación y ancho de la
'denominacion'=>array('justification'=>'left','width'=>160), // Justificación y ancho de la
'previsto'=>array('justification'=>'right','width'=>90), // Justificación y ancho de la
'aumento'=>array('justification'=>'right','width'=>90), // Justificación y ancho de la
'disminución'=>array('justification'=>'right','width'=>90), // Justificación y ancho de la
'devengado'=>array('justification'=>'right','width'=>90), // Justificación y ancho de
'cobrado'=>array('justification'=>'right','width'=>90), // Justificación y ancho de
'cobrado_anticipado'=>array('justification'=>'right','width'=>90), // Justificación
'montoactualizado'=>array('justification'=>'right','width'=>90), // Justificación y ancho
'porcobrar'=>array('justification'=>'right','width'=>90))); // Justificación y ancho de la
$la_columnas=array('cuenta'=>'Cuenta',
'denominacion'=>'Denominación',
'previsto'=>'Previsto',
'aumento'=>'Aumento',
'disminución'=>'Disminución',
'devengado'=>'Devengado',
'cobrado'=>'Cobrado',
'cobrado_anticipado'=>'Cobrado Anticipado',
'montoactualizado'=>'Monto Actualizado',
'porcobrar'=>'Por Cobrar');
$io_pdf->ezTable($la_data,$la_columnas,'',$la_config);
unset($la_data);
unset($la_columnas);
unset($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: 27/09/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'=>1, // Mostrar Líneas
'shaded'=>0, // Sombra entre líneas
'colGap'=>7, // 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'=>'center','width'=>240), // Justificación y ancho de la
'previsto'=>array('justification'=>'right','width'=>90), // Justificación y ancho de la
'aumento'=>array('justification'=>'right','width'=>90), // Justificación y ancho de la
'disminución'=>array('justification'=>'right','width'=>90), // Justificación y ancho de la
'devengado'=>array('justification'=>'right','width'=>90), // Justificación y ancho de
'cobrado'=>array('justification'=>'right','width'=>90), // Justificación y ancho de
'cobrado_anticipado'=>array('justification'=>'right','width'=>90), // Justificación
'montoactualizado'=>array('justification'=>'right','width'=>90), // Justificación y ancho
'porcobrar'=>array('justification'=>'right','width'=>90))); // Justificación y ancho de la
$la_columnas=array('total'=>'',
'previsto'=>'',
'aumento'=>'',
'disminución'=>'',
'devengado'=>'',
'cobrado'=>'',
'cobrado_anticipado'=>'',
'montoactualizado'=>'',
'porcobrar'=>'');
$io_pdf->ezTable($la_data_tot,$la_columnas,'',$la_config);
unset($la_data_tot);
unset($la_columnas);
unset($la_config);
}// end function uf_print_pie_cabecera
//--------------------------------------------------------------------------------------------------------------------------------------
function uf_print_cabecera_estructura( $ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,
$ls_denestpro1,$ls_denestpro2,$ls_denestpro3,$ls_denestpro4,$ls_denestpro5,$io_pdf)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_cabecera
// Access: private
// Arguments: as_programatica // programatica del comprobante
// as_denestpro5 // denominacion de la programatica del comprobante
// io_pdf // Objeto PDF
// Description: función que imprime la cabecera de cada página
// Creado Por: Ing. Jennifer Rivero
// Fecha Creación: 17/11/2008
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$ls_estmodest = $_SESSION["la_empresa"]["estmodest"];
$li_nomestpro1 = $_SESSION["la_empresa"]["nomestpro1"];
$li_nomestpro2 = $_SESSION["la_empresa"]["nomestpro2"];
$li_nomestpro3 = $_SESSION["la_empresa"]["nomestpro3"];
$li_nomestpro4 = $_SESSION["la_empresa"]["nomestpro4"];
$li_nomestpro5 = $_SESSION["la_empresa"]["nomestpro5"];
$li_loncodestpro1 = $_SESSION["la_empresa"]["loncodestpro1"];
$li_loncodestpro2 = $_SESSION["la_empresa"]["loncodestpro2"];
$li_loncodestpro3 = $_SESSION["la_empresa"]["loncodestpro3"];
$li_loncodestpro4 = $_SESSION["la_empresa"]["loncodestpro4"];
$li_loncodestpro5 = $_SESSION["la_empresa"]["loncodestpro5"];
$ls_codestpro1 = trim(substr($ls_codestpro1,-$li_loncodestpro1));
$ls_codestpro2 = trim(substr($ls_codestpro2,-$li_loncodestpro2));
$ls_codestpro3 = trim(substr($ls_codestpro3,-$li_loncodestpro3));
$ls_codestpro4 = trim(substr($ls_codestpro4,-$li_loncodestpro4));
$ls_codestpro5 = trim(substr($ls_codestpro5,-$li_loncodestpro5));
if ($ls_estmodest==1)
{
$ls_datat1[1]=array('nombre'=>''.$li_nomestpro1.": ",'codestpro'=>$ls_codestpro1,'denom'=>$ls_denestpro1);
$ls_datat1[2]=array('nombre'=>''.$li_nomestpro2.": ",'codestpro'=>$ls_codestpro2,'denom'=>$ls_denestpro2);
$ls_datat1[3]=array('nombre'=>''.$li_nomestpro3.": ",'codestpro'=>$ls_codestpro3,'denom'=>$ls_denestpro3);
$la_config=array('showHeadings'=>0, // Mostrar encabezados
'fontSize' =>7, // Tamaño de Letras
'titleFontSize' => 7, // Tamaño de Letras de los títulos
'showLines'=>0, // Mostrar Líneas
'shaded'=>0, // Sombra entre líneas
'colGap'=>1, // separacion entre tablas
'width'=>990, // Ancho de la tabla
'maxWidth'=>990, // Ancho Máximo de la tabla
'xOrientation'=>'center', // Orientación de la tabla
'xPos'=>290, // Orientación de la tabla
'cols'=>array('nombre'=>array('justification'=>'left','width'=>150),
'codestpro'=>array('justification'=>'right','width'=>60),
'denom'=>array('justification'=>'left','width'=>320)));
$io_pdf->ezTable($ls_datat1,'','',$la_config);
}
else
{
$ls_datat1[1]=array('nombre'=>''.$li_nomestpro1.": ",'codestpro'=>$ls_codestpro1,'denom'=>$ls_denestpro1);
$ls_datat1[2]=array('nombre'=>''.$li_nomestpro2.": ",'codestpro'=>$ls_codestpro2,'denom'=>$ls_denestpro2);
$ls_datat1[3]=array('nombre'=>''.$li_nomestpro3.": ",'codestpro'=>$ls_codestpro3,'denom'=>$ls_denestpro3);
$ls_datat1[4]=array('nombre'=>''.$li_nomestpro4.": ",'codestpro'=>$ls_codestpro4,'denom'=>$ls_denestpro4);
$ls_datat1[5]=array('nombre'=>''.$li_nomestpro5.": ",'codestpro'=>$ls_codestpro5,'denom'=>$ls_denestpro5);
$la_config=array('showHeadings'=>0, // Mostrar encabezados
'fontSize' => 6, // Tamaño de Letras
'titleFontSize' => 7, // Tamaño de Letras de los títulos
'showLines'=>0, // Mostrar Líneas
'shaded'=>0, // Sombra entre líneas
'colGap'=>1, // separacion entre tablas
'width'=>990, // Ancho de la tabla
'maxWidth'=>990, // Ancho Máximo de la tabla
'xOrientation'=>'center', // Orientación de la tabla
'xPos'=>302, // Orientación de la tabla
'cols'=>array('nombre'=>array('justification'=>'left','width'=>150),
'codestpro'=>array('justification'=>'right','width'=>60),
'denom'=>array('justification'=>'left','width'=>320)));
$io_pdf->ezTable($ls_datat1,'','',$la_config);
}
unset($ls_datat1);
unset($la_config);
}// end function uf_print_cabecera
//--------------------------------------------------------------------------------------------------------------------------------------
//--------------------------------------------------------------------------------------------------------------------------------
require_once("../../shared/ezpdf/class.ezpdf.php");
require_once("sigesp_spi_reporte.php");
$io_report = new sigesp_spi_reporte();
require_once("sigesp_spi_funciones_reportes.php");
$io_function_report = new sigesp_spi_funciones_reportes();
require_once("../../shared/class_folder/class_funciones.php");
$io_funciones=new class_funciones();
require_once("../class_funciones_ingreso.php");
$io_fun_ingreso=new class_funciones_ingreso();
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_cmbmesdes = $_GET["cmbmesdes"];
$ldt_fecini=$li_ano."-01-01";
$ldt_fecini_rep="01/01/".$li_ano;
$ls_cmbmeshas = $_GET["cmbmeshas"];
$ls_mes=$ls_cmbmeshas;
$ls_ano=$li_ano;
$fecfin=$io_fecha->uf_last_day($ls_mes,$ls_ano);
$ldt_fecfin=$io_funciones->uf_convertirdatetobd($fecfin);
$ls_modalidad=$_SESSION["la_empresa"]["estmodest"];
$ls_estpreing=$_SESSION["la_empresa"]["estpreing"];
if($ls_estpreing==1)
{
$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"];
$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"];
if($ls_modalidad==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_spi_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_spi_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;
}
}
elseif($ls_modalidad==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_spi_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_spi_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_programatica_desde=$ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$ls_programatica_hasta=$ls_codestpro1h.$ls_codestpro2h.$ls_codestpro3h.$ls_codestpro4h.$ls_codestpro5h;
if($ls_modalidad==1)
{
if (($ls_codestpro1<>"")&&($ls_codestpro2=="")&&($ls_codestpro3==""))
{
$ls_programatica_desde1=substr($ls_codestpro1,-$ls_loncodestpro1);
$ls_programatica_hasta1=substr($ls_codestpro1h,-$ls_loncodestpro1);
}
elseif(($ls_codestpro1<>"")&&($ls_codestpro2<>"")&&($ls_codestpro3==""))
{
$ls_programatica_desde1=substr($ls_codestpro1,-$ls_loncodestpro1)."-".substr($ls_codestpro2,-$ls_loncodestpro2);
$ls_programatica_hasta1=substr($ls_codestpro1h,-$ls_loncodestpro1)."-".substr($ls_codestpro2h,-$ls_loncodestpro2);
}
elseif(($ls_codestpro1<>"")&&($ls_codestpro2<>"")&&($ls_codestpro3<>""))
{
$ls_programatica_desde1=substr($ls_codestpro1,-$ls_loncodestpro1)."-".substr($ls_codestpro2,-$ls_loncodestpro2)."-".substr($ls_codestpro3,-$ls_loncodestpro3);
$ls_programatica_hasta1=substr($ls_codestpro1h,-$ls_loncodestpro1)."-".substr($ls_codestpro2h,-$ls_loncodestpro2)."-".substr($ls_codestpro3h,-$ls_loncodestpro3);
}
else
{
$ls_programatica_desde1="";
$ls_programatica_hasta1="";
}
}
else
{
$ls_programatica_desde1=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)."-".$ls_estclades;
$ls_programatica_hasta1=substr($ls_codestpro1h,-$ls_loncodestpro1)."-".substr($ls_codestpro2h,-$ls_loncodestpro2)."-".substr($ls_codestpro3h,-$ls_loncodestpro3)."-".substr($ls_codestpro4h,-$ls_loncodestpro4)."-".substr($ls_codestpro5h,-$ls_loncodestpro5)."-".$ls_estclahas;
}
}
$cmbnivel=$_GET["cmbnivel"];
if($cmbnivel=="s1")
{
$ls_cmbnivel="1";
}
else
{
$ls_cmbnivel=$cmbnivel;
}
$ls_subniv=$_GET["checksubniv"];
if($ls_subniv==1)
{
$lb_subniv=true;
}
else
{
$lb_subniv=false;
}
///////////////////////////////// SEGURIDAD ///////////////////////////////////
$ls_desc_event="Solicitud de Reporte Acumulado por Cuentas desde la fecha ".$ldt_fecini_rep." hasta ".$fecfin;
$io_fun_ingreso->uf_load_seguridad_reporte("SPI","sigesp_spi_r_acum_x_cuentas.php",$ls_desc_event);
//////////////////////////////// SEGURIDAD ///////////////////////////////////
//---------------------------------------------------- Parámetros del encabezado --------------------------------------------
$ls_estpreing=$_SESSION["la_empresa"]["estpreing"];
$ls_titulo=" ACUMULADO POR CUENTAS DESDE LA FECHA ".$ldt_fecini_rep." HASTA ".$fecfin." ";
if($ls_estpreing==1)
{
$ls_titulo1=" DESDE LA PROGRAMATICA ".$ls_programatica_desde1." HASTA ".$ls_programatica_hasta1." ";
}
$ls_tiporeporte=$_GET["tiporeporte"];
global $ls_tiporeporte;
require_once("../../shared/ezpdf/class.ezpdf.php");
if($ls_tiporeporte==1)
{
require_once("sigesp_spi_reportebsf.php");
$io_report=new sigesp_spi_reportebsf();
}
//--------------------------------------------------------------------------------------------------------------------------------
// Cargar el dts_cab con los datos de la cabecera del reporte( Selecciono todos comprobantes )
$ls_modalidad=$_SESSION["la_empresa"]["estmodest"];
$ls_estpreing=$_SESSION["la_empresa"]["estpreing"];
if($ls_estpreing==1)
{
$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_codestpro5h = $io_funciones->uf_cerosizquierda($ls_codestpro5h_max,25);
$li_loncodestpro1 = $_SESSION["la_empresa"]["loncodestpro1"];
$li_loncodestpro2 = $_SESSION["la_empresa"]["loncodestpro2"];
$li_loncodestpro3 = $_SESSION["la_empresa"]["loncodestpro3"];
$li_loncodestpro4 = $_SESSION["la_empresa"]["loncodestpro4"];
$li_loncodestpro5 = $_SESSION["la_empresa"]["loncodestpro5"];
}
//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.4,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
$ld_total_previsto=0;
$ld_total_aumento=0;
$ld_total_disminucion=0;
$ld_total_devengado=0;
$ld_total_cobrado=0;
$ld_total_cobrado_anticipado=0;
$ld_total_monto_actualizado=0;
$ld_total_por_cobrar=0;
$cuentamin = $_GET["cuentadesde"];
$cuentamax = $_GET["cuentahasta"];
if(empty($cuentamin))
{
$io_function_report->uf_spi_reporte_select_max_cuenta($cuentamax);
}
if(empty($cuentamax))
{
$io_function_report->uf_spi_reporte_select_min_cuenta($cuentamin);
}
$vacio = "";
if ($ls_estpreing==1)
{
$io_report->uf_spi_reporte_acum_cuentas2($cuentamin,$cuentamax,
$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,
$ls_codestpro5,$ls_codestpro1h,$ls_codestpro2h,$ls_codestpro3h,
$ls_codestpro4h,$ls_codestpro5h,$ls_estclades,$ls_estclahas,$ls_cmbnivel);
uf_print_encabezado_pagina2($ls_titulo,$ls_titulo1,$io_pdf); // Imprimimos el encabezado de la página
/*
$lb_valido=$io_report->select_estructuras_spi($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,
$ls_codestpro5,$ls_codestpro1h,$ls_codestpro2h,$ls_codestpro3h,
$ls_codestpro4h,$ls_codestpro5h,$ls_estclades,$ls_estclahas);*/
//var_dump($io_report->dts_reporte);
$li_totfila=$io_report->dts_reporte->getRowCount("spi_cuenta");
$ld_total_previsto=0;
$ld_total_aumento=0;
$ld_total_disminucion=0;
$ld_total_devengado=0;
$ld_total_cobrado=0;
$ld_total_cobrado_anticipado=0;
$ld_total_monto_actualizado=0;
$ld_total_por_cobrar=0;
$la_data1 = NULL;
$la_data_tot = NULL;
for($j=1;($j<=$li_totfila);$j++)
{
$as_spg_cuenta=trim($io_report->dts_reporte->data["spi_cuenta"][$j]);
$lb_valido=$io_report->uf_spi_reporte_detalle_acumulado_cuentas($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,
$ls_codestpro5,$ls_codestpro1h,$ls_codestpro2h,$ls_codestpro3h,$ls_codestpro4h,
$ls_codestpro5h,$ls_estclades,$ls_estclahas,
$as_spg_cuenta,$ldt_fecfin,$j);
$li_tot=0;
$li_tot=$io_report->dts_reporte->getRowCount("spi_cuenta");
// for($z=1;$z<=$li_tot;$z++)
//{
$thisPageNum=$io_pdf->ezPageCount;
$ls_spi_cuenta=$io_report->dts_reporte->data["spi_cuenta"][$j];
$ls_denominacion=$io_report->dts_reporte->data["denominacion"][$j];
$ls_nivel=$io_report->dts_reporte->data["nivel"][$j];
$ls_status=$io_report->dts_reporte->data["status"][$j];
$ld_previsto=$io_report->dts_reporte->data["previsto"][$j];
$ld_aumento=$io_report->dts_reporte->data["aumento"][$j];
$ld_disminucion=$io_report->dts_reporte->data["disminucion"][$j];
$ld_devengado=$io_report->dts_reporte->data["devengado"][$j];
$ld_cobrado=$io_report->dts_reporte->data["cobrado"][$j];
//$ld_cobrado_anticipado=$io_report->dts_reporte->data["cobrado_anticipado"][$j];
$ld_cobrado_anticipado=0;
//$ls_status=$io_report->dts_reporte->data["status"][$z];
$ld_monto_actualizado=$ld_previsto+$ld_aumento-$ld_disminucion-$ld_devengado;
$ld_por_cobrar=$ld_devengado-$ld_cobrado;
if($ls_nivel==1)
{
$ld_total_previsto=$ld_total_previsto+$ld_previsto;
$ld_total_aumento=$ld_total_aumento+$ld_aumento;
$ld_total_disminucion=$ld_total_disminucion+$ld_disminucion;
$ld_total_devengado=$ld_total_devengado+$ld_devengado;
$ld_total_cobrado=$ld_total_cobrado+$ld_cobrado;
$ld_total_cobrado_anticipado=$ld_total_cobrado_anticipado+$ld_cobrado_anticipado;
$ld_total_monto_actualizado=$ld_total_monto_actualizado+$ld_monto_actualizado;
$ld_total_por_cobrar=$ld_total_por_cobrar+$ld_por_cobrar;
}
$ld_previsto=number_format($ld_previsto,2,",",".");
$ld_aumento=number_format($ld_aumento,2,",",".");
$ld_disminucion=number_format($ld_disminucion,2,",",".");
$ld_devengado=number_format($ld_devengado,2,",",".");
$ld_cobrado=number_format($ld_cobrado,2,",",".");
$ld_cobrado_anticipado=number_format($ld_cobrado_anticipado,2,",",".");
$ld_monto_actualizado=number_format($ld_monto_actualizado,2,",",".");
$ld_por_cobrar=number_format($ld_por_cobrar,2,",",".");
$la_data1[$j]=array('cuenta'=>$ls_spi_cuenta,'denominacion'=>$ls_denominacion,'previsto'=>$ld_previsto,
'aumento'=>$ld_aumento,'disminución'=>$ld_disminucion,'devengado'=>$ld_devengado,
'cobrado'=>$ld_cobrado,'cobrado_anticipado'=>$ld_cobrado_anticipado,
'montoactualizado'=>$ld_monto_actualizado,'porcobrar'=>$ld_por_cobrar);
$ld_previsto=str_replace('.','',$ld_previsto);
$ld_previsto=str_replace(',','.',$ld_previsto);
$ld_aumento=str_replace('.','',$ld_aumento);
$ld_aumento=str_replace(',','.',$ld_aumento);
$ld_disminucion=str_replace('.','',$ld_disminucion);
$ld_disminucion=str_replace(',','.',$ld_disminucion);
$ld_monto_actualizado=str_replace('.','',$ld_monto_actualizado);
$ld_monto_actualizado=str_replace(',','.',$ld_monto_actualizado);
$ld_devengado=str_replace('.','',$ld_devengado);
$ld_devengado=str_replace(',','.',$ld_devengado);
$ld_cobrado=str_replace('.','',$ld_cobrado);
$ld_cobrado=str_replace(',','.',$ld_cobrado);
$ld_cobrado_anticipado=str_replace('.','',$ld_cobrado_anticipado);
$ld_cobrado_anticipado=str_replace(',','.',$ld_cobrado_anticipado);
$ld_por_cobrar=str_replace('.','',$ld_por_cobrar);
$ld_por_cobrar=str_replace(',','.',$ld_por_cobrar);
$io_pdf->ezStopPageNumbers(1,1);
}// fin del for
$io_pdf->ezSetDy(-10);
$io_pdf->ezSetDy(-10);
uf_print_detalle($la_data1,$io_pdf); // Imprimimos el detalle
$ld_total_previsto=number_format($ld_total_previsto,2,",",".");
$ld_total_aumento=number_format($ld_total_aumento,2,",",".");
$ld_total_disminucion=number_format($ld_total_disminucion,2,",",".");
$ld_total_devengado=number_format($ld_total_devengado,2,",",".");
$ld_total_cobrado=number_format($ld_total_cobrado,2,",",".");
$ld_total_cobrado_anticipado=number_format($ld_total_cobrado_anticipado,2,",",".");
$ld_total_monto_actualizado=number_format($ld_total_monto_actualizado,2,",",".");
$ld_total_por_cobrar=number_format($ld_total_por_cobrar,2,",",".");
$la_data_tot[0]=array('total'=>'TOTAL','previsto'=>$ld_total_previsto,'aumento'=>$ld_total_aumento,
'disminución'=>$ld_total_disminucion,
'devengado'=>$ld_total_devengado,'cobrado'=>$ld_total_cobrado,
'cobrado_anticipado'=>$ld_total_cobrado_anticipado,
'montoactualizado'=>$ld_total_monto_actualizado,
'porcobrar'=>$ld_total_por_cobrar);
uf_print_pie_cabecera($la_data_tot,$io_pdf);
unset($la_data1);
unset($la_data_tot);
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 // Imprimimos el reporte
{
$lb_valido=$io_report->uf_spi_reporte_acumulado_cuentas($ldt_fecini,$ldt_fecfin,$ls_cmbnivel,$lb_subniv,$ai_MenorNivel);
$li_tot=$io_report->dts_reporte->getRowCount("spi_cuenta");// print $li_tot;
for($z=1;$z<=$li_tot;$z++)
{
$thisPageNum=$io_pdf->ezPageCount;
$ls_spi_cuenta=$io_report->dts_reporte->data["spi_cuenta"][$z];
$ls_denominacion=$io_report->dts_reporte->data["denominacion"][$z];
$ls_nivel=$io_report->dts_reporte->data["nivel"][$z];
$ld_previsto=$io_report->dts_reporte->data["previsto"][$z];
$ld_aumento=$io_report->dts_reporte->data["aumento"][$z];
$ld_disminucion=$io_report->dts_reporte->data["disminucion"][$z];
$ld_devengado=$io_report->dts_reporte->data["devengado"][$z];
$ld_cobrado=$io_report->dts_reporte->data["cobrado"][$z];
$ld_cobrado_anticipado=$io_report->dts_reporte->data["cobrado_anticipado"][$z];
$ls_status=$io_report->dts_reporte->data["status"][$z];
$ld_monto_actualizado=$ld_previsto+$ld_aumento-$ld_disminucion-$ld_devengado;
$ld_por_cobrar=$ld_devengado-$ld_cobrado;
if($ls_status=='C')
{
$ld_total_previsto=$ld_total_previsto+$ld_previsto;
$ld_total_aumento=$ld_total_aumento+$ld_aumento;
$ld_total_disminucion=$ld_total_disminucion+$ld_disminucion;
$ld_total_devengado=$ld_total_devengado+$ld_devengado;
$ld_total_cobrado=$ld_total_cobrado+$ld_cobrado;
$ld_total_cobrado_anticipado=$ld_total_cobrado_anticipado+$ld_cobrado_anticipado;
$ld_total_monto_actualizado=$ld_total_monto_actualizado+$ld_monto_actualizado;
$ld_total_por_cobrar=$ld_total_por_cobrar+$ld_por_cobrar;
}
$ld_previsto=number_format($ld_previsto,2,",",".");
$ld_aumento=number_format($ld_aumento,2,",",".");
$ld_disminucion=number_format($ld_disminucion,2,",",".");
$ld_devengado=number_format($ld_devengado,2,",",".");
$ld_cobrado=number_format($ld_cobrado,2,",",".");
$ld_cobrado_anticipado=number_format($ld_cobrado_anticipado,2,",",".");
$ld_monto_actualizado=number_format($ld_monto_actualizado,2,",",".");
$ld_por_cobrar=number_format($ld_por_cobrar,2,",",".");
$la_data[$z]=array('cuenta'=>$ls_spi_cuenta,'denominacion'=>$ls_denominacion,'previsto'=>$ld_previsto,
'aumento'=>$ld_aumento,'disminución'=>$ld_disminucion,'devengado'=>$ld_devengado,
'cobrado'=>$ld_cobrado,'cobrado_anticipado'=>$ld_cobrado_anticipado,
'montoactualizado'=>$ld_monto_actualizado,'porcobrar'=>$ld_por_cobrar);
$ld_previsto=str_replace('.','',$ld_previsto);
$ld_previsto=str_replace(',','.',$ld_previsto);
$ld_aumento=str_replace('.','',$ld_aumento);
$ld_aumento=str_replace(',','.',$ld_aumento);
$ld_disminucion=str_replace('.','',$ld_disminucion);
$ld_disminucion=str_replace(',','.',$ld_disminucion);
$ld_monto_actualizado=str_replace('.','',$ld_monto_actualizado);
$ld_monto_actualizado=str_replace(',','.',$ld_monto_actualizado);
$ld_devengado=str_replace('.','',$ld_devengado);
$ld_devengado=str_replace(',','.',$ld_devengado);
$ld_cobrado=str_replace('.','',$ld_cobrado);
$ld_cobrado=str_replace(',','.',$ld_cobrado);
$ld_cobrado_anticipado=str_replace('.','',$ld_cobrado_anticipado);
$ld_cobrado_anticipado=str_replace(',','.',$ld_cobrado_anticipado);
$ld_por_cobrar=str_replace('.','',$ld_por_cobrar);
$ld_por_cobrar=str_replace(',','.',$ld_por_cobrar);
if($z==$li_tot)
{
$ld_total_previsto=number_format($ld_total_previsto,2,",",".");
$ld_total_aumento=number_format($ld_total_aumento,2,",",".");
$ld_total_disminucion=number_format($ld_total_disminucion,2,",",".");
$ld_total_devengado=number_format($ld_total_devengado,2,",",".");
$ld_total_cobrado=number_format($ld_total_cobrado,2,",",".");
$ld_total_cobrado_anticipado=number_format($ld_total_cobrado_anticipado,2,",",".");
$ld_total_monto_actualizado=number_format($ld_total_monto_actualizado,2,",",".");
$ld_total_por_cobrar=number_format($ld_total_por_cobrar,2,",",".");
$la_data_tot[$z]=array('total'=>'TOTAL','previsto'=>$ld_total_previsto,'aumento'=>$ld_total_aumento,
'disminución'=>$ld_total_disminucion,
'devengado'=>$ld_total_devengado,'cobrado'=>$ld_total_cobrado,
'cobrado_anticipado'=>$ld_total_cobrado_anticipado,
'montoactualizado'=>$ld_total_monto_actualizado,
'porcobrar'=>$ld_total_por_cobrar);
}//if
}//for
//uf_print_cabecera($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);
$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);
}
unset($io_report);
unset($io_funciones);
?>