<%
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">
<%
Dim rs5, sql5, rs6, sql6, rs7, sql7, rs8, sql8, rs17, sql17
Dim rs20, sql20, rs18, sql18, rs19, sql19, rs15, sql15, rs30, sql30, rs31, sql31
Dim Numord, Fecact, Prov, Mone, Iva, status, Subtotal, Ivaf, Total, Tcam, Surtido, docu
Dim Sec, Origen, Fecauto
Prov = Request.Form("provee")
Mone = Request.Form("Mone")
Iva = Request.Form("Iva")
Origen = Request.Form("Origen")
Subtotal = Request.Form("Subtotal")
Ivaf = Request.Form("Ivaf")
Total = Request.Form("Total")
Fecauto = DATE()
set rs5 = server.CreateObject("ADODB.Recordset")
sql5 = "select Ordenes from consecutivos"
rs5.open sql5,cn1,1,2
set rs6 = server.CreateObject("ADODB.Recordset")
sql6 = "select Cveprv, Nomprv from proveedores where Cveprv = '"& Prov &"';"
rs6.open sql6,cn1,1,2
set rs7 = server.CreateObject("ADODB.Recordset")
sql7 = "select Cladiv, DesDiv, Sigdiv, Tcadiv from Monedas where Cladiv = '"& Mone &"';"
rs7.open sql7,cn1,1,2
Numord = rs5.fields("ordenes") + 1
Fecact= date()
Status= 0
Tcam= rs7.fields("Tcadiv")
Surtido= 0
Docu = Session.SessionID
Sec = 0
response.write(Nombre)
set rs20 = server.CreateObject("ADODB.Recordset")
sql20="insert into Cordenc (Numore, Fecore, proore, ivaore, monore, tcaore, staore, subore, ivtore, totore, usuore, AFTORE, Oriore,FECAUTO)" &_
"Values ("& Numord &", '"& Fecact &"', '"& prov &"', "& Iva &", "& Mone &", "& Tcam &", "& Status &", "& Subtotal &", " &_
""& Ivaf &", "& Total &", '"& nombre &"', 0, "& Origen &", '"& FECAUTO &"')"
Cn1.Execute sql20
set rs5 = server.CreateObject("ADODB.Recordset")
sql5 = "Update Consecutivos set ordenes = "& Numord &";"
Cn1.Execute sql5
dim Ca1, Ca2, Ca3, Ca4, Ca5, Ca6, ca7, ca8, ca9, ca10, ca11, ca12, ca13, ca14, ca15, ca16, Filial1, Filial2, Filial3, Filial4, Filial5, ca17
set rs19 = server.CreateObject("ADODB.Recordset")
sql19="select * from corddtem where Doctdord = '"& Docu &"' ORDER BY PINCORD ASC, PPICORD;"
rs19.open sql19,cn1,1,2
do while not rs19.EOF
ca1 = rs19("almtdord")
ca2 = rs19("Codtdord")
ca3 = rs19("cantdord")
ca11 = 0
ca4 = rs19("pretdord")
ca5 = rs19("destdord")
ca6 = rs19("unitdord")
ca7 = rs19("montdord")
ca8 = rs19("tcatdord")
ca9 = rs19("fptdord")
ca10 = rs19("Obstdord")
ca11 = rs19("pincord")
ca12 = rs19("ppicord")
ca13 = rs19("pvecord")
ca14 = rs19("pmocord")
ca15 = rs19("ptccord")
ca16 = rs19("reqtem")
Filial1 = Rs19("Coatza")
Filial2 = Rs19("Mexico")
Filial3 = Rs19("Puebla")
Filial4 = Rs19("Toluca")
Filial5 = Rs19("Guadalajara")
ca17 = rs19("Nparte")
sec = sec + 1
response.write(sec&"--")
response.write(ca1&"--")
response.write(ca2&"--")
response.write(ca3&"--")
response.write(ca4&"--")
response.write(ca4&"--")
response.write(ca6&"--")
response.write(ca7&"--")
response.write(ca8&"--")
response.write(ca9&"--")
response.write(ca10&"<br>")
response.write("<br>"&Sec&"Fin")
set rs18 = server.CreateObject("ADODB.Recordset")
sql18="insert into corddet " &_
"(Numord, secord, almord, codord, csoord, cpeord, csuord, pliord, desord, punord, monord, tcaord, " &_
"fpord, obsord, pinord, ppiord, pveord, pmoord, ptcord, rgrord, COATZA, MEXICO, PUEBLA, TOLUCA, GUADALAJARA, Nparte) " &_
"values ("& Numord &", "& Sec &", "& Ca1 &", '"& ca2 &"', "& ca3 &", "& ca3 &", " &_
"0,"& ca4 &", "& ca5 &", "& ca6 &", "& ca7 &", "& ca8 &", '"& ca9 &"', '"& ca10 &"', "& ca11 &", "& ca12 &", "& ca13 &", "& ca14 &", " &_
""& ca15 &", "& ca16 &", "& Filial1 &", "& Filial2 &", "& Filial3 &", "& Filial4 &", "& Filial5 &", '"& Sanea(ca17) &"');"
Cn1.Execute sql18
set rs17 = server.CreateObject("ADODB.Recordset")
sql17="Update Creqdet set Ordreqd = '"& NumOrd &"' from corddtem where regreqd = reqtem AND DOCTDORD = "& DOCU &";"
Cn1.Execute sql17
set rs30 = server.CreateObject("ADODB.Recordset")
sql30="Update Inventarios set Cominv = Cominv + '"& ca3 &"' where cveinv = '"& Ca2 &"';"
Cn1.Execute sql30
set rs31 = server.CreateObject("ADODB.Recordset")
sql31="Update Multialmacen set cxrmul = cxrmul + '"& ca3 &"' where artmul = '"& Ca2 &"' and almmul = '"& Ca1 &"';"
Cn1.Execute sql31
rs19.MoveNext
loop
rs19.close
set rs15 = server.CreateObject("ADODB.Recordset")
sql15="Delete corddtem where doctdord = "& docu &";"
Cn1.Execute sql15
set rs8 = server.CreateObject("ADODB.Recordset")
sql8 = "select numore from cordenc where numore = '"& Numord &"';"
rs8.open sql8,cn1,1,2
Response.redirect("ordenrEmb.asp?Numord="& Numord &"&Origen="& Origen &"")
%>
</div>
<div style="position:absolute; top:110px; left:1">
</div>
<div style="position:absolute; top:140; width:760">
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>