-- quitar "todos" en filtro para FNC382

Bancos/DepositosCaja.aspx.vb

@@ -29,25 +29,28 @@ Partial Class Bancos_DepositosCaja
             TxtIVA.Attributes.Add("onKeyUp", "txtSumaIVA(this);")
             TxtComisionIntermediario.Attributes.Add("onKeyUp", "txtSumaTntermediario(this);")
 
-
-            CargaCuentas()
-            ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);")
-            ChkDescuento.Attributes.Add("onclick", "CheckDescuento(this);")
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then 'quita la opción de todos
+                DdlTipoDeposito.Items.Remove("-1")
+            End If
+
+            CargaCuentas()
+            ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);")
+            ChkDescuento.Attributes.Add("onclick", "CheckDescuento(this);")
             ChkIntermediario.Attributes.Add("onclick", "CheckIntermediario(this);")
-            ChkCuentaRetorno.Attributes.Add("onclick", "CheckRowCuenta(this);")
-            BtnConsultar.Attributes.Add("onclick", "Consultar(this);")
-            BtnDepositar.Attributes.Add("onclick", "Depositar(this);")
-
+            ChkCuentaRetorno.Attributes.Add("onclick", "CheckRowCuenta(this);")
+            BtnConsultar.Attributes.Add("onclick", "Consultar(this);")
+            BtnDepositar.Attributes.Add("onclick", "Depositar(this);")
+
             'Dim StrEncriptPrueba As String = Encripta($"OP=DC&CveIE={2784391}&CuentaCaja={"TestCuantaCaja"}&CuentaDepo={"Test cuenta"}")
-            'HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncriptPrueba}"
-
+            'HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncriptPrueba}"
+
             If UsuarioActual.CveEmpresa = 189 Then
-                If DdlTipoPago.Items.FindByValue("-1") IsNot Nothing Then
-                    DdlTipoPago.Items.Remove(DdlTipoPago.Items.FindByValue("-1"))
+                    If DdlTipoPago.Items.FindByValue("-1") IsNot Nothing Then
+                        DdlTipoPago.Items.Remove(DdlTipoPago.Items.FindByValue("-1"))
+                    End If
                 End If
+
             End If
-
-        End If
     End Sub
 
     Private Sub CargaCuentas()