Bancos/DepositosCaja.aspx

@@ -137,7 +137,7 @@
 
         </ContentTemplate>
     </asp:UpdatePanel>
-    <asp:UpdatePanel ID="UpGvFacturas" runat="server" UpdateMode="Conditional">
+    <asp:UpdatePanel ID="UpParametros" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
 
             <div class="row" style="margin-bottom:5px">
@@ -166,13 +166,17 @@
                 </div>
    
 
-                <div class="col-md-3" style="text-align: right; font-size:1.2em;" runat="server" id="divLabelTotal" visible="false">
+                <div class="col-md-3" style="text-align: right; font-size:1.2em;" runat="server" id="divLabelTotal" visible="true">
                     <asp:label runat="server">Seleccionado: $</asp:label>
                     <asp:label runat="server" ID="lblValorTotal">0.00</asp:label>
                     <asp:label runat="server" ID="lblValorTotalSeleccionado" Visible="false"></asp:label>
 
                 </div>
             </div>
+                    </ContentTemplate>
+    </asp:UpdatePanel>
+                            <asp:UpdatePanel ID="UpComisiones" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
             <div class="row rowcheck truncate" id="DivComisioncheck" >
                 <div class="col-md-1 truncate" runat="server" id="DivFaltante" style ="width: 155px;" >
                     <asp:CheckBox ID="ChkFaltante" runat="server" Text="Faltante/Sobrante" CssClass="checkbox"/>
@@ -265,7 +269,12 @@
                         </div>
                 </div>
             </div>
-     
+            
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+         <asp:UpdatePanel ID="UpGvFacturas" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
             <br />
             <div style="height:450px;overflow-x:scroll">
                 <asp:GridView ID="GvFacturas" runat="server" AutoGenerateColumns="False" DataKeyNames="CveVenta, CvePrePoliza, CveIE, TipoCambio, CveMoneda, CveCliente, IdCtaContableBancos, IdCtaContClientes, Importe, SerieFolio" CssClass="table table-striped table-advance table-hover" Style="text-align: center; float: right; width: 100%; " GridLines="None">

Bancos/DepositosCaja.aspx.vb

@@ -31,7 +31,7 @@ Partial Class Bancos_DepositosCaja
             ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);")
             ChkDescuento.Attributes.Add("onclick", "CheckDescuento(this);")
             ChkIntermediario.Attributes.Add("onclick", "CheckIntermediario(this);")
-
+            BtnConsultar.Attributes.Add("onclick", "Consultar(this);")
 
         End If
     End Sub
@@ -98,11 +98,20 @@ Partial Class Bancos_DepositosCaja
         GvFacturas.DataSource = ObjBancos.DtResultados
         ObjBancos.Dispose()
 
-        UpGvFacturas.Update()
+
         GvFacturas.DataBind()
-        lblValorTotal.Text = "0.00"
         TxtComision.Text = ""
+        TxtDescuento.Text = ""
+        TxtIVA.Text = ""
+        TxtComisionIntermediario.Text = ""
+        lblValorTotal.Text = "0.0"
+        lblValorTotalSeleccionado.Text = "0.0"
         divLabelTotal.Visible = True
+        DdlSubProyectoDeposito.SelectedValueExist(DdlSubProyectos.SelectedValue.ToEntero)
+        DdlSubProyectoDescuento.SelectedValueExist(DdlSubProyectos.SelectedValue.ToEntero)
+        DdlSubProyectoIntermediario.SelectedValueExist(DdlSubProyectos.SelectedValue.ToEntero)
+        UpGvFacturas.Update()
+        UpParametros.Update()
     End Sub
 
     Private Sub BtnDepositar_Click(sender As Object, e As EventArgs) Handles BtnDepositar.Click
@@ -165,14 +174,19 @@ 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 = -1
-        Dim CveSubProyectoDescuento As Integer = -1
+        Dim CveSubProyecto As Integer = DdlSubProyectos.SelectedValue.ToEntero
         Dim CveClasificacion As Integer = -1
-        Dim CveClasificacionDescuento As Integer = -1
+
+        Dim CveSubProyectoComision As Integer
+        Dim CveClasificacionComision As Integer
+
+        Dim CveSubProyectoDescuento As Integer
+        Dim CveClasificacionDescuento As Integer
+
         Dim documentos As String = "Los Depósitos se realizaron exitosamente<br/><br/>"
         Dim imprimirFolios As String = ""
-        Dim CveSubProyectoIntermediario As Integer = -1
-        Dim CveClasificacionIntermediario As Integer = -1
+        Dim CveSubProyectoIntermediario As Integer
+        Dim CveClasificacionIntermediario As Integer 
         Dim CveProveedorIntermediario As Integer = -1
 
         If drOrigen IsNot Nothing Then
@@ -231,10 +245,10 @@ Partial Class Bancos_DepositosCaja
         If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio) Then
 
             If ChkFaltante.Checked Then
-                CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero
-                CveClasificacion = DdlClasificacion.SelectedValue.ToEntero
+                CveSubProyectoComision = DdlSubProyectoDeposito.SelectedValue.ToEntero
+                CveClasificacionComision = DdlClasificacion.SelectedValue.ToEntero
                 If Comision <> 0 Then
-                    If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Comision, DdlClasificacion.SelectedItem.Text, 51, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio) Then
+                    If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Comision, DdlClasificacion.SelectedItem.Text, 51, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionComision, CveSubProyecto:=CveSubProyectoComision, ImporteMX:=Comision * TipoCambio) Then
                         OcurrioError = True
                     End If
                 End If
@@ -314,8 +328,9 @@ Partial Class Bancos_DepositosCaja
         TxtDescuento.Text = ""
         TxtIVA.Text = ""
         TxtComisionIntermediario.Text = ""
-        lblValorTotal.Text = ""
-        lblValorTotalSeleccionado.Text = ""
+        lblValorTotal.Text = "0.0"
+        lblValorTotalSeleccionado.Text = "0.0"
+        CargaDatos()
         ObjContabilidad.Dispose()
     End Sub
 
@@ -329,6 +344,8 @@ Partial Class Bancos_DepositosCaja
         Next
         lblValorTotal.Text = Total.ToString("N")
         UpGvFacturas.Update()
+        UpParametros.Update()
+
     End Sub
 
     Public Sub ChkFactura_Click(sender As Object, e As EventArgs)