openObject(); $io_pdf->setStrokeColor(0,0,0); $io_pdf->saveState(); $io_pdf->line(20,40,578,40); $io_pdf->addJpegFromFile('../../shared/imagebank/cintillo_fmba.jpg',60,690,480,80); // Agregar Logo /*$io_pdf->Rectangle(135,710,450,40); $io_pdf->line(380,730,585,730); $io_pdf->line(380,750,380,710); $io_pdf->addText(390,732,11,"Nro.: ".$as_numdoc); // Nmero de Orden de compra $io_pdf->addText(220,725,13,"CARTA ORDEN"); // Agregar el t?ulo*/ $io_pdf->restoreState(); $io_pdf->closeObject(); $io_pdf->addObject($io_encabezado,'all'); //Fecha actual //$io_pdf->add_texto(118,4.5,10,"".$as_fecha.""); }// end function uf_print_encabezadopagina function uf_print_detalle($la_data,&$io_pdf,$x_pos,$as_tipproben) { ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // 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 contable del movimiento if ($as_tipproben=='B') { $la_config=array('showHeadings'=>1, // Mostrar encabezados 'fontSize' => 9, // Tamaño de Letras 'titleFontSize' => 12, // Tamaño de Letras de los títulos 'showLines'=>0, // Mostrar Líneas 'colGap'=>1, // Separacion entre las lineas de la Tabla y el Texto. '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('cedbene'=>array('justification'=>'center','width'=>60),// Justificación y ancho de la columna 'nombene'=>array('justification'=>'left','width'=>240),// Justificación y ancho de la columna 'ctaban'=>array('justification'=>'center','width'=>120), // Justificación y ancho de la columna 'monto'=>array('justification'=>'right','width'=>100))); // Justificación y ancho de la columna $la_columnas=array('cedbene'=>'Cedula', 'nombene'=>'Beneficiario', 'ctaban'=>'Cuenta', 'monto'=>'Monto'); } elseif($as_tipproben=='P') { $la_config=array('showHeadings'=>1, // Mostrar encabezados 'fontSize' => 9, // Tamaño de Letras 'titleFontSize' => 12, // Tamaño de Letras de los títulos 'showLines'=>0, // Mostrar Líneas 'colGap'=>1, // Separacion entre las lineas de la Tabla y el Texto. '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('cod_pro'=>array('justification'=>'center','width'=>60),// Justificación y ancho de la columna 'nompro'=>array('justification'=>'left','width'=>240),// Justificación y ancho de la columna 'ctaban'=>array('justification'=>'center','width'=>120), // Justificación y ancho de la columna 'monto'=>array('justification'=>'right','width'=>100))); // Justificación y ancho de la columna $la_columnas=array('cod_pro'=>'Codigo', 'nompro'=>'Proveedor', 'ctaban'=>'Cta. Bancaria', 'monto'=>'Monto'); } $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_texto($as_texto,&$io_pdf,$y="") { /*--------------------------------------------------------------------------------------- Function: uf_print_texto Arguments: as_texto: texto a imprimir io_pdf // total de registros que va a tener el reporte Description: funcion que imprime los datos de la carta orden Creado Por: Ing. Laura Cabre Fecha Creacion: 26/12/2006 -----------------------------------------------------------------------------------------*/ if($y!="") $io_pdf->y=$y; $la_data[0]["1"]=$as_texto; $la_anchos_col = array(170); $la_justificaciones = array("left"); $la_opciones = array("color_texto" => array(0,0,0), "anchos_col" => $la_anchos_col, "tamano_texto"=> 12, "lineas"=>0, "alineacion_col"=>$la_justificaciones, "margen_horizontal"=>1, "margen_vertical"=>1); $io_pdf->add_tabla(5,$la_data,$la_opciones); $io_pdf-> add_lineas(1); }// function uf_reemplazar($la_data,&$la_texto,&$io_pdf) { /*--------------------------------------------------------------------------------------- Function: uf_reemplazar Arguments: la_data: datos a reemplazar ls_texto: texto a ser reemplazado. io_pdf // total de registros que va a tener el reporte Description: funcion que se encarga de reemplazar las palabras claves por sus valores reales Creado Por: Ing. Laura Cabre Fecha Creacion: 26/12/2006 -----------------------------------------------------------------------------------------*/ $la_claves=array_keys($la_data); for($li_i=0;$li_iuf_conectar(); $io_sql=new class_sql($con); $io_funciones=new class_funciones(); $io_msg = new class_mensajes(); $io_pdf = new class_pdf("LETTER","portrait"); $io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); $io_pdf->set_margenes(20,20,20,20); require_once("sigesp_scb_report.php"); $class_report=new sigesp_scb_report($con); $ds_voucher=new class_datastore(); $ds_dt_scg=new class_datastore(); $ds_dt_spg=new class_datastore(); //Instancio a la clase de conversi� de numeros a letras. require_once("../../shared/class_folder/cnumero_letra.php"); $numalet= new cnumero_letra(); //imprime numero con los cambios $ls_codemp=$_SESSION["la_empresa"]["codemp"]; $ls_codigo=$_GET["codigo"]; $ls_fecha_corta=date("d/m/Y"); $lb_valido=$class_report->uf_formato_cartaorden($ls_codigo,$la_data); if(rtrim($la_data["archrtf"][1])!="") { $ls_codban = $_GET["codban"]; $ls_ctaban = $_GET["ctaban"]; $ls_numdoc = $_GET["numdoc"]; $ls_tipproben = $_GET["tipproben"]; $ls_solicitudes=$_GET["solicitud"]; header('Location: sigesp_scb_rpp_cartaorden_word.php?codigo='.$ls_codigo.'&codban='.$ls_codban.'&ctaban='.$ls_ctaban.'&numdoc='.$ls_numdoc.'&chevau=&codope=ND&tipproben='.$ls_tipproben.'&solicitud='.$ls_solicitudes); } if(!array_key_exists("opener",$_GET)) { $ls_codban = $_GET["codban"]; $ls_ctaban = $_GET["ctaban"]; $ls_numdoc = $_GET["numdoc"]; $ls_tipproben = $_GET["tipproben"]; $ls_solicitudes=$_GET["solicitud"]; $la_solicitudes=split('--',$ls_solicitudes); $li_cnsol=count($la_solicitudes); $ls_factura=$class_report->uf_select_factura($la_solicitudes,$li_cnsol); $la_cartaorden=$class_report->uf_select_cartaorden($ls_numdoc,$ls_codban,$ls_ctaban); if((!$lb_valido) || (count ($la_cartaorden)==0)) { $io_msg->message("Error en reporte !!!"); print ""; } $li_cont=count($la_cartaorden["monto"]); $li_totales=0; for ($i=1;$i<=$li_cont;$i++) { $li_acum=$la_cartaorden["monto"][$i]; $li_totales=$li_totales+$li_acum; } $la_campo["banco"] = $la_cartaorden["nomban"][1]; $la_campo["ciudad"] = $_SESSION["la_empresa"]["ciuemp"]; $la_campo["fecha"] = $ls_fecha_corta; $la_campo["gerente"] = $la_cartaorden["gerban"][1]; $la_campo["cartaorden"] = $la_cartaorden["numcarord"][1]; $la_campo["documento"] = $la_cartaorden["numdoc"][1]; $la_campo["cuentabancaria"] = $la_cartaorden["ctaban"][1]; $la_campo["monto"] = number_format($li_totales,2,",","."); $la_campo["montoletras"] = $numalet->uf_convertir_letra($li_totales,'','');; $la_campo["tipocuenta"] = $la_cartaorden["nomtipcta"][1]; $la_campo["empresa"] = $_SESSION["la_empresa"]["nombre"]; $la_campo["cuentabancariaextendida"] = $la_cartaorden["ctabanext"][1]; $la_campo["conceptocarta"] = $la_cartaorden["conmov"][1]; $la_campo["factura"] = $ls_factura; if($la_cartaorden["tipo_destino"][1]=='P') { $ls_criterio = "WHERE rpc_proveedor.codemp = '".$_SESSION["la_empresa"]["codemp"]."' AND rpc_proveedor.cod_pro = '".$la_cartaorden["cod_pro"][1]."'"; $la_campo["bancoemisor"] = ""; $la_campo["cuentabancariaemisor"] = ""; $la_campo["nombre"] = $la_cartaorden["nomproben"][1]; $la_campo["rif"] =""; $class_report->uf_select_banco_cuenta("rpc_proveedor",$ls_criterio,&$la_campo["bancoemisor"],&$la_campo["cuentabancariaemisor"],&$la_campo["rif"]); } else { $ls_criterio = "WHERE rpc_beneficiario.codemp = '".$_SESSION["la_empresa"]["codemp"]."' AND rpc_beneficiario.ced_bene = '".$la_cartaorden["ced_bene"][1]."'"; $la_campo["bancoemisor"] = ""; $la_campo["cuentabancariaemisor"] = ""; $la_campo["rif"] =""; $la_campo["cibene"] = $la_cartaorden["ced_bene"][1]; $la_campo["nombre"] = $la_cartaorden["nomproben"][1]; $class_report->uf_select_banco_cuenta("rpc_beneficiario",$ls_criterio,&$la_campo["bancoemisor"],&$la_campo["cuentabancariaemisor"],&$la_campo["rif"]); } uf_reemplazar($la_campo,$la_data,&$io_pdf); } $class_report->SQL->begin_transaction(); $ls_mes = $io_fecha->uf_load_nombre_mes(substr($ls_fecha_corta,3,2)); $ls_fecha=$_SESSION["la_empresa"]["ciuemp"].", ".substr($ls_fecha_corta,0,2)." de ".$ls_mes." de ".substr($ls_fecha_corta,6,4)."" ; uf_print_encabezado_pagina($ls_numdoc,$ls_fecha,$io_pdf); // Imprimimos el encabezado de la p�ina uf_print_texto($la_data["encabezado"][1],$io_pdf,650); uf_print_texto($la_data["cuerpo"][1],$io_pdf); $la_data_dt=$class_report->uf_select_dt_cartaorden($ls_numdoc,$ls_codban,$ls_ctaban,$ls_tipproben); uf_print_detalle($la_data_dt,$io_pdf,450,$ls_tipproben); // Imprimimos el detalle uf_print_texto($la_data["pie"][1],$io_pdf); $io_pdf->ezStream(); ?>