Detalle: trasgen.asp

trasgen.asp

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

trasgen.asp
Página Razor

trasgen
Módulo

Traspasos
Líneas de Código

414
Características
En Menú:	No
Formularios:	Ninguno
Consultas SQL:	Ninguna
Complejidad:	high
Bases de Datos:	Session DB
Tablas Utilizadas (0)
No se detectaron tablas
Comentarios y Notas (0)
No hay comentarios aún
Enlaces Salientes (5) Páginas a las que esta página enlaza
Archivo ASP	Tipo	Módulo	Estado	Página Razor
`barra.asp`	include	General	Pendiente	-
`empresa.asp`	include	General	Pendiente	-
`general.asp`	include	General	Pendiente	-
`mpro.asp`	include	General	Pendiente	-
`user.asp`	include	General	Pendiente	-
Enlaces Entrantes (0) Páginas que enlazan a esta página
No hay enlaces entrantes
<%  
Option Explicit
%>
<%
Session.LCID = 2058
%> 
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>
<link rel=stylesheet href="vista.css">
</head>

<BODY>
<!--#INCLUDE FILE="BARRA.asp"-->

<div class="normalw" style="position:absolute; top:1px">
<center>
<!--#include file="empresa.asp"--><br>
<hr>
</center>
</div>

<div class="normalw" style="position:absolute; top:1px;">
Bienvenido: <%= nombre %>. <br>
Hora Actual: <%= time %>
</div>
<div class="normalw" style="position:absolute; top:34px; left:1">
<!--#include file="mpro.asp"-->
</div>

<div class="normal" style="position:absolute; top:60px; left:10">
<center>
Traspasos de Material
<hr>
<%
Dim Rs11, sql11, Rs12, Sql12, RS13, Sql13, Rs14, Sql14, Rs15, Sql15
Dim Rs16, Sql16, Rs17, Sql17, Rs18, Sql18, Rs19, Sql19, Rs20, Sql20
Dim Rs21, Sql21, Rs22, Sql22, Rs23, Sql23, Rs24, Sql24, Rs25, Sql25
Dim Rs26, Sql26
Dim Rsa, Sqla
Dim Folio, Docu, Factual
Dim Almacen, Codigo, Csol, Csolo, MPedido, Npedido, Ppedido, Obspedido, PrePedido
Dim Uepscan, CostoUeps, UepsIndex, Pedint, Parint
Dim UepscanC, CostoUepsC, UepsIndexC, PedintC
Dim Cancap, Canrem, Newueps
Dim CancapC, CanremC, NewuepsC
Dim CostoPro

Docu = Session.SessionId
Factual = Date()

set rs11 = server.CreateObject("ADODB.Recordset")
sql11="Select Traspasos from consecutivos;"
rs11.open sql11,cn1,1,2
Folio = Rs11("Traspasos") + 1

set rs12 = server.CreateObject("ADODB.Recordset")
sql12="Select * from traspaso where sestras = "& Docu &";"
rs12.open sql12,cn1,1,2
If Rs12.Eof then
%>
No Hay partidas a Traspasar
<%
Else
'--------------------  ES EL RECORDSET DE LAS PARTIDAS EN LA TEMPORAL (TRASPASO) ------------------------------
While (Not Rs12.Eof)
Almacen = Rs12("Almtras")
Codigo = Rs12("Codtras")
Csol = Rs12("Cditras")
Csolo = Rs12("Cditras")


Npedido = Rs12("Pedtras")
ppedido = Rs12("sectras")
Prepedido = Rs12("unitras")
Mpedido = Rs12("Montras")
Obspedido = Rs12("obstras")

'*******************************COSTEO PARA UEPS ***************************
set rs13 = server.CreateObject("ADODB.Recordset")
sql13="Select * from Ueps " &_
"where almueps = 1 and CodUeps = '"& Codigo &"' " &_
"and pinueps = 0 and ppiueps = 0;"
rs13.open sql13,cn1,1,2
While (Not Rs13.Eof)
Uepscan = rs13("canueps")
Costoueps = rs13("punueps")	
UepsIndex = rs13("regueps")	
PedInt = rs13("pinueps")	
ParInt = rs13("ppiueps")	

'*********************** PRIMER IF SI LO SOLICITADO ES MENOR A LA CAPA UEPS *********************************
If Cdbl(Csol) < Cdbl(Uepscan) and Cdbl(Csol) > 0 then
CanCap = Cdbl(Csol)
CanRem = Cdbl(CanRem) + Cdbl(Csol)
NewUeps = Cdbl(UepsCan) - Cdbl(Cancap)

set rs14 = server.CreateObject("ADODB.Recordset")
sql14 = "Update ueps set canueps = "& Newueps &" where almueps = 1 and codueps = '"& codigo &"' " &_
"and regueps = "& UepsIndex &";"
Cn1.Execute sql14

set rs15 = server.CreateObject("ADODB.Recordset")
sql15 = "Insert into Ueps (Fecueps, Comueps, Almueps, Codueps, Canueps, Punueps, Pinueps, PPiueps) " &_
"Values ('"& Factual &"', "& Folio &", "& Almacen &", '"& Codigo &"', "& Cancap &", "& CostoUeps &", 0,0);"
Cn1.Execute sql15

Csol = 0

Response.Write("UEPS 1 <br>")

'--------------- SEGUNDO IF SI LO SOLICITADO ES IGUAL A LA CAPA UEPS ----------------
Else If Cdbl(Csol) = Cdbl(Uepscan) and Cdbl(Csol) > 0 then
Cancap = Cdbl(Csol)
Canrem = Cdbl(Canrem) + Cdbl(Csol)
NewUeps = 0

set rs14 = server.CreateObject("ADODB.Recordset")
sql14 = "Update ueps set canueps = "& Newueps &" where almueps = 1 and codueps = '"& codigo &"' " &_
"and regueps = "& UepsIndex &";"
Cn1.Execute sql14

set rs15 = server.CreateObject("ADODB.Recordset")
sql15 = "Insert into Ueps (Fecueps, Comueps, Almueps, Codueps, Canueps, Punueps, Pinueps, PPiueps) " &_
"Values ('"& Factual &"', "& Folio &", "& Almacen &", '"& Codigo &"', "& Cancap &", "& CostoUeps &", 0,0);"
Cn1.Execute sql15

Csol = 0

Response.Write("UEPS 2 <br>")

'--------------- TERCER IF SI LO SOLICITADO ES MAYOR A LA CAPA UEPS ----------------
Else If Cdbl(Csol) > Cdbl(Uepscan) and Cdbl(Csol) > 0 then
Cancap = Cdbl(Uepscan)
Canrem = Cdbl(Canrem) + Cdbl(UepsCan)
NewUeps = 0

set rs14 = server.CreateObject("ADODB.Recordset")
sql14 = "Update ueps set canueps = "& Newueps &" where almueps = 1 and codueps = '"& codigo &"' " &_
"and regueps = "& UepsIndex &";"
Cn1.Execute sql14

set rs15 = server.CreateObject("ADODB.Recordset")
sql15 = "Insert into Ueps (Fecueps, Comueps, Almueps, Codueps, Canueps, Punueps, Pinueps, PPiueps) " &_
"Values ('"& Factual &"', "& Folio &", "& Almacen &", '"& Codigo &"', "& Cancap &", "& CostoUeps &", 0,0);"
Cn1.Execute sql15

Csol = Cdbl(Csol) - Cdbl(Uepscan)

Response.Write("UEPS 3 <br>") 

End If
End If
End If

RS13.MoveNext
Wend

'***************************************   TERMINA COSTEO UEPS ***************************************
'*****************************************    EMPIEZA UEPSC  ******************************************

'--------------------- COSTEO DE CONTABILIDAD EL SEGUNDO DO WHILE --------------------------
set rs16 = server.CreateObject("ADODB.Recordset")
Sql16 ="Select * from uepsc where almuepsc = 1 and Coduepsc = '"& Codigo &"' " &_
"order by reguepsc desc;"
rs16.open sql16,cn1,1,2
While (Not RS16.eof)
UepscanC = rs16("canuepsc")
CostouepsC = rs16("punuepsc")	
UepsIndexC = rs16("reguepsc")	
PedintC = rs16("pinuepsc")	

Response.write(csolo & "<br>")
Response.write(uepscanc & "<br>")
Response.write("contabilidad <br>")

'*********************************************************************************
'-----------------   COSTEO PARA CONTABILIDAD------------------------->
'------------ PRIMER IF SI LO SOLICITADO ES MENOR A LA CAPA UEPS ----------------
If Cdbl(Csolo) < Cdbl(UepscanC) and Cdbl(Csolo) > 0 then
CanCapC = Cdbl(Csolo)
CanRemC = Cdbl(CanRemC) + Cdbl(Csolo)
NewUepsC = Cdbl(UepsCanC) - Cdbl(CancapC)

set rs17 = server.CreateObject("ADODB.Recordset")
sql17 = "Update uepsC set canuepsC = "& NewuepsC &" where almuepsC = 1 and coduepsC = '"& codigo &"' " &_
"and reguepsc = "& UepsIndexC &";"
Cn1.Execute sql17

set rs18 = server.CreateObject("ADODB.Recordset")
sql18 = "Insert into movinv (tmominv, docminv, fecminv, almminv, codminv, canminv, Eximinv, prvminv, ucominv, " &_
"pgaminv, monminv, tcaminv, cprminv, venminv, obsminv, usrminv, CpMinv) " &_
"Select 75, "& Folio &", '"& Factual &"', 1, '"& Codigo &"', "& CancapC &", (Exirmul - "& Cancapc &"), 0, " &_
""& CostoUepsC &", 0, 1, 1, '000000', 0, 'Traspaso', '"& Nombre &"', " &_
"cpmul from multialmacen where almmul = 1 and artmul = '"& Codigo &"';"
cn1.Execute sql18

Set Rs26 = Server.CreateObject("ADODB.Recordset")
Sql26="Select Cpmul " &_
"From Multialmacen " &_
"Where Almmul = 1 and Artmul = '"& Codigo &"';"
Rs26.Open Sql26,Cn1,1,2

CostoPro = Rs26("Cpmul")


sql19="Insert into MovInv (TmoMinv, Docminv, FecMinv, AlmMinv, CodMinv, CanMinv, ExiMinv, PrVMInv, UcoMinv, CpMinv, " &_
"PgaMinv, MonMinv, TcaMinv, CPRMinv, VenMinv, ObsMinv, UsrMinv) " &_
"Select 25, "& Folio &", '"& factual &"', "& Almacen &", '"& Codigo &"', "& CancapC &", (exiRmul + "& Cancapc &"), 0, "& CostoPro &", " &_
"(((exiRmul * cpmul) + ("& CancapC &" * "& CostoPro &")) / (exiRmul + "& CancapC &")), " &_
"0, 1, 1, '000000', 0, 'Traspaso 1', '"& Nombre &"'  from multialmacen  " &_
"where almmul = "& Almacen &" and artmul = '"& Codigo &"';"
Cn1.Execute sql19

set rs20 = server.CreateObject("ADODB.Recordset")
sql20 = "Insert into UepsC (FecuepsC, ComuepsC, AlmuepsC, CoduepsC, CanuepsC, PunuepsC, PinuepsC) " &_
"Values ('"& Factual &"', "& Folio &", "& Almacen &", '"& Codigo &"', "& CancapC &", "& CostoPro &", 0);"
Cn1.Execute sql20

set rs21 = server.CreateObject("ADODB.Recordset")
sql21 = "Update multialmacen set eximul = (Eximul + "& CancapC &"), exirmul = (Exirmul + "& CancapC&"), Capmul = (Capmul + "& CancapC &"), " &_
"fuvmul = '"& Factual &"', " &_
"cpmul = (((exiRmul * cpmul) + ("& CancapC &" * "& CostoPro &")) / (exiRmul + "& CancapC &")), ucomul = "& CostoPro &" " &_
"where almmul = "& Almacen &" and artmul = '"& Codigo &"';"
Cn1.Execute sql21

set rs22 = server.CreateObject("ADODB.Recordset")
sql22 = "Update multialmacen set eximul = (Eximul - "& CancapC &"), exirmul = (Exirmul - "& CancapC&"), Capmul = (Capmul - "& CancapC &"), " &_
"fuvmul = '"& Factual &"' " &_
"where almmul = 1 and artmul = '"& Codigo &"';"
Cn1.Execute sql22

set rs23 = server.CreateObject("ADODB.Recordset")
sql23 = "delete uepsc where canuepsc = 0;"
Cn1.Execute sql23

set Rsa = server.CreateObject("ADODB.Recordset")
Sqla = "Insert into Traspasos (Fectra, Movtra, Doctra, Almtra, Codtra, Cantra, pretra, montra, pedtra, partra, obstra) " &_
"Values ('"& Factual &"', 25, "& Folio &", "& Almacen &", '"& Codigo &"', "& CancapC &", " &_
""& Prepedido &", "& Mpedido &", "& Npedido &", "& Ppedido &", '"& Sanea(obspedido) &"');"
Cn1.Execute Sqla


Csolo = 0
Response.Write("UEPSC 1 <br>")

'--------------- SEGUNDO IF SI LO SOLICITADO ES IGUAL A LA CAPA UEPS ----------------
Else If Cdbl(Csolo) = Cdbl(UepscanC) and Cdbl(Csolo) > 0 then
CancapC = Cdbl(Csolo)
CanremC = Cdbl(CanremC) + Cdbl(Csolo)
NewUepsC = 0

set rs17 = server.CreateObject("ADODB.Recordset")
sql17 = "Update uepsC set canuepsC = "& NewuepsC &" where almuepsC = 1 and coduepsC = '"& codigo &"' " &_
"and reguepsc = "& UepsIndexC &";"
Cn1.Execute sql17

set rs18 = server.CreateObject("ADODB.Recordset")
sql18 = "Insert into movinv (tmominv, docminv, fecminv, almminv, codminv, canminv, Eximinv, prvminv, ucominv, " &_
"pgaminv, monminv, tcaminv, cprminv, venminv, obsminv, usrminv, CpMinv) " &_
"Select 75, "& Folio &", '"& Factual &"', 1, '"& Codigo &"', "& Cancapc &", (Exirmul - "& Cancapc &"), 0, " &_
""& CostoUepsC &", 0, 1, 1, '000000', 0, 'Traspaso', '"& Nombre &"', " &_
"cpmul from multialmacen where almmul = 1 and artmul = '"& Codigo &"';"
cn1.Execute sql18

Set Rs26 = Server.CreateObject("ADODB.Recordset")
Sql26="Select Cpmul " &_
"From Multialmacen " &_
"Where Almmul = 1 and Artmul = '"& Codigo &"';"
Rs26.Open Sql26,Cn1,1,2

CostoPro = Rs26("Cpmul")


sql19="Insert into MovInv (TmoMinv, Docminv, FecMinv, AlmMinv, CodMinv, CanMinv, ExiMinv, PrVMInv, UcoMinv, CpMinv, " &_
"PgaMinv, MonMinv, TcaMinv, CPRMinv, VenMinv, ObsMinv, UsrMinv) " &_
"Select 25, "& Folio &", '"& factual &"', "& Almacen &", '"& Codigo &"', "& CancapC &", (exiRmul + "& Cancapc &"), 0, "& CostoPro &", " &_
"(((exiRmul * cpmul) + ("& CancapC &" * "& CostoPro &")) / (exiRmul + "& CancapC &")), " &_
"0, 1, 1, '000000', 0, 'Traspaso 1', '"& Nombre &"'  from multialmacen  " &_
"where almmul = "& Almacen &" and artmul = '"& Codigo &"';"
Cn1.Execute sql19

set rs20 = server.CreateObject("ADODB.Recordset")
sql20 = "Insert into UepsC (FecuepsC, ComuepsC, AlmuepsC, CoduepsC, CanuepsC, PunuepsC, PinuepsC) " &_
"Values ('"& Factual &"', "& Folio &", "& Almacen &", '"& Codigo &"', "& CancapC &", "& CostoPro &", 0);"
Cn1.Execute sql20

set rs21 = server.CreateObject("ADODB.Recordset")
sql21 = "Update multialmacen set eximul = (Eximul + "& CancapC &"), exirmul = (Exirmul + "& CancapC&"), Capmul = (Capmul + "& CancapC &"), " &_
"fuvmul = '"& Factual &"', " &_
"cpmul = (((exiRmul * cpmul) + ("& CancapC &" * "& CostoPro &")) / (exiRmul + "& CancapC &")), ucomul = "& CostoPro &" " &_
"where almmul = "& Almacen &" and artmul = '"& Codigo &"';"
Cn1.Execute sql21

set rs22 = server.CreateObject("ADODB.Recordset")
sql22 = "Update multialmacen set eximul = (Eximul - "& Cancapc &"), exirmul = (Exirmul - "& Cancapc &"), Capmul = (Capmul - "& Cancapc &"), " &_
"fuvmul = '"& Factual &"' " &_
"where almmul = 1 and artmul = '"& Codigo &"';"
Cn1.Execute sql22

set rs23 = server.CreateObject("ADODB.Recordset")
sql23 = "delete uepsc where canuepsc = 0;"
Cn1.Execute sql23

set Rsa = server.CreateObject("ADODB.Recordset")
Sqla = "Insert into Traspasos (Fectra, Movtra, Doctra, Almtra, Codtra, Cantra, pretra, montra, pedtra, partra, obstra) " &_
"Values ('"& Factual &"', 25, "& Folio &", "& Almacen &", '"& Codigo &"', "& CancapC &", " &_
""& Prepedido &", "& Mpedido &", "& Npedido &", "& Ppedido &", '"& Sanea(obspedido) &"');"
Cn1.Execute Sqla

Csolo = 0
Response.Write("UEPSC 2 <br>")

'--------------- TERCER IF SI LO SOLICITADO ES MAYOR A LA CAPA UEPS ----------------
Else If Cdbl(Csolo) > Cdbl(UepscanC) and Cdbl(Csolo) > 0 then
CancapC = Cdbl(UepscanC)
CanremC = Cdbl(CanremC) + Cdbl(UepsCanC)
NewUepsC = 0

set rs17 = server.CreateObject("ADODB.Recordset")
sql17 = "Update uepsC set canuepsC = "& NewuepsC &" where almuepsC = 1 and coduepsC = '"& codigo &"' " &_
"and reguepsc = "& UepsIndexC &";"
Cn1.Execute sql17

set rs18 = server.CreateObject("ADODB.Recordset")
sql18 = "Insert into movinv (tmominv, docminv, fecminv, almminv, codminv, canminv, Eximinv, prvminv, ucominv, " &_
"pgaminv, monminv, tcaminv, cprminv, venminv, obsminv, usrminv, CpMinv) " &_
"Select 75, "& Folio &", '"& Factual &"', 1, '"& Codigo &"', "& CancapC &", (Exirmul - "& Cancapc &"), 0, " &_
""& CostoUepsC &", 0, 1, 1, '000000', 0, 'Traspaso 3', '"& Nombre &"', " &_
"cpmul from multialmacen where almmul = 1 and artmul = '"& Codigo &"';"
cn1.Execute sql18

Set Rs26 = Server.CreateObject("ADODB.Recordset")
Sql26="Select Cpmul " &_
"From Multialmacen " &_
"Where Almmul = 1 and Artmul = '"& Codigo &"';"
Rs26.Open Sql26,Cn1,1,2

CostoPro = Rs26("Cpmul")

sql19="Insert into MovInv (TmoMinv, Docminv, FecMinv, AlmMinv, CodMinv, CanMinv, ExiMinv, PrVMInv, UcoMinv, CpMinv, " &_
"PgaMinv, MonMinv, TcaMinv, CPRMinv, VenMinv, ObsMinv, UsrMinv) " &_
"Select 25, "& Folio &", '"& factual &"', "& Almacen &", '"& Codigo &"', "& CancapC &", (exiRmul + "& Cancapc &"), 0, "& CostoPro &", " &_
"(((exiRmul * cpmul) + ("& CancapC &" * "& CostoPro &")) / (exiRmul + "& CancapC &")), " &_
"0, 1, 1, '000000', 0, 'Traspaso 1', '"& Nombre &"'  from multialmacen  " &_
"where almmul = "& Almacen &" and artmul = '"& Codigo &"';"
Cn1.Execute sql19

set rs20 = server.CreateObject("ADODB.Recordset")
sql20 = "Insert into UepsC (FecuepsC, ComuepsC, AlmuepsC, CoduepsC, CanuepsC, PunuepsC, PinuepsC) " &_
"Values ('"& Factual &"', "& Folio &", "& Almacen &", '"& Codigo &"', "& CancapC &", "& CostoPro &", 0);"
Cn1.Execute sql20

set rs21 = server.CreateObject("ADODB.Recordset")
sql21 = "Update multialmacen set eximul = (Eximul + "& CancapC &"), exirmul = (Exirmul + "& CancapC&"), Capmul = (Capmul + "& CancapC &"), " &_
"fuvmul = '"& Factual &"', " &_
"cpmul = (((exiRmul * cpmul) + ("& CancapC &" * "& CostoPro &")) / (exiRmul + "& CancapC &")), ucomul = "& CostoPro &" " &_
"where almmul = "& Almacen &" and artmul = '"& Codigo &"';"
Cn1.Execute sql21

set rs22 = server.CreateObject("ADODB.Recordset")
sql22 = "Update multialmacen set eximul = (Eximul - "& CancapC &"), exirmul = (Exirmul - "& CancapC &"), Capmul = (Capmul - "& CancapC &"), " &_
"fuvmul = '"& Factual &"' " &_
"where almmul = 1 and artmul = '"& Codigo &"';"
Cn1.Execute sql22

set rs23 = server.CreateObject("ADODB.Recordset")
sql23 = "delete uepsc where canuepsc = 0;"
Cn1.Execute sql23

set Rsa = server.CreateObject("ADODB.Recordset")
Sqla = "Insert into Traspasos (Fectra, Movtra, Doctra, Almtra, Codtra, Cantra, pretra, montra, pedtra, partra, obstra) " &_
"Values ('"& Factual &"', 25, "& Folio &", "& Almacen &", '"& Codigo &"', "& CancapC &", " &_
""& Prepedido &", "& Mpedido &", "& Npedido &", "& Ppedido &", '"& Sanea(obspedido) &"');"
Cn1.Execute Sqla

Csolo = Cdbl(Csolo) - Cdbl(UepscanC)
Response.Write("UEPSC 3 <br>")

End If
End If
End If

RS16.MoveNext
Wend

Rs12.MoveNext
Wend

set rs24 = server.CreateObject("ADODB.Recordset")
sql24 = "Update Consecutivos Set Traspasos = "& Folio &";"
Cn1.Execute sql24

set rs25 = server.CreateObject("ADODB.Recordset")
sql25 = "Delete traspaso where sestras = "& Docu &";"
Cn1.Execute sql25

Response.Redirect("Trasesp.asp?Folio="& Folio &"&Empresa="& Negocio &"")

End If
%>
</div>
</body>
</html>
<%  
End Sub 
'Add the chosen course to the cart
 Call AddUsuario() 
'Display contents of electronic shopping cart
 Call DisplayUsuario()
%>
MATERIALES INDUSTRIALES DE MEXICO

trasgen.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código
