<% 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 Cliente, Mone, Conce, Folio
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 cxcant from consecutivos;"
rs10.Open SQL10, cn1
Folio = rs10("cxcant") + 1
set rs11 = server.CreateObject("ADODB.Recordset")
sql11 = "Update consecutivos set cxcant = '"& Folio &"';"
Cn1.Execute sql11
else if Conce = 19 then
set rs10 = server.CreateObject("ADODB.Recordset")
Sql10 ="select cxcsal from consecutivos;"
rs10.Open SQL10, cn1
Folio = rs10("cxcsal") + 1
set rs11 = server.CreateObject("ADODB.Recordset")
sql11 = "Update consecutivos set cxcsal = '"& Folio &"';"
Cn1.Execute sql11
end if
end if
Cliente = server.HtmlEncode(Request.Form("Cliente"))
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")
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 clacli, salcli from clientes where clacli = '"& cliente &"';"
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("Salcli")) + cdbl(Impesos)
ImporT = (cdbl(Impor) + cdbl(ImpIva) - Cdbl(Imprete)) * -1
set rs6 = server.CreateObject("ADODB.Recordset")
sql6="insert into cxcgen " &_
"(movcxcg, clicxcg, nfacxcg, peccxcg, frecxcg, fpacxcg, ivacxcg, retcxcg, moncxcg, tcacxcg, impcxcg, salcxcg, imtcxcg, doccxcg, anticxcg, usucxc, idrcxcg) " &_
"Values ("& Conce &", '"& Cliente &"', "& Folio &", '"& Docu &"', '"& Fapli &"', '"& Fvenc &"', "& Eiva &", "& Erete &", "& Mone &", "& Tca &", " &_
""& ImporT &", "& ImporT &", "& Impesos &", '"& Docu &"', 0, '"& nombre &"', '"& Idcxcg &"');"
Cn1.Execute sql6
set rs7 = server.CreateObject("ADODB.Recordset")
sql7="insert into cxcdet " &_
"(movcxcd, clicxcd, nfacxcd, refcxcd, doccxcd, frecxcd, fpacxcd, moncxcd, tcacxcd, impcxcd, imdcxcd, Idcxcg) " &_
"Values ("& Conce &", '"& Cliente &"', "& Folio &", '"& Refe &"', '"& Docu &"', '"& Fapli &"', '"& Fvenc &"', " &_
""& Mone &", "& Tca &", "& Impesos &", "& ImporT &", '"& Idcxcg &"');"
Cn1.Execute sql7
set rs12 = server.CreateObject("ADODB.Recordset")
sql12="insert into Cobranza " &_
"(clicob, Feccob, Capcob, folcob, tipcob, doccob, impcob, tpacob, moncob, tcacob, descob, usrcob) " &_
"Values ('"& Cliente &"', '"& Fapli &"', '"& Fapli &"', "& Folio &", "& Conce &", "& Folio &", "& -1*Impesos &",19, " &_
""& Mone &", "& Tca &", 2, '"& nombre &"');"
Cn1.Execute sql12
set rs9 = server.CreateObject("ADODB.Recordset")
sql9 = "Update Clientes set salcli = "& Salcli &" where clacli = '"& Cliente &"';"
Cn1.Execute sql9
Response.Redirect("Cxcgen.asp?Cliente="& Cliente &"")
%>
</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()
%>