Optimizer 2.7.10.1

-modifica su parametri generali

EgtBEAMWALL.Core/CALCPanel/CalcIntegration.vb

@@ -326,7 +326,6 @@ Public Module CalcIntegration
    End Sub
 
    Public Function CreateNewProjectFromPart(nPartId As Integer, sProjDirPath As String) As String
-
       ' Aggiorno identificativi per segnalazione errori
       UpdateCutIdAndTaskId(nPartId)
 
@@ -393,7 +392,7 @@ Public Module CalcIntegration
       Dim sMachGroupName As String = ""
       EgtGetMachGroupName(nMachGroupId, sMachGroupName)
       Dim sMachGroupFilePath As String = sProjDirPath & "\" & sMachGroupName & ".bwe"
-      If EgtSaveObjToFile(nMachGroupId, sMachGroupFilePath, NGE.CMPTEXT) Then
+      If EgtSaveMachGroupToFile(nMachGroupId, {EgtGetFirstNameInGroup(GDB_ID.ROOT, BTLINFO), EgtGetFirstNameInGroup(GDB_ID.ROOT, PROJECTINFO)}, sMachGroupFilePath, NGE.CMPTEXT) Then
          Return sMachGroupFilePath
       End If
       Return String.Empty

EgtBEAMWALL.Optimizer/GeneralParametersStrategy/GeneralParametersWndVM.vb

@@ -122,6 +122,10 @@ Public Class GeneralParametersWndVM
       Dim nBTLInfoLayerId As Integer = EgtGetFirstNameInGroup(GDB_ID.ROOT, PROJECTINFO)
       Dim sInfo As String = String.Empty
       EgtGetInfo(nBTLInfoLayerId, "AISETUP", m_SelStrategySetup)
+      If Not IsNothing(m_SelStrategySetup) Then
+         nBTLInfoLayerId = EgtGetFirstNameInGroup(GDB_ID.ROOT, BTLINFO)
+         EgtGetInfo(nBTLInfoLayerId, "AISETUP", m_SelStrategySetup)
+      End If
       For Each GeneralParameter In m_GeneralParametersList
          Select Case GeneralParameter.GetType()
             Case GetType(BooleanGenericParameter)

EgtBEAMWALL.Optimizer/ItemParamList/OnlyProdBTLPartListV.xaml

@@ -48,8 +48,7 @@
                   <Setter Property="Template">
                      <Setter.Value>
                         <ControlTemplate TargetType="{x:Type GroupItem}">
-                           <Expander IsExpanded="True"
-                                     Width="{Binding ActualWidth, Converter={StaticResource ExpanderWidthConverter}, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALLCORE:EgtDataGrid}}}">
+                           <Expander IsExpanded="True">
                               <Expander.Header>
                                  <StackPanel Orientation="Horizontal">
                                     <TextBlock Text="{Binding Path=Name}" 

EgtBEAMWALL.Optimizer/My Project/AssemblyInfo.vb

@@ -67,5 +67,5 @@ Imports System.Windows
 '      Revision
 '
 
-<Assembly: AssemblyVersion("1.0.0.0")>
-<Assembly: AssemblyFileVersion("1.0.0.0")>
+<Assembly: AssemblyVersion("2.7.10.1")>
+<Assembly: AssemblyFileVersion("2.7.10.1")>

EgtBEAMWALL.Optimizer/Utility/Configuration.vb

@@ -1,4 +1,5 @@
-Imports EgtBEAMWALL.Core
+Imports System.Threading
+Imports EgtBEAMWALL.Core
 Imports EgtUILib
 Imports MigraDoc.DocumentObjectModel
 Imports MigraDoc.Rendering
@@ -25,10 +26,6 @@ Module Configuration
          Dim document As Document = PDFHelper.CreateStatReport(ActivePage, bPreview)
          Dim documentPath As String = Map.refMainWindowVM.MainWindowM.sTempDir & "\MigraDoc.mdddl"
          MigraDoc.DocumentObjectModel.IO.DdlWriter.WriteToFile(document, documentPath)
-         Dim renderer As New PdfDocumentRenderer(True) With {
-            .Document = document
-         }
-         renderer.RenderDocument()
          ' salvo il documento
          Dim sFileName As String = ""
 
@@ -42,9 +39,16 @@ Module Configuration
             sFileName = Map.refMainWindowVM.MainWindowM.sTempDir & "\Statistics.pdf"
             PrevSelect()
          End If
+         Dim ExecThread As New Thread(Sub()
+                                         Dim renderer As New PdfDocumentRenderer(True) With {
+                                         .Document = document
+                                         }
+                                         renderer.RenderDocument()
+                                         renderer.PdfDocument.Save(sFileName)
+                                      End Sub)
+         ExecThread.Start()
 
          ' avvio il visualizzatore 
-         renderer.PdfDocument.Save(sFileName)
          ' cancello file MigraDoc
          System.IO.File.Delete(documentPath)
 
@@ -56,7 +60,6 @@ Module Configuration
          EgtOutLog("Error genereting pdf: " & ex.ToString())
       End Try
       LoadingWndHelper.CloseLoadingWnd(ActiveIds.CREATINGPDF)
-
    End Sub
 
    Private Sub PrevSelect()