";
print "opener.document.form1.submit();" ;
print "close();";
print "";
}
//--------------------------------------------------------------------------------------------------------------------------------
function uf_print_encabezado_pagina($ldec_monto,$ls_nomproben,$ls_monto,$ls_fecha,&$io_pdf)
{
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_encabezado_pagina
// Acess: private
// Arguments: ldec_monto : Monto del cheque
// ls_nomproben: Nombre del proveedor o beneficiario
// ls_monto : Monto en letras
// ls_fecha : Fecha del cheque
// io_pdf : Instancia de objeto pdf
// Description: función que imprime los encabezados por página
// Creado Por: Ing. Nelson Barraez
// Fecha Creación: 25/04/2006
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//Imprimo el monto
$la_data=array(array('1'=>' ','2'=>' ','monto'=>"***".$ldec_monto."***",'4'=>' '),array('1'=>' ','2'=>' ','monto'=>'','4'=>' '));
$la_columna=array('1'=>' ','2'=>' ','monto'=>'','4'=>' ');
$la_config=array('showHeadings'=>0, // Mostrar encabezados
'showLines'=>0, // 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'=>580, // Ancho de la tabla
'maxWidth'=>580,
'cols'=>array('1'=>array('justification'=>'left','width'=>190),'2'=>array('justification'=>'left','width'=>190),
'monto'=>array('justification'=>'left','width'=>150),'4'=>array('justification'=>'left','width'=>50))); // Ancho Máximo de la tabla
$io_pdf->ezTable($la_data,$la_columna,'',$la_config);
//Imprimo los datos del cheque
$la_data=array(array('space'=>'','data'=>' '),
array('space'=>'','data'=>$ls_nomproben),
array('space'=>'','data'=>$ls_monto),
array('space'=>'','data'=>' '),
array('space'=>'','data'=>$ls_fecha));
$la_columna=array('space'=>'','data'=>'');
$la_config=array('showHeadings'=>0, // Mostrar encabezados
'showLines'=>0, // 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'=>580, // Ancho de la tabla
'maxWidth'=>580,
'cols'=>array('space'=>array('justification'=>'left','width'=>60),'data'=>array('justification'=>'left','width'=>520))); // Ancho Máximo de la tabla
$io_pdf->ezTable($la_data,$la_columna,'',$la_config);
//Imprimo los datos de endoso
$la_data=array(array('1'=>' ','caduca'=>' ','3'=>' '),array('1'=>' ','caduca'=>'No Endosable','3'=>' '),array('1'=>' ','caduca'=>'Caduca a los 60 dias','3'=>' '),array('1'=>' ','caduca'=>' ','3'=>' '),array('1'=>' ','caduca'=>' ','3'=>' '));
$la_columna=array('1'=>' ','caduca'=>' ','3'=>'');
$la_config=array('showHeadings'=>0, // Mostrar encabezados
'showLines'=>0, // 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'=>580, // Ancho de la tabla
'maxWidth'=>580,
'cols'=>array('1'=>array('justification'=>'left','width'=>160),'caduca'=>array('justification'=>'center','width'=>200),
'3'=>array('justification'=>'left','width'=>220))); // Ancho Máximo de la tabla
$io_pdf->ezTable($la_data,$la_columna,'',$la_config);
}// end function uf_print_encabezadopagina
//--------------------------------------------------------------------------------------------------------------------------------
//--------------------------------------------------------------------------------------------------------------------------------
function uf_print_cabecera($ls_numdoc,$ls_nomban,$ls_ctaban,$ls_chevau,$ls_nomproben,$ls_solicitudes,$ls_conmov,&$io_pdf)
{
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_cabecera
// Access: private
// Arguments: ls_numdoc : Numero de documento
// ls_nomban : Nombre del banco
// ls_cbtan : Cuenta del banco
// ls_chevau : Voucher del cheuqe
// ls_nomproben: Nombre del proveedor o beneficiario
// ls_solicitudes: Solicitudes canceladas con el cheque
// io_pdf // total de registros que va a tener el reporte
// Description: función que imprime los datos basicos del cheque
// Creado Por: Ing. Nelson Barraez
// Fecha Creación: 24/04/2006
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$la_data=array(array('banco'=>'Banco ','cheque'=>'Cheque Nº ','cuenta'=>'Cuenta Nº: ','voucher'=>'Voucher Nº: '),
array('banco'=>$ls_nomban,'cheque'=>$ls_numdoc,'cuenta'=>$ls_ctaban,'voucher'=>$ls_chevau));
$la_columna=array('banco'=>'','cheque'=>'','cuenta'=>'','voucher'=>'');
$la_config=array('showHeadings'=>0, // Mostrar encabezados
'showLines'=>1, // 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'=>580, // Ancho de la tabla
'maxWidth'=>580,
'cols'=>array('banco'=>array('justification'=>'left','width'=>160),'cheque'=>array('justification'=>'left','width'=>100),
'cuenta'=>array('justification'=>'left','width'=>160),'voucher'=>array('justification'=>'left','width'=>160))); // Ancho Máximo de la tabla
$io_pdf->ezTable($la_data,$la_columna,'',$la_config);
$la_data=array(array('ordenes'=>'Orden(es) de Pago(s): '.$ls_solicitudes),
array('ordenes'=>'Beneficiario: '.$ls_nomproben),
array('ordenes'=>'Concepto: '.$ls_conmov));
$la_columna=array('ordenes'=>'');
$la_config=array('showHeadings'=>0, // Mostrar encabezados
'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'=>580, // Ancho de la tabla
'maxWidth'=>580,
'cols'=>array('ordenes'=>array('justification'=>'left','width'=>580))); // Ancho Máximo de la tabla
$io_pdf->ezTable($la_data,$la_columna,'',$la_config);
}// end function uf_print_cabecera
//--------------------------------------------------------------------------------------------------------------------------------
//--------------------------------------------------------------------------------------------------------------------------------
function uf_print_detalle($la_title,$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. Nelson Barraez
// Fecha Creación: 24/04/2006
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_fun_nomina;
$la_data_title=array($la_title);
$la_columna=array('title'=>'','title2'=>'');
$la_config=array('showHeadings'=>0, // Mostrar encabezados
'showLines'=>1, // 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'=>580, // Ancho de la tabla
'maxWidth'=>580,
'cols'=>array('title'=>array('justification'=>'center','width'=>330),'title2'=>array('justification'=>'center','width'=>250))); // Ancho Máximo de la tabla
$io_pdf->ezTable($la_data_title,$la_columna,'',$la_config);
//Imprimo los detalles tanto `de presupuesto como contablwe del movimiento
$la_config=array('showHeadings'=>1, // Mostrar encabezados
'fontSize' => 9, // Tamaño de Letras
'titleFontSize' => 12, // Tamaño de Letras de los títulos
'showLines'=>1, // Mostrar Líneas
'colGap'=>1, // Mostrar Líneas
'shaded'=>0, // Sombra entre líneas
'width'=>580, // Ancho de la tabla
'maxWidth'=>580, // Ancho Máximo de la tabla
'xPos'=>302, // Orientación de la tabla
'cols'=>array('estpro'=>array('justification'=>'center','width'=>160),
'spg_cuenta'=>array('justification'=>'center','width'=>80),
'monto_spg'=>array('justification'=>'right','width'=>90),
'scg_cuenta'=>array('justification'=>'center','width'=>80), // Justificación y ancho de la columna
'debe'=>array('justification'=>'right','width'=>85), // Justificación y ancho de la columna
'haber'=>array('justification'=>'right','width'=>85))); // Justificación y ancho de la columna
$la_columnas=array('estpro'=>'Programática',
'spg_cuenta'=>'Cuenta',
'monto_spg'=>'Monto',
'scg_cuenta'=>'Cuenta',
'debe'=>'Debe',
'haber'=>'Haber');
$io_pdf->ezTable($la_data,$la_columnas,'',$la_config);
$io_pdf->ezText(' ',10);//Inserto una linea en blanco
}// end function uf_print_detalle
//--------------------------------------------------------------------------------------------------------------------------------
function uf_print_autorizacion(&$io_pdf)
{
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_autorizacion
// Acess: private
// Arguments: io_pdf // Objeto PDF
// Description: función el final del voucher
// Creado Por: Ing. Nelson Barraez
// Fecha Creación: 25/04/2006
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_fun_nomina;
$la_data[0]=array('elaborado'=>'Elaborado por:','revisado'=>'Revisado por:','presupuesto'=>'Presupuesto','administracion'=>'Gerencia General de Gestión Administrativa','presidencia'=>'Presidencia');
$la_data[1]=array('elaborado'=>'','revisado'=>'','presupuesto'=>'','administracion'=>'','presidencia'=>'');
$la_data[2]=array('elaborado'=>'','revisado'=>'','presupuesto'=>'','administracion'=>'','presidencia'=>'');
$la_data[3]=array('elaborado'=>'','revisado'=>'','presupuesto'=>'','administracion'=>'','presidencia'=>'');
$la_config=array('showHeadings'=>0, // Mostrar encabezados
'fontSize' => 9, // Tamaño de Letras
'titleFontSize' => 12, // Tamaño de Letras de los títulos
'showLines'=>1, // Mostrar Líneas
'shaded'=>0, // Sombra entre líneas
'width'=>580, // Ancho de la tabla
'maxWidth'=>580, // Ancho Máximo de la tabla
'xOrientation'=>'center', // Orientación de la tabla
'cols'=>array('elaborado'=>array('justification'=>'left','width'=>116),
'revisado'=>array('justification'=>'left','width'=>116),
'presupuesto'=>array('justification'=>'center','width'=>116),
'administracion'=>array('justification'=>'center','width'=>116), // Justificación y ancho de la columna
'presidencia'=>array('justification'=>'center','width'=>116))); // Justificación y ancho de la columna
$la_columnas=array('elaborado'=>'','revisado'=>'','presupuesto'=>'','administracion'=>'','presidencia'=>'');
$io_pdf->ezTable($la_data,$la_columnas,'',$la_config);
$la_data=array(array('title'=>'Recibi Conforme '));
$la_columna=array('title'=>'');
$la_config=array('showHeadings'=>0, // Mostrar encabezados
'showLines'=>1, // 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'=>580, // Ancho de la tabla
'maxWidth'=>580,
'cols'=>array('title'=>array('justification'=>'center','width'=>580))); // Ancho Máximo de la tabla
$io_pdf->ezTable($la_data,$la_columna,'',$la_config);
$la_data=array(array('nombre'=>'Nombre: ','cedula'=>'Cedula de Identidad: ','fecha'=>'Fecha: ','firma'=>'Firma: '),
array('nombre'=>'','cedula'=>'','fecha'=>'','firma'=>''));
$la_columna=array('nombre'=>'','cedula'=>'','fecha'=>'','firma'=>'');
$la_config=array('showHeadings'=>0, // Mostrar encabezados
'showLines'=>1, // 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'=>580, // Ancho de la tabla
'maxWidth'=>580,
'cols'=>array('nombre'=>array('justification'=>'left','width'=>180),'cedula'=>array('justification'=>'left','width'=>120),
'fecha'=>array('justification'=>'left','width'=>100),'firma'=>array('justification'=>'left','width'=>180))); // Ancho Máximo de la tabla
$io_pdf->ezTable($la_data,$la_columna,'',$la_config);
$io_pdf->ezText(' ',10);
}// end function uf_print_detalle
function uf_convertir($ls_numero)
{
$ls_numero=str_replace(".","",$ls_numero);
$ls_numero=str_replace(",",".",$ls_numero);
return $ls_numero;
}
//--------------------------------------------------------------------------------------------------------------------------------
require_once("../../shared/ezpdf/class.ezpdf.php");
require_once("../../shared/class_folder/class_funciones.php");
require_once("../../shared/class_folder/sigesp_include.php");
require_once("../../shared/class_folder/class_datastore.php");
require_once("../../shared/class_folder/class_sql.php");
$in=new sigesp_include();
$con=$in->uf_conectar();
$io_sql=new class_sql($con);
require_once("sigesp_scb_report.php");
$class_report=new sigesp_scb_report($con);
$io_funciones=new class_funciones();
$ds_voucher=new class_datastore();
$ds_dt_scg=new class_datastore();
$ds_dt_spg=new class_datastore();
//Instancio a la clase de conversión de numeros a letras.
include("../../shared/class_folder/class_numero_a_letra.php");
$numalet= new class_numero_a_letra();
//imprime numero con los valore por defecto
//cambia a minusculas
$numalet->setMayusculas(1);
//cambia a femenino
$numalet->setGenero(1);
//cambia moneda
$numalet->setMoneda("Bolivares");
//cambia prefijo
$numalet->setPrefijo("***");
//cambia sufijo
$numalet->setSufijo("***");
//imprime numero con los cambios
$ls_tipimp = "";
if (array_key_exists("tipimp",$_GET))
{
$ls_tipimp = $_GET["tipimp"];
}
if ($ls_tipimp=='lote')
{
$ls_codemp =$_SESSION["la_empresa"]["codemp"];
$ls_codban = $_GET["codban"];
$ls_ctaban = $_GET["ctaban"];
$ls_documentos = $_GET["documentos"];
$ls_fechas = $_GET["fechas"];
$ld_fecdes = $_GET["fecdesde"];
$ld_fechas = $_GET["fechasta"];
$ls_operaciones = $_GET["operaciones"];
//Descompongo la cadena de documentos en un arreglo tomando como separación el ','
$arr_documentos = split(",",$ls_documentos);
$li_totdoc = count($arr_documentos);
//Descompongo la cadena de fechas en un arreglo tomando como separación el '-'
$arr_fecmov = split("-",$ls_fechas);
$li_totfec = count($arr_fecmov);
//Descompongo la cadena de operaciones en un arreglo tomando como separación el '-'
$arr_operaciones = split("-",$ls_operaciones);
$li_totdoc = count($arr_operaciones);
$class_report->uf_buscar_cheques_vouchers($arr_documentos,$arr_fecmov,$arr_operaciones,$ls_codban,$ls_ctaban);
$li_total = $class_report->ds_voucher1->getRowCount("numdoc");
if ($li_total>0)
{
//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(0.5,3.5,1,1); // Configuración de los margenes en centímetros
$io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
for ($i=1;$i<=$li_total;$i++)
{
$ls_numdoc=$class_report->ds_voucher1->getValue("numdoc",$i);
$ls_chevau=$class_report->ds_voucher1->getValue("chevau",$i);
$ls_codope='CH';
$data=$class_report->uf_cargar_chq_voucher($ls_numdoc,$ls_chevau,$ls_codban,$ls_ctaban,$ls_codope);
$class_report->SQL->begin_transaction();
$lb_valido=$class_report->uf_actualizar_status_impreso($ls_numdoc,$ls_chevau,$ls_codban,$ls_ctaban,$ls_codope);
if(!$lb_valido)
{
print "Error al actualizar";
$class_report->is_msg_error;
$class_report->SQL->rollback();
}
else
{
$class_report->SQL->commit();
}
$ds_voucher->data=$data;
$li_totrow=$ds_voucher->getRowCount("numdoc");
$io_pdf->transaction('start'); // Iniciamos la transacción
$thisPageNum=$io_pdf->ezPageCount;
for($li_i=1;$li_i<=$li_totrow;$li_i++)
{
unset($la_data);
$li_totprenom=0;
$ldec_mondeb=0;
$ldec_monhab=0;
$li_totant=0;
$ls_numdoc = $ds_voucher->data["numdoc"][$li_i];
$ls_codban = $ds_voucher->data["codban"][$li_i];
$ls_nomban = $class_report->uf_select_data($io_sql,"SELECT * FROM scb_banco WHERE codban ='".$ls_codban."' AND codemp='".$ls_codemp."'","nomban");
$ls_ctaban = trim($ds_voucher->data["ctaban"][$li_i]);
$ls_chevau = $ds_voucher->data["chevau"][$li_i];
$ld_fecmov = $io_funciones->uf_convertirfecmostrar($ds_voucher->data["fecmov"][$li_i]);
$ls_nomproben=$ds_voucher->data["nomproben"][$li_i];
$ls_solicitudes=$class_report->uf_select_solicitudes($ls_numdoc,$ls_codban,$ls_ctaban);
$ls_conmov=$ds_voucher->getValue("conmov",$li_i);
$ldec_monret=$ds_voucher->getValue("monret",$li_i);
$ldec_monto=$ds_voucher->getValue("monto",$li_i);
$ldec_total=$ldec_monto-$ldec_monret;
//Asigno el monto a la clase numero-letras para la conversion.
$numalet->setNumero($ldec_total);
//Obtengo el texto del monto enviado.
$ls_monto= $numalet->letra();
uf_print_encabezado_pagina(number_format($ldec_total,2,",","."),$ls_nomproben,$ls_monto,$_SESSION["la_empresa"]["ciuemp"].", ".$ld_fecmov,$io_pdf); // Imprimimos el encabezado de la página
uf_print_cabecera($ls_numdoc,$ls_nomban,$ls_ctaban,$ls_chevau,$ls_nomproben,$ls_solicitudes,$ls_conmov,$io_pdf); // Imprimimos la cabecera del registro
$ds_dt_scg->data=$class_report->uf_cargar_dt_scg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope); // Obtenemos el detalle del reporte
$ds_dt_spg->data=$class_report->uf_cargar_dt_spg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope);
$li_totrow_det=$ds_dt_scg->getRowCount("scg_cuenta");
$li_totrow_spg=$ds_dt_spg->getRowCount("spg_cuenta");
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Hago un ciclo para unir en una sola matriz los detalles de presupuesto y los contables para proceder luego a pintarlos
if($li_totrow_det>=$li_totrow_spg)
{
for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$ls_scg_cuenta = trim($ds_dt_scg->data["scg_cuenta"][$li_s]);
$ls_debhab = $ds_dt_scg->data["debhab"][$li_s];
$ldec_monto = $ds_dt_scg->data["monto"][$li_s];
if($ls_debhab=='D')
{
$ldec_mondeb=number_format($ldec_monto,2,",",".");
$ldec_monhab=" ";
}
else
{
$ldec_monhab=number_format($ldec_monto,2,",",".");
$ldec_mondeb=" ";
}
if(array_key_exists("spg_cuenta",$ds_dt_spg->data))
{
if(array_key_exists($li_s,$ds_dt_spg->data["spg_cuenta"]))
{
$ls_cuentaspg = trim($ds_dt_spg->getValue("spg_cuenta",$li_s));
$ls_estpro = trim($ds_dt_spg->getValue("estpro",$li_s));
$ldec_monto_spg = number_format($ds_dt_spg->getValue("monto",$li_s),2,",",".");
}
else
{
$ls_cuentaspg=" ";
$ls_estpro=" ";
$ldec_monto_spg=" ";
}
}
else
{
$ls_cuentaspg=" ";
$ls_estpro=" ";
$ldec_monto_spg=" ";
}
$la_data[$li_s]=array('spg_cuenta'=>$ls_cuentaspg,'estpro'=>$ls_estpro,'monto_spg'=>$ldec_monto_spg,'scg_cuenta'=>$ls_scg_cuenta,'debe'=>$ldec_mondeb,'haber'=>$ldec_monhab);
}
}
if($li_totrow_spg>$li_totrow_det)
{
for($li_s=1;$li_s<=$li_totrow_spg;$li_s++)
{
if(array_key_exists("scg_cuenta",$ds_dt_scg->data))
{
if(array_key_exists($li_s,$ds_dt_scg->data["scg_cuenta"]))
{
$ls_scg_cuenta=trim($ds_dt_scg->data["scg_cuenta"][$li_s]);
$ls_debhab = $ds_dt_scg->data["debhab"][$li_s];
$ldec_monto= $ds_dt_scg->data["monto"][$li_s];
if($ls_debhab=='D')
{
$ldec_mondeb=number_format($ldec_monto,2,",",".");
$ldec_monhab=" ";
}
else
{
$ldec_monhab=number_format($ldec_monto,2,",",".");
$ldec_mondeb=" ";
}
}
else
{
$ls_scg_cuenta="";
$ls_debhab = "";
$ldec_monto= "";
$ldec_mondeb="";
$ldec_monhab="";
}
}
else
{
$ls_scg_cuenta="";
$ls_debhab = "";
$ldec_monto= "";
$ldec_mondeb="";
$ldec_monhab="";
}
if(array_key_exists("spg_cuenta",$ds_dt_spg->data))
{
if(array_key_exists($li_s,$ds_dt_spg->data["spg_cuenta"]))
{
$ls_cuentaspg = trim($ds_dt_spg->getValue("spg_cuenta",$li_s));
$ls_estpro = trim($ds_dt_spg->getValue("estpro",$li_s));
$ldec_monto_spg = number_format($ds_dt_spg->getValue("monto",$li_s),2,",",".");
}
else
{
$ls_cuentaspg=" ";
$ls_estpro=" ";
$ldec_monto_spg=" ";
}
}
else
{
$ls_cuentaspg=" ";
$ls_estpro=" ";
$ldec_monto_spg=" ";
}
$la_data[$li_s]=array('spg_cuenta'=>$ls_cuentaspg,'estpro'=>$ls_estpro,'monto_spg'=>$ldec_monto_spg,'scg_cuenta'=>$ls_scg_cuenta,'debe'=>$ldec_mondeb,'haber'=>$ldec_monhab);
}
}
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if(empty($la_data))
{
$ls_cuentaspg='';
$ls_estpro='';
$ldec_monto_spg='';
$ls_scg_cuenta='';
$ldec_mondeb='';
$ldec_monhab='';
$la_data[1]=array('spg_cuenta'=>$ls_cuentaspg,'estpro'=>$ls_estpro,'monto_spg'=>$ldec_monto_spg,'scg_cuenta'=>$ls_scg_cuenta,'debe'=>$ldec_mondeb,'haber'=>$ldec_monhab);
$la_data[2]=array('spg_cuenta'=>$ls_cuentaspg,'estpro'=>$ls_estpro,'monto_spg'=>$ldec_monto_spg,'scg_cuenta'=>$ls_scg_cuenta,'debe'=>$ldec_mondeb,'haber'=>$ldec_monhab);
$la_data[3]=array('spg_cuenta'=>$ls_cuentaspg,'estpro'=>$ls_estpro,'monto_spg'=>$ldec_monto_spg,'scg_cuenta'=>$ls_scg_cuenta,'debe'=>$ldec_mondeb,'haber'=>$ldec_monhab);
}
//codigo para unir las cuentas iguales
$la_dataaux=array();
for($li_k=1;$li_k<=count($la_data);$li_k++)
{
$lb_existe=false;
$li_pos=0;
for($li_l=1;$li_l<=count($la_dataaux);$li_l++)
{
if(($la_data[$li_k]["spg_cuenta"]==$la_dataaux[$li_l]["spg_cuenta"])
&& ($la_data[$li_k]["estpro"]==$la_dataaux[$li_l]["estpro"])
&& ($la_data[$li_k]["scg_cuenta"]==$la_dataaux[$li_l]["scg_cuenta"]))
{
$li_pos=$li_i;
$lb_existe=true;
}
}
if(!$lb_existe)
{
$li_index=count($la_dataaux)+1;
$la_dataaux[$li_index]=$la_data[$li_k];
}
else
{
$ls_monto_spg1=uf_convertir($la_dataaux[$li_pos]["monto_spg"]);
$ls_monto_spg2=uf_convertir($la_data[$li_k]["monto_spg"]);
$ls_monto_debe1=uf_convertir($la_dataaux[$li_pos]["debe"]);
$ls_monto_debe2=uf_convertir($la_data[$li_k]["debe"]);
$ls_monto_haber1=uf_convertir($la_dataaux[$li_pos]["haber"]);
$ls_monto_haber2=uf_convertir($la_data[$li_k]["haber"]);
$la_dataaux[$li_pos]["monto_spg"] = number_format(($ls_monto_spg1 + $ls_monto_spg2),2,",",".");
if (($ls_monto_debe1 + $ls_monto_debe2) != 0)
$la_dataaux[$li_pos]["debe"] = number_format(($ls_monto_debe1 + $ls_monto_debe2),2,",",".");
else
$la_dataaux[$li_pos]["debe"]="";
if(($ls_monto_haber1 + $ls_monto_haber2) != 0)
$la_dataaux[$li_pos]["haber"] = number_format(($ls_monto_haber1 + $ls_monto_haber2),2,",",".");
else
$la_dataaux[$li_pos]["haber"]="";
}
}
uf_print_detalle(array('title'=>'Detalle Presupuestario Pago','title2'=>'Detalle Contable Pago'),$la_dataaux,$io_pdf); // Imprimimos el detalle
uf_print_autorizacion($io_pdf);
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();
uf_print_cabecera($ls_numdoc,$ls_nomban,$ls_ctaban,$ls_chevau,$ls_nomproben,$ls_solicitudes,$ls_conmov,$io_pdf); // Imprimimos la cabecera del registro
uf_print_detalle(array('title'=>'Detalle Presupuestario Pago','title2'=>'Detalle Contable Pago'),$la_data,$io_pdf); // Imprimimos el detalle
uf_print_autorizacion($io_pdf);
}
} // Fin del for 2
if ($i<$li_total)
{
$io_pdf->ezNewPage(); // Insertar una nueva página
}
}// Fin del for 1
$io_pdf->ezStopPageNumbers(1,1);
$io_pdf->ezStream();
unset($io_pdf,$class_report,$io_funciones,$ds_dt_spg,$ds_dt_scg,$ds_voucher,$la_data);
}//Fin del if ($li_total>0)
else
{
print("");
}
} // Fin de si es lote
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// SI NO ES POR LOTE ENTONCES
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
else
{
$ls_codemp=$_SESSION["la_empresa"]["codemp"];
$ls_codban=$_GET["codban"];
$ls_ctaban=$_GET["ctaban"];
$ls_numdoc=$_GET["numdoc"];
$ls_chevau=$_GET["chevau"];
$ls_codope=$_GET["codope"];
$data=$class_report->uf_cargar_chq_voucher($ls_numdoc,$ls_chevau,$ls_codban,$ls_ctaban,$ls_codope);
$class_report->SQL->begin_transaction();
$lb_valido=$class_report->uf_actualizar_status_impreso($ls_numdoc,$ls_chevau,$ls_codban,$ls_ctaban,$ls_codope);
if(!$lb_valido)
{
print "Error al actualizar";
$class_report->is_msg_error;
$class_report->SQL->rollback();
}
else
{
$class_report->SQL->commit();
}
$ds_voucher->data=$data;
//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(0.5,3.5,1,1); // Configuración de los margenes en centímetros
$li_totrow=$ds_voucher->getRowCount("numdoc");
$io_pdf->transaction('start'); // Iniciamos la transacción
$thisPageNum=$io_pdf->ezPageCount;
for($li_i=1;$li_i<=$li_totrow;$li_i++)
{
unset($la_data);
$li_totprenom=0;
$ldec_mondeb=0;
$ldec_monhab=0;
$li_totant=0;
$ls_numdoc = $ds_voucher->data["numdoc"][$li_i];
$ls_codban = $ds_voucher->data["codban"][$li_i];
$ls_nomban = $class_report->uf_select_data($io_sql,"SELECT * FROM scb_banco WHERE codban ='".$ls_codban."' AND codemp='".$ls_codemp."'","nomban");
$ls_ctaban = trim($ds_voucher->data["ctaban"][$li_i]);
$ls_chevau = $ds_voucher->data["chevau"][$li_i];
$ld_fecmov = $io_funciones->uf_convertirfecmostrar($ds_voucher->data["fecmov"][$li_i]);
$ls_nomproben=$ds_voucher->data["nomproben"][$li_i];
$ls_solicitudes=$class_report->uf_select_solicitudes($ls_numdoc,$ls_codban,$ls_ctaban);
$ls_conmov=$ds_voucher->getValue("conmov",$li_i);
$ldec_monret=$ds_voucher->getValue("monret",$li_i);
$ldec_monto=$ds_voucher->getValue("monto",$li_i);
$ldec_total=$ldec_monto-$ldec_monret;
//Asigno el monto a la clase numero-letras para la conversion.
$numalet->setNumero($ldec_total);
//Obtengo el texto del monto enviado.
$ls_monto= $numalet->letra();
uf_print_encabezado_pagina(number_format($ldec_total,2,",","."),$ls_nomproben,$ls_monto,$_SESSION["la_empresa"]["ciuemp"].", ".$ld_fecmov,$io_pdf); // Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
uf_print_cabecera($ls_numdoc,$ls_nomban,$ls_ctaban,$ls_chevau,$ls_nomproben,$ls_solicitudes,$ls_conmov,$io_pdf); // Imprimimos la cabecera del registro
$ds_dt_scg->data=$class_report->uf_cargar_dt_scg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope); // Obtenemos el detalle del reporte
$ds_dt_spg->data=$class_report->uf_cargar_dt_spg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope);
$li_totrow_det=$ds_dt_scg->getRowCount("scg_cuenta");
$li_totrow_spg=$ds_dt_spg->getRowCount("spg_cuenta");
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Hago un ciclo para unir en una sola matriz los detalles de presupuesto y los contables para proceder luego a pintarlos
if($li_totrow_det>=$li_totrow_spg)
{
for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$ls_scg_cuenta = trim($ds_dt_scg->data["scg_cuenta"][$li_s]);
$ls_debhab = $ds_dt_scg->data["debhab"][$li_s];
$ldec_monto = $ds_dt_scg->data["monto"][$li_s];
if($ls_debhab=='D')
{
$ldec_mondeb=number_format($ldec_monto,2,",",".");
$ldec_monhab=" ";
}
else
{
$ldec_monhab=number_format($ldec_monto,2,",",".");
$ldec_mondeb=" ";
}
if(array_key_exists("spg_cuenta",$ds_dt_spg->data))
{
if(array_key_exists($li_s,$ds_dt_spg->data["spg_cuenta"]))
{
$ls_cuentaspg = trim($ds_dt_spg->getValue("spg_cuenta",$li_s));
$ls_estpro = trim($ds_dt_spg->getValue("estpro",$li_s));
$ldec_monto_spg = number_format($ds_dt_spg->getValue("monto",$li_s),2,",",".");
}
else
{
$ls_cuentaspg=" ";
$ls_estpro=" ";
$ldec_monto_spg=" ";
}
}
else
{
$ls_cuentaspg=" ";
$ls_estpro=" ";
$ldec_monto_spg=" ";
}
$la_data[$li_s]=array('spg_cuenta'=>$ls_cuentaspg,'estpro'=>$ls_estpro,'monto_spg'=>$ldec_monto_spg,'scg_cuenta'=>$ls_scg_cuenta,'debe'=>$ldec_mondeb,'haber'=>$ldec_monhab);
}
}
if($li_totrow_spg>$li_totrow_det)
{
for($li_s=1;$li_s<=$li_totrow_spg;$li_s++)
{
if(array_key_exists("scg_cuenta",$ds_dt_scg->data))
{
if(array_key_exists($li_s,$ds_dt_scg->data["scg_cuenta"]))
{
$ls_scg_cuenta=trim($ds_dt_scg->data["scg_cuenta"][$li_s]);
$ls_debhab = $ds_dt_scg->data["debhab"][$li_s];
$ldec_monto= $ds_dt_scg->data["monto"][$li_s];
if($ls_debhab=='D')
{
$ldec_mondeb=number_format($ldec_monto,2,",",".");
$ldec_monhab=" ";
}
else
{
$ldec_monhab=number_format($ldec_monto,2,",",".");
$ldec_mondeb=" ";
}
}
else
{
$ls_scg_cuenta="";
$ls_debhab = "";
$ldec_monto= "";
$ldec_mondeb="";
$ldec_monhab="";
}
}
else
{
$ls_scg_cuenta="";
$ls_debhab = "";
$ldec_monto= "";
$ldec_mondeb="";
$ldec_monhab="";
}
if(array_key_exists("spg_cuenta",$ds_dt_spg->data))
{
if(array_key_exists($li_s,$ds_dt_spg->data["spg_cuenta"]))
{
$ls_cuentaspg = trim($ds_dt_spg->getValue("spg_cuenta",$li_s));
$ls_estpro = trim($ds_dt_spg->getValue("estpro",$li_s));
$ldec_monto_spg = number_format($ds_dt_spg->getValue("monto",$li_s),2,",",".");
}
else
{
$ls_cuentaspg=" ";
$ls_estpro=" ";
$ldec_monto_spg=" ";
}
}
else
{
$ls_cuentaspg=" ";
$ls_estpro=" ";
$ldec_monto_spg=" ";
}
$la_data[$li_s]=array('spg_cuenta'=>$ls_cuentaspg,'estpro'=>$ls_estpro,'monto_spg'=>$ldec_monto_spg,'scg_cuenta'=>$ls_scg_cuenta,'debe'=>$ldec_mondeb,'haber'=>$ldec_monhab);
}
}
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if(empty($la_data))
{
$ls_cuentaspg='';
$ls_estpro='';
$ldec_monto_spg='';
$ls_scg_cuenta='';
$ldec_mondeb='';
$ldec_monhab='';
$la_data[1]=array('spg_cuenta'=>$ls_cuentaspg,'estpro'=>$ls_estpro,'monto_spg'=>$ldec_monto_spg,'scg_cuenta'=>$ls_scg_cuenta,'debe'=>$ldec_mondeb,'haber'=>$ldec_monhab);
$la_data[2]=array('spg_cuenta'=>$ls_cuentaspg,'estpro'=>$ls_estpro,'monto_spg'=>$ldec_monto_spg,'scg_cuenta'=>$ls_scg_cuenta,'debe'=>$ldec_mondeb,'haber'=>$ldec_monhab);
$la_data[3]=array('spg_cuenta'=>$ls_cuentaspg,'estpro'=>$ls_estpro,'monto_spg'=>$ldec_monto_spg,'scg_cuenta'=>$ls_scg_cuenta,'debe'=>$ldec_mondeb,'haber'=>$ldec_monhab);
}
//codigo para unir las cuentas iguales
$la_dataaux=array();
for($li_k=1;$li_k<=count($la_data);$li_k++)
{
$lb_existe=false;
$li_pos=0;
for($li_l=1;$li_l<=count($la_dataaux);$li_l++)
{
if(($la_data[$li_k]["spg_cuenta"]==$la_dataaux[$li_l]["spg_cuenta"])
&& ($la_data[$li_k]["estpro"]==$la_dataaux[$li_l]["estpro"])
&& ($la_data[$li_k]["scg_cuenta"]==$la_dataaux[$li_l]["scg_cuenta"]))
{
$li_pos=$li_i;
$lb_existe=true;
}
}
if(!$lb_existe)
{
$li_index=count($la_dataaux)+1;
$la_dataaux[$li_index]=$la_data[$li_k];
}
else
{
$ls_monto_spg1=uf_convertir($la_dataaux[$li_pos]["monto_spg"]);
$ls_monto_spg2=uf_convertir($la_data[$li_k]["monto_spg"]);
$ls_monto_debe1=uf_convertir($la_dataaux[$li_pos]["debe"]);
$ls_monto_debe2=uf_convertir($la_data[$li_k]["debe"]);
$ls_monto_haber1=uf_convertir($la_dataaux[$li_pos]["haber"]);
$ls_monto_haber2=uf_convertir($la_data[$li_k]["haber"]);
$la_dataaux[$li_pos]["monto_spg"] = number_format(($ls_monto_spg1 + $ls_monto_spg2),2,",",".");
if (($ls_monto_debe1 + $ls_monto_debe2) != 0)
$la_dataaux[$li_pos]["debe"] = number_format(($ls_monto_debe1 + $ls_monto_debe2),2,",",".");
else
$la_dataaux[$li_pos]["debe"]="";
if(($ls_monto_haber1 + $ls_monto_haber2) != 0)
$la_dataaux[$li_pos]["haber"] = number_format(($ls_monto_haber1 + $ls_monto_haber2),2,",",".");
else
$la_dataaux[$li_pos]["haber"]="";
}
}
uf_print_detalle(array('title'=>'Detalle Presupuestario Pago','title2'=>'Detalle Contable Pago'),$la_dataaux,$io_pdf); // Imprimimos el detalle
uf_print_autorizacion($io_pdf);
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();
uf_print_cabecera($ls_numdoc,$ls_nomban,$ls_ctaban,$ls_chevau,$ls_nomproben,$ls_solicitudes,$ls_conmov,$io_pdf); // Imprimimos la cabecera del registro
uf_print_detalle(array('title'=>'Detalle Presupuestario Pago','title2'=>'Detalle Contable Pago'),$la_data,$io_pdf); // Imprimimos el detalle
uf_print_autorizacion($io_pdf);
}
}
$io_pdf->ezStopPageNumbers(1,1);
$io_pdf->ezStream();
unset($io_pdf);
unset($class_report);
unset($io_funciones);
}
?>