Cambios en los reportes

Ventas/ActualizarPrecios.aspx.vb

@@ -316,7 +316,26 @@ Partial Class Ventas_ActualizarPrecios
             Exit Sub
         End If
 
-        DtExcel.TableName = DdlPrecioLista.SelectedItem.Text
+
+        If DdlPrecioLista.SelectedItem IsNot Nothing Then
+            Dim worksheetName As String = DdlPrecioLista.SelectedItem.Text
+
+            Const invalidCharsRegex As String = "[/\\*'?[\]:]+"
+            Const maxLength As Integer = 31
+            Dim safeName As String = Regex.Replace(worksheetName, invalidCharsRegex, " ").Replace("  ", " ").Trim()
+
+            If String.IsNullOrEmpty(safeName) Then
+                safeName = "Precios"   ' cannot be empty
+            ElseIf safeName.Length > maxLength Then
+                safeName = safeName.Substring(0, maxLength)
+            End If
+
+            DtExcel.TableName = safeName
+        Else
+            DtExcel.TableName = "Precios"
+        End If
+
+
         DtExcel.Columns("Codigo").ColumnName = "Código"
         DtExcel.Columns("PS").ColumnName = "Producto / Servicio"
         SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)