<%
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">
<script type="text/javascript" src="Java/largo.js"></script>
</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">
<%
dim rs5, sql5
set rs5 = server.CreateObject("ADODB.Recordset")
sql5 = "select * from Csalm where (ususam like'" & nombre & "') order by ordsam"
rs5.open sql5,cn1,1,2
%>
<%
do while not rs5.EOF
%>
<a href="<%=rs5.fields("aspsam")%>.asp"><img src="Image/<%=rs5.fields("nomsam")%>.gif" border=0 Alt="<%=rs5("Nomsam")%>"></a>
<%
rs5.MoveNext
loop
%>
<center>
<hr>
<%
Dim Rs10, Sql10, Rs11, Sql11, Rs12, Sql12, Rs13, Sql13, Rs14, Sql14, rs15, Sql15, rs16, Sql16
Dim Rs17, Sql17, Rs18, Sql18, Rs19, Sql19, Rs20, sql20, Rsa, Sqla, Rsb, Sqlb
Dim Tmo, Provee, Ate, cond, Lab, Nota
Dim Folio, Sexion, Regi, Csol, Fecact, Csolo
Dim Uepscan, CostoUeps, UepsIndex, Pedint, ParInt
Dim UepscanC, CostoUepsC, UepsIndexC, PedintC, ParIntC
Dim Cancap, Canrem, Newueps
Dim CancapC, CanremC, NewuepsC
'------------------------- VARIABLES DE ENCABEZADO DEL DOCUMENTO --------------------
Tmo = Request("Tmo")
Provee = Request("Provee")
Ate = Request("Ate")
Cond = Request("Cond")
Lab = Request("Lab")
Nota = server.HtmlEncode(Request("Nota"))
'------------------------- VARIABLES DE ENCABEZADO Y DETALLE -----------------------------------
sexion = Session.SessionId
FecAct = date()
'------------------------------------ RECORD SET PARA SACAR EL FOLIO DE LAS NOTAS DE SALIDA **************************
set rs10 = server.CreateObject("ADODB.Recordset")
sql10 = "Select Nsalida From Consecutivos"
rs10.open sql10,cn1,1,2
Folio = Rs10("Nsalida") + 1
set rs11 = server.CreateObject("ADODB.Recordset")
sql11 = "Select * From Csaldtem where sestsad = "& Sexion &";"
rs11.open sql11,cn1,1,2
If Rs11.Eof then
%>
No hay Partidas Capturadas
<br>
<a href="javascript:history.back(1)">Regresar</a>
<%
Else
Do While Not Rs11.EOF
Regi = rs11("regtsad")
Csol = rs11("Cantsad")
Csolo = rs11("Cantsad")
If Rs11("Tmotsad") = 3 or Rs11("Tmotsad") = 4 then
'------------------------ MOVIMIENTOS DE ENTRADA AFECTA A CSALDET ****************************
set rs12 = server.CreateObject("ADODB.Recordset")
sql12 = "Insert into Csaldet " &_
"(tmosad, numsad, secsad, cansad, cresad, cpesad, almsad, codsad, ucosad, prosad, fensad, " &_
"orisad, cersad, pedsad, ppisad, obssad) " &_
"Select tmotsad, "& Folio &", sectsad, cantsad, 0, cantsad, almtsad, codtsad, ucotsad, UCOtsad, fentsad, " &_
"oritsad, certsad, pedtsad, ppitsad, obstsad From Csaldtem where Regtsad = "& Regi &" and Sestsad = "& Sexion &";"
Cn1.Execute sql12
Else If Rs11("Tmotsad") = 53 or Rs11("Tmotsad") = 54 then
'---------------------------- MOVIMIENTOS DE SALIDA *************************
'-------- AFECTA A CSALDET, MOVSINV, UEPS, UEPSC, INVENTARIOS, MULTIALMACEN
'---------------------- COSTEO UEPS -----------------------------------------------------------
set rsa = server.CreateObject("ADODB.Recordset")
sqla = "Select * from ueps, csaldtem where " &_
"almueps = almtsad and codueps = codtsad and regtsad = "& Regi &" order by regueps desc;"
rsa.open sqla,cn1,1,2
Do While Not Rsa.EOF
Uepscan = rsa("Canueps")
CostoUeps = rsa("punueps")
UepsIndex = rsa("Regueps")
PedInt = rsa("pinueps")
ParInt = rsa("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 rs13 = server.CreateObject("ADODB.Recordset")
sql13 = "Update Ueps set Canueps = "& Newueps &" where Regueps = "& UepsIndex &";"
Cn1.Execute sql13
set rs17 = server.CreateObject("ADODB.Recordset")
sql17 = "Delete Ueps where canueps = 0;"
Cn1.Execute sql17
Csol = 0
'***************************** 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 = Cdbl(Uepscan) - Cdbl(Cancap)
set rs13 = server.CreateObject("ADODB.Recordset")
sql13 = "Update Ueps set Canueps = "& Newueps &" where Regueps = "& UepsIndex &";"
Cn1.Execute sql13
set rs17 = server.CreateObject("ADODB.Recordset")
sql17 = "Delete Ueps where canueps = 0;"
Cn1.Execute sql17
Csol = 0
'***************************** 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 rs13 = server.CreateObject("ADODB.Recordset")
sql13 = "Update Ueps set Canueps = "& Newueps &" where Regueps = "& UepsIndex &";"
Cn1.Execute sql13
set rs17 = server.CreateObject("ADODB.Recordset")
sql17 = "Delete Ueps where canueps = 0;"
Cn1.Execute sql17
Csol = Cdbl(Csol) - Cdbl(cancap)
End If
End If
End If
Rsa.Movenext
Loop
'---------------------- COSTEO UEPSC CAPA DE CONTABILIDAD -----------------------------------------------------------
set rsb = server.CreateObject("ADODB.Recordset")
sqlb = "Select * from uepsC, csaldtem where " &_
"almuepsC = almtsad and coduepsC = codtsad and regtsad = "& Regi &" order by reguepsc desc;"
rsb.open sqlb,cn1,1,2
Do While Not Rsb.EOF
UepscanC = rsb("Canuepsc")
CostoUepsC = rsb("punuepsc")
UepsIndexC = rsb("Reguepsc")
PedIntC = rsb("pinuepsc")
'***************************** PRIMER IF SI LO SOLICITADO ES MENOR A LA CAPA UEPSC *********************
If Cdbl(Csolo) < Cdbl(UepscanC) and Cdbl(Csolo) > 0 then
CancapC = Cdbl(Csolo)
CanremC = Cdbl(CanremC) + Cdbl(Csolo)
NewuepsC = Cdbl(UepscanC) - Cdbl(CancapC)
set rs13 = server.CreateObject("ADODB.Recordset")
sql13 = "Update UepsC set CanuepsC = "& NewuepsC &" where Reguepsc = "& UepsIndexC &";"
Cn1.Execute sql13
set rs12 = server.CreateObject("ADODB.Recordset")
sql12 = "Insert into Csaldet " &_
"(tmosad, numsad, secsad, cansad, cresad, cpesad, almsad, codsad, ucosad, prosad, fensad, " &_
"orisad, cersad, pedsad, ppisad, obssad) " &_
"Select tmotsad, "& Folio &", sectsad, "& CanCapC &", "& CanCapC &", 0, almtsad, codtsad, ucotsad, protsad, fentsad, " &_
"oritsad, certsad, pedtsad, ppitsad, obstsad From Csaldtem where Regtsad = "& Regi &" and Sestsad = "& Sexion &";"
Cn1.Execute sql12
set rs14 = server.CreateObject("ADODB.Recordset")
sql14 = "Insert into movinv " &_
"(tmominv, docminv, fecminv, almminv, codminv, canminv, eximinv, prvminv, ucominv, pgaminv, " &_
"monminv, tcaminv, cprminv, venminv, obsminv, usrminv, cpminv) " &_
"Select tmotsad, "& Folio &", '"& Fecact &"', almtsad, codtsad, "& CanCapC &", (Exirmul - "& CanCapC &"), " &_
""& CostoUepsC &", "& CostoUepsC &", 0, 1, 1, '"& Provee &"', 0, obstsad, '"& Nombre &"', cpmul " &_
"From Csaldtem, Multialmacen where Regtsad = "& Regi &" and almtsad = almmul and codtsad = artmul;"
Cn1.Execute sql14
set rs15 = server.CreateObject("ADODB.Recordset")
sql15 = "Update Multialmacen set eximul = (Eximul - "& Cancapc &"), " &_
"Exirmul = (Exirmul - "& CanCapC &"), Fuvmul = '"& FecAct &"' " &_
"From Csaldtem where almmul = almtsad and artmul = Codtsad and regtsad = "& Regi &";"
Cn1.Execute sql15
set rs16 = server.CreateObject("ADODB.Recordset")
sql16 = "Update Inventarios " &_
"Set Exiinv = (Exiinv - "& Cancapc &"), Exirinv = (Exirinv - "& Cancapc &") " &_
"From Csaldtem where cveinv = codtsad and regtsad = "& Regi &";"
Cn1.Execute sql16
set rs17 = server.CreateObject("ADODB.Recordset")
sql17 = "Delete Uepsc where canuepsc = 0;"
Cn1.Execute sql17
Csolo = 0
'***************************** 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 = Cdbl(UepscanC) - Cdbl(CancapC)
set rs13 = server.CreateObject("ADODB.Recordset")
sql13 = "Update UepsC set CanuepsC = "& NewuepsC &" where Reguepsc = "& UepsIndexC &";"
Cn1.Execute sql13
set rs12 = server.CreateObject("ADODB.Recordset")
sql12 = "Insert into Csaldet " &_
"(tmosad, numsad, secsad, cansad, cresad, cpesad, almsad, codsad, ucosad, prosad, fensad, " &_
"orisad, cersad, pedsad, ppisad, obssad) " &_
"Select tmotsad, "& Folio &", sectsad, "& CanCapC &", "& CanCapC &", 0, almtsad, codtsad, ucotsad, protsad, fentsad, " &_
"oritsad, certsad, pedtsad, ppitsad, obstsad From Csaldtem where Regtsad = "& Regi &" and Sestsad = "& Sexion &";"
Cn1.Execute sql12
set rs14 = server.CreateObject("ADODB.Recordset")
sql14 = "Insert into movinv " &_
"(tmominv, docminv, fecminv, almminv, codminv, canminv, eximinv, prvminv, ucominv, pgaminv, " &_
"monminv, tcaminv, cprminv, venminv, obsminv, usrminv, cpminv) " &_
"Select tmotsad, "& Folio &", '"& Fecact &"', almtsad, codtsad, "& CanCapC &", (Exirmul - "& CanCapC &"), " &_
""& CostoUepsC &", "& CostoUepsC &", 0, 1, 1, '"& Provee &"', 0, obstsad, '"& Nombre &"', cpmul " &_
"From Csaldtem, Multialmacen where Regtsad = "& Regi &" and almtsad = almmul and codtsad = artmul;"
Cn1.Execute sql14
set rs15 = server.CreateObject("ADODB.Recordset")
sql15 = "Update Multialmacen set eximul = (Eximul - "& Cancapc &"), " &_
"Exirmul = (Exirmul - "& CanCapC &"), Fuvmul = '"& FecAct &"' " &_
"From Csaldtem where almmul = almtsad and artmul = Codtsad and regtsad = "& Regi &";"
Cn1.Execute sql15
set rs16 = server.CreateObject("ADODB.Recordset")
sql16 = "Update Inventarios " &_
"Set Exiinv = (Exiinv - "& Cancapc &"), Exirinv = (Exirinv - "& Cancapc &") " &_
"From Csaldtem where cveinv = codtsad and regtsad = "& Regi &";"
Cn1.Execute sql16
set rs17 = server.CreateObject("ADODB.Recordset")
sql17 = "Delete Uepsc where canuepsc = 0;"
Cn1.Execute sql17
Csolo = 0
'***************************** 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)
'Newueps = 0
CancapC = Cdbl(UepscanC)
CanremC = Cdbl(CanremC) + Cdbl(Csolo)
NewuepsC = 0
Response.write(Newueps)
set rs13 = server.CreateObject("ADODB.Recordset")
sql13 = "Update UepsC set CanuepsC = "& NewuepsC &" where Reguepsc = "& UepsIndexC &";"
Cn1.Execute sql13
set rs12 = server.CreateObject("ADODB.Recordset")
sql12 = "Insert into Csaldet " &_
"(tmosad, numsad, secsad, cansad, cresad, cpesad, almsad, codsad, ucosad, prosad, fensad, " &_
"orisad, cersad, pedsad, ppisad, obssad) " &_
"Select tmotsad, "& Folio &", sectsad, "& CanCapC &", "& CanCapC &", 0, almtsad, codtsad, ucotsad, protsad, fentsad, " &_
"oritsad, certsad, pedtsad, ppitsad, obstsad From Csaldtem where Regtsad = "& Regi &" and Sestsad = "& Sexion &";"
Cn1.Execute sql12
set rs14 = server.CreateObject("ADODB.Recordset")
sql14 = "Insert into movinv " &_
"(tmominv, docminv, fecminv, almminv, codminv, canminv, eximinv, prvminv, ucominv, pgaminv, " &_
"monminv, tcaminv, cprminv, venminv, obsminv, usrminv, cpminv) " &_
"Select tmotsad, "& Folio &", '"& Fecact &"', almtsad, codtsad, "& CanCapC &", (Exirmul - "& CanCapC &"), " &_
""& CostoUepsC &", "& CostoUepsC &", 0, 1, 1, '"& Provee &"', 0, obstsad, '"& Nombre &"', cpmul " &_
"From Csaldtem, Multialmacen where Regtsad = "& Regi &" and almtsad = almmul and codtsad = artmul;"
Cn1.Execute sql14
set rs15 = server.CreateObject("ADODB.Recordset")
sql15 = "Update Multialmacen set eximul = (Eximul - "& Cancapc &"), " &_
"Exirmul = (Exirmul - "& CanCapC &"), Fuvmul = '"& FecAct &"' " &_
"From Csaldtem where almmul = almtsad and artmul = Codtsad and regtsad = "& Regi &";"
Cn1.Execute sql15
set rs16 = server.CreateObject("ADODB.Recordset")
sql16 = "Update Inventarios " &_
"Set Exiinv = (Exiinv - "& Cancapc &"), Exirinv = (Exirinv - "& Cancapc &") " &_
"From Csaldtem where cveinv = codtsad and regtsad = "& Regi &";"
Cn1.Execute sql16
set rs17 = server.CreateObject("ADODB.Recordset")
sql17 = "Delete Uepsc where canuepsc = 0;"
Cn1.Execute sql17
Csolo = Cdbl(Csolo) - Cdbl(cancapc)
End If
End If
End If
Rsb.Movenext
Loop
End If
End If
Rs11.Movenext
Loop
End If
set rs18 = server.CreateObject("ADODB.Recordset")
sql18 = "Insert into Csalenc " &_
"(Tmosae, Numsae, Fecsae, Prosae, Atesae, Notsae, Consae, Labsae, Mtore) " &_
"values("& Tmo &", "& Folio &", '"& Fecact &"', '"& Provee &"', '"& Ate &"', " &_
"'"& Sanea(Nota) &"', "& Cond &", '"& Lab &"', 5);"
Cn1.Execute sql18
set rs19 = server.CreateObject("ADODB.Recordset")
sql19 = "Update Consecutivos set Nsalida = "& Folio &";"
Cn1.Execute sql19
set rs20 = server.CreateObject("ADODB.Recordset")
sql20 = "Delete Csaldtem where sestsad = "& Sexion &";"
Cn1.Execute sql20
Response.redirect("Notasal.asp?NumNot="& Folio &"&Empresa="& Negocio &"")
%>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>