-- mejoras en globalDT

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))