<%
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:100px; left:10">
<%
Dim rs5, sql5, rs6, sql6, rs7, sql7, rs8, sql8
Dim rs20, sql20, rs18, sql18, Rs51, Sql51
Dim Cliente, Alma, Mone, Esquema, Vigencia, Folioweb, Secuencia, Iva, Retencion
Dim Subtotal, Ivat, Total
Dim Fcotnum, Fecact, Status, Tcam, Surtido, Ses
Cliente = server.HtmlEncode(Request.Form("Cliente"))
Alma = server.HtmlEncode(Request.Form("Alma"))
Mone = server.HtmlEncode(Request.Form("Mone"))
Esquema = server.HtmlEncode(Request.Form("Esquema"))
Vigencia = Request("Vigencia")
Folioweb = server.HtmlEncode(Request.Form("Folioweb"))
set rs51 = server.CreateObject("ADODB.Recordset")
sql51 = "select * from esquemaiva where regiva = "& Esquema &";"
rs51.open sql51,cn1,1,2
Iva= rs51.fields("Iva")
Retencion= rs51.fields("Retencion")
Subtotal = server.HtmlEncode(Request.Form("Subtotal"))
Ivat = server.HtmlEncode(Request.Form("Ivat"))
Total = server.HtmlEncode(Request.Form("Total")) - ((Retencion * Subtotal) / 100)
set rs5 = server.CreateObject("ADODB.Recordset")
sql5 = "select Cotizaciones from consecutivos"
rs5.open sql5,cn1,1,2
Fcotnum = rs5.fields("cotizaciones") + 1
set rs6 = server.CreateObject("ADODB.Recordset")
sql6 = "select Clacli, nomcli from Clientes where Clacli = '"& Cliente &"';"
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
Tcam= rs7.fields("Tcadiv")
Fecact= date()
Status= "A"
Surtido= 0
Ses = Session.SessionID
set rs20 = server.CreateObject("ADODB.Recordset")
sql20="insert into Fcotenc" &_
"(Numfcote, Fecfcote, fvafcote, Clifcote, ESQFCOTE, ivafcote, Retfcote, monfcote, tcafcote, stafcote, subfcote, ivtfcote, imrfcote, totfcote, usufcote, faufcote, mEDFCOTE)" &_
"values ("& Fcotnum &", '"& Fecact &"', '"& Vigencia &"', '"& Cliente &"', "& ESQUEMA &", "& Iva &", "& Retencion &", " &_
""& Mone &", "& Tcam &", '"& Status &"', "& Subtotal &"," &_
""& Ivat &", (("& Retencion &" * "& Subtotal &") / 100), "& Total &", '"& nombre &"', 0,0);"
Cn1.Execute sql20
sql20 = "Update Consecutivos set Cotizaciones = "& fcotnum &";"
Cn1.Execute sql20
sql20="insert into Fcotdet" &_
"(Ncofcotd, Clifcotd, Almfcotd, Codfcotd, canfcotd, csufcotd, cpefcotd, Prefcotd, Desfcotd, Unifcotd, Monfcotd, Tcafcotd, Fpefcotd, ivafcotd, Obsfcotd, Usufcotd, Ucofcotd, secfcotd)" &_
"Select "& Fcotnum &", Clitcotd, Almtcotd, Codtcotd, Cantcotd, "& Surtido &", cantcotd, Pretcotd, destcotd, unitcotd, montcotd, tcatcotd, fpetcotd, ivatcotd," &_
"obstcotd, '"& Nombre &"', Ucotcotd, SecTcotd from fcotdtem where sestcotd = "& Ses &";"
Cn1.Execute sql20
sql20="Delete fcotdtem where sestcotd = "& Ses &" and fowebcot = "& Folioweb &";"
Cn1.Execute sql20
set rs8 = server.CreateObject("ADODB.Recordset")
sql8 = "select numfcote from fcotenc where numfcote = '"& fcotnum &"';"
rs8.open sql8,cn1,1,2
Response.Redirect("Fcotemb.asp?fcotnum="& Fcotnum &"")
%>
</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()
%>