<%
Option Explicit
Session.LCID = 2058
Response.Expires = 0
%>
<!--#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">
<center>
<b>Remision Por Cliente</b>
<hr>
<%
Dim rs10, sql10, rs11, sql11, rs12, sql12, sql13, rs13, rs14, sql14, rs15, sql15, rs16, sql16
Dim Cliente, Alma, Mone, Esquema
Dim Clacli, Nomcli, Limcli, Salcli, Stacli, DiaCli
Dim Cladiv, Desdiv, Tcadiv
Dim Claalm, Desalm, Staalm
Dim Transito
Dim Docu, Folioweb
Cliente = Request("Cliente")
Alma = Request("Alma")
Mone = Request("Mone")
Esquema = Request("Esquema")
set rs10 = server.CreateObject("ADODB.Recordset")
Sql10 ="Select Clacli, Nomcli, Stacli, Limcli, Salcli, Diacli " &_
"From Clientes where Clacli = '"& Cliente &"' and stacli = 'A';"
rs10.Open SQL10, cn1
set rs11 = server.CreateObject("ADODB.Recordset")
Sql11 ="Select Cladiv, Desdiv, Tcadiv from Monedas where cladiv = "& Mone &";"
rs11.Open SQL11, cn1
set rs12 = server.CreateObject("ADODB.Recordset")
Sql12 ="Select Claalm, Desalm, Staalm from Almacenes where claalm = "& Alma &";"
rs12.Open SQL12, cn1
set rs13 = server.CreateObject("ADODB.Recordset")
Sql13 ="select CLIFREME, SUM(TOTFREME * TCAFREME) AS Importe " &_
"FROM FREMENC where Clifreme = '"& Cliente &"' and stafreme = 'A' GROUP BY CLIFREME;"
rs13.Open SQL13, cn1
If rs13.eof then
Transito = 0
'Response.write(Transito)
Else If not rs13.eof then
Transito = 0
'Response.write(Transito)
end if
end if
set rs14 = server.CreateObject("ADODB.Recordset")
Sql14 ="select Folrem from consecutivos;"
rs14.Open SQL14, cn1
Clacli = rs10("Clacli")
Nomcli = rs10("Nomcli")
Limcli = rs10("Limcli")
Salcli = rs10("Salcli")
Stacli = rs10("Stacli")
Diacli = rs10("Diacli")
Cladiv = rs11("Cladiv")
Desdiv = rs11("Desdiv")
Tcadiv = rs11("Tcadiv")
Claalm = rs12("Claalm")
Desalm = rs12("Desalm")
Staalm = rs12("Staalm")
Folioweb = rs14("Folrem") + 1
Docu = Session.SessionID
Dim SaldoA, vlimite
SaldoA = Cdbl(Limcli) - Cdbl(Salcli) - Cdbl(Transito)
IF Cdbl(Limcli) = 0 and Cdbl(Diacli) = 0 Then
Vlimite = -100000000
Else If Cdbl(Limcli) > 0 or Cdbl(Diacli) > 0 then
Vlimite = -1
End If
End If
'--------------------------- CHECAMOS EL SALDO DISPONIBLE DEL CLIENTE --------------------------------
If CDBL(SaldoA) <= Cdbl(Vlimite) then
%>
Lo sentimos el saldo del Cliente: <b><%= "Nomcli" %> </b> Es Insuficiente. <br>
Favor de Comunicarse al Departamento de Credito.
<%
Else
'----- EN CASO DE QUE SI TENGA SALDO DISPONIBLE -----------
'------------ Estas Son Las Partidas a Grabar en el Temporal
Dim element
for each element in request("chk")
Dim Reg, canti, dispo
Reg = Request("txt_"&element)
Canti = Request("canti_"&element)
Dispo = Request("dispo_"&element)
If cdbl(Canti) > cdbl(Dispo) Then
set rs15 = server.CreateObject("ADODB.Recordset")
sql15 = "Insert into Fremdtem (SesTremd, CliTremd, sectremd, Almtremd, Codtremd, Cantremd, Pretremd, destremd, unitremd, ucotremd, " &_
"montremd, tcatremd, fpetremd, ivatremd, anttremd, rgptremd, obstremd, fowebrem) " &_
"Select "& Docu &", clifpedd, secfpedd, almfpedd, codfpedd, "& Dispo &", prefpedd, desfpedd, unifpedd, "& Request("Uco_"&element) &", " &_
"monfpedd, Tcadiv, fpefpedd, ivafpedd, npefpedd, regfpedd, obsfpedd, "& Folioweb &" " &_
"From Fpeddet, monedas, multialmacen " &_
"Where regfpedd = "& Request("Txt_"&element) &" " &_
"and cpefpedd > 0 and monfpedd = cladiv " &_
"and almfpedd = almmul and codfpedd = artmul ;"
Cn1.Execute sql15
Else If cdbl(Canti) < cdbl(Dispo) Then
set rs15 = server.CreateObject("ADODB.Recordset")
sql15 = "Insert into Fremdtem (SesTremd, CliTremd, sectremd, Almtremd, Codtremd, Cantremd, Pretremd, destremd, unitremd, ucotremd, " &_
"montremd, tcatremd, fpetremd, ivatremd, anttremd, rgptremd, obstremd, fowebrem) " &_
"Select "& Docu &", clifpedd, secfpedd, almfpedd, codfpedd, "& Canti &", prefpedd, desfpedd, unifpedd, "& Request("Uco_"&element) &", " &_
"monfpedd, Tcadiv, fpefpedd, ivafpedd, npefpedd, regfpedd, obsfpedd, "& Folioweb &" " &_
"From Fpeddet, monedas, multialmacen " &_
"Where regfpedd = "& Request("Txt_"&element) &" " &_
"and cpefpedd > 0 and monfpedd = cladiv " &_
"and almfpedd = almmul and codfpedd = artmul ;"
Cn1.Execute sql15
Else If cdbl(Canti) = cdbl(Dispo) Then
set rs15 = server.CreateObject("ADODB.Recordset")
sql15 = "Insert into Fremdtem (SesTremd, CliTremd, sectremd, Almtremd, Codtremd, Cantremd, Pretremd, destremd, unitremd, ucotremd, " &_
"montremd, tcatremd, fpetremd, ivatremd, anttremd, rgptremd, obstremd, fowebrem) " &_
"Select "& Docu &", clifpedd, secfpedd, almfpedd, codfpedd, "& Dispo &", prefpedd, desfpedd, unifpedd, "& Request("Uco_"&element) &", " &_
"monfpedd, Tcadiv, fpefpedd, ivafpedd, npefpedd, regfpedd, obsfpedd, "& Folioweb &" " &_
"From Fpeddet, monedas, multialmacen " &_
"Where regfpedd = "& Request("Txt_"&element) &" " &_
"and cpefpedd > 0 and monfpedd = cladiv " &_
"and almfpedd = almmul and codfpedd = artmul ;"
Cn1.Execute sql15
End If
End If
End If
next
set rs16 = server.CreateObject("ADODB.Recordset")
Sql16 ="Update Consecutivos set Folrem = "& Folioweb &";"
rs16.Open SQL16, cn1
Response.Redirect("FrClicar.asp?Cliente="&Cliente&"&Alma="&Alma&"&Mone="&Mone&"&Folioweb="&Folioweb&"&Esquema="&Esquema&"")
End if
%>
<%=dispo%>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>