<%@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 = "MEXICO"
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 REGMINV, DLACIM, DOCMINV, NOMINV, UDMINV, FECMINV, ALMMINV, CODMINV, CANMINV, UCOMINV " &_
"FROM MOVINV, MOVCON, INVENTARIOS " &_
"WHERE CODMINV = CVEINV AND CVECIM = TMOMINV AND TMOMINV = 25 AND DOCMINV = "& Folio &" " &_
"OR CODMINV = CVEINV AND CVECIM= TMOMINV AND TMOMINV =75 AND DOCMINV = "& Folio &" " &_
"ORDER BY ALMMINV, TMOMINV, REGMINV;"
rs2.open sql2,cn1,1,2
set rs3 = server.CreateObject("ADODB.Recordset")
SQL3="SELECT * FROM TRASPASOLIST WHERE DOCTRA = "& FOLIO &" order by partra asc;"
rs3.open sql3,cn1,1,2
ALMAN = RS3("ALMTRA")
%>
<%
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")
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,"Traspaso entre Almacenes",0,0,"C",Colorfila
pdf.Ln(6)
pdf.Line 10,20,202,20
pdf.SetFont "Arial","",7
pdf.Cell 30,4,"Movimiento",0,0,"l",Colorfila
pdf.Cell 15,4,"Fecha",0,0,"l",Colorfila
pdf.Cell 10,4,"Doc.",0,0,"l",Colorfila
pdf.Cell 10,4,"Alm.",0,0,"L",Colorfila
pdf.Cell 20,4,"Codigo",0,0,"l",Colorfila
pdf.Cell 50,4,"Descripcion",0,0,"l",Colorfila
pdf.Cell 15,4,"UM",0,0,"l",Colorfila
pdf.Cell 15,4,"Cantidad",0,0,"l",Colorfila
pdf.Cell 15,4,"Costo",0,0,"l",Colorfila
pdf.Cell 15,4,"Importe",0,0,"l",Colorfila
pdf.Ln(4)
Do while Not(rs2.EOF)
M1 = Rs2("DLACIM")
M2 = Rs2("FECMINV")
M3 = Rs2("DOCMINV")
M4 = Rs2("ALMMINV")
M5 = Rs2("CODMINV")
M6 = Rs2("NOMINV")
M7 = Rs2("UDMINV")
M8 = Rs2("CANMINV")
M9 = Rs2("UCOMINV")
M10 = CDBL(M8) * CDBL(M9)
pdf.Cell 30,4,M1,0,0,"l",Colorfila
pdf.Cell 15,4,Cstr(M2),0,0,"l",Colorfila
pdf.Cell 10,4,M3,0,0,"l",Colorfila
pdf.Cell 10,4,M4,0,0,"L",Colorfila
pdf.Cell 20,4,M5,0,0,"l",Colorfila
pdf.Cell 50,4,M6,0,0,"l",Colorfila
pdf.Cell 15,4,M7,0,0,"l",Colorfila
pdf.Cell 15,4,Formatnumber(M8),0,0,"l",Colorfila
pdf.Cell 15,4,Formatnumber(M9),0,0,"l",Colorfila
pdf.Cell 15,4,FormatNumber(M10),0,0,"l",Colorfila
pdf.Ln(4)
Rs2.Movenext
Loop
'-------------------CUARTA HOJA .----------------------------
PDF.ADDPAGE ()
IF CDBL(ALMAN) = 5 THEN
MSG1 = "ZONE STORE"
ELSE
MSG1 = "CONSIGNACION"
END IF
PDF.Image "Image/" + E1 + ".JPG",20,10,10,10
pdf.SetFont "Arial","",12
pdf.Cell 195,4,B1,0,0,"C",Colorfila
pdf.Ln(6)
pdf.Cell 195,4,"SALIDA DE MATERIAL A " & MSG1 & " No. " & Folio,0,0,"C",Colorfila
pdf.Ln(6)
pdf.Line 10,20,202,20
pdf.SetFont "Arial","",7
pdf.Cell 20,4,"Cliente",0,0,"l",Colorfila
pdf.Cell 15,4,"Fecha",0,0,"l",Colorfila
pdf.Cell 10,4,"Doc",0,0,"l",Colorfila
pdf.Cell 25,4,"Codigo",0,0,"l",Colorfila
pdf.Cell 45,4,"Descripcion",0,0,"l",Colorfila
pdf.Cell 5,4,"UM",0,0,"l",Colorfila
pdf.Cell 15,4,"Cantidad",0,0,"l",Colorfila
pdf.Cell 15,4,"Precio",0,0,"l",Colorfila
pdf.Cell 15,4,"Importe",0,0,"l",Colorfila
pdf.Cell 10,4,"Mon.",0,0,"l",Colorfila
pdf.Cell 10,4,"P.I.",0,0,"l",Colorfila
pdf.Cell 5,4,"P.P.I.",0,0,"l",Colorfila
pdf.Ln(4)
SubTotal = 0
Do while Not(rs3.EOF)
M1a = Rs3("DESALM")
M2a = Rs3("FECtra")
M3a = Rs3("DOCtra")
M5a = Rs3("CODtra")
M6a = Rs3("desmul")
M7a = Rs3("UDMINV")
M8a = Rs3("CANtidad")
M9a = Rs3("pretra")
M10a = Rs3("abrdiv")
M11a = Rs3("pedtra")
M12a = Rs3("partra")
M13a = Rs3("obstra")
M14a = CDBL(M8a) * CDBL(M9a)
pdf.Cell 20,4,M1a,0,0,"l",Colorfila
pdf.Cell 15,4,Cstr(M2a),0,0,"R",Colorfila
pdf.Cell 10,4,Formatnumber(M3a,0),0,0,"R",Colorfila
pdf.Cell 25,4,M5a,0,0,"l",Colorfila
pdf.Cell 45,4,M6a,0,0,"l",Colorfila
pdf.Cell 5,4,M7a,0,0,"l",Colorfila
pdf.Cell 15,4,Formatnumber(M8a),0,0,"R",Colorfila
pdf.Cell 15,4,Formatnumber(M9a),0,0,"R",Colorfila
pdf.Cell 15,4,Formatnumber(M14a),0,0,"R",Colorfila
pdf.Cell 10,4,M10a,0,0,"l",Colorfila
pdf.Cell 10,4,M11a,0,0,"c",Colorfila
pdf.Cell 10,4,Formatnumber(M12a,0),0,0,"R",Colorfila
If Isnull(M13a) then
pdf.Ln(4)
else
pdf.Ln(4)
pdf.Cell 20,4,"",0,0,"l",Colorfila
pdf.Cell 15,4,"",0,0,"R",Colorfila
pdf.Cell 10,4,"",0,0,"R",Colorfila
pdf.Cell 25,4,"",0,0,"R",Colorfila
pdf.MultiCell 127,4,M13a,0,"J",Colorfila
end If
Rs3.Movenext
Subtotal = cdbl(Subtotal) + Cdbl(M14a)
Loop
Iva = Cdbl(Subtotal) * 0.16
Total = Cdbl(Subtotal) + Cdbl(iva)
pdf.Cell 20,4,"",0,0,"l",Colorfila
pdf.Cell 15,4,"",0,0,"l",Colorfila
pdf.Cell 10,4,"",0,0,"l",Colorfila
pdf.Cell 25,4,"",0,0,"l",Colorfila
pdf.Cell 45,4,"",0,0,"l",Colorfila
pdf.Cell 5,4,"",0,0,"l",Colorfila
pdf.Cell 15,4,"",0,0,"l",Colorfila
pdf.Cell 15,4,"Subtotal:",0,0,"l",Colorfila
pdf.Cell 15,4,Formatnumber(subtotal),0,0,"R",Colorfila
pdf.Ln(4)
pdf.Cell 20,4,"",0,0,"l",Colorfila
pdf.Cell 15,4,"",0,0,"l",Colorfila
pdf.Cell 10,4,"",0,0,"l",Colorfila
pdf.Cell 25,4,"",0,0,"l",Colorfila
pdf.Cell 45,4,"",0,0,"l",Colorfila
pdf.Cell 5,4,"",0,0,"l",Colorfila
pdf.Cell 15,4,"",0,0,"l",Colorfila
pdf.Cell 15,4,"Iva:",0,0,"l",Colorfila
pdf.Cell 15,4,Formatnumber(Iva),0,0,"R",Colorfila
pdf.Ln(4)
pdf.Cell 20,4,"",0,0,"l",Colorfila
pdf.Cell 15,4,"",0,0,"l",Colorfila
pdf.Cell 10,4,"",0,0,"l",Colorfila
pdf.Cell 25,4,"___________________",0,0,"C",Colorfila
pdf.Cell 45,4,"",0,0,"l",Colorfila
pdf.Cell 5,4,"",0,0,"l",Colorfila
pdf.Cell 15,4,"",0,0,"l",Colorfila
pdf.Cell 15,4,"Total:",0,0,"l",Colorfila
pdf.Cell 15,4,Formatnumber(Total),0,0,"R",Colorfila
pdf.Ln(4)
pdf.Cell 20,4,"",0,0,"l",Colorfila
pdf.Cell 15,4,"",0,0,"l",Colorfila
pdf.Cell 10,4,"",0,0,"l",Colorfila
pdf.Cell 25,4,"AUTORIZO",0,0,"C",Colorfila
pdf.Cell 45,4,"",0,0,"l",Colorfila
pdf.Cell 5,4,"",0,0,"l",Colorfila
pdf.Cell 15,4,"",0,0,"l",Colorfila
pdf.Cell 15,4,"",0,0,"l",Colorfila
pdf.Cell 15,4,"",0,0,"R",Colorfila
pdf.Ln(4)
FECIMP = NOW()
PDF.SetY -25
PDF.SetFont "Arial","B",7.5
PDF.Cell 0,10,"Tuberia | Valvulas | Conexiones | Instrumentación | Cobre | PVC | ",0,0,"C"
pdf.Ln(4)
PDF.Cell 0,10,FECIMP,0,0,"L"
PDF.SetLineWidth 1
PDF.Line 15,267,200,267
pdf.Output()
End If
%>