From 3d6d4ebefc13f0968ee6f40c7c834dfb446fbda2 Mon Sep 17 00:00:00 2001
From: HECTOR RODRIGUEZ <hecttor201@gmail.com>
Date: Mon, 19 Apr 2021 13:13:02 -0700
Subject: [PATCH 1/5]

---
 Bancos/DepositosCaja.aspx | 1 -
 1 file changed, 1 deletion(-)

diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx
index dbbec3d15..e316bc77e 100644
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -157,7 +157,6 @@
                     </asp:DropDownList>
                 </div>
             </div>
-            <br />
               <div class="row">
                 <div class="col-md-2" runat="server" id="Div1">
                     <asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento"/>

From c6ed036bad0fc7af83b03dcc97783d9b2729d24d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 19 Apr 2021 13:21:18 -0700
Subject: [PATCH 2/5] =?UTF-8?q?--=20falta=20aplicar=20cambio=20de=20fluctu?=
 =?UTF-8?q?acion=20de=20amortizaci=C3=B3n=20compra?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/Compras.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index ef1b08555..1eaa9cbbd 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -7244,7 +7244,7 @@ Partial Class Compras_Compras
                                                                         If Gvr.FCCheckBox("ChkFacturaNC").Checked Then
                                                                             'Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar-NC", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
                                                                             Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
-                                                                            Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal
+                                                                            Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal  ' RMF. falta aplicar si está generada su TC de la última fluctuación
                                                                             Dim importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador
 
                                                                             IdCtaContable = CtaProveedorExtranjera

From dac432d229ad699180612276f2a8b1999cef37e1 Mon Sep 17 00:00:00 2001
From: HECTOR RODRIGUEZ <hecttor201@gmail.com>
Date: Mon, 19 Apr 2021 15:04:32 -0700
Subject: [PATCH 3/5] SubPryecto en descuento

---
 Bancos/DepositosCaja.aspx    | 17 ++++++++++++++---
 Bancos/DepositosCaja.aspx.vb | 18 +++++++++++++-----
 2 files changed, 27 insertions(+), 8 deletions(-)

diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx
index e316bc77e..de167d9e2 100644
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -141,7 +141,7 @@
                     <asp:CheckBox ID="ChkFaltante" runat="server" Text="Faltante/Sobrante"/>
                 </div>
                  <div class="col-md-3" id="DivComision" style="display: none">
-                    <label style="width: 105px; ">Faltante/Sobrante:</label>
+                    <label style="width: 105px; ">Importe:</label>
                     <asp:TextBox runat="server" ID="TxtComision" Class=" input-sm "  Width="75px"></asp:TextBox>
                 </div>
 
@@ -162,10 +162,16 @@
                     <asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento"/>
                 </div>
                  <div class="col-md-3" id="DivDescuento" style="display: none">
-                    <label style="width: 105px; ">Descuento:</label>
+                    <label style="width: 105px; ">Importe:</label>
                     <asp:TextBox runat="server" ID="TxtDescuento" Class=" input-sm "  Width="75px"></asp:TextBox>
                 </div>
 
+                <label class="col-md-1 truncate" style="width: 120px; display: none" id="LblSubproyectoDescuento" >SubProyecto:</label>
+                <div class="col-md-2"  style="display: none" id="divSubProyectoDescuento">
+                    <asp:DropDownList ID="DdlSubProyectoDescuento" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">                                   
+                    </asp:DropDownList>
+                </div>
+
                 <label class="col-md-1 truncate" style="width: 120px; display: none" id="LblClasificacionDescuento">Clasificación:</label>
                 <div class="col-md-2" style="display: none" id="divClasificacionDescuento">
                     <asp:DropDownList  ID="DdlClasificacionDescuento" AutoPostBack="false" CssClass=" form-control input-sm select2me" runat="server"  Width="100%" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
@@ -288,7 +294,7 @@
 
             } else {
                 $('#DivComision').css("display", "none");
-                $('#LblSubproyecto').css("display", "none");
+                $('#divSubProyecto').css("display", "none");
                 $('#divSubProyecto').css("display", "none");
                 $('#LblClasificacion').css("display", "none");
                 $('#divClasificacion').css("display", "none");
@@ -299,13 +305,18 @@
         function CheckDescuento(chk) {
             if (chk.checked == true) {
                 $('#DivDescuento').css("display", "block");
+                $('#LblSubproyectoDescuento').css("display", "block");
+                $('#divSubProyectoDescuento').css("display", "block");
                 $('#LblClasificacionDescuento').css("display", "block");
                 $('#divClasificacionDescuento').css("display", "block");
 
                 debugger;
 
             } else {
+                
                 $('#DivDescuento').css("display", "none");
+                $('#LblSubproyectoDescuento').css("display", "none");
+                $('#divSubProyectoDescuento').css("display", "none");
                 $('#LblClasificacionDescuento').css("display", "none");
                 $('#divClasificacionDescuento').css("display", "none");
                 debugger;
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index cd06f1e44..b26fa368c 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -41,15 +41,22 @@ Partial Class Bancos_DepositosCaja
         DdlSubProyectos.DataBind()
         DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlSubProyectoDeposito.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyectoDeposito.DataSource = DdlSubProyectos.DataSource
         DdlSubProyectoDeposito.DataBind()
         DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
+        DdlSubProyectoDescuento.DataSource = DdlSubProyectos.DataSource
+        DdlSubProyectoDescuento.DataBind()
+        DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2)
         DdlClasificacion.DataBind()
         DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
+        DdlClasificacionDescuento.DataSource = DdlClasificacion.DataSource
+        DdlClasificacionDescuento.DataBind()
+        DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
     End Sub
 
     Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -119,9 +126,10 @@ Partial Class Bancos_DepositosCaja
         Dim CveCuentaBancariaDestino As Integer = 0
         Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
         Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuentaDeposito.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
-        Dim CveSubProyecto As Integer = 0
-        Dim CveClasificacion As Integer = 0
-        Dim CveClasificacionDescuento As Integer = 0
+        Dim CveSubProyecto As Integer = -1
+        Dim CveSubProyectoDescuento As Integer = -1
+        Dim CveClasificacion As Integer = -1
+        Dim CveClasificacionDescuento As Integer = -1
         Dim documentos As String = "Los Depósitos se realizaron exitósamente<br/><br/>"
         Dim imprimirFolios As String = ""
         If drOrigen IsNot Nothing Then
@@ -160,7 +168,7 @@ Partial Class Bancos_DepositosCaja
             End If
 
             If ChkDescuento.Checked Then
-                CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero
+                CveSubProyectoDescuento = DdlSubProyectoDescuento.SelectedValue.ToEntero
                 CveClasificacionDescuento = DdlClasificacionDescuento.SelectedValue.ToEntero
 
                 If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then

From 43d6a35cf9be00cea92ddf32b0cc5a72b8f516a7 Mon Sep 17 00:00:00 2001
From: HECTOR RODRIGUEZ <hecttor201@gmail.com>
Date: Mon, 19 Apr 2021 16:12:46 -0700
Subject: [PATCH 4/5]

---
 Bancos/DepositosCaja.aspx.vb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index b26fa368c..40eab0270 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -22,6 +22,7 @@ Partial Class Bancos_DepositosCaja
             txtFechaI.Text = Now.AddDays(-1).ToShortDateString
             txtFechaF.Text = Now.ToShortDateString
             TxtComision.Attributes.Add("onKeyUp", "txtSuma(event);")
+            TxtDescuento.Attributes.Add("onKeyUp", "txtSuma(event);")
 
             CargaCuentas()
             ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);")

From 858100ed3b4a0a3e2463f816fb1f2cc04d779221 Mon Sep 17 00:00:00 2001
From: HECTOR RODRIGUEZ <hecttor201@gmail.com>
Date: Mon, 19 Apr 2021 17:21:30 -0700
Subject: [PATCH 5/5] Cambios en descuento

---
 Bancos/DepositosCaja.aspx    | 42 +++++++++++++++++++++++-------------
 Bancos/DepositosCaja.aspx.vb |  2 +-
 2 files changed, 28 insertions(+), 16 deletions(-)

diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx
index de167d9e2..20e230d4d 100644
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -251,21 +251,22 @@
 
         var ValorTotalSeleccionado = 0
         var comision = 0;
+        var descuento = 0;
+        var saldo = 0;
 
         function FnSuma(chk, cantidad) {
-            var saldo = ToDouble($('#C_lblValorTotal').text());
+            var saldoInicial = ToDouble($('#C_lblValorTotal').text());
             if (chk.checked == false) {
                 cantidad = cantidad * -1;
             }
-            saldo = saldo + cantidad;
-            $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
-            $('#C_lblValorTotalSeleccionado').text(FormatoNumero(saldo, 2));
-            ValorTotalSeleccionado = saldo
+            saldoInicial = saldoInicial + cantidad;
+            $('#C_lblValorTotal').text(FormatoNumero(saldoInicial, 2));
+            $('#C_lblValorTotalSeleccionado').text(FormatoNumero(saldoInicial, 2));
+            ValorTotalSeleccionado = saldoInicial
             
         }
 
         function txtSuma(txt) {
-            var saldo = ToDouble($('#C_lblValorTotal').text());
             var comision2 = ToDouble($('#C_TxtComision').val());
             var comisionNegativa = 0;
             if (comision2 < 0) {
@@ -275,13 +276,32 @@
                 $('#C_TxtComision').val(comision)
                 alert("No es posible poner una comision superior a lo seleccionado")
             } else {
-                saldo = ValorTotalSeleccionado + comision2;
+                saldo = ValorTotalSeleccionado + comision2 + descuento;
                 $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
                 comision = ToDouble($('#C_TxtComision').val())
+                debugger;
             }
                 
         }
 
+        function txtSumaDescuento(txt) {
+            var comision2 = ToDouble($('#C_TxtDescuento').val());
+            var comisionNegativa = 0;
+            if (comision2 < 0) {
+                comisionNegativa = comision2 * -1
+            }
+            if (comisionNegativa > ValorTotalSeleccionado) {
+                $('#C_TxtDescuento').val(descuento)
+                alert("No es posible poner una comision superior a lo seleccionado")
+            } else {
+                saldo = ValorTotalSeleccionado + comision2 + comision;
+                $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
+                descuento = ToDouble($('#C_TxtDescuento').val())
+                debugger;
+            }
+
+        }
+
         function CheckFaltante(chk) {
             if (chk.checked == true) {
                 $('#DivComision').css("display", "block");
@@ -289,16 +309,12 @@
                 $('#divSubProyecto').css("display", "block");
                 $('#LblClasificacion').css("display", "block");
                 $('#divClasificacion').css("display", "block");
-
-                debugger;
-
             } else {
                 $('#DivComision').css("display", "none");
                 $('#divSubProyecto').css("display", "none");
                 $('#divSubProyecto').css("display", "none");
                 $('#LblClasificacion').css("display", "none");
                 $('#divClasificacion').css("display", "none");
-                debugger;
             }
         }
 
@@ -309,9 +325,6 @@
                 $('#divSubProyectoDescuento').css("display", "block");
                 $('#LblClasificacionDescuento').css("display", "block");
                 $('#divClasificacionDescuento').css("display", "block");
-
-                debugger;
-
             } else {
                 
                 $('#DivDescuento').css("display", "none");
@@ -319,7 +332,6 @@
                 $('#divSubProyectoDescuento').css("display", "none");
                 $('#LblClasificacionDescuento').css("display", "none");
                 $('#divClasificacionDescuento').css("display", "none");
-                debugger;
             }
         }
     </script>
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index 40eab0270..1d7742e10 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -22,7 +22,7 @@ Partial Class Bancos_DepositosCaja
             txtFechaI.Text = Now.AddDays(-1).ToShortDateString
             txtFechaF.Text = Now.ToShortDateString
             TxtComision.Attributes.Add("onKeyUp", "txtSuma(event);")
-            TxtDescuento.Attributes.Add("onKeyUp", "txtSuma(event);")
+            TxtDescuento.Attributes.Add("onKeyUp", "txtSumaDescuento(event);")
 
             CargaCuentas()
             ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);")