From 3c4e0bf83fad2e2a4c8ad2e051875fc1909e559c Mon Sep 17 00:00:00 2001
From: HECTOR RODRIGUEZ <hecttor201@gmail.com>
Date: Thu, 15 Apr 2021 17:05:10 -0700
Subject: [PATCH] Cambios para comisiones negativas

---
 Bancos/DepositosCaja.aspx    | 24 ++++++++++++++++--------
 Bancos/DepositosCaja.aspx.vb |  5 +++--
 2 files changed, 19 insertions(+), 10 deletions(-)

diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx
index aea4fc4ca..b590e7f4b 100644
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -230,32 +230,42 @@
         var comision = 0;
 
         function FnSuma(chk, cantidad) {
-            debugger;
             var saldo = ToDouble($('#C_lblValorTotal').text());
-            debugger;
             if (chk.checked == false) {
                 cantidad = cantidad * -1;
-                debugger;
             }
             saldo = saldo + cantidad;
-            debugger;
             $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
             $('#C_lblValorTotalSeleccionado').text(FormatoNumero(saldo, 2));
             ValorTotalSeleccionado = saldo
             
-            debugger;
         }
 
         function txtSuma(txt) {
             var saldo = ToDouble($('#C_lblValorTotal').text());
             var comision2 = ToDouble($('#C_TxtComision').val());
+            if (comision2 < 0) {
+                comision2 = comision2 * -1;
+                debugger;
+            }
             if (comision2 < ValorTotalSeleccionado) {
                 comision2 = comision2 - comision
                 saldo = saldo - comision2;
                 $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
                 comision = ToDouble($('#C_TxtComision').val())
+                if (comision < 0) {
+                    comision = comision * -1;
+                    debugger;
+                }
             } else {
-                $('#C_TxtComision').val(comision)
+                var comisionNegativo = ToDouble($('#C_TxtComision').val());
+                if (comisionNegativo < 0) {
+                    $('#C_TxtComision').val(comision*-1)
+                    debugger;
+                } else {
+                    $('#C_TxtComision').val(comision)
+
+                }
                 alert("No es posible poner una comision superior a lo seleccionado")
             }
 
@@ -265,14 +275,12 @@
                 $('#LblClasificacion').css("display", "block");
                 $('#divClasificacion').css("display", "block");
 
-                debugger;
 
             } else {
                 $('#LblSubproyecto').css("display", "none");
                 $('#divSubProyecto').css("display", "none");
                 $('#LblClasificacion').css("display", "none");
                 $('#divClasificacion').css("display", "none");
-                debugger;
             }
 
                 
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index c9520b792..98f963bc6 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -71,6 +71,7 @@ Partial Class Bancos_DepositosCaja
 
         Dim TotalImporte As Decimal = 0
         Dim TotalImportePrePoliza As Decimal
+        Dim Comision As Integer = IIf(TxtComision.Text.ToEntero > 0, TxtComision.Text.ToEntero, (TxtComision.Text.ToEntero * -1)).ToString.ToEntero
 
         For Each Gvr As GridViewRow In GvFacturas.Rows
             If Gvr.FCCheckBox("ChkFactura").Checked Then TotalImporte += Gvr.DataKey("Importe").ToDecimal
@@ -82,7 +83,7 @@ Partial Class Bancos_DepositosCaja
         End If
 
         TotalImportePrePoliza = TotalImporte
-        If TxtComision.Text.ToEntero > 0 Then
+        If Comision > 0 Then
             TotalImporte = TotalImporte - TxtComision.Text.ToEntero
             If DdlSubProyectoDeposito.SelectedValue.ToEntero = -1 Or DdlClasificacion.SelectedValue.ToEntero = -1 Then
                 Alert("Debes Seleccionar un Subproyecto y una Clasificación", TipoMensaje.MsgAdvertencia)
@@ -134,7 +135,7 @@ Partial Class Bancos_DepositosCaja
         End If
         CveIEOrigen = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
-        If TxtComision.Text.ToEntero > 0 Then
+        If Comision > 0 Then
             CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero
             CveClasificacion = DdlClasificacion.SelectedValue.ToEntero
             If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then