<%@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
%>