<?php
session_start();
$ruta = '../../';
include($ruta."cxc/clases/covensol_cxc_c_cuentasxcobrar.php");
$propiedades['habilitar_json'] = 'no';
$objcxc = new covensol_cxc_cuentasxcobrar($propiedades);
$valido = $objcxc->cargar_seguridad("CXC","covensol_cxc_rpp_factura.php");
if($valido===false){exit();}

$objcxc->numalet->setMayusculas(1);
//cambia a femenino
$objcxc->numalet->setGenero(1);
//cambia moneda
$objcxc->numalet->setMoneda("Bolivares");
//cambia prefijo
$objcxc->numalet->setPrefijo("***");
//cambia sufijo
$objcxc->numalet->setSufijo("***");

require_once($ruta.'shared/tcpdf/config/lang/ita.php');
require_once($ruta.'shared/tcpdf/tcpdf.php');  
header("Pragma: public");
header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
header("Cache-Control: private",false);


$pdf = new TCPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, 'LETTER', true, 'UTF-8', false); 
//$pdf->setFooterFont(array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));
$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
$pdf->SetMargins(PDF_MARGIN_LEFT, 5, PDF_MARGIN_RIGHT);
//$pdf->SetFooterMargin(15);
$pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);
$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
$pdf->setPrintHeader(false);
/*
$direccion="Telecomunicaciones Gran caribe, S. A. – Dirección: A.V. Andrés Bello, Edificio Fondo Común, Piso 4, 
            Urb. Guaicaipuro. Caracas. Venezuela Teléfonos:  Tel.+58 393 29 31 ";
*/
//$pdf->setTextoFooter(utf8_encode($direccion));
$pdf->SetFont('helvetica', '', 9);
$pdf->AddPage();

function fecha_factura($opciones=array()){		
														
			global $pdf;
			
			$pdf->SetFont('helvetica', '', 12);
			$pdf->SetTextColor(0);
			$pdf->SetFillColor(255,255,255);
			$margen_tabla = 115;
			$fechasep = explode('/',$opciones['fecfact']);
			$fechasep['dia'] = $fechasep[0];
			$fechasep['mes'] = $fechasep[1];
			$fechasep['ano'] = $fechasep[2];
			$fecha = $fechasep['dia'].'   '.$fechasep['mes'].'   '.$fechasep['ano'];
			//CELDA DE MARGEN
			$pdf->Cell($margen_tabla, 3,"", 0,0,'L',1);			
			//Cell( $w, $h, $txt, $border,$ln,$align, $fill,$link,$stretch,$ignore_min_height)
			$pdf->Cell(47, 3,"Caracas", 0,0,'L',1);
			$pdf->Cell(30, 3,$fecha, 0,0,'L',1);
			$pdf->Ln();		
}

function totales($opciones=array()){		
														
			global $pdf,$ancho_detalle,$objcxc,$extrajera,$totalNacional,$ancho_total;
			$tamano = 9;
			if(!$extrajera){
				$total ='<p><table width="'.$ancho_total.'" border="1" cellspacing="0" cellpadding="2" bordercolor="#CCCCCC">
							   <tr bgcolor="#FFFFFF" >
								<td width="'.$ancho_detalle[4].'" ><p align="right"><strong><font size="'.$tamano.'">Sub Total'.$objcxc->TxtMoneda.':</font></strong></p></td>
								<td width="'.$ancho_detalle[5].'"><p align="right"><strong><font size="'.$tamano.'">'.number_format($objcxc->DatosFact['subtot']/$objcxc->TasaCambio,2,',','.').'</font></strong></p></td>
							  </tr>
							   <tr bgcolor="#FFFFFF" >
								<td width="'.$ancho_detalle[4].'" ><p align="right"><strong><font size="'.$tamano.'">Total Iva'.$objcxc->TxtMoneda.':</font></strong></p></td>
								<td width="'.$ancho_detalle[5].'"><p align="right"><strong><font size="'.$tamano.'">'.number_format($objcxc->DatosFact['iva']/$objcxc->TasaCambio,2,',','.').'</font></strong></p></td>
							  </tr>	
							   <tr bgcolor="#FFFFFF" >
								<td width="'.$ancho_detalle[4].'" ><p align="right"><strong><font size="'.$tamano.'">Neto'.$objcxc->TxtMoneda.':</font></strong></p></td>
								<td width="'.$ancho_detalle[5].'"><p align="right"><strong><font size="'.$tamano.'">'.number_format($objcxc->DatosFact['total']/$objcxc->TasaCambio,2,',','.').'</font></strong></p></td>
							  </tr>							 	 
							</table></p>';				
			}else{ 
				$total ='<p><table width="'.$ancho_total.'" border="1" cellspacing="0" cellpadding="2" bordercolor="#CCCCCC">
							   <tr bgcolor="#FFFFFF" >
							    <td width="'.$ancho_detalle[4].'" ><p align="right"><strong><font size="'.$tamano.'">Sub Total'.$objcxc->TxtMoneda.':</font></strong></p></td>
								<td width="'.$ancho_detalle[5].'"><p align="right"><strong><font size="'.$tamano.'">'.number_format($objcxc->DatosFact['subtot']/$objcxc->TasaCambio,2,',','.').'</font></strong></p></td>
								<td width="'.$ancho_detalle[4].'" ><p align="right"><strong><font size="'.$tamano.'">Sub Total('.$objcxc->AbrMonDef.'):</font></strong></p></td>
								<td width="'.$ancho_detalle[5].'"><p align="right"><strong><font size="'.$tamano.'">'.number_format($objcxc->DatosFact['subtot'],2,',','.').'</font></strong></p></td>
							  </tr>
							   <tr bgcolor="#FFFFFF" >
							    <td width="'.$ancho_detalle[4].'" ><p align="right"><strong><font size="'.$tamano.'">IVA'.$objcxc->TxtMoneda.':</font></strong></p></td>
								<td width="'.$ancho_detalle[5].'"><p align="right"><strong><font size="'.$tamano.'">'.number_format($objcxc->DatosFact['iva']/$objcxc->TasaCambio,2,',','.').'</font></strong></p></td>
								<td width="'.$ancho_detalle[4].'" ><p align="right"><strong><font size="'.$tamano.'">IVA('.$objcxc->AbrMonDef.'):</font></strong></p></td>
								<td width="'.$ancho_detalle[5].'"><p align="right"><strong><font size="'.$tamano.'">'.number_format($objcxc->DatosFact['iva'],2,',','.').'</font></strong></p></td>
							  </tr>	
							   <tr bgcolor="#FFFFFF" >
							    <td width="'.$ancho_detalle[4].'" ><p align="right"><strong><font size="'.$tamano.'">Total'.$objcxc->TxtMoneda.':</font></strong></p></td>
								<td width="'.$ancho_detalle[5].'"><p align="right"><strong><font size="'.$tamano.'">'.number_format($objcxc->DatosFact['total']/$objcxc->TasaCambio,2,',','.').'</font></strong></p></td>
								<td width="'.$ancho_detalle[4].'" ><p align="right"><strong><font size="'.$tamano.'">Total('.$objcxc->AbrMonDef.'):</font></strong></p></td>
								<td width="'.$ancho_detalle[5].'"><p align="right"><strong><font size="'.$tamano.'">'.number_format($objcxc->DatosFact['total'],2,',','.').'</font></strong></p></td>
							  </tr>							 	 
							</table></p>';
							
					
			}
			
			$pdf->writeHTML(utf8_encode($total), true, false, false, false, '');
			
}


$margenes = $pdf->getMargins();

$fecha = date('m/d/Y');
$ano = date('Y');
$mes = date('m');
$dia = date('d');

//$pdf->Image($ruta.'shared/imagebank/'.$_SESSION["ls_logo"],$margenes['left'],$margenes['top'], 30, 15); 

$prop['id_fact'] = $_GET['gid_fact'];
$datosFact = $objcxc->extraerdatos_factura($prop);
$datos = $datosFact['fila'];

$objcxc->CargarMonedaLocal=$_GET['forzarlocal'];
$resp=$objcxc->ConfPresentMoneda($objcxc->DatosFact);

//SEGURIDAD DE LA SUCURSAL
$objcxc->codintper = $datos['codsuc'];		
if(!$objcxc->obtSegCxc()){$objcxc->MensajeReporte("No tiene permisos para la Sucursal"); $objcxc->CerrarVentana();}

//SEGURIDAD DE LA CAJA
$objcxc->codintper = $datos['codsuc'].' - '.$datos['codcaj'];		
if(!$objcxc->obtSegCxc()){$objcxc->MensajeReporte("No tiene permisos para la Caja"); $objcxc->CerrarVentana();}


$pdf->SetLineStyle(array('width' => 0.2, 'color' => $pdf->decodifica_color('#DDDDDD')));
$ancho[1] = 210;
$ancho[2] = 330;
$ancho_total = array_sum($ancho);

//$pdf->SetY(30);
//fecha_factura($datos);
$pdf->SetFont('helvetica', '', 10);
$pdf->SetY(45);

$extrajera = ($objcxc->MonedaExtranjera)?1:0;

if(!$extrajera){

	
	$datos_factura = '<b>Nº Factura:</b> '.$datos['numfact'].'<br/>'.
					 '<b>Fecha Emisión:</b> '.$datos['fecfact'].'<br/>'.
					 '<b>Fecha Vencimiento:</b> '.$datos['fecvenc'].'<br/>'.
					 '<b>Otros Datos:</b> '.$datos['descripfact'].'<br/>'.
					 '<b>Vendedor:</b> '.$datos['nomvend'];
	$espacios = '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;			
				 &nbsp;&nbsp;';
	
	$datos_cliente = '<b>Cliente:</b> '.$datos['codcliente'].$espacios.'<b>RIF:</b> '.$datos['rif_completo'].'<br/>'.
					 '<b>Razón Social:</b> '.$datos['nombre_cliente'].'<br/>'.
					 '<b>Domicilio Fiscal:</b> '.$datos['dircliente'].', Telf. '.$datos['telcliente'];
	
	
	$encabezado ='<table width="'.$ancho_total.'" border="1" cellspacing="0" cellpadding="2" bordercolor="#CCCCCC">
				   <tr bgcolor="#CCCCCC" >
					<td width="'.$ancho[1].'" ><p align="left"><strong>Datos de Factura</strong></p></td>
					<td width="'.$ancho[2].'"><p align="left"><strong>Datos del Cliente</strong></p></td>
				  </tr>
				  <tr>
					<td width="'.$ancho[1].'"> '.$datos_factura.' </td>
					<td width="'.$ancho[2].'"> '.$datos_cliente.' </td>
				  </tr>			 
				</table>';
}

if($extrajera){
    $objcxc->TxtTasaCambio = str_replace('Tasa de Cambio','Tasa de Cambio',$objcxc->TxtTasaCambio);
	$datos_factura = '<b>Nº Factura:</b> '.$datos['numfact'].'<br/>'.
					 '<b>Fecha Emisión:</b> '.$datos['fecfact'].'<br/>'.
					 '<b>Fecha Vencimiento:</b> '.$datos['fecvenc'].'<br/>'.
					 '<b>Otros Datos:</b> '.$datos['descripfact'].'<br/>'.
					  $objcxc->TxtTasaCambio;
	$espacios = '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;			
				 &nbsp;&nbsp;';
	
	$datos_cliente = '<b>Cliente:</b> '.$datos['codcliente'].$espacios.'<b>RIF:</b> '.$datos['rif_completo'].'<br/>'.
					 '<b>Razón Social:</b> '.$datos['nombre_cliente'].'<br/>'.
					 '<b>Domicilio Fiscal:</b> '.$datos['dircliente'].', Telf. '.$datos['telcliente'];
	
	
	$encabezado ='<table width="'.$ancho_total.'" border="1" cellspacing="0" cellpadding="2" bordercolor="#CCCCCC">
				   <tr bgcolor="#CCCCCC" >
					<td width="'.$ancho[1].'" ><p align="left"><strong>Datos de Factura</strong></p></td>
					<td width="'.$ancho[2].'"><p align="left"><strong>Datos del Cliente</strong></p></td>
				  </tr>
				  <tr>
					<td width="'.$ancho[1].'"> '.$datos_factura.' </td>
					<td width="'.$ancho[2].'"> '.$datos_cliente.' </td>
				  </tr>			 
				</table>';
}


$pdf->writeHTML(utf8_encode($encabezado), true, false, false, false, '');


if(!$extrajera){
	$ancho_detalle[1] = 248;
	$ancho_detalle[2] = 50;
	$ancho_detalle[3] = 74;
	$ancho_detalle[4] = 74;
	$ancho_detalle[5] = 94;
	$tot_ancho_detalle = array_sum($ancho_detalle);
	
	
	$pdf->SetFont('helvetica', '', 8);
	$TamanoFuente = 8;
	$datos['criterio']='por_detalle';
	$detalle = $objcxc->consulta_detalles_fact($datos);
	$filas = '';
	foreach($detalle['rs'] as $datosdet){
			
		$datosdet = $objcxc->formatear_detalle_grilla($datosdet);
		
		$desc = ($datosdet['comentario'])?($datosdet['dendetalle'].': '.$datosdet['comentario']):$datosdet['dendetalle'].'<br />';
		
		$filas .= '<tr bgcolor="'.$color_fila.'">
						<td width="'.$ancho_detalle[1].'" align="justify"><font size="'.$TamanoFuente.'">'.$desc.'</font></td>
						<td width="'.$ancho_detalle[2].'" align="right"><font size="'.$TamanoFuente.'">'.$datosdet['cantidad_detalle'].'</font></td>
						<td width="'.$ancho_detalle[3].'" align="right"><font size="'.$TamanoFuente.'">'.$datosdet['precio_detalle'].'</font></td>
						<td width="'.$ancho_detalle[4].'" align="right"><font size="'.$TamanoFuente.'">'.$datosdet['iva_detalle'].'</font></td>
						<td width="'.$ancho_detalle[5].'" align="right"><font size="'.$TamanoFuente.'">'.$datosdet['neto_detalle'].'</font></td>
					</tr>';
	}

}
else{

	$ancho_detalle[1] = 190;
	$ancho_detalle[2] = 30;
	$ancho_detalle[3] = 80;
	$ancho_detalle[4] = 80;
	$ancho_detalle[5] = 80;
	$ancho_detalle[6] = 80;
	$tot_ancho_detalle = array_sum($ancho_detalle);
		
	$pdf->SetFont('helvetica', '', 8);
	$TamanoFuente = 8;
	$datos['criterio']='por_detalle';
	$detalle = $objcxc->consulta_detalles_fact($datos);
	$filas = '';
	
	foreach($detalle['rs'] as $datosdet){
		
		$precio_detalle = number_format($datosdet['precio_detalle'],2,',','.');
		$neto_detalle = number_format($datosdet['neto_detalle'],2,',','.');
		
		$datosdet = $objcxc->formatear_detalle_grilla($datosdet);
		
		$desc = ($datosdet['comentario'])?($datosdet['dendetalle'].': '.$datosdet['comentario']):$datosdet['dendetalle'].'<br />';
		
		$filas .= '<tr bgcolor="'.$color_fila.'">
						<td width="'.$ancho_detalle[1].'" align="justify"><font size="'.$TamanoFuente.'">'.$desc.'</font></td>
						<td width="'.$ancho_detalle[2].'" align="right"><font size="'.$TamanoFuente.'">'.$datosdet['cantidad_detalle'].'</font></td>
						<td width="'.$ancho_detalle[3].'" align="right"><font size="'.$TamanoFuente.'">'.$datosdet['precio_detalle'].'</font></td>
						<td width="'.$ancho_detalle[4].'" align="right"><font size="'.$TamanoFuente.'">'.$datosdet['neto_detalle'].'</font></td>
						<td width="'.$ancho_detalle[5].'" align="right"><font size="'.$TamanoFuente.'">'.$precio_detalle.'</font></td>
						<td width="'.$ancho_detalle[6].'" align="right"><font size="'.$TamanoFuente.'">'.$neto_detalle.'</font></td>
					</tr>';

	}
}


if(!$extrajera){
$totalloc = $objcxc->DatosFact['total']/$objcxc->TasaCambio;
$objcxc->numalet->setNumero($totalloc);
//Obtengo el texto del monto enviado.
$montoletra= $objcxc->numalet->letra();
$detalle ='<table width="'.$tot_ancho_detalle.'" border="1" cellspacing="0" cellpadding="1" bordercolor="#CCCCCC">
			   <tr bgcolor="#CCCCCC" >
				<td width="'.$ancho_detalle[1].'" ><p align="center"><strong><font size="'.$TamanoFuente.'">Descripción</font></strong></p></td>
				<td width="'.$ancho_detalle[2].'"><p align="center"><strong><font size="'.$TamanoFuente.'">Cant.</font></strong></p></td>
				<td width="'.$ancho_detalle[3].'"><p align="center"><strong><font size="'.$TamanoFuente.'">P.U'.$objcxc->TxtMoneda.'</font></strong></p></td>
				<td width="'.$ancho_detalle[4].'"><p align="center"><strong><font size="'.$TamanoFuente.'">Iva'.$objcxc->TxtMoneda.'</font></strong></p></td>
				<td width="'.$ancho_detalle[5].'"><p align="center"><strong><font size="'.$TamanoFuente.'">Total'.$objcxc->TxtMoneda.'</font></strong></p></td>				
			  </tr>
			'.$filas.'			  		 
			</table>';
	
		
		$columnatxt1 = '<b>Beneficiario:</b>Telecomunicaciones Gran Caribe  S.A';
		$columnatxt2 = '<b>Banco Receptor:</b> Banco Industrial de Venezuela
						';
		$columnatxt3 = '<b>Cuenta Bancaria Nº:</b> 0003-0057-84-1480483928
						';
		
		$nota = $montoletra.'<br /><br /><table width="'.($ancho_total/2).'" border="1" cellspacing="0" cellpadding="2" bordercolor="#FAFAFA">
				   <tr bgcolor="#CCCCCC" colspan="3" >
						<td><p align="center"><b>Detalles de pago</b></p></td>						
				   </tr>
				   <tr bgcolor="#FAFAFA" >
						<td width="'.($ancho_total/2).'"><p align="left">'.$columnatxt1.'</p></td>						
				   </tr>
				   <tr bgcolor="#FAFAFA" >
						<td width="'.($ancho_total/2).'"><p align="left">'.$columnatxt2.'</p></td>						
				   </tr>
				   <tr bgcolor="#FAFAFA" >
						<td width="'.($ancho_total/2).'"><p align="left">'.$columnatxt3.'</p></td>						
				   </tr>				  
				</table>';
}
else{

$totalloc = $objcxc->DatosFact['total'];
$objcxc->numalet->setNumero($totalloc);
//Obtengo el texto del monto enviado.
$montoletra= $objcxc->numalet->letra();

$objcxc->numalet->setMoneda("Dolares");
$totallocext = $objcxc->DatosFact['total']/$objcxc->TasaCambio;
$objcxc->numalet->setNumero($totallocext);
//Obtengo el texto del monto enviado.
$montoletraext= $objcxc->numalet->letra();

$detalle ='<table width="'.$tot_ancho_detalle.'" border="1" cellspacing="0" cellpadding="1" bordercolor="#CCCCCC">
			   <tr bgcolor="#CCCCCC" >
				<td width="'.$ancho_detalle[1].'" ><p align="center"><strong><font size="'.$TamanoFuente.'">Descripción</font></strong></p></td>
				<td width="'.$ancho_detalle[2].'"><p align="center"><strong><font size="'.$TamanoFuente.'">Cant.</font></strong></p></td>
				<td width="'.$ancho_detalle[3].'"><p align="center"><strong><font size="'.$TamanoFuente.'">P.U'.$objcxc->TxtMoneda.'</font></strong></p></td>				
				<td width="'.$ancho_detalle[4].'"><p align="center"><strong><font size="'.$TamanoFuente.'">Total'.$objcxc->TxtMoneda.'</font></strong></p></td>	
				<td width="'.$ancho_detalle[5].'"><p align="center"><strong><font size="'.$TamanoFuente.'">P.U(Bs.)</font></strong></p></td>				
				<td width="'.$ancho_detalle[6].'"><p align="center"><strong><font size="'.$TamanoFuente.'">Total(Bs.)</font></strong></p></td>				
			  </tr>
			'.$filas.'			  		 
			</table>';

			
		$columnatxt1 = '<font size="'.$TamanoFuente.'"><b>Referencia:</b> PAGO ETECSA-CUENTA COLECTORA</font>';
		$columnatxt2 = '<font size="'.$TamanoFuente.'"><b>Beneficiario:</b> BANCO INDUSTRIAL DE VENEZUELA CUBA CUENTA COLECTORA TELECOMUNICACIONES GRAN CARIBE, S.A.</font>
						';
		$columnatxt3 = '<font size="'.$TamanoFuente.'"><b>Banco Receptor:</b> COMMERZBANK   FRANKFURT, ALEMANIA</font>
						';
		$columnatxt4 = '<font size="'.$TamanoFuente.'"><b>Dirección:</b> MAINZER LANDSTRASSE 153 D-60327 FRANKFURT AM MAIN</font>';
		$columnatxt5 = '<font size="'.$TamanoFuente.'"><b>Cuenta Bancaria Nº:</b> EUR400877512400</font>
						';
		$columnatxt6 = '<font size="8"><b>Código Swift:</b> COBADEFF</font>
						';
		
$nota = $montoletra.'<br />'.$montoletraext.'<br /><br /><table width="'.$ancho_total.'" border="1" cellspacing="0" cellpadding="2" bordercolor="#FAFAFA">
				   <tr bgcolor="#CCCCCC" colspan="3" >
						<td><p align="center"><b>INSTRUCCIONES DE TRANSFERENCIA</b></p></td>						
				   </tr>
				   <tr bgcolor="#FAFAFA" >
						<td width="'.($ancho_total/2).'"><p align="left">'.$columnatxt1.'</p></td>
						<td width="'.($ancho_total/2).'"><p align="left">'.$columnatxt2.'</p></td>						
				   </tr>
				   <tr bgcolor="#FAFAFA" >
						<td width="'.($ancho_total/2).'"><p align="left">'.$columnatxt3.'</p></td>
						<td width="'.($ancho_total/2).'"><p align="left">'.$columnatxt4.'</p></td>						
				   </tr>
				   <tr bgcolor="#FAFAFA" >
						<td width="'.($ancho_total/2).'"><p align="left">'.$columnatxt5.'</p></td>
						<td width="'.($ancho_total/2).'"><p align="left">'.$columnatxt6.'</p></td>						
				   </tr>				  
				</table>';


}			
$pdf->writeHTML(utf8_encode($detalle), true, false, false, false, '');
$pdf->Ln();

if($datos['comentadifact']){
	$observacionEsp = '<p  style="text-align:center;"><font size="14"><b>'.$datos['comentadifact'].'</b></font></p>';
	$observacionIng = '<p  style="text-align:center;"><font size="14"><b>'.$datos['comentadifact'].'</b></font></p>';
	$observacion = $extrajera?$observacionIng:$observacionEsp;
	$pdf->writeHTML(utf8_encode($observacion), true, false, false, false, '');
	$pdf->Ln();
}

if(!$extrajera){$pdf->SetMargins(146.2, 5, PDF_MARGIN_RIGHT);}else{$pdf->SetMargins(92, 10, PDF_MARGIN_RIGHT);}
$pdf->Ln();
$pdf->SetY(180);
$pdf->SetLineStyle(array('width' => 0.3, 'color' => $pdf->decodifica_color('#AAAAAA')));
$pdf->Line(15, $pdf->GetY(), 205, $pdf->GetY());
$pdf->SetLineStyle(array('width' => 0.2, 'color' => $pdf->decodifica_color('#DDDDDD')));
$pdf->Ln();
totales($datos);
$pdf->SetMargins(PDF_MARGIN_LEFT, 5, PDF_MARGIN_RIGHT);
$pdf->Ln();	
if($totalNacional){	
	$pdf->writeHTML(utf8_encode($totalNacional), true, false, false, false, '');
	$pdf->Ln();
}	
if($nota){
	$pdf->writeHTML(utf8_encode($nota), true, false, false, false, '');
	$pdf->Ln();
}

$pdf->Output('factura_'.$datos['numfact'].'.pdf', 'I');


?>
