<%
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="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
set rs5 = server.CreateObject("ADODB.Recordset")
sql5 = "select * from CXcM where (usuario like'" & nombre & "')"
rs5.open sql5,cn1,1,2
%>
<%
do while not rs5.EOF
%>
<a href="<%=rs5.fields("cxcm")%>.asp"><img src="Image/<%=rs5.fields("cxcn")%>.gif" border=0 ALT="<%=rs5.fields("cxCn")%>"></a>
<%
rs5.MoveNext
loop
%>
</div>
<div style="position:absolute; top:95px; left:10">
<center>
<hr>
<%
Dim Rs10, Sql10, Rs11, Sql11, Rs12, Sql12, Rs13, Sql13, Rs14, Sql14, Rs15, Sql15
Dim Rs16, Sql16, Rs17, Sql17, Rs18, Sql18, Rs19, Sql19, Rs20, Sql20, Rs21, Sql21
Dim Clacli, Moneda, Pago, Tcambio, Aplicar, Tpago, DocuP, Destino, Fcap, SaldoP, SaldoB
Dim Proceso, ImporteC, Observaciones, Concepto, Ipesos, ncobranza, Idls, ImporteDls
Dim ValorO, ValorC, TcambioF, DifeC, Naplica, SaldoD, DocuApli, ImporteA, TcambioE
Dim Documento, SaldoM, DocumentoA, SaldoDls, SaldoMxp, Fmoneda, FmonedaA, TipoA, TipoC
Dim MonedaDoc, feccap, Disponible, Status, Limite, Saldo
Dim DocApliS, Movi, Facdoc, PesosGen, DlsGen, PesosDet, DlsDet
Clacli = Request("Clacli")
Pago = Request("Pago")
Tcambio = Request("Tcambio")
TcambioE = Request("TcambioE")
Tpago = Request("Tpago")
DocuP = Request("DocuP")
Fcap = Request("Fcap")
ImporteC = Request("Importec")
ImporteDls = Request("ImporteDls")
Observaciones = Request("Observa")
Proceso = Request("Proceso")
DocuApli = Request("DocuApli")
feccap = date()
Destino = Request("Destino")
Response.write(Proceso & "<br>")
%>
<%
'------------- ELSE DE IMPORTEC -----------
'************************* PROCESO PARA APLICAR EL PAGO ********************
If Proceso = 1 then
If Clacli = "00000000" or Clacli = "" then
%>
Msg 1.- Favor de seleccionar un cliente <br>
<a href="javascript:history.back(1)">Regresar</a>
<%
Else
If Cdbl(DocuP) = 0 or Docup ="" then
%>
Msg 2.- Favor de seleccionar un Documento a Aplicar <br>
<a href="javascript:history.back(1)">Regresar</a>
<%
Else
If Cdbl(DocuApli) = 0 or DocuApli ="" then
%>
Msg 3.- Favor de seleccionar un Saldo <br>
<a href="javascript:history.back(1)">Regresar</a>
<%
Else
'------------ IF DE IMPORTE C ------------
If ImporteDls <= 0 then
%>
Msg 4.- El Importe Capturado es Incorrecto: <br>
<a href="javascript:history.back(1)">Regresar</a>
<%
Else
'************************ DEVUELVE LA PERDIDA O GANANCIA CAMBIARIA ************
Set Rs10= server.CreateObject("ADODB.Recordset")
SQL10="Select Regcxcg as Registro, Nfacxcg as Documento, Salcxcg as Saldo, (Salcxcg * Tcacxcg) as pesos, " &_
"Moncxcg, Tcacxcg As TipoC From cxcgen, Monedas where Regcxcg = "& DocuP &" and Cladiv = Moncxcg;"
Rs10.open Sql10,Cn1,1,2
Documento = Rs10("Documento")
SaldoD = Rs10("Saldo")
SaldoM = Rs10("Pesos")
Fmoneda = Rs10("Moncxcg")
TipoC = Rs10("TipoC")
Set Rs17 = server.CreateObject("ADODB.Recordset")
SQL17="Select Regcxcg as Registro, Nfacxcg as Documento, Salcxcg as Saldo, (Salcxcg * Tcacxcg) as pesos, " &_
"Moncxcg, Tcacxcg As TipoA From cxcgen, Monedas where Regcxcg = "& DocuApli &" and Cladiv = Moncxcg;"
Rs17.open Sql17,Cn1,1,2
DocumentoA = Rs17("Documento")
SaldoDls = Rs17("Saldo")
SaldoMxp = Rs17("Pesos")
FmonedaA = Rs17("Moncxcg")
TipoA = Rs17("TipoA")
If Cdbl(Fmoneda) = cdbl(FmonedaA) and cdbl(Fmoneda) = 1 then
If cdbl(SaldoD) =(-1* cdbl(SaldoDls)) Then
Ipesos =cdbl(ImporteC)
Importedls = cdbl(ImporteDls)
ValorC = Cdbl(ImporteC)
ValorO = Cdbl(ImporteC)
DifeC = 0
DlsGen = ImporteDls
PesosGen = Ipesos
DlsDet = ImporteDls
PesosDet =Ipesos
else If cdbl(SaldoD) < (-1* cdbl(SaldoDls)) then
Ipesos =cdbl(ImporteC)
Importedls = cdbl(ImporteDls)
ValorC = Cdbl(ImporteC)
ValorO = Cdbl(ImporteC)
DifeC = 0
DlsGen = ImporteDls
PesosGen = Ipesos
DlsDet = ImporteDls
PesosDet =Ipesos
else If cdbl(SaldoD) > (-1* cdbl(SaldoDls)) then
Ipesos =cdbl(ImporteC)
Importedls = cdbl(ImporteDls)
ValorC = Cdbl(ImporteA)
ValorO = Cdbl(ImporteA)
DifeC = 0
DlsGen = ImporteDls
PesosGen = Ipesos
DlsDet = ImporteDls
PesosDet =Ipesos
End If
End If
End If
End If
If Cdbl(Fmoneda) = cdbl(FmonedaA) and cdbl(Fmoneda) = 2 then
If cdbl(SaldoD) =(-1* cdbl(SaldoDls)) Then
Ipesos =cdbl(ImporteC)
Importedls = cdbl(ImporteDls)
ValorC = Cdbl(ImporteDls) * cdbl(TipoA)
ValorO = Cdbl(ImporteDls) * cdbl(TipoC)
DifeC = ValorC - ValorO
DlsGen = ImporteDls
PesosGen = Ipesos
DlsDet = ImporteDls
PesosDet = Ipesos
else If cdbl(SaldoD) < (-1* cdbl(SaldoDls)) then
Ipesos =cdbl(ImporteDls) * cdbl(TipoA)
Importedls = cdbl(ImporteDls)
ValorC = Cdbl(ImporteDls) * cdbl(TipoA)
ValorO = Cdbl(ImporteDls) * cdbl(TipoC)
TipoC = TipoC
DifeC = ValorC - ValorO
DlsGen = ImporteDls
PesosGen = Ipesos
DlsDet = ImporteDls
PesosDet =Ipesos
else If cdbl(SaldoD) > (-1* cdbl(SaldoDls)) then
Ipesos =cdbl(ImporteC)
Importedls = cdbl(ImporteDls)
ValorC = Cdbl(ImporteDls) * cdbl(TipoA)
ValorO = Cdbl(ImporteDls) * cdbl(TipoC)
TipoC = TipoC
DifeC = ValorC - ValorO
DlsGen = ImporteDls
PesosGen = Ipesos
DlsDet = ImporteDls
PesosDet =Ipesos
End If
End If
End If
End If
If cdbl(Fmoneda) > cdbl(FmonedaA) then
If cdbl(SaldoM) = cdbl(-1 * Cdbl(SaldoDls)) Then
Ipesos = cdbl(ImporteDls) * cdbl(TcambioE)
Importedls = cdbl(ImporteDls)
ValorC = Cdbl(ImporteDls) * cdbl(TipoC)
ValorO = Cdbl(ImporteDls) * cdbl(TcambioE)
DifeC = ValorC - ValorO
TipoA = TcambioE
Else If cdbl(SaldoM) < (-1 * Cdbl(SaldoDls)) Then
Ipesos =cdbl(ImporteDls) * cdbl(TcambioE)
Importedls = cdbl(ImporteDls)
ValorC = Cdbl(ImporteDls) * cdbl(TcambioE)
ValorO = Cdbl(ImporteDls) * cdbl(TipoC)
DifeC = ValorC - ValorO
TipoA = TcambioE
TipoC = TcambioE
DlsGen = ImporteDls
PesosGen = ImporteC
DlsDet = cdbl(ImporteDls) * cdbl(TcambioE)
PesosDet =cdbl(ImporteDls) * cdbl(TcambioE)
Else If cdbl(SaldoM) > (-1 * Cdbl(SaldoDls)) Then
Ipesos = cdbl(ImporteDls) * cdbl(TcambioE)
Importedls = cdbl(ImporteDls)
ValorC = Cdbl(ImporteDls) * cdbl(TcambioE)
ValorO = Cdbl(ImporteDls) * cdbl(TipoC)
DifeC = ValorC - ValorO
TipoA = TcambioE
TipoC = TcambioE
DlsGen = ImporteDls
PesosGen = ImporteC
DlsDet = ImporteC
PesosDet =ImporteC
End If
End If
End If
End If
If cdbl(Fmoneda) < cdbl(FmonedaA) then
If cdbl(SaldoD) = cdbl(-1 * Cdbl(SaldoMxp)) Then
Ipesos = cdbl(SaldoP)
Importedls = cdbl(Aplicar)
ValorC = Cdbl(Aplicar) * cdbl(TcambioF)
ValorO = Cdbl(Aplicar) * cdbl(Tcambio)
DifeC = ValorC - ValorO
TipoC = TipoA
Else If cdbl(SaldoD) < cdbl(-1 * Cdbl(SaldoMxp)) Then
Ipesos = cdbl(ImporteDls)* cdbl(TipoA)
Importedls = cdbl(ImporteDls)
ValorC = Cdbl(ImporteDls) * cdbl(TipoA)
ValorO = Cdbl(ImporteDls) * cdbl(TcambioE)
DifeC = ValorC - ValorO
TipoC = TipoA
DlsGen = ImporteC
PesosGen = ImporteDls * cdbl(TipoA)
DlsDet = ImporteDls
PesosDet =ImporteC
Else If cdbl(SaldoD) > cdbl(-1 * Cdbl(SaldoMxp)) Then
Ipesos = cdbl(ImporteC)
Importedls = cdbl(ImporteDls)
ValorC = Cdbl(ImporteDls) * cdbl(TipoA)
ValorO = Cdbl(ImporteDls) * cdbl(TcambioE)
DifeC = ValorC - ValorO
TipoC = TipoA
DlsGen = ImporteC
PesosGen = ImporteDls * cdbl(TcambioE)
DlsDet = ImporteDls
PesosDet =ImporteC
End If
End If
End If
End If
'************************ GENERA EL MOVIMIENTO A CXCDET ************
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "Insert into Cxcdet " &_
"(Movcxcd, Clicxcd, nfacxcd, refcxcd, doccxcd, Frecxcd, fpacxcd, moncxcd, tcacxcd, " &_
"impcxcd, imdcxcd, tcdcxcd, idcxcg) " &_
"Select 25, clicxcg, nfacxcg, "& DocumentoA &", "& DocumentoA &", '"& Fcap &"', '"& Fcap &"', "& FMoneda &", "& TipoC &", " &_
"(-1 * "& Ipesos &"), (-1 * "& ImporteDls &"), Tcacxcg, idrcxcg from cxcgen " &_
"where regcxcg = "& Docup &";"
Cn1.Execute Sql11
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "Insert into Cxcdet " &_
"(Movcxcd, Clicxcd, nfacxcd, refcxcd, doccxcd, Frecxcd, fpacxcd, moncxcd, tcacxcd, " &_
"impcxcd, imdcxcd, tcdcxcd, idcxcg) " &_
"Select 26, clicxcg, nfacxcg, "& Documento &", "& Documento &", '"& Fcap &"', '"& Fcap &"', "& FMonedaA &", "& TipoA &", " &_
""& Ipesos &", "& ImporteDls &", Tcacxcg, idrcxcg from cxcgen " &_
"where regcxcg = "& DocuApli &";"
Cn1.Execute Sql11
'************************ GENERA EL MOVIMIENTO A COBRANZA ************
Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12 = "Select Cobranza From Consecutivos;"
Rs12.Open Sql12,cn1,1,2
Ncobranza = Rs12("Cobranza") + 1
Set Rs13 = server.CreateObject("ADODB.Recordset")
Sql13 = "Insert Into Cobranza " &_
"(CliCob, FecCob, Capcob, FolCob, TipCob, DocCob, ImpCob, Obscob, TpaCob, MonCob, TcaCob, Descob, UsrCob) " &_
"Select Clicxcg, '"& Fcap &"', '"& Feccap&"', "& Ncobranza &", 25 , nfacxcg, "& cdbl(Ipesos) &", '"& sanea(Observaciones) &"', " &_
"3, "& FMoneda &", "& TipoC &", 1 , '"& Sanea(Nombre) &"' " &_
"from cxcgen where regcxcg = "&DocuP &";"
Cn1.Execute Sql13
Set Rs14 = server.CreateObject("ADODB.Recordset")
Sql14 = "Update Consecutivos Set Cobranza = "& Ncobranza &";"
Cn1.Execute Sql14
'************************ ACTUALIZA EL SALDO DE CXCGEN ************
Set Rs15 = server.CreateObject("ADODB.Recordset")
Sql15= "Update cxcgen " &_
"Set Salcxcg = (Salcxcg - "& DlsGen &"), imtcxcg = (imtcxcg - "& PesosGen &"), Pagcxcg = (Pagcxcg + "& Dlsgen &") " &_
"from cxcgen where regcxcg = "& DocuP &";"
Cn1.Execute Sql15
Set Rs16 = server.CreateObject("ADODB.Recordset")
Sql16= "Update cxcgen " &_
"Set Salcxcg = (Salcxcg + "& Dlsdet &"), imtcxcg = (imtcxcg + "& PesosDet &"), Pagcxcg = (Pagcxcg + "& DlsDet &") " &_
"from cxcgen where regcxcg = "& DocuApli &";"
Cn1.Execute Sql16
Set Rs19 = server.CreateObject("ADODB.Recordset")
SQL19="SELECT CLACLI, NOMCLI, STACLI, LIMCLI, SALCLI, (LIMCLI - SALCLI) AS DISPONIBLE FROM CLIENTES WHERE CLACLI = '"& Clacli &"';"
Rs19.open Sql19,Cn1,1,2
Disponible = Rs19("Disponible")
Limite = Rs19("Limcli")
Saldo = Rs19("Salcli")
if cdbl(Limite) = 0 and cdbl(Saldo) = 0 and cdbl(disponible) >= 0 then
Status = "A"
else
if cdbl(disponible) > 0 then
Status = "A"
else
status = "B"
end if
end if
Set Rs20 = server.CreateObject("ADODB.Recordset")
Sql20= "Update Clientes set Stacli = '"& status&"' where Clacli = '"& Clacli &"';"
Cn1.Execute Sql20
Set Rs21 = server.CreateObject("ADODB.Recordset")
Sql21= "Update CLIENTES " &_
"Set Salcli = (Salcli - "& PesosGen &") where Clacli = '"& Clacli &"';"
Cn1.Execute Sql21
Response.Redirect("CxcApli.asp?Clacli="& Clacli &"&Docup="& Docup &"&DocuApli="& DocuApli &"&DifeC="& Difec &"&Fcap="& fcap &"&TcambioE="& TcambioE &"")
End if
End if
End If
End if
Else If Proceso = 2 then
Difec = Request("DifeC")
TcambioE = Request("TcambioE")
Set Rs10 = server.CreateObject("ADODB.Recordset")
Sql10= "Select Regcxcg, Movcxcg, Nfacxcg, Salcxcg, Tcacxcg, imtcxcg, Moncxcg From Cxcgen where Regcxcg = "& DocuP &";"
Rs10.open Sql10,Cn1,1,2
Tcambio = rs10("tcacxcg")
MonedaDoc = rs10("Moncxcg")
Aplicar = cdbl(rs10("Salcxcg"))
Facdoc = Rs10("Nfacxcg")
Set Rs17 = server.CreateObject("ADODB.Recordset")
Sql17= "Select Regcxcg, Movcxcg, Nfacxcg, Salcxcg, Tcacxcg, imtcxcg, Moncxcg From Cxcgen where Regcxcg = "& DocuApli &";"
Rs17.open Sql17,Cn1,1,2
ImporteA = rs17("Salcxcg")
DocApliS = Rs17("Nfacxcg")
TcambioF = Rs17("Tcacxcg")
Moneda = Rs17("Moncxcg")
'************************ GENERA EL MOVIMIENTO DE PERDIDA O GANANCIA EN COBRANZA ************
Set Rs18 = server.CreateObject("ADODB.Recordset")
Sql18 = "Select Cobranza From Consecutivos;"
Rs18.Open Sql18,cn1,1,2
Ncobranza = Rs18("Cobranza") + 1
If Difec < 0 then
Set Rs13 = server.CreateObject("ADODB.Recordset")
Sql13 = "Insert Into Cobranza " &_
"(CliCob, FecCob, CapCob, FolCob, TipCob, DocCob, ImpCob, Obscob, TpaCob, MonCob, TcaCob, Descob, UsrCob) " &_
"Select Clicxcg, '"& Fcap &"', '"& Feccap&"', "& Ncobranza &", 23, nfacxcg, "& DifeC &", '"& Sanea(Observaciones) &"', " &_
"3, "& Moneda &", "& TcambioF &", 1, '"& Sanea(Nombre) &"' " &_
"from cxcgen where regcxcg = "&DocuP &";"
Cn1.Execute Sql13
'************************ GENERA EL MOVIMIENTO DE PERDIDA O GANANCIA EN CXCDET ************
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "Insert into Cxcdet " &_
"(Movcxcd, Clicxcd, nfacxcd, refcxcd, doccxcd, Frecxcd, fpacxcd, moncxcd, tcacxcd, " &_
"impcxcd, imdcxcd, tcdcxcd, idcxcg) " &_
"Select 23, clicxcg, nfacxcg, doccxcg, doccxcg, '"& Fcap &"', '"& Fcap &"', "& Moneda &", "& TcambioF &", " &_
""& DifeC &", 0, Tcacxcg, idrcxcg from cxcgen " &_
"where regcxcg = "& DocuP &";"
Cn1.Execute Sql11
Else
Set Rs13 = server.CreateObject("ADODB.Recordset")
Sql13 = "Insert Into Cobranza " &_
"(CliCob, FecCob, CapCob, FolCob, TipCob, DocCob, ImpCob, Obscob, TpaCob, MonCob, TcaCob, Descob, UsrCob) " &_
"Select Clicxcg, '"& Fcap &"', '"& Feccap &"', "& Ncobranza &", 24, nfacxcg, "& DifeC &", '"& Sanea(Observaciones) &"', "&_
"3, "& Moneda &", "& TcambioF &", 1, '"& Sanea(Nombre) &"' " &_
"from cxcgen where regcxcg = "&DocuP &";"
Cn1.Execute Sql13
'************************ GENERA EL MOVIMIENTO DE PERDIDA O GANANCIA EN CXCDET ************
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "Insert into Cxcdet " &_
"(Movcxcd, Clicxcd, nfacxcd, refcxcd, doccxcd, Frecxcd, fpacxcd, moncxcd, tcacxcd, " &_
"impcxcd, imdcxcd, tcdcxcd, idcxcg) " &_
"Select 24, clicxcg, nfacxcg, doccxcg, doccxcg, '"& Fcap &"', '"& Fcap &"', "& Moneda &", "& TcambioF &", " &_
""& DifeC &", 0, Tcacxcg, idrcxcg from cxcgen " &_
"where regcxcg = "& DocuP &";"
Cn1.Execute Sql11
End If
Set Rs14 = server.CreateObject("ADODB.Recordset")
Sql14 = "Update Consecutivos Set Cobranza = "& Ncobranza &";"
Cn1.Execute Sql14
'************************ ACTUALIZA EL SALDO DE CXCGEN ************
Set Rs15 = server.CreateObject("ADODB.Recordset")
Sql15= "Update cxcgen " &_
"Set imtcxcg = (imtcxcg + "& DifeC &") where regcxcg = "& DocuP &";"
Cn1.Execute Sql15
'************************ ACTUALIZA EL SALDO DE LA TABLA DE CLIENTES ************
Set Rs16 = server.CreateObject("ADODB.Recordset")
Sql16= "Update CLIENTES " &_
"Set Salcli = (Salcli + "& DifeC &") where Clacli = '"& Clacli &"';"
Cn1.Execute Sql16
'************************ DEVUELVE LA PERDIDA O GANANCIA CAMBIARIA ************
DifeC = 0
'************************ DEVUELVE LA PERDIDA O GANANCIA CAMBIARIA ************
'DifeC = 0
Response.Redirect("CxcApli.asp?Clacli="& Clacli &"&TcambioE="& TcambioE &"&Fcap="& Fcap &"&DifeC=0")
End If
end If
'------------ IF DE IMPORTE C ------------
%>
<%=Ipesos%>---<%=importedls%>---<%=importec%>-----<%=difec%>-----<%=tCAMBIOe%>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>