Detalle: aplicxpsal.asp

aplicxpsal.asp

Ir a la Página Volver a la Lista
Archivo ASP

aplicxpsal.asp
Página Razor

aplicxpsal
Módulo

General
Líneas de Código

420
Características
En Menú:	No
Formularios:	Ninguno
Consultas SQL:	Ninguna
Complejidad:	high
Bases de Datos:	Session DB
Tablas Utilizadas (0)
No se detectaron tablas
Comentarios y Notas (0)
No hay comentarios aún
Enlaces Salientes (5) Páginas a las que esta página enlaza
Archivo ASP	Tipo	Módulo	Estado	Página Razor
`barra.asp`	include	General	Pendiente	-
`empresa.asp`	include	General	Pendiente	-
`general.asp`	include	General	Pendiente	-
`mpro.asp`	include	General	Pendiente	-
`user.asp`	include	General	Pendiente	-
Enlaces Entrantes (1) Páginas que enlazan a esta página
Archivo ASP	Tipo	Módulo	Estado	Página Razor
`cxpapli.asp`	form_action	CXP	Portada	CXP/Cxpapli.cshtml
<%  
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">
</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 Cveprv, 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

Cveprv = Request("Cveprv")
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 Cveprv = "00000000" or Cveprv = "" then
	%>
	
	Msg 1.- Favor de seleccionar un Proveedor <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 Regcxpg as Registro, nrecxpg as Documento, Salcxpg as Saldo, (Salcxpg * Tcacxpg) as pesos, " &_
		"Moncxpg, Tcacxpg As TipoC From cxpgen, Monedas where Regcxpg = "& DocuP &" and Cladiv = Moncxpg;"
		Rs10.open Sql10,Cn1,1,2
		Documento = Rs10("Documento")
		SaldoD = Rs10("Saldo")
		SaldoM = Rs10("Pesos")
		Fmoneda = Rs10("Moncxpg")
		TipoC = Rs10("TipoC")
		
		Set Rs17 = server.CreateObject("ADODB.Recordset")
		SQL17="Select Regcxpg as Registro, nrecxpg as Documento, Salcxpg as Saldo, (Salcxpg * Tcacxpg) as pesos, " &_
		"Moncxpg, Tcacxpg As TipoA From cxpgen, Monedas where Regcxpg = "& DocuApli &" and Cladiv = Moncxpg;"
		Rs17.open Sql17,Cn1,1,2
		DocumentoA = Rs17("Documento")
		SaldoDls = Rs17("Saldo")
		SaldoMxp = Rs17("Pesos")
		FmonedaA = Rs17("Moncxpg")
		TipoA = Rs17("TipoA")
			
			
			If Cdbl(Fmoneda) = cdbl(FmonedaA) and cdbl(Fmoneda) = 1 then
					If cdbl(SaldoD) =(-1* cdbl(SaldoDls))  Then
					Ipesos =cdbl(ImporteDls)
					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(ImporteDls)
					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(ImporteDls)
					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(ImporteDls) * cdbl(TipoA)
					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 = TipoA
					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 = TipoA
					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 Cxpdet " &_
		"(Movcxpd, Prvcxpd, nrecxpd, refcxpd, doccxpd, Frecxpd, fpacxpd, moncxpd, tcacxpd, " &_
		"impcxpd, imdcxpd, idrcxpd) " &_
		"Select 25, Prvcxpg, nrecxpg, "& DocumentoA &", "& DocumentoA &", '"& Fcap &"', '"& Fcap &"', "& FMoneda &", "& TipoC &", " &_
		"(-1 * "& Ipesos &"), (-1 * "& ImporteDls &"), idrcxpg from cxpgen " &_
		"where regcxpg = "& Docup &";"
		Cn1.Execute Sql11
		
		Set Rs11 = server.CreateObject("ADODB.Recordset")
		Sql11 = "Insert into Cxpdet " &_
		"(Movcxpd, Prvcxpd, nrecxpd, refcxpd, doccxpd, Frecxpd, fpacxpd, moncxpd, tcacxpd, " &_
		"impcxpd, imdcxpd, idrcxpd) " &_
		"Select 26, Prvcxpg, nrecxpg, "& Documento &", "& Documento &", '"& Fcap &"', '"& Fcap &"', "& FMonedaA &", "& TipoA &", " &_
		""& Ipesos &", "& ImporteDls &", idrcxpg from cxpgen " &_
		"where regcxpg = "& DocuApli &";"
		Cn1.Execute Sql11	
		
		'************************ ACTUALIZA EL SALDO DE CXCGEN ************
		Set Rs15 = server.CreateObject("ADODB.Recordset")
		Sql15= "Update cxpgen " &_
		"Set Salcxpg = (Salcxpg - "& DlsGen &"), imtcxpg = (imtcxpg - "& PesosGen &"), Pagcxpg = (Pagcxpg + "& Dlsgen &") " &_
		"from cxpgen where regcxpg = "& DocuP &";"
		Cn1.Execute Sql15
		
		Set Rs16 = server.CreateObject("ADODB.Recordset")
		Sql16= "Update cxpgen " &_
		"Set Salcxpg = (Salcxpg + "& Dlsdet &"), imtcxpg = (imtcxpg + "& PesosDet &"), Pagcxpg = (Pagcxpg + "& DlsDet &") " &_
		"from cxpgen where regcxpg = "& DocuApli &";"
		Cn1.Execute Sql16
		
		Set Rs19 = server.CreateObject("ADODB.Recordset")
		SQL19="SELECT Cveprv, Nomprv, Staprv, Limprv, Salprv, (Limprv - Salprv) AS DISPONIBLE FROM Proveedores WHERE Cveprv = '"& Cveprv &"';"
		Rs19.open Sql19,Cn1,1,2
		
		Disponible = Rs19("Disponible")
		Limite = Rs19("Limprv")
		Saldo = Rs19("SAlprv")

		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 = "A"
		end if
		end if

		Set Rs20 = server.CreateObject("ADODB.Recordset")
		Sql20= "Update Proveedores set Staprv = '"& status&"' where Cveprv = '"& Cveprv &"';"
		Cn1.Execute Sql20
		
		Set Rs21 = server.CreateObject("ADODB.Recordset")
		Sql21= "Update Proveedores " &_
		"Set SAlprv = (SAlprv - "& PesosGen &") where Cveprv = '"& Cveprv &"';"
		Cn1.Execute Sql21
		
		Response.Redirect("CxpApli.asp?Cveprv="& Cveprv &"&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 Regcxpg, Movcxpg, nrecxpg, Salcxpg, Tcacxpg, imtcxpg, Moncxpg From Cxpgen where Regcxpg = "& DocuP &";"
		Rs10.open Sql10,Cn1,1,2
		Tcambio = rs10("tcacxpg")
		MonedaDoc = rs10("Moncxpg")
		Aplicar = cdbl(rs10("Salcxpg"))
		Facdoc = Rs10("Nrecxpg")
		
		Set Rs17 = server.CreateObject("ADODB.Recordset")
		Sql17= "Select Regcxpg, Movcxpg, nrecxpg, Salcxpg, Tcacxpg, imtcxpg, Moncxpg From Cxpgen where Regcxpg = "& DocuApli &";"
		Rs17.open Sql17,Cn1,1,2
		ImporteA = rs17("Salcxpg")
		DocApliS = Rs17("nrecxpg")
		TcambioF = Rs17("Tcacxpg")
		Moneda = Rs17("Moncxpg")
				
			'************************ GENERA EL MOVIMIENTO DE PERDIDA O GANANCIA EN COBRANZA ************		

			If Difec < 0 then
			
			'************************ GENERA EL MOVIMIENTO DE PERDIDA O GANANCIA EN CXCDET ************
			Set Rs11 = server.CreateObject("ADODB.Recordset")
			Sql11 = "Insert into Cxpdet " &_
			"(Movcxpd, Prvcxpd, nrecxpd, refcxpd, doccxpd, Frecxpd, fpacxpd, moncxpd, tcacxpd, " &_
			"impcxpd, imdcxpd, idrcxpd) " &_
			"Select 23, prvcxpg, nrecxpg, doccxpg, doccxpg, '"& Fcap &"', '"& Fcap &"', "& Moneda &", "& TcambioF &", " &_
			""& DifeC &", 0, idrcxpg from cxpgen " &_
			"where regcxpg = "& DocuP &";"
			Cn1.Execute Sql11	

				Else
	
			'************************ GENERA EL MOVIMIENTO DE PERDIDA O GANANCIA EN CXCDET ************
			
			Set Rs11 = server.CreateObject("ADODB.Recordset")
			Sql11 = "Insert into Cxpdet " &_
			"(Movcxpd, Prvcxpd, nrecxpd, refcxpd, doccxpd, Frecxpd, fpacxpd, moncxpd, tcacxpd, " &_
			"impcxpd, imdcxpd, idrcxpd) " &_
			"Select 24, Prvcxpg, nrecxpg, doccxpg, doccxpg, '"& Fcap &"', '"& Fcap &"', "& Moneda &", "& TcambioF &", " &_
			""& DifeC &", 0, idrcxpg from cxpgen " &_
			"where regcxpg = "& DocuP &";"
			Cn1.Execute Sql11
			
				End If
		
		'************************ ACTUALIZA EL SALDO DE CXCGEN ************
		Set Rs15 = server.CreateObject("ADODB.Recordset")
		Sql15= "Update cxpgen " &_
		"Set imtcxpg = (imtcxpg + "& DifeC &") where regcxpg = "& DocuP &";"
		Cn1.Execute Sql15

		'************************ ACTUALIZA EL SALDO DE LA TABLA DE CLIENTES ************
		Set Rs16 = server.CreateObject("ADODB.Recordset")
		Sql16= "Update Proveedores " &_
		"Set Salprv = (Salprv + "& DifeC &") where Cveprv = '"& Cveprv &"';"
		Cn1.Execute Sql16

		'************************ DEVUELVE LA PERDIDA O GANANCIA CAMBIARIA ************
		DifeC = 0	
		

		'************************ DEVUELVE LA PERDIDA O GANANCIA CAMBIARIA ************
		'DifeC = 0
			
			Response.Redirect("CxPApli.asp?Cveprv="& Cveprv &"&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()
%>
MATERIALES INDUSTRIALES DE MEXICO

aplicxpsal.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código
