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