Detalle: trasesp.asp

trasesp.asp

Ir a la Página Volver a la Lista
Archivo ASP

trasesp.asp
Página Razor

trasesp
Módulo

Traspasos
Líneas de Código

253
Características
En Menú:	No
Formularios:	Ninguno
Consultas SQL:	Ninguna
Complejidad:	medium
Bases de Datos:	Session DB
Tablas Utilizadas (0)
No se detectaron tablas
Comentarios y Notas (0)
No hay comentarios aún
Enlaces Salientes (1) Páginas a las que esta página enlaza
Archivo ASP	Tipo	Módulo	Estado	Página Razor
`fpdf.asp`	include	General	Pendiente	-
Enlaces Entrantes (0) Páginas que enlazan a esta página
No hay enlaces entrantes
<%@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
%>
MATERIALES INDUSTRIALES DE MEXICO

trasesp.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código
