diff --git a/Compras/CatProveedores.aspx.vb b/Compras/CatProveedores.aspx.vb
index 1c159186d..590491c59 100644
--- a/Compras/CatProveedores.aspx.vb
+++ b/Compras/CatProveedores.aspx.vb
@@ -271,7 +271,7 @@ Partial Class Compras_CatProveedores
 
             params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
-            ImprimirPDF("Empresas/Grales/Formatos/RepCuentasBancarias.rdlc", DtDatos, params, "RepCuentasBancarias", "Excel")
+            ImprimirPDF("Empresas/Grales/Formatos/RepClientesCuentasBancarias.rdlc", DtDatos, params, "RepClientesCuentasBancarias", "Excel")
         Else
             Alert("No se encontraron datos con los filtros especificados", TipoMensaje.MsgAdvertencia)
         End If
@@ -280,114 +280,21 @@ Partial Class Compras_CatProveedores
     Protected Sub LnkCtasBancSinProveedor_Click(sender As Object, e As EventArgs)
 
         Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
         Dim DtDatos As DataTable = Nothing
+        'Dim GvDatosSC As New GridView With { .AutoGenerateColumns = True }
 
         Dim ObjComp As New ClsCompProveedores
         If ObjComp.GetProveedoresSinCuentas(UsuarioActual.CveEmpresa) Then
-            DtDatos = ObjComp.DtResultados.Copy()
+            DtDatos = ObjComp.DtResultados
+            'GvDatosSC.DataBind()
         End If
         ObjComp.Dispose()
 
         If DtDatos IsNot Nothing Then
             DtDatos.TableName = "Proveedores"
-            GenerarReporteProveedoresSinCuentaExcel("Proveedores sin Cuentas Bancarias", DtDatos)
+            DtDatos.ExportToExcelG("Proveedores Sin Cuentas", "Proveedores sin Cuentas Bancarias", UsuarioActual)
         End If
 
     End Sub
-    Private Sub GenerarReporteProveedoresSinCuentaExcel(Titulo As String, DtDatos As DataTable)
-        Dim Retorno As New MemoryStream()
-        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
-
-        Dim excel As ExcelFile = New ExcelFile
-
-        Dim item = excel.Worksheets.Add(DtDatos.TableName)
-        item.InsertDataTable(DtDatos, New InsertDataTableOptions() With
-            {
-                .ColumnHeaders = True,
-                .StartRow = 0,
-                .StartColumn = 0
-            })
-        item.Rows(0).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(75, 119, 190), SpreadsheetColor.FromArgb(255, 255, 255))
-        item.Rows(0).Style.Font.Color = SpreadsheetColor.FromArgb(255, 255, 255)
-
-        Dim columnCount = item.CalculateMaxUsedColumns()
-        For i = 0 To columnCount
-            item.Columns(i).AutoFit(1, item.Rows(i), item.Rows(item.Rows.Count - 1))
-        Next
-
-        Dim TotalRowHeader As Integer = 8
-        Dim TotalRowFooter As Integer = 2
-
-        Dim worksheet = excel.Worksheets(0)
-        worksheet.Rows.InsertEmpty(0, TotalRowHeader)
-        Dim celdasConTexto = worksheet.GetUsedCellRange(True)
-        celdasConTexto.Style.Font.Name = "Calibri Light"
-
-        Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex)
-        RangoNombreEmpresa.Merged = True
-        RangoNombreEmpresa.Value = UsuarioActual.Empresa.Empresa
-        RangoNombreEmpresa.Style.Font.Size = 18 * 20
-        RangoNombreEmpresa.Style.Font.Name = "Calibri Light"
-        RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
-        RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
-
-
-        'Dim RangoFiltros = worksheet.Cells.GetSubrangeAbsolute(6, celdasConTexto.FirstColumnIndex, 6, celdasConTexto.LastColumnIndex)
-        'RangoFiltros.Merged = True
-        'RangoFiltros.Value = Filtros
-        'RangoFiltros.Style.Font.Size = 15 * 20
-        'RangoFiltros.Style.Font.Name = "Calibri Light"
-        'RangoFiltros.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
-        'RangoFiltros.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
-
-
-        Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex)
-        RangoTitulo.Merged = True
-        RangoTitulo.Value = Titulo
-        RangoTitulo.Style.Font.Size = 20 * 20
-        RangoTitulo.Style.Font.Name = "Calibri Light"
-        RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
-        RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
-
-        For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
-            worksheet.Rows(8).Cells(i).Style.Font.Size = 12 * 20
-            worksheet.Rows(8).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
-            worksheet.Rows(8).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
-            worksheet.Rows(8).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
-            worksheet.Rows(8).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
-            If i > 0 Then
-                Try
-                    worksheet.Columns(i).AutoFit(1)
-                Catch ex As Exception
-                End Try
-            End If
-        Next
-
-        Dim IndexEndTable As Integer = DtDatos.Rows.Count + TotalRowHeader + TotalRowFooter
-
-        worksheet.Rows(IndexEndTable).Cells(2).Value = "Usuario Imprimió"
-        worksheet.Rows(IndexEndTable + 1).Cells(2).Value = UsuarioActual.Nombre
-
-        worksheet.Rows(IndexEndTable).Cells(6).Value = "Fecha Impresión"
-        worksheet.Rows(IndexEndTable + 1).Cells(6).Value = DateTime.Now.ToString("dd/MM/yyyy")
-
-        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-
-        If Imagen.Exists Then
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, UsuarioActual.CveEmpresa)
-            Using webClient As New Net.WebClient()
-                Dim imageBytes = webClient.DownloadData(logouri)
-                Dim stream As New MemoryStream(imageBytes)
-                worksheet.Pictures.Add(stream, ExcelPictureFormat.Png, "A1", 100, 100, LengthUnit.Pixel)
-                'worksheet.Pictures.Add(stream, GemBox.Spreadsheet.ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, GemBox.Document.LengthUnit.Pixel)
-            End Using
-        End If
-
-
-        excel.Save(Response, "Proveedores Sin Cuentas.xlsx", SaveOptions.XlsxDefault)
-
-    End Sub
 
 End Class