-- mejoras en globalDT

Bancos/PopUpBuscarCuentasProveedor.aspx.vb

@@ -83,18 +83,7 @@ Partial Class Bancos_PopUpBuscarCuentasProveedor
 
         ObjCuentasBancos.Dispose()
         CargaPSGridCuentasBancos()
-        RecargaGlobalCuentasBancarias()
-    End Sub
 
-    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
 
     Private Sub CargaPSGridCuentasBancos()

Bancos/ProveedoresAbonar.aspx.vb

@@ -1472,19 +1472,6 @@ Partial Class Bancos_ProveedoresAbonar
     End Sub
 #End Region
 
-
-    'ESTO NO DEBERIA ESTAR AQUI
-    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 DdllOtrosPagos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlOtrosPagos.SelectedIndexChanged
 
         If DdlOtrosPagos.SelectedValue <> "-1" Then
@@ -2047,17 +2034,15 @@ Partial Class Bancos_ProveedoresAbonar
             Dim Transferencia = "", Banco = "", CLABE = "", Cuenta = "", Correo = ""
             If DdlTipoTransaccion.SelectedValue.Contiene("2", "8") Then Transferencia = "Si" Else Transferencia = "No"
             If DdlCuentaDeposito.SelectedValue.ToEntero > 0 Then
-                Dim ObjGral As New ClsGenerales
-                If ObjGral.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) Then
-                    If ObjGral.DtResultados.Rows.Count > 0 Then
-                        Banco = ObjGral.DtResultados.Rows(0)("BancoNombre").ToString
-                        CLABE = ObjGral.DtResultados.Rows(0)("CLABE").ToString
-                        Cuenta = ObjGral.DtResultados.Rows(0)("Cuenta").ToString
-                        Correo = ObjGral.DtResultados.Rows(0)("Correo").ToString
-                    End If
+                Dim dtt As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero)
+                If dtt.Rows.Count > 0 Then
+                    Banco = dtt.Rows(0)("BancoNombre").ToString
+                    CLABE = dtt.Rows(0)("CLABE").ToString
+                    Cuenta = dtt.Rows(0)("Cuenta").ToString
+                    Correo = dtt.Rows(0)("Correo").ToString
                 End If
-                ObjGral.Dispose()
             End If
+
             params.Add(New ReportParameter("Transferencia", Transferencia))
             params.Add(New ReportParameter("Banco", Banco))
             params.Add(New ReportParameter("CLABE", CLABE))

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