<%
Option Explicit
%>
<%
Session.LCID = 2058
Dim Clapro, Nomprv
Clapro = Request("Clapro")
Nomprv = Request("Nomprv")
%>
<!--#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">
<%
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>
<B>
::: NOTAS DE ENTRADA :::
</B>
<%
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, Rs27, Sql27
Dim Element, Sexion, Factual, Fpago
Dim Nota, Importe, Iva, Total, Entrada, consecutivo, Idrcxpg
Consecutivo = Request("Consecutivo")
set Rs26 = server.CreateObject("ADODB.Recordset")
sql26 = "Select Nentrada From consecutivos"
rs26.open sql26,cn1,1,2
Entrada = Rs26("Nentrada") + 1
Nota = Request("Nota")
Factual = date()
Sexion = Session.SessionId
for each element in request("chk")
set rs11 = server.CreateObject("ADODB.Recordset")
sql11 = "Insert into Centdet " &_
"(Tmoend, numend, Numsal, secend, canend, cdeend, almend, codend, ucoend, proend, " &_
"maqend, fenend, oriend, cerend, pedend, ppiend, obsend, ANTEND) " &_
"Select Tmotend, "& Entrada &", numtend, sectend, cantend, 0, almtend, codtend, ucotend, protend, " &_
"maqtend, fentend, oritend, certend, pedtend, ppitend, obstend, ANTTEND From Centdtem " &_
"where regtend = "& Request("txt_"&element) &" and sestend = "& Sexion &";"
Cn1.Execute sql11
set rs12 = server.CreateObject("ADODB.Recordset")
sql12 = "Update Csaldet set Cpesad = (cpesad - cantend), cresad = (cresad + Cantend), ENTRADA = "& ENTRADA &" " &_
"From Centdtem where regtend = "& Request("txt_"&element) &" and sestend = "& Sexion &" " &_
"and anttend = regsad;"
Cn1.Execute sql12
set rs13 = server.CreateObject("ADODB.Recordset")
sql13="Insert into MovInv (TmoMinv, Docminv, FecMinv, AlmMinv, CodMinv, CanMinv, ExiMinv, PrVMInv, UcoMinv, CpMinv, " &_
"PgaMinv, MonMinv, TcaMinv, CPRMinv, VenMinv, ObsMinv, UsrMinv) " &_
"Select Tmotend, "& ENTRADA &", '"& Factual &"', Almtend, Codtend, Cantend, (exiRmul + Cantend), 0, (Ucotend + maqtend), " &_
"(((exiRmul * cpmul) + (cantend * (ucotend + maqtend))) / (exiRmul + cantend)), " &_
"0, 1, 1, Prosae, 0, Obstend, '"& Nombre &"' from centdtem, Csalenc, multialmacen " &_
"where regtend = "& Request("txt_"&element) &" and numtend = numsae and almtend = almmul and codtend = artmul;"
Cn1.Execute sql13
set rs14 = server.CreateObject("ADODB.Recordset")
sql14="Update Inventarios set cpinv = (((exiRinv * cpinv) + (cantend * (ucotend + maqtend ))) / ((exiRinv + cantend))), " &_
"ultcinv = (Ucotend + maqtend), ExiRinv = (ExiRinv + cantend) " &_
"from Centdtem where cveinv = codtend and regtend = "& Request("txt_"&element) &";"
Cn1.Execute sql14
set rs15 = server.CreateObject("ADODB.Recordset")
sql15="Update Inventarios set Exiinv = (exiinv + cantend) from centdtem where cveinv = codtend " &_
"and regtend = "& Request("txt_"&element) &" and pedtend = 0;"
Cn1.Execute sql15
set rs16 = server.CreateObject("ADODB.Recordset")
sql16="Update Multialmacen set cpmul = (((exiRmul * cpmul) + (cantend * (ucotend + maqtend))) / ((exiRmul + cantend))), " &_
"fucmul = '"& Factual &"', ucomul = (Ucotend + maqtend), ExiRmul = (ExiRmul + Cantend) " &_
"from centdtem where almmul = almtend and artmul = codtend and regtend = "& Request("txt_"&element) &";"
Cn1.Execute sql16
set rs17 = server.CreateObject("ADODB.Recordset")
sql17="Update Multialmacen set eximul = (eximul + cantend) " &_
"from centdtem where almmul = almtend and artmul = codtend and regtend = "& Request("txt_"&element) &" and pedtend = 0;"
Cn1.Execute sql17
set rs18 = server.CreateObject("ADODB.Recordset")
sql18="Insert Into Ueps (FecUeps, ComUeps, Almueps, codueps, canueps, punueps, pinueps, ppiueps) " &_
"Select '"& Factual &"', "& ENTRADA &", Almtend, Codtend, cantend, (ucotend + maqtend), pedtend, ppitend " &_
"From centdtem where regtend = "& Request("txt_"&element) &";"
Cn1.Execute sql18
set rs18 = server.CreateObject("ADODB.Recordset")
sql18="Insert Into Uepsc (FecUepsc, ComUepsc, Almuepsc, coduepsc, canuepsc, punuepsc, pinuepsc) " &_
"Select '"& Factual &"', "& ENTRADA &", Almtend, Codtend, cantend, (ucotend + maqtend), pedtend " &_
"From centdtem where regtend = "& Request("txt_"&element) &";"
Cn1.Execute sql18
next
set rs19 = server.CreateObject("ADODB.Recordset")
sql19="Insert Into Centenc " &_
"(Tmoene, SALIDA, numene, fecene, proene, ateene, notene, conene, labene) " &_
"Select Tmosae, Numsae, "& ENTRADA &", '"& Factual &"', Prosae, Atesae, Notsae, Consae, Labsae " &_
"From Csalenc where numsae = "& Nota &";"
Cn1.Execute sql19
set rs20 = server.CreateObject("ADODB.Recordset")
sql20 = "select sum(Cantend * maqtend) as Importe from centdtem where sestend = "& Sexion &";"
rs20.open sql20,cn1,1,2
Importe = Rs20("Importe")
Iva = Cdbl(Importe) * .16
Total = Cdbl(iva) + Cdbl(Importe)
set rs25 = server.CreateObject("ADODB.Recordset")
sql25 = "Select Diaprv From Proveedores, Csalenc where Cveprv = Prosae and Numsae = "& Nota &";"
rs25.open sql25,cn1,1,2
Fpago = Date() + Cdate(rs25("diaprv"))
Idrcxpg = 10 & "-" & Entrada
set rs21 = server.CreateObject("ADODB.Recordset")
sql21 = "Insert into cxpgen (Movcxpg, Prvcxpg, Nrecxpg, Frecxpg, fpacxpg, " &_
"moncxpg, impcxpg, salcxpg, pagcxpg, IMTCXPG, tcacxpg, DOCCXPG, Idrcxpg)" &_
"select 10, Prosae, "& Entrada &", '"& Factual &"', '"& Fpago &"', 1, " &_
""& Total &", "& Total &", 0, "& Total &", 1, numsae, '"& Idrcxpg &"' " &_
"From Csalenc, proveedores where Numsae = "& Nota &" And cveprv = prosae;"
Cn1.Execute sql21
set rs22 = server.CreateObject("ADODB.Recordset")
sql22 = "Insert into cxpdet (Movcxpd, Prvcxpd, Nrecxpd, Refcxpd, doccxpd, Frecxpd, fpacxpd, moncxpd, tcacxpd, IMPCXPD, imdcxpd, idrcxpd)" &_
"Select 10, prosae, "& Entrada &", numsae, Numsae, '"& Factual &"', '"& Fpago &"', " &_
"1, 1, "& Total &", "& Total &", '"& Idrcxpg &"' " &_
"From Csalenc, proveedores where Numsae = "& Nota &" " &_
"And cveprv = prosae ;"
Cn1.Execute sql22
set rs23 = server.CreateObject("ADODB.Recordset")
sql23 = "Update Proveedores set Salprv = (Salprv + "& Total &"), Ucoprv = '"& Factual &"' " &_
"From Csalenc where Cveprv = Prosae and numsae = "& Nota &";"
Cn1.Execute sql23
set rs24 = server.CreateObject("ADODB.Recordset")
sql24="delete Centdtem where Sestend = "& Sexion &" and numtend = "& Nota &";"
Cn1.Execute sql24
set rs27 = server.CreateObject("ADODB.Recordset")
sql27="Update Consecutivos Set Nentrada = "& Entrada &";"
Cn1.Execute sql27
Response.Redirect("Centesp.asp?Nota="& Entrada &"&Empresa="& Negocio &"")
%>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>