";
print "close();";
print "";
}
ini_set('memory_limit','1024M');
ini_set('max_execution_time ','0');
//--------------------------------------------------------------------------------------------------------------------------------
function uf_print_encabezado_pagina($as_titulo,$as_fecha,&$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/09/2006
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$io_encabezado=$io_pdf->openObject();
$io_pdf->saveState();
$io_pdf->line(10,40,578,40);
$io_pdf->addJpegFromFile('../../shared/imagebank/'.$_SESSION["ls_logo"],25,720,$_SESSION["ls_width"],$_SESSION["ls_height"]); // Agregar Logo
$li_tm=$io_pdf->getTextWidth(11,$as_titulo);
$tm=330-($li_tm/2);
$io_pdf->addText($tm,730,10,$as_titulo); // Agregar el título
$li_tm=$io_pdf->getTextWidth(11,$as_fecha);
$tm=330-($li_tm/2);
$io_pdf->addText($tm,720,10,$as_fecha); // Agregar el título
$io_pdf->addText(500,740,9,$_SESSION["ls_database"]);// Agrerar el nombre de la base de datos actual
$io_pdf->addText(500,730,9,date("d/m/Y")); // Agregar la Fecha
$io_pdf->addText(500,720,9,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($as_spg_cuenta,$as_denominacion,$as_programatica,$as_denestpro,$io_encabezado,&$io_pdf)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_cabecera
// Access: privates
// 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.Yozelin Barragán
// Fecha Creación: 26/09/2006
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//$io_encabezado=$io_pdf->openObject();
$io_pdf->ezSetY(710);
$io_pdf->saveState();
$la_data=array(array('name'=>'Cuenta '.$as_spg_cuenta.''),
array('name'=>'Denominacion '.$as_denominacion.'' ),
array('name'=>'Programatica '.$as_programatica.'' ),
array('name'=>' '.$as_denestpro.'' ));
$la_columna=array('name'=>'');
$la_config=array('showHeadings'=>0, // Mostrar encabezados
'showLines'=>1, // Mostrar Líneas
'fontSize' => 7, // Tamaño de Letras
'shaded'=>0, // Sombra entre líneas
'shadeCol'=>array(0.9,0.9,0.9),
'shadeCol2'=>array(0.9,0.9,0.9), // Color de la sombra
'xOrientation'=>'center', // Orientación de la tabla
'xPos'=>305, // Orientación de la tabla
'width'=>550, // Ancho de la tabla
'maxWidth'=>550); // Ancho Máximo de la tabla
$io_pdf->ezTable($la_data,$la_columna,'',$la_config);
$la_datatitulos= array(array('beneficiario'=>"Beneficiario",'concepto'=>"Concepto",'fecha'=>"Fecha ",
'procede'=>"Procede",'documento'=>"Documento",'monto'=>"Monto"));
$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
'shadeCol'=>array(0.9,0.9,0.9),
//'colGap'=>1, // separacion entre tablas
'width'=>550, // Ancho de la tabla
'maxWidth'=>550, // Ancho Máximo de la tabla
'xOrientation'=>'center', // Orientación de la tabla
'xPos'=>305, // Orientación de la tabla
'cols'=>array('beneficiario'=>array('justification'=>'center','width'=>100), // Justificación y ancho de la
'concepto'=>array('justification'=>'center','width'=>170), // Justificación y ancho de la
'fecha'=>array('justification'=>'center','width'=>60), // Justificación y ancho de la
'procede'=>array('justification'=>'center','width'=>50), // Justificación
'documento'=>array('justification'=>'center','width'=>70), // Justificación y ancho de la
'monto'=>array('justification'=>'center','width'=>100))); // Justificación y ancho de la
$la_columnas=array('beneficiario'=>'Beneficiario',
'concepto'=>'Concepto',
'fecha'=>'Fecha',
'procede'=>'Procede',
'documento'=>'Documento',
'monto'=>'Monto');
$io_pdf->ezTable($la_datatitulos,$la_columnas,'',$la_config);
unset($la_columnas);
unset($la_config);
$io_pdf->restoreState();
$io_pdf->closeObject();
$io_pdf->addObject($io_encabezado,'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/09/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'=>0, // Mostrar Líneas
'shaded'=>0, // Sombra entre líneas
'shadeCol'=>array(0.9,0.9,0.9),
'width'=>550, // Ancho de la tabla
'maxWidth'=>550, // Ancho Máximo de la tabla
'xOrientation'=>'center', // Orientación de la tabla
'xPos'=>305, // Orientación de la tabla
'cols'=>array('beneficiario'=>array('justification'=>'left','width'=>100), // Justificación y ancho de la
'concepto'=>array('justification'=>'left','width'=>170), // Justificación y ancho de la
'fecha'=>array('justification'=>'center','width'=>60), // Justificación y ancho de la
'procede'=>array('justification'=>'center','width'=>50), // Justificación
'documento'=>array('justification'=>'center','width'=>70), // Justificación y ancho de la
'monto'=>array('justification'=>'right','width'=>100))); // Justificación y ancho de la
$la_columnas=array('beneficiario'=>'Beneficiario',
'concepto'=>'Concepto',
'fecha'=>'Fecha',
'procede'=>'Procede',
'documento'=>'Documento',
'monto'=>'Monto');
$io_pdf->ezTable($la_data,$la_columnas,'',$la_config);
}// end function uf_print_detalle
//--------------------------------------------------------------------------------------------------------------------------------
//--------------------------------------------------------------------------------------------------------------------------------
function uf_print_pie_cabecera($ad_total_monto,&$io_pdf,$as_titulo)
{
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// 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/09/2006
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$la_datat=array(array('name'=>'______________________________________________________________________________________________________________'));
$la_columna=array('name'=>'');
$la_config=array('showHeadings'=>0, // Mostrar encabezados
'fontSize' => 9, // Tamaño de Letras
'showLines'=>0, // Mostrar Líneas
'shaded'=>0, // Sombra entre líneas
'xPos'=>340, // Orientación de la tabla
'width'=>630); // Ancho Máximo de la tabla
$io_pdf->ezTable($la_datat,$la_columna,'',$la_config);
$la_data[]=array('beneficiario'=>' ','concepto'=>'','fecha'=>'','procede'=>'',
'documento'=>''.$as_titulo.'','monto'=>$ad_total_monto);
$la_columnas=array('beneficiario'=>' ','concepto'=>'','fecha'=>'','procede'=>'','documento'=>'','monto'=>'');
$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
'colGap'=>2, // separacion entre tablas
'width'=>550, // Ancho de la tabla
'maxWidth'=>550, // Ancho Máximo de la tabla
'xOrientation'=>'center', // Orientación de la tabla
'xPos'=>305, // Orientación de la tabla
'cols'=>array('beneficiario'=>array('justification'=>'left','width'=>100), // Justificación y ancho de la
'concepto'=>array('justification'=>'left','width'=>170), // Justificación y ancho de la
'fecha'=>array('justification'=>'center','width'=>60), // Justificación y ancho de la
'procede'=>array('justification'=>'center','width'=>50), // Justificación
'documento'=>array('justification'=>'center','width'=>70), // Justificación y ancho de la
'monto'=>array('justification'=>'right','width'=>100))); // Justificación y ancho de la
$io_pdf->ezTable($la_data,$la_columnas,'',$la_config);
}// end function uf_print_pie_cabecera
//--------------------------------------------------------------------------------------------------------------------------------
require_once("../../shared/ezpdf/class.ezpdf.php");
require_once("sigesp_spg_funciones_reportes.php");
require_once("../../shared/class_folder/class_funciones.php");
require_once("../../shared/class_folder/class_fecha.php");
require_once("../../shared/class_folder/class_sql.php");
require_once("../../shared/class_folder/sigesp_include.php");
$io_include = new sigesp_include();
$io_connect = $io_include->uf_conectar();
$io_function_report = new sigesp_spg_funciones_reportes();
$io_function = new class_funciones() ;
$io_fecha = new class_fecha();
$io_sql = new class_sql($io_connect);
//-----------------------------------------------------------------------------------------------------------------------------
$ls_tipoformato=$_GET["tipoformato"];
global $ls_tipoformato;
global $la_data_tot_bsf;
global $la_data_tot;
if($ls_tipoformato==1)
{
require_once("sigesp_spg_reportes_class_bsf.php");
$io_report = new sigesp_spg_reportes_class_bsf();
}
else
{
require_once("sigesp_spg_reportes_class.php");
$io_report = new sigesp_spg_reportes_class();
}
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"];
$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"];
//------------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------- Parámetros para Filtar el Reporte --------------------------------------
$li_estmodest=$_SESSION["la_empresa"]["estmodest"];
$ldt_fecdes = $_GET["txtfecdes"];
$ldt_fechas = $_GET["txtfechas"];
$ls_cuentades_min=$_GET["txtcuentades"];
$ls_cuentahas_max=$_GET["txtcuentahas"];
if($ls_cuentades_min=="")
{
if($io_function_report->uf_spg_reporte_select_min_cuenta($ls_cuentades_min))
{
$ls_cuentades=$ls_cuentades_min;
}
else
{
print("");
}
}
else
{
$ls_cuentades=$ls_cuentades_min;
}
if($ls_cuentahas_max=="")
{
if($io_function_report->uf_spg_reporte_select_max_cuenta($ls_cuentahas_max))
{
$ls_cuentahas=$ls_cuentahas_max;
}
else
{
print("");
}
}
else
{
$ls_cuentahas=$ls_cuentahas_max;
}
$ls_codban=$_GET["txtcodban"];
$ls_ctaban=$_GET["txtcuenta"];
$ls_ckbfec=$_GET["ckbfec"];
$ls_ckbpro=$_GET["ckbproc"];
$ls_ckbdoc=$_GET["ckbdoc"];
$ls_ckbbene=$_GET["ckbbene"];
$ls_fechades=$io_function->uf_convertirfecmostrar($ldt_fecdes);
$ls_fechahas=$io_function->uf_convertirfecmostrar($ldt_fechas);
///////////////////////////////// SEGURIDAD //////////////////////////////////////////////////////////////////////////////////////////////////////////////
$ls_desc_event="Solicitud de Reporte Operacion por Banco desde la Fecha ".$ls_fechades." hasta ".$ls_fechahas." Desde la Cuenta ".$ls_cuentades." hasta ".$ls_cuentahas;
$io_function_report->uf_load_seguridad_reporte("SPG","sigesp_spg_r_operacion_por_banco.php",$ls_desc_event);
//////////////////////////////// SEGURIDAD ////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//---------------------------------------------------- Parámetros del encabezado ----------------------------------------------
$ls_titulo="PAGOS POR BANCO ";
$ls_fecha=" DESDE ".$ls_fechades." HASTA LA FECHA ".$ls_fechahas." ";
//--------------------------------------------------------------------------------------------------------------------------------
// Cargar el dts_cab con los datos de la cabecera del reporte( Selecciono todos comprobantes )
//$lb_valido=$io_report->uf_spg_reportes_operacion_por_banco($ldt_fecdes,$ldt_fechas,$ls_cuentades,$ls_cuentahas,$ls_codban,
// $ls_ctaban,$ls_ckbfec,$ls_ckbpro,$ls_ckbdoc,$ls_ckbbene);
$li_numrows = 0;
$rs_data = $io_report->uf_spg_reportes_operacion_por_banco($ldt_fecdes,$ldt_fechas,$ls_cuentades,$ls_cuentahas,
$ls_codban,$ls_ctaban,$ls_ckbfec,$ls_ckbpro,$ls_ckbdoc,
$ls_ckbbene,$lb_valido);
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('LETTER','portrait'); // Instancia de la clase PDF
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
$io_pdf->ezSetCmMargins(5,3,3,3); // Configuración de los margenes en centímetros
uf_print_encabezado_pagina($ls_titulo,$ls_fecha,$io_pdf); // Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
$ld_total_monto_general = 0;
$ls_spg_cuenta_ant = "";
$ld_total_monto = 0;
$li_numrows = $io_sql->num_rows($rs_data);
if ($li_numrows>0)
{
$z=0;
while ($row=$io_sql->fetch_row($rs_data))
{
$z++;
$ls_procede = $row["procede"];
$ls_numcom = $row["comprobante"];
$ls_fecmov = $row["fecha"];
$ls_fecmov = $io_function->uf_convertirfecmostrar($ls_fecmov);
$ls_codestpro = $row["codestpro"];
$ls_spg_cuenta = $row["spg_cuenta"];
$ls_dencuenta = $row["dencuenta"];
$ls_desmov = trim($row["desmov"]);
$ld_monmov = $row["monto"];
$ls_codban = $row["codban"];
$ls_nomban = $row["nomban"];
$ls_cod_pro = $row["cod_pro"];
$ls_ced_bene = $row["ced_bene"];
$ls_nomben = trim($row["nomproben"]);
$ls_tipo_destino = $row["tipo_destino"];
$ls_estcla = $row["estcla"];
$ls_codestpro1 = substr($ls_codestpro,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_codestpro,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_codestpro,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==1)
{
$ls_denestpro = $ls_denestpro1." , ".$ls_denestpro2." , ".$ls_denestpro3;
$ls_programatica=substr($ls_codestpro1,-$ls_loncodestpro1)."-".substr($ls_codestpro2,-$ls_loncodestpro2)."-".substr($ls_codestpro3,-$ls_loncodestpro3);
}
else
{
$ls_codestpro4=substr($ls_codestpro,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_codestpro,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_estcla );
$ls_denestpro5=trim($ls_denestpro5);
}
$ls_denestpro = $ls_denestpro1." , ".$ls_denestpro2." , ".$ls_denestpro3." , ".$ls_denestpro4." , ".$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);
}
if ($z==1)
{
$ls_spg_cuenta_ant = $ls_spg_cuenta;
$ld_total_monto = $ld_total_monto+$ld_monmov;
$ld_total_monto_general = $ld_total_monto_general+$ld_monmov;
$ld_monmov = number_format($ld_monmov,2,",",".");
$la_data[$z] = array('beneficiario'=>$ls_nomben,'concepto'=>$ls_desmov,
'fecha'=>$ls_fecmov,'procede'=>$ls_procede,
'documento'=>$ls_numcom,'monto'=>$ld_monmov);
$ld_monto = str_replace('.','',$ld_monmov);
$ld_monto = str_replace(',','.',$ld_monmov);
$io_encabezado=$io_pdf->openObject();
uf_print_cabecera($ls_spg_cuenta_ant,$ls_dencuenta,$ls_programatica,$ls_denestpro,$io_encabezado,$io_pdf);
uf_print_detalle($la_data,$io_pdf);
}
elseif($z<$li_numrows)
{
if ($ls_spg_cuenta!=$ls_spg_cuenta_ant)
{
$io_encabezado=$io_pdf->openObject();
uf_print_cabecera($ls_spg_cuenta_ant,$ls_dencuenta,$ls_programatica,$ls_denestpro,$io_encabezado,$io_pdf);
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$ld_totalmonto = $ld_total_monto;
$ld_total_monto = number_format($ld_total_monto,2,",",".");
if($ls_tipoformato==1)
{
uf_print_pie_cabecera($ld_total_monto,$io_pdf,'Total Bs.F.');
}
else
{
uf_print_pie_cabecera($ld_total_monto,$io_pdf,'Total Bs.');
}
$ld_total_monto=0;
$io_pdf->stopObject($io_encabezado);
//unset($la_data);
$io_pdf->ezNewPage(); // Insertar una nueva página
$ls_spg_cuenta_ant=$ls_spg_cuenta;
$ld_total_monto=$ld_total_monto+$ld_monmov;
$ld_total_monto_general=$ld_total_monto_general+$ld_monmov;
$ld_monmov=number_format($ld_monmov,2,",",".");
$la_data[$z]=array('beneficiario'=>$ls_nomben,'concepto'=>$ls_desmov,'fecha'=>$ls_fecmov,
'procede'=>$ls_procede,'documento'=>$ls_numcom,'monto'=>$ld_monmov);
$ld_monto=str_replace('.','',$ld_monmov);
$ld_monto=str_replace(',','.',$ld_monmov);
}
else
{
$ld_total_monto=$ld_total_monto+$ld_monmov;
$ld_total_monto_general=$ld_total_monto_general+$ld_monmov;
$ld_monmov=number_format($ld_monmov,2,",",".");
$la_data[$z]=array('beneficiario'=>$ls_nomben,'concepto'=>$ls_desmov,'fecha'=>$ls_fecmov,'procede'=>$ls_procede,'documento'=>$ls_numcom,'monto'=>$ld_monmov);
$ld_monto=str_replace('.','',$ld_monmov);
$ld_monto=str_replace(',','.',$ld_monmov);
}
}
else
{
if ($ls_spg_cuenta!=$ls_spg_cuenta_ant)
{
$io_encabezado=$io_pdf->openObject();
uf_print_cabecera($ls_spg_cuenta_ant,$ls_dencuenta,$ls_programatica,$ls_denestpro,$io_encabezado,$io_pdf);
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$ld_totalmonto = $ld_total_monto;
$ld_total_monto = number_format($ld_total_monto,2,",",".");
if($ls_tipoformato==1)
{
uf_print_pie_cabecera($ld_total_monto,$io_pdf,'Total Bs.F.');
}
else
{
uf_print_pie_cabecera($ld_total_monto,$io_pdf,'Total Bs.');
}
$ld_total_monto=0;
// unset($la_data);
$ls_spg_cuenta_ant=$ls_spg_cuenta;
$ld_total_monto=$ld_total_monto+$ld_monmov;
$ld_total_monto_general=$ld_total_monto_general+$ld_monmov;
$ld_monmov=number_format($ld_monmov,2,",",".");
$la_data[$z]=array('beneficiario'=>$ls_nomben,'concepto'=>$ls_desmov,'fecha'=>$ls_fecmov,
'procede'=>$ls_procede,'documento'=>$ls_numcom,'monto'=>$ld_monmov);
}
else
{
$io_encabezado=$io_pdf->openObject();
uf_print_cabecera($ls_spg_cuenta_ant,$ls_dencuenta,$ls_programatica,$ls_denestpro,$io_encabezado,$io_pdf);
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$ld_totalmonto = $ld_total_monto;
$ld_total_monto = number_format($ld_total_monto,2,",",".");
if($ls_tipoformato==1)
{
uf_print_pie_cabecera($ld_total_monto,$io_pdf,'Total Bs.F.');
}
else
{
uf_print_pie_cabecera($ld_total_monto,$io_pdf,'Total Bs.');
}
$ld_total_monto=0;
// unset($la_data);
$ls_spg_cuenta_ant=$ls_spg_cuenta;
$ld_total_monto=$ld_total_monto+$ld_monmov;
$ld_total_monto_general=$ld_total_monto_general+$ld_monmov;
$ld_monmov=number_format($ld_monmov,2,",",".");
$la_data[$z]=array('beneficiario'=>$ls_nomben,'concepto'=>$ls_desmov,'fecha'=>$ls_fecmov,
'procede'=>$ls_procede,'documento'=>$ls_numcom,'monto'=>$ld_monmov);
}
}
if ($z==$li_numrows)
{// Imprimimos pie de la cabecera
if($ls_tipoformato==1)
{
$ld_total_monto_general=number_format($ld_total_monto_general,2,",",".");
uf_print_pie_cabecera($ld_total_monto_general,$io_pdf,'Total Bs.');
}
else
{
$ld_total_monto_general_bsf = $io_rcbsf->uf_convertir_monedabsf($ld_total_monto_general, $li_candeccon,$li_tipconmon,1000,$li_redconmon);
$ld_total_monto_general_bsf=number_format($ld_total_monto_general_bsf,2,",",".");
$ld_total_monto_general=number_format($ld_total_monto_general,2,",",".");
//Bolivares
uf_print_pie_cabecera($ld_total_monto_general,$io_pdf,'Total Bs.');
//Bolivares
//uf_print_pie_cabecera($ld_total_monto_general_bsf,$io_pdf,'Total Bs.F.');
}
}
}
}
else
{
print("");
}
/*for ($z=1;$z<=$li_numrows;$z++)
{
$li_tmp=($z+1);
$io_pdf->transaction('start'); // Iniciamos la transacción
$thisPageNum=$io_pdf->ezPageCount;
$ls_spg_cuenta=trim($io_report->dts_reporte_final->data["spg_cuenta"][$z]);
$ls_den_spg_cta=trim($io_report->dts_reporte_final->data["denominacion"][$z]);
$ls_programatica=$io_report->dts_reporte_final->data["programatica"][$z];
if ($li_estmodest==1)
{
$ls_codestpro1=substr($ls_programatica,0,20);
$ls_denestpro1="";
$lb_valido=$io_function_report->uf_spg_reporte_select_denestpro1($ls_codestpro1,$ls_denestpro1);
if ($lb_valido)
{
$ls_denestpro1=trim($ls_denestpro1);
}
$ls_codestpro2=substr($ls_programatica,20,6);
if($lb_valido)
{
$ls_denestpro2="";
$lb_valido=$io_function_report->uf_spg_reporte_select_denestpro2($ls_codestpro1,$ls_codestpro2,$ls_denestpro2);
$ls_denestpro2=trim($ls_denestpro2);
}
$ls_codestpro3=substr($ls_programatica,26,3);
if($lb_valido)
{
$ls_denestpro3="";
$lb_valido=$io_function_report->uf_spg_reporte_select_denestpro3($ls_codestpro1,$ls_codestpro2,$ls_codestpro3, $ls_denestpro3);
$ls_denestpro3=trim($ls_denestpro3);
}
$ls_denestpro=$ls_denestpro1." , ".$ls_denestpro2." , ".$ls_denestpro3;
}
else
{
$ls_codestpro1=substr($ls_programatica,0,20);
$ls_denestpro1="";
$lb_valido=$io_function_report->uf_spg_reporte_select_denestpro1($ls_codestpro1,$ls_denestpro1);
if($lb_valido)
{
$ls_denestpro1=trim($ls_denestpro1);
}
$ls_codestpro2=substr($ls_programatica,20,6);
if($lb_valido)
{
$ls_denestpro2="";
$lb_valido=$io_function_report->uf_spg_reporte_select_denestpro2($ls_codestpro1,$ls_codestpro2,$ls_denestpro2);
$ls_denestpro2=trim($ls_denestpro2);
}
$ls_codestpro3=substr($ls_programatica,26,3);
if($lb_valido)
{
$ls_denestpro3="";
$lb_valido=$io_function_report->uf_spg_reporte_select_denestpro3($ls_codestpro1,$ls_codestpro2,$ls_codestpro3, $ls_denestpro3);
$ls_denestpro3=trim($ls_denestpro3);
}
$ls_codestpro4=substr($ls_programatica,29,2);
if($lb_valido)
{
$ls_denestpro4="";
$lb_valido=$io_function_report->uf_spg_reporte_select_denestpro3($ls_codestpro1,$ls_codestpro2,$ls_codestpro3, $ls_codestpro4,$ls_denestpro4);
$ls_denestpro4=trim($ls_denestpro4);
}
$ls_codestpro5=substr($ls_programatica,31,2);
if($lb_valido)
{
$ls_denestpro5="";
$lb_valido=$io_function_report->uf_spg_reporte_select_denestpro3($ls_codestpro1,$ls_codestpro2,$ls_codestpro3, $ls_codestpro4,$ls_codestpro5,$ls_denestpro5);
$ls_denestpro5=trim($ls_denestpro5);
}
$ls_denestpro=$ls_denestpro1." , ".$ls_denestpro2." , ".$ls_denestpro3." , ".$ls_denestpro4." , ".$ls_denestpro5;
}
$ls_nom_benef=trim($io_report->dts_reporte_final->data["nomproben"][$z]);
$ldt_fecha=$io_report->dts_reporte_final->data["fecha"][$z];
$ldt_fecha=$io_function->uf_convertirfecmostrar($ldt_fecha);
$ls_descripcion=trim($io_report->dts_reporte_final->data["desmov"][$z]);
$ls_procede=$io_report->dts_reporte_final->data["procede"][$z];
$ls_comprobante=$io_report->dts_reporte_final->data["comprobante"][$z];
$ld_monto=$io_report->dts_reporte_final->data["monto"][$z];
if ($z<$li_tot)
{
$ls_spg_cuenta_next=$io_report->dts_reporte_final->data["spg_cuenta"][$li_tmp];
}
elseif($z=$li_tot)
{
$ls_spg_cuenta_next='no_next';
}
if(empty($ls_spg_cuenta_next)&&(!empty($ls_spg_cuenta)))
{
$ls_spg_cuenta_ant=$io_report->dts_reporte_final->data["spg_cuenta"][$z];
}
if($li_tot==1)
{
$ls_spg_cuenta_ant=$io_report->dts_reporte_final->data["spg_cuenta"][$z];
}
$ld_total_monto=$ld_total_monto+$ld_monto;
$ld_total_monto_general=$ld_total_monto_general+$ld_monto;
if (!empty($ls_spg_cuenta))
{
$ld_monto=number_format($ld_monto,2,",",".");
$la_data[$z]=array('beneficiario'=>$ls_nom_benef,'concepto'=>$ls_descripcion,'fecha'=>$ldt_fecha,
'procede'=>$ls_procede,'documento'=>$ls_comprobante,'monto'=>$ld_monto);
$ld_monto=str_replace('.','',$ld_monto);
$ld_monto=str_replace(',','.',$ld_monto);
}
else
{
$ld_monto=number_format($ld_monto,2,",",".");
$la_data[$z]=array('beneficiario'=>$ls_nom_benef,'concepto'=>$ls_descripcion,'fecha'=>$ldt_fecha,
'procede'=>$ls_procede,'documento'=>$ls_comprobante,'monto'=>$ld_monto);
$ld_monto=str_replace('.','',$ld_monto);
$ld_monto=str_replace(',','.',$ld_monto);
}
if (!empty($ls_spg_cuenta_next))
{
$ld_monto=number_format($ld_monto,2,",",".");
$la_data[$z]=array('beneficiario'=>$ls_nom_benef,'concepto'=>$ls_descripcion,'fecha'=>$ldt_fecha,
'procede'=>$ls_procede,'documento'=>$ls_comprobante,'monto'=>$ld_monto);
uf_print_cabecera($ls_spg_cuenta_ant,$ls_den_spg_cta,$ls_programatica,$ls_denestpro,$io_pdf);
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$ld_totalmonto=$ld_total_monto;
$ld_total_monto=number_format($ld_total_monto,2,",",".");
uf_print_pie_cabecera($ld_total_monto,$io_pdf);
$ld_total_monto=0;
if ($io_pdf->ezPageCount==$thisPageNum)
{// Hacemos el commit de los registros que se desean imprimir
$io_pdf->transaction('commit');
}
else
{// Hacemos un rollback de los registros, agregamos una nueva página y volvemos a imprimir
/*$io_pdf->transaction('rewind');
$io_pdf->ezNewPage(); // Insertar una nueva página
uf_print_cabecera($ls_spg_cuenta_ant,$ls_den_spg_cta,$ls_programatica,$ls_denestpro,$io_pdf);
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$ld_totalmonto=number_format($ld_totalmonto,2,",",".");
uf_print_pie_cabecera($ld_totalmonto,$io_pdf);
$ld_totalmonto=0;/*/
// }
/* if($z==$li_tot)
{
// Imprimimos pie de la cabecera
$ld_total_monto_general=number_format($ld_total_monto_general,2,",",".");
uf_print_pie_cabecera($ld_total_monto_general,$io_pdf);
}
unset($la_data); */
//}//if
//}//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);
}
unset($io_report);
unset($io_funciones);
unset($io_function_report);
?>