-globaldtcuentas despostios

Bancos/IE.aspx.vb

@@ -4742,7 +4742,7 @@ Partial Class Bancos_IE
         If CveProveedor > 0 Then
             Dim ObjCuentasBancos As New ClsGenerales
 
-            If ObjCuentasBancos.GetCuentasDepositos() Then
+            If ObjCuentasBancos.GetCuentasDepositos(CveEmpresa:=UsuarioActual.CveEmpresa) Then
                 GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
             End If
             ObjCuentasBancos.Dispose()

Bancos/MovimientosBancarios.aspx.vb

@@ -151,7 +151,7 @@ Partial Class Bancos_MovimientosBancarios
             If GvProveedores.Rows(i).FCCheckBox("CheckAgregar").Checked = True Then
                 DTProveedorActual = DTProveedores.FiltraParametros(String.Format("CveProveedor = {0}", GvProveedores.Rows(i).DataKey("CveProveedor")))
 
-                If ObjCuentasBancos.GetCuentasDepositos(21109) Then
+                If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=21109) Then
                     DTProveedorBancos = ObjCuentasBancos.DtResultados
                     RowBanco = DTProveedorBancos.Rows(0)
                 Else
@@ -319,7 +319,7 @@ Partial Class Bancos_MovimientosBancarios
 
         DTProveedorActual = DTProveedores.FiltraParametros(String.Format("CveProveedor = 21114"))
 
-        If ObjCuentasBancos.GetCuentasDepositos(21114) Then
+        If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=21114) Then
             DTProveedorBancos = ObjCuentasBancos.DtResultados
             RowBanco = DTProveedorBancos.Rows(0)
         Else

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