$ld_subtotal = number_format($ld_subtotal,2,",",".");
$ld_cargo = number_format($ld_cargo,2,",",".");
$ld_total = number_format($ld_total,2,",",".");
$la_dataser[$li_ser]= array('codigo'=>$ls_codigo,'denominacion'=>$ls_denominacion,'cantidad'=>$ld_cantidad,
'precio'=>$ld_precio,'subtotal'=>$ld_subtotal,'cargos'=>$ld_cargo,'total'=>$ld_total);
}
uf_print_detalle_servicios($la_dataser,$io_pdf);
}
}
$ld_monto = str_replace(".","",$ld_monto);
$ld_monto = str_replace(",",".",$ld_monto);
uf_print_pie_cabecera($ld_monbas,$ld_moncar,$ld_monto,&$io_pdf);
$ls_tipoencabenzadosol = "Detalle Presupuestario";
$numalet->setNumero($ld_monto);
$ls_monto= $numalet->letra();
// $io_pdf->ezStartPageNumbers(588,710,7,'','',1);
uf_print_encabezado_pie(number_format($ld_monto,2,",","."),$ls_proveedor,$ls_monto,
$ls_lugcom,$ls_codmoneda,$ls_moneda,$ld_tasa,$ld_mondiv,$ls_estcondat,
$ls_pais,$ls_estado,$ls_municipio,$ls_parroquia,$ls_estcondat,$ls_codmoneda,
&$io_pdf);
uf_print_cuadros_inferiores($ls_obsordcom,$ls_observacion,$ld_tasa,$li_totconv,&$io_pdf);
}
if($lb_valido)
{
$io_pdf->ezStream();
}
else
// Seleccionamos el tipo de letra
$io_pdf->ezSetCmMargins(2, 11, 3, 2);
// Configuracion de los margenes en centimetros
$li_totrow = $io_report->DS->getRowCount("numsol");
for ($li_i = 1; $li_i <= $li_totrow; $li_i++) {
$ls_numsol = $io_report->DS->data["numsol"][$li_i];
$ls_codpro = $io_report->DS->data["cod_pro"][$li_i];
$ls_rifpro = $io_report->DS->data["rifpro"][$li_i];
$ls_cedbene = $io_report->DS->data["ced_bene"][$li_i];
$ls_denfuefin = $io_report->DS->data["denfuefin"][$li_i];
$ls_nomproben = $io_report->DS->data["nombre"][$li_i];
$ld_fecemisol = $io_report->DS->data["fecemisol"][$li_i];
$ls_consol = $io_report->DS->data["consol"][$li_i];
$ls_obssol = $io_report->DS->data["obssol"][$li_i];
$li_monsol = $io_report->DS->data["monsol"][$li_i];
$numalet->setNumero($li_monsol);
$ls_monto = $numalet->letra();
$li_monsol = number_format($li_monsol, 2, ",", ".");
$ld_fecemisol = $io_funciones->uf_convertirfecmostrar($ld_fecemisol);
if ($ls_codpro != "----------") {
$ls_codproben = $ls_codpro;
} else {
$ls_codproben = $ls_cedbene;
}
if ($ls_tiporeporte == 0) {
$li_monsolaux = $io_report->DS->data["monsolaux"][$li_i];
$li_monsolaux = number_format($li_monsolaux, 2, ",", ".");
}
uf_print_encabezado_pagina($ls_titulo, $ls_numsol, $ld_fecemisol, $ls_codproben, $ls_nomproben, $ls_rifpro, $ls_consol, $ls_monto, $li_monsol, &$io_pdf);
////////////////////////// GRID RECEPCIONES DE DOCUMENTOS //////////////////////////////////////
$io_report->ds_detalle->reset_ds();
function uf_print_pie_detalle($as_estpro,$as_numordcom,$as_nombre,$as_montotart,$as_ciuemp,$adt_fecrec,&$io_pdf)
{
//////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_pie_detalle
// Acess: private
// Arguments: la_data // arreglo de informaci�n
// io_pdf // Objeto PDF
// Description: funci�n que imprime el detalle
// Creado Por: Ing. Yesenia Moreno
// Modificado Por: Ing. Yozelin Barrag�n
// Fecha Creaci�n: 05/02/2007
//////////////////////////////////////////////////////////////////////////////////////////
/*require_once("../../shared/class_folder/cnumero_letra.php");
$io_letra = new cnumero_letra();*/
//Instancio a la clase de conversi�n de numeros a letras.
global $ls_tipoformato;
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
if($ls_tipoformato==1)
{
$numalet->setMoneda("Bolivares Fuerte");
$ls_moneda="EN Bs.F.";
$ls_titulo="Bs.F:";
}
else
{
$numalet->setMoneda("Bolivares");
$ls_moneda="EN Bs.";
$ls_titulo="Bs:";
}
//cambia prefijo
$numalet->setPrefijo("***");
//cambia sufijo
$numalet->setSufijo("***");
require_once("../../shared/class_folder/class_fecha.php");
$io_fecha = new class_fecha();
if($as_estpro==0)
{
$ls_tipo_orden=" Orden de Compra ";
}
else
{
$ls_tipo_orden=" Factura ";
}
$ls_prefijo="";
$ls_sufijo="";
//$ls_monto_letras=$io_letra->uf_convertir_letra($as_montotart,$ls_prefijo,$ls_sufijo);
$numalet->setNumero($as_montotart);
$ls_monto_letras= $numalet->letra();
require_once("../../shared/class_folder/class_funciones.php");
$funciones=new class_funciones();
$gestor=$_SESSION["ls_gestor"];
if ($gestor=="INFORMIX")
{
$adt_fecrec=$funciones->uf_formatovalidofecha($adt_fecrec);
$adt_fecrec=$funciones->uf_convertirfecmostrar($adt_fecrec);
}
$li_dia=substr($adt_fecrec,0,2);
$li_mes=substr($adt_fecrec,3,2);
$li_agno=substr($adt_fecrec,6,4);
$ls_mes=$io_fecha->uf_load_nombre_mes($li_mes);
$io_pdf->ezSetY(350);
$io_encabezado=$io_pdf->openObject();
$io_pdf->saveState();
$la_data=array(array('name'=>'los cuales fueron recibidos '.$adt_fecrec.' segun <b>'.$ls_tipo_orden.' No. '.$as_numordcom.'</b> Acta levantada '),
array('name'=>'al efecto, en la forma siguiente: El represenante del <b>"'.trim($as_nombre).'"</b> '),
array('name'=>'luego de haber constatado que <b>"LA EMPRESA"</b> ejecuto el suministro señalado en la referida '.$ls_tipo_orden.', declarada <b>ACEPTADA</b> la compra .'),
array('name'=>'El monto correspondiente a este suministro es de ('.$ls_titulo.' '.number_format($as_montotart,2,",",".").' )'),
array('name'=>'<b>'.$ls_monto_letras.'</b>'),
array('name'=>'En prueba de conformidad se firma, en la ciudad de '.trim($as_ciuemp).', a los '.$li_dia.' dias del mes de '.$ls_mes.' de '.$li_agno.'. '));
$la_columnas=array('name'=>'','name'=>'','name'=>'','name'=>'');
$la_config=array('showHeadings'=>0, // Mostrar encabezados
'showLines'=>0, // Mostrar L�neas
'fontSize' => 12, // Tama�o de Letras
'shaded'=>0, // Sombra entre l�neas
'shadeCol'=>array(0.5,0.5,0.5),//array($r,$g,$b), // Color de la sombra
'xOrientation'=>'center', // Orientaci�n de la tabla
'width'=>550, // Ancho de la tabla
'maxWidth'=>550, // Ancho M�ximo de la tabla
'xPos'=>306, // Orientaci�n de la tabla
/*'cols'=>array('codart'=>array('justification'=>'center','width'=>100), // Justificaci�n y ancho de la
'denart'=>array('justification'=>'center','width'=>230), // Justificaci�n y
'canart'=>array('justification'=>'center','width'=>100), // Justificaci�n y
'preuniart'=>array('justification'=>'center','width'=>100))*/); // Justificaci�n y ancho de la
$io_pdf->ezTable($la_data,$la_columnas,'',$la_config);
$io_pdf->restoreState();
$io_pdf->closeObject();
$io_pdf->addObject($io_encabezado,'all');
}// end function uf_print_pie_detalle
$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 = $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;
$ldec_total = $ldec_monto;
//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
$la_items = array('0'=>'scg_cuenta');
$la_suma = array('0'=>'monto');
$ds_dt_scg->group_by($la_items,$la_suma,'scg_cuenta');
$li_totrow_det=$ds_dt_scg->getRowCount("scg_cuenta");
$ds_dt_spg->data=$class_report->uf_cargar_dt_spg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope);
$la_items = array('0'=>'estpro','1'=>'spg_cuenta');
$la_suma = array('0'=>'monto');
$li_totrow_det=$io_report->ds_detalle->getRowCount("codasi");
$li_total=0;
for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$ls_codasi= $io_report->ds_detalle->data["codasi"][$li_s];
$ls_denasi= $io_report->ds_detalle->data["denasi"][$li_s];
$li_canasi= $io_report->ds_detalle->data["canasi"][$li_s];
$li_monto= $io_report->ds_detalle->data["monto"][$li_s];
$li_subtotal = $li_monto*$li_canasi;
$li_total=$li_total+$li_subtotal;
$li_canasi=number_format($li_canasi,2,",",".");
$li_monto=number_format($li_monto,2,",",".");
$li_subtotal=number_format($li_subtotal,2,",",".");
$la_data[$li_s]=array('codigo'=>$ls_codasi,'descripcion'=>$ls_denasi,'tarifa'=>$li_monto,'dias'=>$li_canasi,'subtotal'=>$li_subtotal);
}
$io_numero_letra->setNumero($li_total);
$ls_totalletras=$io_numero_letra->letra();
$li_total=number_format($li_total,2,",",".");
uf_print_detalle_asignaciones($la_data,$li_total,$ls_totalletras,$io_pdf); // Imprimimos el detalle
unset($la_data);
$io_report->ds_detalle->reset_ds();
$lb_existe=$io_report->uf_select_solicitudpago_spg($ls_codemp,$ls_codsolvia);
if($lb_existe)
{
$li_totrow_detpres=$io_report->ds_detpresup->getRowCount("spg_cuenta");
$ls_ano=substr($_SESSION["la_empresa"]["periodo"],0,4);
for($li_j=1;$li_j<=$li_totrow_detpres;$li_j++)
{
$ls_spgcuenta=$io_report->ds_detpresup->data["spg_cuenta"][$li_j];
$ls_denestpro1=$io_report->ds_detpresup->data["denestpro1"][$li_j];
$ls_denestpro2=$io_report->ds_detpresup->data["denestpro2"][$li_j];
{
case "V": // Venezolano
$ls_nacper="Venezolano";
break;
case "E": // Extranjero
$ls_nacper="Extranjero";
break;
}
$ls_desuniadm=$row["desuniadm"];
$li_monto=$io_fun_nomina->uf_formatonumerico($row["monto"]);
$io_numero_letra->setNumero($row["monto"]);
$ls_monto=$io_numero_letra->letra();
$ls_monto=$ls_monto." (".$ls_prefijo." ".$li_monto.")";
$ls_contenido=str_replace("\$ls_dia",$ls_dia_act,$ls_contenido);
$ls_contenido=str_replace("\$ls_mes",$ls_mes_act,$ls_contenido);
$ls_contenido=str_replace("\$ls_ano",$ls_ano_act,$ls_contenido);
$ls_contenido=str_replace("\$ls_nombres",$ls_nomper,$ls_contenido);
$ls_contenido=str_replace("\$ls_apellidos",$ls_apeper,$ls_contenido);
$ls_contenido=str_replace("\$ls_cedula",$ls_cedper,$ls_contenido);
$ls_contenido=str_replace("\$ls_cargo",$ls_descar,$ls_contenido);
$ls_contenido=str_replace("\$ls_profesion",$ls_profesion,$ls_contenido);
$ls_contenido=str_replace("\$ld_fecha_inicio",$ls_fechainicio,$ls_contenido);
$ls_contenido=str_replace("\$ld_fecha_culminacion",$ls_fechafinal,$ls_contenido);
$ls_contenido=str_replace("\$ls_nacionalidad",$ls_nacper,$ls_contenido);
$ls_contenido=str_replace("\$ls_unidad_administrativa",$ls_desuniadm,$ls_contenido);
break;
}
if($ls_tiporeporte==1)
{
$ls_prefijo="Bs.F.";
}
else
{
$ls_prefijo="Bs.";
}
$ls_telhabper=$io_report->DS_detalle->data["telhabper"][$li_s];
$ls_telmovper=$io_report->DS_detalle->data["telmovper"][$li_s];
$ls_desuniadm=$io_report->DS_detalle->data["desuniadm"][$li_s];
$li_horper=$io_fun_nomina->uf_formatonumerico($io_report->DS_detalle->data["horper"][$li_s]);
$li_sueper=$io_fun_nomina->uf_formatonumerico($io_report->DS_detalle->data["sueper"][$li_s]);
$io_numero_letra->setNumero($io_report->DS_detalle->data["sueper"][$li_s]);
$ls_sueper=$io_numero_letra->letra();
$ls_sueper=$ls_sueper." (".$ls_prefijo." ".$li_sueper.")";
$li_sueintper=$io_fun_nomina->uf_formatonumerico($io_report->DS_detalle->data["sueintper"][$li_s]);
$io_numero_letra->setNumero($io_report->DS_detalle->data["sueintper"][$li_s]);
$ls_sueintper=$io_numero_letra->letra();
$ls_sueintper=$ls_sueintper." (".$ls_prefijo." ".$li_sueintper.")";
$li_sueproper=$io_fun_nomina->uf_formatonumerico($io_report->DS_detalle->data["sueproper"][$li_s]);
$io_numero_letra->setNumero($io_report->DS_detalle->data["sueproper"][$li_s]);
$ls_sueproper=$io_numero_letra->letra();
$ls_sueproper=$ls_sueproper." (".$ls_prefijo." ".$li_sueproper.")";
$ls_desded=$io_report->DS_detalle->data["desded"][$li_s];
$ls_destipper=$io_report->DS_detalle->data["destipper"][$li_s];
$ls_fecjub=$io_report->DS_detalle->data["fecjubper"][$li_s];
$ls_mes2=$io_fecha->uf_load_nombre_mes(substr($ls_fecjub,5,2));
$ls_fecjub="el ".substr($ls_fecjub,8,2)." de ".$ls_mes2." de ".substr($ls_fecjub,0,4);
$io_pdf->ezSetCmMargins(4,3,2,2.2); // 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
$li_numrows = $io_sql->num_rows($rs_data);
if ($li_numrows>0)
{
$io_pdf->transaction('start'); // Iniciamos la transacción
$li_numpag = $io_pdf->ezPageCount; // Número de página
$li_i = 0;
while($row=$io_sql->fetch_row($rs_data))
{
$li_i++;
$ls_nompro = $row["nompro"];
$li_montot = $row["montot"];
if ($li_i==1)
{
$io_numero_letra->setNumero($li_montot);
$ls_totordser=$io_numero_letra->letra();
$ls_contenido="Entre <b>".$ls_nomemp."</b> representado en este acto por el ciudadano <b>".$ls_nomper."</b> por una parte y por la otra 'LA EMPRESA' <b>".$ls_nompro."</b> representada en este acto por el ciudadano <b>".$ls_nomreppro."</b>, se ha procedido a efectuar la recepción de los servicios consistentes en: ";
$io_pdf->ezText($ls_contenido,9,array('justification' =>'full','spacing' =>1));
}
$ls_estcom = $row["estcom"];
if ($ls_estcom!=7)
{
print("<script language=JavaScript>");
print(" alert('La Orden de Servicios no esta en estatus de Recibida');");
print(" close();");
print("</script>");
}
$ls_codser = $row["codser"];
$ls_denser = $row["denser"];
$li_canser = $row["canser"];
$io_report->rs_data_detalle->MoveNext();
}
if(!empty($la_data))
{
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$li_total=$li_total+$li_subtot;
$ls_descripcion="Pago por Taquilla";
$li_subtot=$io_fun_nomina->uf_formatonumerico($li_subtot);
uf_print_pie_detalle($ls_descripcion,$li_subtot,$io_pdf); // Imprimimos pie de la cabecera
}
unset($la_data);
}
$io_pdf->stopObject($io_cabecera); // Detener el objeto cabecera
unset($io_cabecera);
$numalet->setNumero($li_total);
$ls_monto= $numalet->letra();
$li_total=$io_fun_nomina->uf_formatonumerico($li_total);
uf_print_piecabecera($li_total,$io_pdf);
$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
$io_pdf->stopObject($io_encabezado);
unset($io_encabezado);
$io_pdf->ezNewPage();
uf_print_carta_banco($ls_nomban,$ls_desnom,$ld_fecdesper,$ld_fechasper,$ls_codcue,$ls_peractnom,$ls_monto,$li_total,$ld_fecdesper,$ld_fechasper,$io_pdf);
$io_report->rs_data->MoveNext();
}
if($lb_valido) // Si no ocurrio ningún error
{
$io_pdf->ezStream(); // Mostramos el reporte
}
else // Si hubo algún error
