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] 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