-- mejora en recarga de global de cuentas bancos

Compras/Proveedores.aspx.vb

@@ -1823,11 +1823,8 @@ Partial Class Compras_Proveedores
                     If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
 
                     'ACTUALIZAR GLOBAL
-                    'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
                     GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
-                    'Else
-                    '    ErrorBancos = True
-                    'End If
+                    GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing
 
                     Alert("El Proveedor se guardó correctamente. " & "<br />" & MsgCuentaContable, TipoMensaje.MsgInformacion, If(Request("CveFactura") Is Nothing, "document.location.href=""/Compras/CatProveedores.aspx""", "window.opener.location.href = window.opener.location.href; window.close();"))
                     RecargaGlobalCuentasBancarias()
@@ -3416,7 +3413,9 @@ Partial Class Compras_Proveedores
         If CveProveedor > 0 Then
             If ObjCuentasBancos.RemoveCuentasDepositos(GvRow.DataKey("CveCuentaDeposito").ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
                 DTCuentasBancos.Clear()
-                DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
+                'recargar las cuentas 
+                GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing
+                DTCuentasBancos = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor)
 
                 Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion)
             Else
@@ -3430,12 +3429,11 @@ Partial Class Compras_Proveedores
 
         CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
         ObjCuentasBancos.Dispose()
-        RecargaGlobalCuentasBancarias()
+
     End Sub
     Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
         If CveProveedor > 0 Then
             GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing
-
         End If
     End Sub