-- mejoras en globalDT

Bancos/ProveedoresCreditos.aspx.vb

@@ -690,11 +690,7 @@ Partial Class Bancos_ProveedoresCreditos
                 LblPagueseA.Text = "Beneficiario"
         End Select
 
-
-        'RecargaCuentas
         CargaCuenta()
-        RecargaCuentasDepositos()
-
 
         UpDatos.Update()
     End Sub
@@ -1369,7 +1365,6 @@ Partial Class Bancos_ProveedoresCreditos
             Alert(Msg.ToString, TipoMensaje.MsgInformacion, String.Format("document.location.href=""{0}"";", HttpContext.Current.Request.Url.PathAndQuery))
         End If
 
-        RecargaGlobalCuentasBancarias()
         ObjIE.Dispose()
         ObjMov.Dispose()
         ObjComp.Dispose()
@@ -1555,7 +1550,6 @@ Partial Class Bancos_ProveedoresCreditos
             trCuentaDeposito.Visible = False
             DdlCuentaDeposito.Items.Clear()
         End If
-        RecargaGlobalCuentasBancarias()
         UpCuentaDeposito.Update()
         UpDatos.Update()
     End Sub
@@ -1573,18 +1567,6 @@ Partial Class Bancos_ProveedoresCreditos
         End If
     End Sub
 
-
-    'Recaga CuentasBancarias de Proveedor
-    Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
-        If CveProveedor > 0 Then
-            Dim ObjCuentasBancos As New ClsGenerales
-
-            If ObjCuentasBancos.GetCuentasDepositos() Then
-                GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
-            End If
-            ObjCuentasBancos.Dispose()
-        End If
-    End Sub
     Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs)
         Dim Dep As New ClsGenerales
         If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) AndAlso Dep.DtResultados.Rows.Count = 1 Then