Contabilidad/RegPrePolizaS.aspx.vb

@@ -1911,7 +1911,11 @@ Partial Class ContabilidadC_RegPrePolizaS
         Dim NombreArchivo As String
         SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
         Dim workbook As New ExcelFile()
-        Dim worksheet = workbook.Worksheets.Add(DdlPlantilla2.SelectedItem.Text.ToString)
+        Dim NombreHoja As String = DdlPlantilla2.SelectedItem.Text.ToString
+        If NombreHoja.Length > 30 Then
+            NombreHoja = NombreHoja.Substring(0, 29)
+        End If
+        Dim worksheet = workbook.Worksheets.Add(NombreHoja)
 
         Dim CvePlantilla As Integer = DdlPlantilla2.SelectedValue.ToEntero
         Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden")