<%@language=vbscript%>
<%
Response.Buffer=True
If Session("ID")=0 then
Response.Redirect("http://www.grupo-mim.com")
Response.End
Else
%>
<%Session.LCID=2058%>
<!--#include file="fpdf.asp"-->
<%
Dim Cn1, Rs1, sql1, Rs2, Sql2, rs3, sql3, rs4, sql4
Dim Empresa, Folio
Empresa = Cstr(Request.querystring("Empresa"))
Folio = Request("Folio")
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
set rs2 = server.CreateObject("ADODB.Recordset")
SQL2="select crecencd.*, cveprv, nomprv, desdiv from proveedores, crecencd, Monedas " &_
"where prorencd = cveprv and numrencd = "& Folio &" and monrencd = Cladiv;"
rs2.open sql2,cn1,1,2
set rs3 = server.CreateObject("ADODB.Recordset")
SQL3="Select * from Crecdevd, Inventarios where Numrdevd = "& Folio &" and Codrdevd = cveinv;"
rs3.open sql3,cn1,1,2
%>
<%
E1= Empresa
Nomdoc = Folio
B1=rs1("Nombre")
B2=rs1("Direccion")
B3=rs1("Colonia")
B4=rs1("Poblacion")
B5=rs1("Telefono")
B6=rs1("Fax")
B7=rs1("website")
E1=Rs2("Cveprv")
E2=Rs2("Nomprv")
E3=Rs2("Numrencd")
E4=Rs2("Fecrencd")
E5=Rs2("Ivarencd")
E6=Rs2("Tcarencd")
E7=Rs2("Desdiv")
Fe100=Rs2("Desdiv")
E8=Rs2("RefRencd")
E9=Rs2("SubRencd")
E10=Rs2("IvtRencd")
E11=Rs2("TotRencd")
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF "P", "mm", "Letter"
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",9
pdf.SetFillColor 237,237,246
pdf.Open()
'pdf.LoadModels("Fcotn")
pdf.AddPage()
pdf.SetFont "Arial","",12
pdf.Cell 195,4,B1,0,0,"C",Colorfila
pdf.Ln(6)
pdf.Cell 195,4,"Devolucion A Proveedor",0,0,"C",Colorfila
pdf.Ln(6)
pdf.Line 10,20,202,20
pdf.SetFont "Arial","",8
pdf.Cell 30,4,"Proveedor",0,0,"l",Colorfila
pdf.Cell 30,4,"( " & E1 & " ) " & E2,0,0,"l",Colorfila
pdf.Ln(4)
pdf.Cell 20,4,"Devolucion:",0,0,"l",Colorfila
pdf.Cell 15,4,E3,0,0,"l",Colorfila
pdf.Cell 20,4,"Fecha:",0,0,"l",Colorfila
pdf.Cell 15,4,Cstr(E4),0,0,"l",Colorfila
pdf.Ln(4)
pdf.Cell 20,4,"Iva:",0,0,"l",Colorfila
pdf.Cell 15,4,E5 & " % ",0,0,"l",Colorfila
pdf.Cell 40,4,"Moneda:",0,0,"l",Colorfila
pdf.Cell 25,4,E7 & " ( " & Formatnumber(E6) & " ) ",0,0,"l",Colorfila
pdf.Cell 20,4,"Entrada:",0,0,"l",Colorfila
pdf.Cell 15,4,E8,0,0,"l",Colorfila
pdf.Ln(4)
pdf.Line 10,36,202,36
pdf.Ln(4)
pdf.SetFont "Arial","",7
pdf.Cell 7,4,"Item",0,0,"l",Colorfila
pdf.Cell 7,4,"Alm.",0,0,"l",Colorfila
pdf.Cell 20,4,"Codigo",0,0,"l",Colorfila
pdf.Cell 70,4,"Descripcion",0,0,"l",Colorfila
pdf.Cell 15,4,"Cantidad",0,0,"l",Colorfila
pdf.Cell 15,4,"Unitario",0,0,"l",Colorfila
pdf.Cell 7,4,"UM",0,0,"l",Colorfila
pdf.Cell 15,4,"Importe",0,0,"l",Colorfila
pdf.Cell 20,4,"Observaciones",0,0,"l",Colorfila
pdf.Ln(4)
Do while Not(rs3.EOF)
D1 = Rs3("Secrdevd")
D2 = Rs3("Almrdevd")
D3 = Rs3("Codrdevd")
D4 = Rs3("Nominv")
D5 = Rs3("Crerdevd")
D6 = Rs3("punrdevd")
D7 = Rs3("UDMINV")
D8 = Cdbl(D5) * Cdbl(D6)
D9 = Rs3("Obsrdevd")
Tcode = D4
Prod = len(D4)
Inicia = 1
Termina = 58
Nom = Mid(Tcode,Inicia,Termina)
pdf.SetFont "Arial","",6
pdf.Cell 7,4,D1,0,0,"l",Colorfila
pdf.Cell 7,4,Cstr(D2),0,0,"l",Colorfila
pdf.Cell 20,4,D3,0,0,"l",Colorfila
pdf.Cell 65,4,Nom,0,0,"L",Colorfila
pdf.Cell 15,4,Formatnumber(D5),0,0,"R",Colorfila
pdf.Cell 15,4,Formatnumber(D6),0,0,"R",Colorfila
pdf.Cell 7,4,D7,0,0,"l",Colorfila
pdf.Cell 15,4,Formatnumber(D8),0,0,"l",Colorfila
pdf.Cell 20,4,D9,0,0,"l",Colorfila
Inicia = Inicia + 58
Termina = Termina + 51
If Prod > Inicia then
Nom = Mid(Tcode,Inicia,Termina)
pdf.Ln(4)
pdf.Cell 7,4,"",0,0,"R",0
pdf.Cell 7,4,"",0,0,"R",0
pdf.Cell 20,4,"",0,0,"L",0
pdf.Cell 65,4,Nom,0,0,"L",0
pdf.Cell 15,4,"",0,0,"L",0
pdf.Cell 15,4,"" ,0,0,"L",0
pdf.Cell 7,4,"",0,0,"L",0
pdf.Cell 15,4,"",0,0,"L",0
pdf.Cell 20,4,"",0,0,"R",0
else
Inicia =0
Termina = 0
End If
pdf.Ln(4)
Rs3.Movenext
Loop
pdf.Ln(4)
pdf.Cell 10,4,"Importe: ",0,0,"l",Colorfila
pdf.Cell 10,4,"Importe: ",0,0,"l",Colorfila
pdf.Cell 15,4,Formatnumber(E9),0,0,"l",Colorfila
pdf.Cell 10,4,"Iva: ",0,0,"l",Colorfila
pdf.Cell 15,4,Formatnumber(E10),0,0,"l",Colorfila
pdf.Cell 10,4,"Total: ",0,0,"l",Colorfila
pdf.Cell 15,4,Formatnumber(E11),0,0,"l",Colorfila
pdf.Output()
End If
%>