<%@language=vbscript%>
<%
Response.Buffer=True
Session.LCID=2058
'****  SI INICIO DE SESION ****
If Session("ID")=0 then
	Response.Redirect("http://www.grupo-mim.com")
	Response.End
	
	'****CON SESION ***
	Else
	%> 
	<!--#include file="fpdf/numeros.asp"-->
	<!--#include file="fpdf.asp"-->


<% 
Dim Empresa, Fremnum

Empresa = Request("Empresa")
Fremnum = Request("Fremnum")

Set Cn1 = Server.CreateObject( "ADODB.Connection" )
Cn1.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=ADMIMSIS;PWD=ST2108GP;Database=" & Empresa &""

Set Rs1 = server.CreateObject("ADODB.Recordset")
Sql1="SELECT * FROM EMPRESA"
Rs1.Open Sql1,Cn1,1,2

NombreE = Rs1("Nombre")
DireccionE = Rs1("Direccion")
ColoniaE = Rs1("Colonia")
PoblacionE = Rs1("Poblacion")
TelefonoE = Rs1("Telefono")
FaxE = Rs1("Fax")
CorreoE = Rs1("Correo")
WebsiteE = Rs1("Website")
RFCE = Rs1("RFC")

Set Rs2 = server.CreateObject("ADODB.Recordset")
Sql2="Select Clifreme, Nomcli, Calcli, Numcli, Numicli, Colcli, Pobcli, Edocli, Pais, Cpcli, RFCcli, " &_
"Numfreme, Fecfreme, FenFreme, Labfreme, Confreme, Nomvend, Desdiv, Centregar, Hrecibor, Embfreme, " &_
"Subfreme, Ivtfreme, Totfreme, Desdiv, Abrdiv, Cladiv, " &_
"FXCFREME, ConsolidarR, RecogeR, Embarcarr, Cerfreme, Pecfreme, Insfreme, Facofreme, " &_
"Facfreme, Penfreme, Resfreme, Anfreme, Otrofreme, SeguridadR, Obsfreme, Mosfreme, CPfreme " &_
"From Fremenc, Clientes, Vendedores, Monedas " &_
"Where Numfreme = "& Fremnum &" and Clifreme = Clacli and Vencli = Cvevend and Monfreme = Cladiv;"
Rs2.Open Sql2,Cn1,1,2

ClaveC = Rs2("Clifreme")
NombreC = Rs2("Nomcli")
DireccionCa = Rs2("Calcli") & " " & Rs2("Numcli") & " " & Rs2("Numicli") & " " & Rs2("Colcli") 
DireccionCa = Mid(DireccionCa,1,71)
DireccionCb = Rs2("Pobcli") & ", " & Rs2("Edocli") & ", " & Rs2("Pais") & ", " & Rs2("Cpcli") 
RFCC = Rs2("RFCcli")

NumeroR = Rs2("Numfreme")
FechaR = Rs2("Fecfreme")
FechaR = Cstr(FechaR)
FechaE = Rs2("Fenfreme")
FechaE = Cstr(FechaE)
DiascreR = Rs2("Confreme")
MonedaR = Rs2("Desdiv")
OCClienteR = Rs2("Labfreme")
MonedaClave = Rs2("Cladiv")

Codigopostal = Cstr(Rs2("Cpfreme"))

ContactoRa = Mid(Rs2("Centregar"),1,45)
ContactoRb = Mid(Rs2("Centregar"),46,90)

VendedorR = Rs2("Nomvend")

HorarioRa = Mid(Rs2("Hrecibor"),1,48)
HorarioRb = Mid(Rs2("Hrecibor"),49,100)


Mostrador = Rs2("Mosfreme")

	If ClaveC = "CDM" OR ClaveC = "" OR ClaveC = "00000IOE" OR ClaveC = "0000AII1" OR ClaveC = "000GOBE" OR ClaveC = "00000MEM" OR ClaveC = "0000IPP7" OR ClaveC="0000FIR1"  Or ClaveC = "0000NSC" Or ClaveC = "0000AAFR" OR ClaveC = "0000CMM3" OR ClaveC = "0000ESB8"  OR ClaveC = "0000PME7"  OR ClaveC = "00000NSI" OR ClaveC = "0000CSC1" OR ClaveC = "0000TSE5" OR ClaveC = "0000POPI" OR ClaveC = "0000ISU1" OR ClaveC = "0000NSC1" OR ClaveC = "0000NSC2" OR ClaveC = "0000NSC3" OR ClaveC = "0000NNEX" OR ClaveC = "0000ELE0" OR ClaveC = "0000AII1" OR ClaveC = "000GOBE" OR ClaveC = "00000MEM" OR ClaveC = "0000POL8" OR ClaveC = "000CORI5" Then

	SubtotalR = 0
	IvaR = 0
	TotalR = 0
	
	Else
	
	SubtotalR = Rs2("Subfreme")
	IvaR = Rs2("Ivtfreme")
	TotalR = Rs2("Totfreme")
	
	End If
	
	
FLETEPAGO = Rs2("FXCFREME")
EmbarcarA = Rs2("Embfreme")


FacturaCo = Rs2("Facofreme")

If FacturaCo = 0 Then
	FacturaCoR = ""
	
	Else
	FacturaCoR = "X"
End If



If fletePago = 0 then
	fletePagado = NombreE
	
	Else
	
	FletePagado = NombreC
End If

Consolida = Rs2("Consolidarr")

If Consolida = 0 Then
	ConsolidaR = ""
	
	Else
	Consolidar = "X"
End If


Recoge = Rs2("Recoger")

If Recoge = 0 Then
	RecogeR = ""
	
	Else
	RecogeR = "X"
End If

Embarca = Rs2("EmbarcarR")

If Embarca = 0 Then
	EmbarcaR = ""
	
	Else
	EmbarcaR = "X"
End If

Certificado = Rs2("Cerfreme")

If Certificado = 0 Then
	CertificadoR = ""
	
	Else
	CertificadoR = "X"
End If

Inspeccion = Rs2("Insfreme")

If Inspeccion = 0 Then
	InspeccionR = ""
	
	Else
	InspeccionR = "X"
End If

Factura = Rs2("Facfreme")

If Factura = 0 Then
	FacturaC = ""
	
	Else
	FacturaC = "X"
End If

Penalizado = Rs2("Penfreme")

If Penalizado = 0 Then
	PenalizadoR = ""
	
	Else
	PenalizadoR = "X"
End If

PedidoCR = Rs2("Pecfreme")

If PedidoCR = 0 Then
	PedidoCR = ""
	
	Else
	PedidoCR = "X"
End If

Restriccion = Rs2("Resfreme")

If Restriccion = 0 Then
	RestriccionR = ""
	
	Else
	RestriccionR = "X"
End If

Anticipo = Rs2("Anfreme")

If Anticipo = 0 Then
	AnticipoR = ""
	Leyanticipo = "Blank"
	Else
	AnticipoR = "X"
	LeyAnticipo = "LeyAnticipo"	
End If

Otros = Rs2("Otrofreme")

If Otros = 0 Then
	OtrosR = ""
	
	Else
	OtrosR = "X"
End If

Seguridad = Rs2("SeguridadR")

If Seguridad = 0 Then
	SeguridadR = ""
	
	Else
	SeguridadR = "X"
End If

ObservacionesR = Rs2("Obsfreme")

'//  ESTAS VARIABLES SON SOLO PARA LA CANTIDAD EN LETRA //

Fe100 = Rs2("Desdiv")
FE16 = Rs2("Abrdiv")

Set Rs3 = server.CreateObject("ADODB.Recordset")
Sql3="Select MAX(ANTFREMD) AS PEDIDOR, max(desalm) as Almacen " &_
"From Fremdet, Almacenes " &_
"WHERE NREFREMD = "& Fremnum &" and almfremd = Claalm;"
Rs3.Open Sql3,Cn1,1,2

PedidoR = Rs3("PedidoR")
AlmacenR = Rs3("Almacen")

Set Rs4 = server.CreateObject("ADODB.Recordset")
Sql4="Select Secfremd, Canfremd, Codfremd, Nominv, UdmInv, Unifremd, PesoInv, Ctlmul, Coladas, Obsfremd, OCFREMD " &_
"From Fremdet, Inventarios, multialmacen " &_
"Where Nrefremd = "& Fremnum &" and Codfremd = Cveinv and Almfremd = Almmul and Codfremd = Artmul and Canfremd > 0 " &_
"Order by Secfremd;"
Rs4.Open Sql4,Cn1,1,2

Set Rs5 = server.CreateObject("ADODB.Recordset")
Sql5="Select Secfremd, Canfremd, Codfremd, Nominv, UdmInv, Unifremd, PesoInv, Ctlmul, Coladas, Obsfremd, OCFREMD " &_
"From Fremdet, Inventarios, multialmacen " &_
"Where Nrefremd = "& Fremnum &" and Codfremd = Cveinv and Almfremd = Almmul and Codfremd = Artmul and Canfremd > 0 " &_
"Order by Secfremd;"
Rs5.Open Sql5,Cn1,1,2

Set Rs6 = server.CreateObject("ADODB.Recordset")
Sql6="Select Secfremd, Canfremd, Codfremd, Nominv, UdmInv, Unifremd, PesoInv, Ctlmul, Coladas, Obsfremd, OCFREMD " &_
"From Fremdet, Inventarios, multialmacen " &_
"Where Nrefremd = "& Fremnum &" and Codfremd = Cveinv and Almfremd = Almmul and Codfremd = Artmul and Canfremd > 0 " &_
"Order by Secfremd;"
Rs6.Open Sql6,Cn1,1,2

Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF "P", "mm", "Letter"
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",7
pdf.SetFillColor 220,220,220
pdf.setAutoPagebreak true, 09
pdf.open()
pdf.LoadModels("Frem")
pdf.AddPage()
pdf.SetFont "Arial","",7.5

DocumentoR = "ORIGINAL"

KilosT = 0

Do While Not Rs4.Eof

PartidaD = Rs4("Secfremd")
CantidaD = Rs4("Canfremd")
CodigoD = Rs4("Codfremd")
DescripcionD = Rs4("Nominv")
UDMD = Rs4("UdmInv")
OCFREMD = Rs4("OCFREMD")

		If ClaveC = "CDM" OR ClaveC = "" OR ClaveC = "0000AII1" OR ClaveC = "000GOBE" OR ClaveC = "00000MEM" OR ClaveC = "00000IOE" OR ClaveC = "0000IPP7" OR ClaveC="0000FIR1"  Or ClaveC = "0000NSC" Or ClaveC = "0000AAFR" OR ClaveC = "0000CMM3" OR ClaveC = "0000ESB8"  OR ClaveC = "0000PME7"  OR ClaveC = "00000NSI" OR ClaveC = "0000CSC1" OR ClaveC = "0000TSE5" OR ClaveC = "0000POPI" OR ClaveC = "0000ISU1" OR ClaveC = "0000NSC1" OR ClaveC = "0000NSC2" OR ClaveC = "0000NSC3" OR ClaveC = "0000NNEX" OR ClaveC = "0000ELE0" OR ClaveC = "0000AII1" OR ClaveC = "000GOBE" OR ClaveC = "00000MEM" OR ClaveC = "0000POL8" OR ClaveC = "000CORI5" Then
		
		UnitarioD = 0
		ImporteD = 0
		
		Else
		UnitarioD = Rs4("Unifremd")
		ImporteD = Cdbl(Rs4("Unifremd")) * Cdbl(Rs4("Canfremd"))		
		
		End IF
		
		PesoD = Cdbl(Rs4("PesoInv")) * Cdbl(Rs4("Canfremd"))
UbicacionD = Rs4("Ctlmul")
Prod = len(DescripcionD)
ColadasD = Rs4("Coladas")
ObservacionesD = Rs4("Obsfremd")

	If Isnull(ColadasD) or ColadasD = "" Then
		ColadasD = ""
		Else
		ColadasD = ColadasD
	End If

	pdf.Cell 10,4,Cstr(PartidaD),0,0,"R",0
	pdf.Cell 15,4,Formatnumber(CantidaD),0,0,"R",0
	pdf.Cell 30,4,Mid(CodigoD,1,13),0,0,"L",0
	pdf.Cell 75,4,Mid(DescripcionD,1,45),0,0,"L",0
	pdf.Cell 10,4,UDMD,0,0,"L",0
	pdf.Cell 20,4,Formatnumber(UnitarioD),0,0,"R",0
	pdf.Cell 20,4,Formatnumber(ImporteD),0,0,"R",0
	pdf.Cell 19,4,Formatnumber(PesoD),0,0,"R",0
	pdf.Ln(4)

If Prod > 45 Then

	pdf.Cell 10,4,"",0,0,"R",0
	pdf.Cell 15,4,"",0,0,"R",0
	pdf.Cell 30,4,"",0,0,"L",0
	pdf.Cell 75,4,Mid(DescripcionD,46,90),0,0,"L",0
	pdf.Cell 10,4,"",0,0,"L",0
	pdf.Cell 20,4,"",0,0,"R",0
	pdf.Cell 20,4,"",0,0,"R",0
	pdf.Cell 19,4,"",0,0,"R",0
	pdf.Ln(4)
Else

End If 
	
	pdf.Cell 25,4,"UBICACION: ",0,0,"L",0
	pdf.Cell 30,4,UbicacionD,0,0,"L",0
	pdf.Cell 75,4,"COLADAS: " & ColadasD,0,0,"L",0
	pdf.Cell 10,4,"",0,0,"L",0
	pdf.Cell 5,4,"O.C.:",0,0,"R",0
	pdf.Cell 55,4,OCFREMD,0,0,"L",0
		pdf.Ln(4)

	If ObservacionesD = "" Or Isnull(ObservacionesD)	 Then

		Else
	pdf.Cell 25,4,"",0,0,"L",0
	pdf.Cell 30,4,"",0,0,"L",0
	pdf.MultiCell 75,4,ObservacionesD,0,"J",0	
	End IF
	
	KilosT = Cdbl(KilosT) + Cdbl(PesoD)
Rs4.Movenext
Loop
	pdf.Ln(4)	
	pdf.Cell 10,4,"",0,0,"R",0
	pdf.Cell 130,4,"*** TODA DEVOLUCION CAUSARA UN 20% DE CARGO POR MANEJO DE MATERIAL ***",0,0,"C",0
	pdf.Cell 20,4,"SUBTOTAL: ",0,0,"R",0
	pdf.Cell 20,4,Formatnumber(SubtotalR),0,0,"R",0
	pdf.Cell 19,4,"",0,0,"R",0
	pdf.Ln(4)
	
	pdf.Cell 10,4,"",0,0,"R",0
	pdf.Cell 130,4,"",0,0,"C",0
	pdf.Cell 20,4,"IVA: ",0,0,"R",0
	pdf.Cell 20,4,Formatnumber(IvaR),0,0,"R",0
	pdf.Cell 19,4,"",0,0,"R",0
	pdf.Ln(4)
	
	TotalR = Formatnumber(TotalR)
	Call CONVERTIR(TotalR)
	ImporteL = Session("valor")
	
	pdf.Cell 10,4,"",0,0,"R",0
	pdf.Cell 130,4,ImporteL,0,0,"C",0
	pdf.Cell 20,4,"TOTAL: ",0,0,"R",0
	pdf.Cell 20,4,Formatnumber(TotalR),0,0,"R",0
	pdf.Cell 19,4,Formatnumber(KilosT),0,0,"R",0
	pdf.Ln(8)

	If Cdbl(MonedaClave) = 1 Then
	pdf.Ln(4)
	Else
	

	pdf.Cell 198,4,"NOTA: EL VALOR DE ESTA FACTURA ES EN DOLARES AMERICANOS, SI EL PAGO SE REALIZA EN MONEDA NACIONAL, ",0,0,"C",0
	pdf.Ln(4)
	pdf.Cell 198,4,"SERA AL TIPO DE CAMBIO DEL MERCADO CAMBIARIO DEL DIA DE SU PAGO  ",0,0,"C",0

	pdf.Ln(8)
	End If
     
	pdf.SetFont "Arial","B",7.5
	pdf.Cell 47,4,"EMBARCAR A: ",0,0,"L",0
	pdf.MultiCell 152,4,EmbarcarA,0,"J",0		
	pdf.Ln(4)
	
	pdf.Cell 47,4,"FLETE PAGADO POR: ",0,0,"L",0
	pdf.Cell 152,4,fletePagado,0,0,"L",0
	pdf.Ln(4)
	
	
	pdf.Cell 47,4,"FACTURA COMPLETA",0,0,"L",0
	pdf.Cell 5,4,FacturaCoR,0,0,"C",0
	pdf.Cell 45,4,"CONSOLIDAR",0,0,"L",0
	pdf.Cell 5,4,Consolidar,0,0,"C",0
	pdf.Cell 51,4,"CLIENTE RECOGE",0,0,"L",0
	pdf.Cell 5,4,RecogeR,0,0,"C",0	
	pdf.Cell 36,4,"EMBARCAR FLETERA",0,0,"L",0
	pdf.Cell 5,4,EmbarcaR,0,0,"C",0		
	pdf.Ln(4)
	
	pdf.Cell 47,4,"CERTIFICADO DE CALIDAD",0,0,"L",0
	pdf.Cell 5,4,CertificadoR,0,0,"C",0
	pdf.Cell 45,4,"REQUIERE INSPECCION",0,0,"L",0
	pdf.Cell 5,4,InspeccionR,0,0,"C",0
	pdf.Cell 51,4,"ENTREGAR CON FACTURA ORIGINAL",0,0,"L",0
	pdf.Cell 5,4,FacturaC,0,0,"C",0
	pdf.Ln(4)
	
	pdf.Cell 47,4,"PEDIDO DEL CLIENTE PENALIZADO",0,0,"L",0
	pdf.Cell 5,4,PenalizadoR,0,0,"C",0
	pdf.Cell 45,4,"COPIA DEL PEDIDO DEL CLIENTE",0,0,"L",0
	pdf.Cell 5,4,PedidoCR,0,0,"C",0
	pdf.Cell 51,4,"SIN RESTRICCIONES",0,0,"L",0
	pdf.Cell 5,4,RestriccionR,0,0,"C",0
	pdf.Ln(4)
	
	pdf.Cell 47,4,"APLICAR ANTICIPO",0,0,"L",0
	pdf.Cell 5,4,AnticipoR,0,0,"C",0
	pdf.Cell 45,4,"OTROS",0,0,"L",0
	pdf.Cell 5,4,OtrosR,0,0,"C",0
	pdf.Cell 51,4,"REQUISITOS DE SEGURIDAD",0,0,"L",0
	pdf.Cell 5,4,SeguridadR,0,0,"C",0
	pdf.Ln(6)	

	pdf.Cell 10,4,"",0,0,"R",0
	pdf.Cell 15,4,"",0,0,"R",0
	pdf.Cell 30,4,"OBSERVACIONES: ",0,0,"L",0
	pdf.MultiCell 75,4,ObservacionesR,0,"J",0		

	pdf.Ln(8)
	
	If Mostrador = FALSE Then
	Else
	pdf.SetFont "Arial","B",12
	pdf.Cell 150,4,"***** ESTE DOCUMENTO ES PAGO EN CAJA",0,0,"R",0
	pdf.Ln(4)

	End If 
	
	
	pdf.SetFont "Arial","",7
	
	'-------------------SEGUNDA HOJA .----------------------------
pdf.AddPage()

pdf.SetFont "Arial","",7.5

DocumentoR = "CLIENTE"

KilosT = 0

Do While Not Rs5.Eof

PartidaD = Rs5("Secfremd")
CantidaD = Rs5("Canfremd")
CodigoD = Rs5("Codfremd")
DescripcionD = Rs5("Nominv")
UDMD = Rs5("UdmInv")
OCFREMD = Rs5("OCFREMD")


		If ClaveC = "CDM" OR ClaveC = "" OR ClaveC = "0000AII1" OR ClaveC = "000GOBE" OR ClaveC = "00000MEM"  OR ClaveC = "00000IOE" OR ClaveC = "0000IPP7" OR ClaveC="0000FIR1"  Or ClaveC = "0000NSC" Or ClaveC = "0000AAFR" OR ClaveC = "0000CMM3" OR ClaveC = "0000ESB8"   OR ClaveC = "0000PME7"  OR ClaveC = "00000NSI" OR ClaveC = "0000CSC1" OR ClaveC = "0000TSE5" OR ClaveC = "0000POPI"  OR ClaveC = "0000ISU1" OR ClaveC = "0000NSC1" OR ClaveC = "0000NSC2" OR ClaveC = "0000NSC3" OR ClaveC = "0000NNEX" OR ClaveC = "0000ELE0" OR ClaveC = "0000AII1" OR ClaveC = "000GOBE" OR ClaveC = "00000MEM" OR ClaveC = "0000POL8" OR ClaveC = "000CORI5" Then
		
		UnitarioD = 0
		ImporteD = 0
		
		Else
		UnitarioD = Rs5("Unifremd")
		ImporteD = Cdbl(Rs5("Unifremd")) * Cdbl(Rs5("Canfremd"))
		
		End IF
		
		

PesoD = Cdbl(Rs5("PesoInv")) * Cdbl(Rs5("Canfremd"))
UbicacionD = Rs5("Ctlmul")
Prod = len(DescripcionD)
ColadasD = Rs5("Coladas")
ObservacionesD = Rs5("Obsfremd")

	If Isnull(ColadasD) or ColadasD = "" Then
		ColadasD = ""
		Else
		ColadasD = ColadasD
	End If

	pdf.Cell 10,4,Cstr(PartidaD),0,0,"R",0
	pdf.Cell 15,4,Formatnumber(CantidaD),0,0,"R",0
	pdf.Cell 30,4,Mid(CodigoD,1,13),0,0,"L",0
	pdf.Cell 75,4,Mid(DescripcionD,1,45),0,0,"L",0
	pdf.Cell 10,4,UDMD,0,0,"L",0
	pdf.Cell 20,4,Formatnumber(UnitarioD),0,0,"R",0
	pdf.Cell 20,4,Formatnumber(ImporteD),0,0,"R",0
	pdf.Cell 19,4,Formatnumber(PesoD),0,0,"R",0
	pdf.Ln(4)

If Prod > 45 Then

	pdf.Cell 10,4,"",0,0,"R",0
	pdf.Cell 15,4,"",0,0,"R",0
	pdf.Cell 30,4,"",0,0,"L",0
	pdf.Cell 75,4,Mid(DescripcionD,46,90),0,0,"L",0
	pdf.Cell 10,4,"",0,0,"L",0
	pdf.Cell 20,4,"",0,0,"R",0
	pdf.Cell 20,4,"",0,0,"R",0
	pdf.Cell 19,4,"",0,0,"R",0
	pdf.Ln(4)
Else

End If 
	
	pdf.Cell 25,4,"UBICACION: ",0,0,"L",0
	pdf.Cell 30,4,UbicacionD,0,0,"L",0
	pdf.Cell 75,4,"COLADAS: " & ColadasD,0,0,"L",0
	pdf.Cell 10,4,"",0,0,"L",0
	pdf.Cell 5,4,"O.C.:",0,0,"R",0
	pdf.Cell 55,4,OCFREMD,0,0,"L",0
	pdf.Ln(4)

	If ObservacionesD = "" Or Isnull(ObservacionesD)	 Then

		Else
	pdf.Cell 25,4,"",0,0,"L",0
	pdf.Cell 30,4,"",0,0,"L",0
	pdf.MultiCell 75,4,ObservacionesD,0,"J",0	
	End IF
	
	KilosT = Cdbl(KilosT) + Cdbl(PesoD)
Rs5.Movenext
Loop
	pdf.Ln(4)	
	pdf.Cell 10,4,"",0,0,"R",0
	pdf.Cell 130,4,"*** TODA DEVOLUCION CAUSARA UN 20% DE CARGO POR MANEJO DE MATERIAL ***",0,0,"C",0
	pdf.Cell 20,4,"SUBTOTAL: ",0,0,"R",0
	pdf.Cell 20,4,Formatnumber(SubtotalR),0,0,"R",0
	pdf.Cell 19,4,"",0,0,"R",0
	pdf.Ln(4)
	
	pdf.Cell 10,4,"",0,0,"R",0
	pdf.Cell 130,4,"",0,0,"C",0
	pdf.Cell 20,4,"IVA: ",0,0,"R",0
	pdf.Cell 20,4,Formatnumber(IvaR),0,0,"R",0
	pdf.Cell 19,4,"",0,0,"R",0
	pdf.Ln(4)
	
	TotalR = Formatnumber(TotalR)
	Call CONVERTIR(TotalR)
	ImporteL = Session("valor")
	
	pdf.Cell 10,4,"",0,0,"R",0
	pdf.Cell 130,4,ImporteL,0,0,"C",0
	pdf.Cell 20,4,"TOTAL: ",0,0,"R",0
	pdf.Cell 20,4,Formatnumber(TotalR),0,0,"R",0
	pdf.Cell 19,4,Formatnumber(KilosT),0,0,"R",0
	pdf.Ln(8)

	If Cdbl(MonedaClave) = 1 Then
	pdf.Ln(4)
	Else
	

	pdf.Cell 198,4,"NOTA: EL VALOR DE ESTA FACTURA ES EN DOLARES AMERICANOS, SI EL PAGO SE REALIZA EN MONEDA NACIONAL, ",0,0,"C",0
	pdf.Ln(4)
	pdf.Cell 198,4,"SERA AL TIPO DE CAMBIO DEL MERCADO CAMBIARIO DEL DIA DE SU PAGO  ",0,0,"C",0

	pdf.Ln(8)
	End If
	
    pdf.SetFont "Arial","B",7.5 
	pdf.Cell 47,4,"EMBARCAR A: ",0,0,"L",0
	pdf.MultiCell 152,4,EmbarcarA,0,"J",0		
	pdf.Ln(4)
	
	pdf.Cell 47,4,"FLETE PAGADO POR: ",0,0,"L",0
	pdf.Cell 152,4,fletePagado,0,0,"L",0
	pdf.Ln(4)
	
	
	pdf.Cell 47,4,"FACTURA COMPLETA",0,0,"L",0
	pdf.Cell 5,4,FacturaCoR,0,0,"C",0
	pdf.Cell 45,4,"CONSOLIDAR",0,0,"L",0
	pdf.Cell 5,4,Consolidar,0,0,"C",0
	pdf.Cell 51,4,"CLIENTE RECOGE",0,0,"L",0
	pdf.Cell 5,4,RecogeR,0,0,"C",0	
	pdf.Cell 36,4,"EMBARCAR FLETERA",0,0,"L",0
	pdf.Cell 5,4,EmbarcaR,0,0,"C",0		
	pdf.Ln(4)
	
	pdf.Cell 47,4,"CERTIFICADO DE CALIDAD",0,0,"L",0
	pdf.Cell 5,4,CertificadoR,0,0,"C",0
	pdf.Cell 45,4,"REQUIERE INSPECCION",0,0,"L",0
	pdf.Cell 5,4,InspeccionR,0,0,"C",0
	pdf.Cell 51,4,"ENTREGAR CON FACTURA ORIGINAL",0,0,"L",0
	pdf.Cell 5,4,FacturaC,0,0,"C",0
	pdf.Ln(4)
	
	pdf.Cell 47,4,"PEDIDO DEL CLIENTE PENALIZADO",0,0,"L",0
	pdf.Cell 5,4,PenalizadoR,0,0,"C",0
	pdf.Cell 45,4,"COPIA DEL PEDIDO DEL CLIENTE",0,0,"L",0
	pdf.Cell 5,4,PedidoCR,0,0,"C",0
	pdf.Cell 51,4,"SIN RESTRICCIONES",0,0,"L",0
	pdf.Cell 5,4,RestriccionR,0,0,"C",0
	pdf.Ln(4)
	
	pdf.Cell 47,4,"APLICAR ANTICIPO",0,0,"L",0
	pdf.Cell 5,4,AnticipoR,0,0,"C",0
	pdf.Cell 45,4,"OTROS",0,0,"L",0
	pdf.Cell 5,4,OtrosR,0,0,"C",0
	pdf.Cell 51,4,"REQUISITOS DE SEGURIDAD",0,0,"L",0
	pdf.Cell 5,4,SeguridadR,0,0,"C",0
	pdf.Ln(6)	

	pdf.Cell 10,4,"",0,0,"R",0
	pdf.Cell 15,4,"",0,0,"R",0
	pdf.Cell 30,4,"OBSERVACIONES: ",0,0,"L",0
	pdf.MultiCell 75,4,ObservacionesR,0,"J",0		
	
	pdf.Ln(8)
	
	If Mostrador = fALSE Then
	Else
	pdf.SetFont "Arial","B",12
	pdf.Cell 150,4,"***** ESTE DOCUMENTO ES PAGO EN CAJA",0,0,"R",0
	pdf.Ln(4)

	End If 
	
	
	pdf.SetFont "Arial","",7
	
	'-------------------SEGUNDA HOJA .----------------------------

pdf.output()

'****  FIN DE SESIONES ****
End If
%>