From ba76f2ca31738a28edcecd427f98b152bf20b14f Mon Sep 17 00:00:00 2001
From: MLopez <Mario.lopez@adssistemas.mx>
Date: Wed, 18 Jan 2023 19:33:25 -0700
Subject: [PATCH] =?UTF-8?q?ModExtensiones:=20se=20me=20pas=C3=B3=20usar=20?=
 =?UTF-8?q?ValidFileName=20tambi=C3=A9n=20para=20Dt.TableName?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/modExtensiones.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index c11e6ed30..b1cc3606d 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -2623,7 +2623,7 @@ Namespace Extensiones
             If Dt.TableName Is Nothing Then Dt.TableName = ValidFileName(NombreArchivoXLSx)
 
             Dim excel As New GemBox.Spreadsheet.ExcelFile
-            Dim item = excel.Worksheets.Add(Truncate(Dt.TableName, 31))
+            Dim item = excel.Worksheets.Add(ValidFileName(Dt.TableName))
 
             item.InsertDataTable(Dt, New InsertDataTableOptions() With
             {