<% 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, rs9, sql9, rs10, sql10, rs11, sql11, rs12, Sql12
Dim Rs21, Sql21, EIva, Erete, ImpIva, ImpRete, ImporT
Dim Prove, Mone, Conce, Folio, Banco
Dim Fact, Docu, Fapli, Fvenc, Impor, Esquema
Dim Refe, Tca, Impesos, Salcli
Dim Idcxcg
Conce = server.HtmlEncode(Request.Form("Conce"))
If Conce = 2 then
set rs10 = server.CreateObject("ADODB.Recordset")
Sql10 ="select cxpant from consecutivos;"
rs10.Open SQL10, cn1
Folio = rs10("cxpant") + 1
set rs11 = server.CreateObject("ADODB.Recordset")
sql11 = "Update consecutivos set cxpant = '"& Folio &"';"
Cn1.Execute sql11
else if Conce = 19 then
set rs10 = server.CreateObject("ADODB.Recordset")
Sql10 ="select cxpsal from consecutivos;"
rs10.Open SQL10, cn1
Folio = rs10("cxpsal") + 1
set rs11 = server.CreateObject("ADODB.Recordset")
sql11 = "Update consecutivos set cxpsal = '"& Folio &"';"
Cn1.Execute sql11
end if
end if
Prove = server.HtmlEncode(Request.Form("Prove"))
Mone = server.HtmlEncode(Request.Form("Mone"))
Conce = server.HtmlEncode(Request.Form("Conce"))
Fact = Request.Form("Fact")
Docu = server.HtmlEncode(Request.Form("Docu"))
Fapli = server.HtmlEncode(Request.Form("fapli"))
Fvenc =server.HtmlEncode(Request.Form("fvenc"))
Impor = server.HtmlEncode(Request.Form("Impor"))
Esquema = Request("Esquema")
Banco = Request("Banco")
Idcxcg = Conce & "-" & Folio
if Fact = 0 then
Refe = Docu
else
Refe = Fact
end if
set Rs21 = server.CreateObject("ADODB.Recordset")
Sql21 ="select * from EsquemaIva where Regiva = "& Esquema &";"
Rs21.Open Sql21, cn1
Eiva = Rs21("Iva")
Erete = Rs21("Retencion")
ImpIva = (Cdbl(Impor) * Cdbl(Eiva)) / 100
Imprete = (Cdbl(Impor) * Cdbl(ERete)) / 100
set rs8 = server.CreateObject("ADODB.Recordset")
Sql8 ="select Cveprv, Salprv from Proveedores where Cveprv = '"& Prove &"';"
rs8.Open SQL8, cn1
set rs5 = server.CreateObject("ADODB.Recordset")
Sql5 ="select * from monedas where cladiv = "& Mone &";"
rs5.Open SQL5, cn1
Tca = Request("Tca")
Impesos = (cdbl(Tca) * (cdbl(Impor) + Cdbl(ImpIva) - Cdbl(ImpRete))) * -1
Salcli = cdbl(rs8.fields("Salprv")) + cdbl(Impesos)
ImporT = (cdbl(Impor) + cdbl(ImpIva) - Cdbl(Imprete)) * -1
set rs6 = server.CreateObject("ADODB.Recordset")
sql6="insert into cxpgen " &_
"(movcxpg, prvcxpg, nrecxpg, refcxpg, doccxpg, frecxpg, fpacxpg, moncxpg, tcacxpg, impcxpg, salcxpg, pagcxpg, imtcxpg, idrcxpg) " &_
"Values ("& Conce &", '"& Prove &"', "& Folio &", '"& Refe &"', '"& Folio &"', '"& Fapli &"', '"& Fvenc &"', "& Mone &", "& Tca &", " &_
""& ImporT &", "& ImporT &", 0, "& Impesos &", '"& Idcxcg &"');"
Cn1.Execute sql6
set rs7 = server.CreateObject("ADODB.Recordset")
sql7="insert into cxpdet " &_
"(movcxpd, prvcxpd, nrecxpd, refcxpd, doccxpd, frecxpd, fpacxpd, moncxpd, tcacxpd, impcxpd, imdcxpd, Descxpd, Idrcxpd) " &_
"Values ("& Conce &", '"& Prove &"', "& Folio &", '"& Refe &"', '"& Folio &"', '"& Fapli &"', '"& Fvenc &"', " &_
""& Mone &", "& Tca &", "& Impesos &", "& ImporT &", '"& Banco &"', '"& Idcxcg &"');"
Cn1.Execute sql7
set rs9 = server.CreateObject("ADODB.Recordset")
sql9 = "Update Proveedores set Salprv = "& Salcli &" where Cveprv = '"& Prove &"';"
Cn1.Execute sql9
Response.redirect("Cxpgen.asp?Prove="& Prove &"")
%>
<bR>
Hola
</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()
%>