-- mejoras en fluctuaciones

-- candado de no eliminar en regprepolizas, si tiene fluctuación

Contabilidad/RegPrePoliza.aspx.vb

@@ -474,6 +474,12 @@ Partial Class ContabilidadC_RegPrePoliza
                     CargaCuentasContables()
                 End If
 
+                If dr("Modulo").ToString.Contiene("Banc/FluctuaA", "Banc/FluctuaC", "Banc/FluctuaV", "Banc/FluctuaFilial") Then
+
+                    BtnEliminar.Enabled = False
+                    BtnEliminar.ToolTip = "No se puede eliminar al prepóliza, eliminarlos desde el módulo"
+                End If
+
                 ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza)
 
                 DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
@@ -2114,7 +2120,7 @@ Partial Class ContabilidadC_RegPrePoliza
         Dim NombreArchivo As String
         SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
         Dim workbook As New ExcelFile()
-        Dim worksheet = workbook.Worksheets.Add(DdlPlantilla2.SelectedItem.Text.ToString())
+        Dim worksheet = workbook.Worksheets.Add(DdlPlantilla2.SelectedItem.Text.Substring(1, 30))
 
         Dim CvePlantilla As Integer = DdlPlantilla2.SelectedValue.ToEntero()
         Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden")