<%@language=vbscript%>
<%
Response.Buffer=True
Session.LCID=2058
'****  SI INICIO DE SESION ****
If 	Session("Mybussiness") = "" then
	Response.redirect("default.asp")
	
	'****CON SESION ***
	Else

	%> 
<!--#include file="fpdf/Letras.asp"-->
	<!--#include file="fpdf.asp"-->
<%
'***** Variables a la base de datos ****
Dim Cn1
Dim Rs11, Rs12, Rs13, Rs14, Rs15, Rs16, Rs17, Rs18, rs19, Rs20, Rs21, Rs22, Rs23, Rs24, Rs25, Rs26, Rs27
Dim Sql11, Sql12, Sql13, Sql14, Sql15, Sql16, Sql17, Sql18, Sql19, Sql20, Sql21, Sql22, Sql23, Sql24, Sql25, Sql26, Sql27
Dim Fremnum

'***** Conexion a la Base de Datos
Set Cn1 = Server.CreateObject( "ADODB.Connection" )
Cn1.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID="& Session("MyName") &";PWD="& Session("MyPass") &";Database="& Session("Mybussiness") &""

'***** Conexion A la Tabla Empresa ****
Set Rs11 = Server.CreateObject("ADODB.Recordset")
Sql11="Select * from Empresa;"
Rs11.Open Sql11,Cn1,1,2

	Empresa = Session("Mybussiness")
	RFC = Rs11("RFC")
	NOMBRE = Rs11("NOMBRE")
	CPOSTAL = Rs11("CPOSTAL")

Fremnum = request("Fremnum")	

'***** CONEXION A LA TABLA DE ENCABEZADO DE REMISIONES
	Set Rs12 = server.CreateObject("ADODB.Recordset")
	Sql12="Select Clifreme, Nomcli, Calcli, Numcli, Numicli, Colcli, Pobcli, Edocli, Pais, Cpcli, RFCcli, " &_
	"Numfreme, Fecfreme, Labfreme, Confreme, Nomvend, Desdiv, Centregar, Hrecibor, Embfreme, Tcafreme, " &_
	"Subfreme, Ivtfreme, Totfreme, Abrdiv, Cladiv, Vencli, Numpro, " &_
	"FXCFREME, ConsolidarR, RecogeR, Embarcarr, Cerfreme, Pecfreme, Insfreme, Facofreme, " &_
	"Facfreme, Penfreme, Resfreme, Anfreme, Otrofreme, SeguridadR, Obsfreme, UsoCFDIR, DescripcionUC, FormaPago, " &_
	"DiaCli, RegimenFiscal " &_
	"From Fremenc, Clientes, Vendedores, Monedas, UsoCFDI " &_
	"Where Numfreme = "& Fremnum &" and Clifreme = Clacli and Vencli = Cvevend and Monfreme = Cladiv " &_
	"and ClaveUC = UsoCFDIR;"
	Rs12.Open Sql12,Cn1,1,2
	
	FechaR = Rs12("Fecfreme")
	FechaR = Cstr(FechaR)
	RFCR = Rs12("RFCCli")
	NombreR = Rs12("Nomcli")
	UsoCFDIR = Rs12("UsoCFDIR")
	DescripcionUC = Rs12("DescripcionUC")
	MonedaAb = Rs12("Abrdiv")
	MonedaR = Rs12("Desdiv")
	TcambioR = Rs12("Tcafreme")
	DiasCR = Rs12("DiaCli")
	CondicionesR = Rs12("Confreme")
	Subtotal = Rs12("Subfreme")
	IVAT = Rs12("Ivtfreme")
	Total = Rs12("Totfreme")
	Totalb = Rs12("Totfreme")
	Embarque = Rs12("Embfreme")
	Notas = Rs12("Obsfreme")
	Regi =Rs12("RegimenFiscal")
	
	ClienteC = Rs12("Clifreme")
	ReferenciaR = Rs12("Labfreme")
	VendedorR = Cstr(Rs12("Vencli"))
	Numpro = Rs12("numpro")
	
	If Isnull(Numpro) or Numpro = "" Then
		Numpro = ""
	Else
		Numpro = Numpro
	End If 
	
	If DiasCR > 0 Then
		FormaPago = "99"
		MetodoPago = "PPD Pago en parcialidades o diferido"
	Else
		FormaPago = Rs12("FormaPago")
		MetodoPago = "PUE Pago en una sola exhibicion"
	End If 

'***** CONEXION A LA TABLA DE ENCABEZADO DE REMISIONES
	Set Rs13 = server.CreateObject("ADODB.Recordset")
	Sql13="select max(antfremd) as Pedido from fremdet  where nrefremd = " & Fremnum &";"
	Rs13.Open Sql13,Cn1,1,2
	
	Pedido = Cstr(Rs13("Pedido"))

	
	Set pdf=CreateJsObject("FPDF")
	pdf.CreatePDF "P", "mm", "Letter"
	pdf.SetPath("fpdf/")
	pdf.SetFont "Arial","",8
	pdf.SetFillColor 007,077,243
	pdf.setAutoPagebreak true, 09
	pdf.open()
	pdf.LoadModels("Prefactura")
	pdf.AddPage()
	pdf.SetFont "Arial","",7.5

	Set Rs14 = server.CreateObject("ADODB.Recordset")
	Sql14="select ClaveProdR, Codfremd, Canfremd, ClaveunidadR, Udminv, Nominv, Unifremd, (Canfremd * Unifremd) as Importe, " &_
	"Obsfremd, TrasladoImpuesto, TrasladoTasaOcuota, (Canfremd * Unifremd * TrasladoTasaOcuota) as IvaPar " &_
	"From fremdet, Fremenc, Inventarios, esquemaIva " &_
	"where nrefremd = " & Fremnum &" And Codfremd = Cveinv and Numfreme = Nrefremd and Esqfreme = Regiva " &_
	"Order by secfremd;"
	Rs14.Open Sql14,Cn1,1,2
	
	Do while Not Rs14.EOF
	
	ClaveSat = Rs14("ClaveProdR")
	CodigoP = Rs14("Codfremd")
	CantidadR = Rs14("Canfremd")
	UnidadSat = Rs14("ClaveunidadR")
	UnidadR = Rs14("Udminv")
	UnitarioR = Rs14("Unifremd")
	ImporteR = Rs14("Importe")
	
	TrasladoImpuesto = Rs14("TrasladoImpuesto")
	TrasladoTasaOcuota = Rs14("TrasladoTasaOcuota")
	IvaPar = Rs14("IvaPar")
	
	DescripcionP = Rs14("Nominv")
	
	pdf.Cell 15,4,ClaveSat,0,0,"L",0
	pdf.Cell 25,4,CodigoP,0,0,"L",0
	pdf.Cell 15,4,Formatnumber(CantidadR),0,0,"R",0
	pdf.Cell 10,4,UnidadSat,0,0,"C",0
	pdf.Cell 10,4,UnidadR,0,0,"C",0
	pdf.Cell 85,4,Left(DescripcionP,60),0,0,"L",0
	pdf.Cell 17,4,Formatnumber(UnitarioR),0,0,"R",0
	pdf.Cell 17,4,Formatnumber(ImporteR),0,0,"R",0
	pdf.Ln(4)	
	
		CuentaDes = Len(DescripcionP)
	
	If Cdbl(CuentaDes) > 75 Then
		pdf.Cell 15,4,"",0,0,"L",0
		pdf.Cell 25,4,"",0,0,"L",0
		pdf.Cell 15,4,"",0,0,"R",0
		pdf.Cell 15,4,"",0,0,"C",0
		pdf.Cell 15,4,"",0,0,"C",0
		pdf.Cell 81,4,mid(DescripcionP,76,81),0,0,"L",0
		pdf.Cell 15,4,"",0,0,"R",0
		pdf.Cell 15,4,"",0,0,"R",0
		pdf.Ln(4)	
	Else
	
	End IF

	ObservacionesR = Rs14("Obsfremd")
	
	If Isnull(ObservacionesR) or ObservacionesR = "" Then
	
	Else
	pdf.Cell 85,4,"",0,0,"R",0	
	pdf.MultiCell 81,4,ObservacionesR,0,"J",0	
	End If

		pdf.Cell 15,4,"",0,0,"L",0
		pdf.Cell 25,4,"",0,0,"L",0
		pdf.Cell 15,4,"",0,0,"R",0
		pdf.Cell 15,4,"",0,0,"C",0
		pdf.Cell 81,4,"",0,0,"C",0
		pdf.SetTextColor 255,255,255
		pdf.Cell 45,4,"IMPUESTOS",0,0,"C",1
		pdf.SetTextColor 000,000,000
		pdf.Ln(4)	
		
		pdf.Cell 15,4,"",0,0,"L",0
		pdf.Cell 25,4,"",0,0,"L",0
		pdf.Cell 15,4,"",0,0,"R",0
		pdf.Cell 15,4,"",0,0,"C",0
		pdf.Cell 81,4,"",0,0,"C",0
		pdf.Cell 15,4,TrasladoImpuesto & " IVA",0,0,"C",0
		pdf.Cell 13,4,Formatnumber(TrasladoTasaOcuota,6),0,0,"R",0
		pdf.Cell 17,4,Formatnumber(ivapar,2),0,0,"R",0
		pdf.Ln(4)		
	
	Rs14.Movenext
	Loop
	
		pdf.Ln(4)	
		pdf.Cell 15,4,"",0,0,"L",0
		pdf.Cell 25,4,"",0,0,"L",0
		pdf.Cell 15,4,"",0,0,"R",0
		pdf.Cell 15,4,"",0,0,"C",0
		pdf.Cell 15,4,"",0,0,"C",0
		pdf.Cell 81,4,"",0,0,"L",0
		pdf.Cell 14,4,"Subtotal: ",0,0,"R",0
		pdf.Cell 16,4,Formatnumber(Subtotal),0,0,"R",0
		pdf.Ln(4)	

	Totalb = Formatnumber(Totalb)
	Call CONVERTIR(Totalb)
	ImporteL = Session("valor")
	
		pdf.Cell 166,4,ImporteL,0,0,"L",0
		pdf.Cell 14,4,"Total Impuestos Trasladados: ",0,0,"R",0
		pdf.Cell 16,4,Formatnumber(Ivat),0,0,"R",0
		pdf.Ln(4)	
	
		pdf.Cell 166,4,"",0,0,"L",0
		pdf.Cell 13,4,"Total Comprobante: ",0,0,"R",0
		pdf.Cell 17,4,Formatnumber(Total),0,0,"R",0
		pdf.Ln(4)	

		pdf.Cell 50,4,"Observaciones: ",0,0,"L",0
		pdf.Ln(4)	
		pdf.MultiCell 81,4,Embarque,0,"J",0	
		pdf.MultiCell 81,4,Notas,0,"J",0	

	pdf.output()

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