"; print "opener.document.form1.submit();" ; print "close();"; print ""; } $x_pos=0;//mientras mas grande el numero, mas a la derecha. $y_pos=-1;//Mientras mas pequeño el numero, mas alto. $ls_directorio="cheque_configurable"; $ls_archivo="cheque_configurable/medidas.txt"; $li_medidas=16; //------------------------------------------------------------------------------------------------- function uf_inicializar_variables($ls_archivo,$ls_contenido,$li_medidas) { global $valores; global $ls_directorio; if(!file_exists ($ls_directorio)) { $lb_exito=mkdir($ls_directorio,0777); if(!$lb_exito) { print ""; } } if((!file_exists ($ls_archivo)) || (filesize($ls_archivo)==0)) { if(file_exists ($ls_directorio)) { $archivo = fopen($ls_archivo, "w"); fwrite($archivo,$ls_contenido); fclose($archivo); } } if((file_exists($ls_archivo)) && (filesize($ls_archivo)>0)) { $archivo = fopen($ls_archivo, "r"); $contenido = fread($archivo, filesize($ls_archivo)); fclose($archivo); $valores = explode("-",$contenido); if(count($valores)<>$li_medidas) { $archivo = fopen($ls_archivo, "w"); fclose($archivo); print ""; } } else { print ""; } } function uf_print_encabezado_pagina($ldec_monto,$ls_nomproben,$ls_monto,$ls_fecha,&$io_pdf,$x) { ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // 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 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// global $valores; //Imprimo el monto $io_pdf->add_texto($valores[0],$valores[1],10,"***".$ldec_monto."***"); //Beneficiario del Cheque $io_pdf->add_texto($valores[2],$valores[3],9,"$ls_nomproben"); //Monto en letras del Cheque //Cortando el monto en caso de que sea muy largo $ls_monto_cortado=wordwrap($ls_monto,85,"?"); $la_arreglo=array(); $la_arreglo=explode("?",$ls_monto_cortado); if(array_key_exists(0,$la_arreglo)) $io_pdf->add_texto($valores[4],$valores[5],9,"$la_arreglo[0]"); if(array_key_exists(1,$la_arreglo)) $io_pdf->add_texto($valores[6],$valores[7],9,"$la_arreglo[1]"); $ls_anio=substr($ls_fecha,-4); $ls_fecha_corta=substr($ls_fecha,0,(strlen($ls_fecha)-5)); //Fecha del Cheque $io_pdf->add_texto($valores[8],$valores[9],9,"".$ls_fecha_corta.""); $io_pdf->add_texto($valores[10],$valores[11],9,"$ls_anio"); //No Endosable $io_pdf->add_texto($valores[12],$valores[13],9,"NO ENDOSABLE"); //Informacion de Caducidad $io_pdf->add_texto($valores[14],$valores[15],9,"CADUCA A LOS 60 DIAS"); }// 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 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $io_pie=$io_pdf->openObject(); $li_pos=190;//200 $io_pdf->convertir_valor_mm_px($li_pos); $io_pdf->ezSetY($li_pos); $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 'xPos'=>308, // Orientación de la tabla 'width'=>575, // Ancho de la tabla 'maxWidth'=>575, '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'=>155))); // 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 'xPos'=>308, // Orientación de la tabla 'width'=>575, // Ancho de la tabla 'maxWidth'=>575, 'cols'=>array('ordenes'=>array('justification'=>'left','width'=>575))); // Ancho Máximo de la tabla $io_pdf->ezTable($la_data,$la_columna,'',$la_config); $io_pdf->saveState(); $io_pdf->setStrokeColor(0,0,0); $io_pdf->Rectangle(15,30,575,130); $io_pdf->line(15,85,590,85); $io_pdf->line(120,85,120,160); $io_pdf->line(140,85,140,125); $io_pdf->line(160,85,160,125); $io_pdf->line(180,85,180,160); $io_pdf->line(320,85,320,160); $io_pdf->line(340,85,340,125); $io_pdf->line(360,85,360,125); $io_pdf->line(380,85,380,160); $io_pdf->line(530,85,530,160); $io_pdf->line(550,85,550,125); $io_pdf->line(570,85,570,125); $io_pdf->addText(140,154,6,"FECHA"); // Agregar el título $io_pdf->addText(132,125,6,"D M A"); // Agregar el título $io_pdf->addText(340,154,6,"FECHA"); // Agregar el título $io_pdf->addText(332,125,6,"D M A"); // Agregar el título $io_pdf->addText(550,154,6,"FECHA"); // Agregar el título $io_pdf->addText(542,125,6,"D M A"); // Agregar el título $io_pdf->addText(42,90,6,"ELABORADO POR "); // Agregar el título $io_pdf->addText(80,43,6,""); // Agregar el título $io_pdf->addText(210,90,6,"DIRECTOR DE TESORERIA"); // Agregar el título $io_pdf->addText(310,43,6,""); // Agregar el título $io_pdf->addText(435,96,6,"DIRECTOR DE"); // Agregar el título $io_pdf->addText(430,90,6,"ADMINISTRACION"); // Agregar el título $io_pdf->addText(450,43,6,""); // Agregar el título $io_pdf->line(15,75,590,75); $io_pdf->addText(270,78,6,"RECIBI CONFORME"); // Agregar el título $io_pdf->line(203,30,203,75); $io_pdf->line(320,30,320,75); $io_pdf->addText(25,65,6,"NOMBRE:"); // Agregar el título $io_pdf->addText(228,65,6,"CEDULA DE IDENTIDAD:"); // Agregar el título $io_pdf->line(410,30,410,75); $io_pdf->addText(355,65,6,"FECHA:"); // Agregar el título $io_pdf->addText(430,65,6,"FIRMA:"); $io_pdf->restoreState(); $io_pdf->closeObject(); $io_pdf->addObject($io_pie,'all'); }// 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 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// //Imprimo los detalles tanto `de presupuesto como contablwe del movimiento $li_pos=155;//200 $io_pdf->convertir_valor_mm_px($li_pos); $io_pdf->ezSetY($li_pos); $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 'xPos'=>308, // Orientación de la tabla 'width'=>580, // Ancho de la tabla 'maxWidth'=>580, 'cols'=>array('title'=>array('justification'=>'center','width'=>325),'title2'=>array('justification'=>'center','width'=>250))); // Ancho Máximo de la tabla $io_pdf->ezTable($la_data_title,$la_columna,'',$la_config); unset($la_title); unset($la_columnas); unset($la_config); $io_pdf->ezSetDy(-5); $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'=>304, // 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'=>85), '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_convertir($ls_numero) { $ls_numero=str_replace(".","",$ls_numero); $ls_numero=str_replace(",",".",$ls_numero); return $ls_numero; } //-------------------------------------------------------------------------------------------------------------------------------- require_once("sigesp_scb_report.php"); require_once('../../shared/class_folder/class_pdf.php'); require_once("../../shared/class_folder/class_sql.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"); $in = new sigesp_include(); $con = $in->uf_conectar(); $io_sql = new class_sql($con); $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. require_once("../../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 class_pdf('LETTER','portrait'); // Instancia de la clase PDF $io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra $io_pdf->set_margenes(0,60,0,0); $io_pdf->ezStartPageNumbers(590,23.5,7,'','',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; if (trim($ls_codban)=="001")//Banco Caroní. { $ls_archivo="cheque_configurable/medidas_caroni.txt"; $ls_contenido="167.00-132.00-65.00-148.00-65.00-154.00-65.00-157.00-65.00-168.00-80.00-168.00-1000.00-1000.00-1000.00-1000.00"; $li_medidas=16; $lb_concepto=false; } elseif(trim($ls_codban)=="002")//Banco Provincial. { $ls_archivo="cheque_configurable/medidas_provincial.txt"; $ls_contenido="144.00-0.00-24.00-20.00-26.00-30.00-27.00-33.00-22.00-38.00-79.00-38.00-120.00-60.00-130.00-65.00-10.00-91.00-8.00-100.00-12.00-117.00"; $li_medidas=22; $lb_concepto=true; } elseif(trim($ls_codban)=="003")//Banco Venezuela. { $ls_archivo="cheque_configurable/medidas_venezuela.txt"; $ls_contenido="144.00-0.00-24.00-20.00-26.00-30.00-27.00-33.00-22.00-38.00-79.00-38.00-120.00-60.00-130.00-65.00-10.00-91.00-8.00-100.00-12.00-117.00"; $li_medidas=22; $lb_concepto=true; } elseif(trim($ls_codban)=="004")//Banco Banfoandes. { $ls_archivo="cheque_configurable/medidas_banfoandes.txt"; $ls_contenido="144.00-0.00-24.00-20.00-26.00-30.00-27.00-33.00-22.00-38.00-79.00-38.00-120.00-60.00-130.00-65.00"; $li_medidas=16; $lb_concepto=true; } elseif(trim($ls_codban)=="005")//Banco Federal. { $ls_archivo="cheque_configurable/medidas_federal.txt"; $ls_contenido="144.00-0.00-24.00-20.00-26.00-30.00-27.00-33.00-22.00-38.00-79.00-38.00-120.00-60.00-130.00-65.00-10.00-91.00-8.00-100.00-12.00-117.00"; $li_medidas=22; $lb_concepto=true; } elseif(trim($ls_codban)=="006")//Banco Industrial. { $ls_archivo="cheque_configurable/medidas_industrial.txt"; $ls_contenido="144.00-0.00-24.00-20.00-26.00-30.00-27.00-33.00-22.00-38.00-79.00-38.00-120.00-60.00-130.00-65.00-10.00-91.00-8.00-100.00-12.00-117.00"; $li_medidas=22; $lb_concepto=true; } elseif(trim($ls_codban)=="007")//Banco B.O.D. { $ls_archivo="cheque_configurable/medidas_bod.txt"; $ls_contenido="144.00-0.00-24.00-20.00-26.00-30.00-27.00-33.00-22.00-38.00-79.00-38.00-120.00-60.00-130.00-65.00-10.00-91.00-8.00-100.00-12.00-117.00"; $li_medidas=22; $lb_concepto=true; } else { $ls_archivo="cheque_configurable/medidas_venezuela.txt"; $ls_contenido="144.00-0.00-24.00-20.00-26.00-30.00-27.00-33.00-22.00-38.00-79.00-38.00-120.00-60.00-130.00-65.00-10.00-91.00-8.00-100.00-12.00-117.00"; $li_medidas=22; $lb_concepto=true; } uf_inicializar_variables($ls_archivo,$ls_contenido,$li_medidas); $li_totrow=$ds_voucher->getRowCount("numdoc"); $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 nomban 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,$y_pos); // 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_scg->group_by(array('0'=>'scg_cuenta','1'=>'debhab'),array('0'=>'monto'),"scg_cuenta"); $ds_dt_spg->data=$class_report->uf_cargar_dt_spg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope); $la_monto = array("monto"); $la_campos = array("spg_cuenta","estpro"); $ds_dt_spg->group_by($la_campos,$la_monto,"spg_cuenta"); $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); } $io_pdf->transaction('start'); // Iniciamos la transacción uf_print_detalle(array('title'=>'Detalle Presupuestario Pago','title2'=>'Detalle Contable Pago'),$la_data,$io_pdf); // Imprimimos el detalle 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->set_margenes(130,60,30,30); uf_print_detalle(array('title'=>'Detalle Presupuestario Pago','title2'=>'Detalle Contable Pago'),$la_data,$io_pdf); // Imprimimos el detalle } } // Fin del for 2 if ($i<$li_total) { $io_pdf->ezNewPage(); // Insertar una nueva página $io_pdf->set_margenes(0,60,0,0); } }// 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 class_pdf('LETTER','portrait'); // Instancia de la clase PDF $io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra $io_pdf->set_margenes(0,60,0,0); if (trim($ls_codban)=="001")//Banco Caroní. { $ls_archivo="cheque_configurable/medidas_caroni.txt"; $ls_contenido="167.00-132.00-65.00-148.00-65.00-154.00-65.00-157.00-65.00-168.00-80.00-168.00-1000.00-1000.00-1000.00-1000.00"; $li_medidas=16; $lb_concepto=false; } elseif(trim($ls_codban)=="002")//Banco Provincial. { $ls_archivo="cheque_configurable/medidas_provincial.txt"; $ls_contenido="144.00-0.00-24.00-20.00-26.00-30.00-27.00-33.00-22.00-38.00-79.00-38.00-120.00-60.00-130.00-65.00-10.00-91.00-8.00-100.00-12.00-117.00"; $li_medidas=22; $lb_concepto=true; } elseif(trim($ls_codban)=="003")//Banco Venezuela. { $ls_archivo="cheque_configurable/medidas_venezuela.txt"; $ls_contenido="144.00-0.00-24.00-20.00-26.00-30.00-27.00-33.00-22.00-38.00-79.00-38.00-120.00-60.00-130.00-65.00-10.00-91.00-8.00-100.00-12.00-117.00"; $li_medidas=22; $lb_concepto=true; } elseif(trim($ls_codban)=="004")//Banco Banfoandes. { $ls_archivo="cheque_configurable/medidas_banfoandes.txt"; $ls_contenido="144.00-0.00-24.00-20.00-26.00-30.00-27.00-33.00-22.00-38.00-79.00-38.00-120.00-60.00-130.00-65.00"; $li_medidas=16; $lb_concepto=true; } elseif(trim($ls_codban)=="005")//Banco Federal. { $ls_archivo="cheque_configurable/medidas_federal.txt"; $ls_contenido="144.00-0.00-24.00-20.00-26.00-30.00-27.00-33.00-22.00-38.00-79.00-38.00-120.00-60.00-130.00-65.00-10.00-91.00-8.00-100.00-12.00-117.00"; $li_medidas=22; $lb_concepto=true; } elseif(trim($ls_codban)=="006")//Banco Industrial. { $ls_archivo="cheque_configurable/medidas_industrial.txt"; $ls_contenido="144.00-0.00-24.00-20.00-26.00-30.00-27.00-33.00-22.00-38.00-79.00-38.00-120.00-60.00-130.00-65.00-10.00-91.00-8.00-100.00-12.00-117.00"; $li_medidas=22; $lb_concepto=true; } elseif(trim($ls_codban)=="007")//Banco B.O.D. { $ls_archivo="cheque_configurable/medidas_bod.txt"; $ls_contenido="144.00-0.00-24.00-20.00-26.00-30.00-27.00-33.00-22.00-38.00-79.00-38.00-120.00-60.00-130.00-65.00-10.00-91.00-8.00-100.00-12.00-117.00"; $li_medidas=22; $lb_concepto=true; } else { $ls_archivo="cheque_configurable/medidas_venezuela.txt"; $ls_contenido="144.00-0.00-24.00-20.00-26.00-30.00-27.00-33.00-22.00-38.00-79.00-38.00-120.00-60.00-130.00-65.00-10.00-91.00-8.00-100.00-12.00-117.00"; $li_medidas=22; $lb_concepto=true; } uf_inicializar_variables($ls_archivo,$ls_contenido,$li_medidas); $li_totrow=$ds_voucher->getRowCount("numdoc"); $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 nomban 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,$y_pos); // Imprimimos el encabezado de la página $io_pdf->ezStartPageNumbers(590,23.5,7,'','',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_scg->group_by(array('0'=>'scg_cuenta','1'=>'debhab'),array('0'=>'monto'),"scg_cuenta"); $ds_dt_spg->data=$class_report->uf_cargar_dt_spg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope); $la_monto = array("monto"); $la_campos = array("spg_cuenta","estpro"); $ds_dt_spg->group_by($la_campos,$la_monto,"spg_cuenta"); $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); } $io_pdf->transaction('start'); // Iniciamos la transacción uf_print_detalle(array('title'=>'Detalle Presupuestario Pago','title2'=>'Detalle Contable Pago'),$la_data,$io_pdf); // Imprimimos el detalle 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->set_margenes(130,60,30,30); uf_print_detalle(array('title'=>'Detalle Presupuestario Pago','title2'=>'Detalle Contable Pago'),$la_data,$io_pdf); // Imprimimos el detalle } } $io_pdf->ezStopPageNumbers(1,1); $io_pdf->ezStream(); unset($io_pdf); unset($class_report); unset($io_funciones); } ?>