-globaldtcuentas despostios

Ventas/Clientes.aspx.vb

@@ -5983,7 +5983,7 @@ Partial Class Clientes
 
 #Region "C U E N T A S - B A N C A R I A S"
 
-    Private Sub CargaCuentasBancarias()
+    Private Sub CargaCuentasBancarias(Optional RecargaGlobal As Boolean = False)
 
         If CveCliente <= 0 Then Exit Sub
 
@@ -6004,9 +6004,8 @@ Partial Class Clientes
         End If
 
         ObjCuentasBancos.Dispose()
-        CargaPSGridCuentasBancos()
-
-        RecargaGlobalCuentasBancarias()
+        CargaPSGridCuentasBancos()
+
         CargaMonedas()
     End Sub
     Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
@@ -6208,13 +6207,10 @@ Partial Class Clientes
         RecargaGlobalCuentasBancarias()
     End Sub
     Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
-        If CveCliente > 0 Then
-            Dim ObjCuentasBancos As New ClsGenerales
-
-            If ObjCuentasBancos.GetCuentasDepositos() Then
-                GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
-            End If
-            ObjCuentasBancos.Dispose()
+        If CveCliente > 0 Then
+
+            GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1, True) = Nothing
+
         End If
     End Sub