From 152788fe1bd7ad20b150a986e35ace6e85b6d1d8 Mon Sep 17 00:00:00 2001
From: Emmanuele Sassi <emmanuele.sassi@egaltech.com>
Date: Thu, 24 Nov 2022 16:30:56 +0100
Subject: [PATCH 1/2] - modifiche per aggiunta grezzo durante definizione se
 non definito - WIP modifiche per salvataggio ultimo usato per sezione

---
 .../LeftPanel/LeftPanelV.xaml                 |   4 +-
 .../LeftPanel/LeftPanelVM.vb                  | 442 +++++-------------
 .../MachGroupPanel/MyMachGroupPanelVM.vb      |   1 -
 .../WarehouseWnd/WarehouseHelper.vb           |  81 ++++
 .../WarehouseWnd/WarehouseWndVM.vb            |   4 +-
 5 files changed, 212 insertions(+), 320 deletions(-)

diff --git a/EgtBEAMWALL.ViewerOptimizer/LeftPanel/LeftPanelV.xaml b/EgtBEAMWALL.ViewerOptimizer/LeftPanel/LeftPanelV.xaml
index 5e941516..b7eaa639 100644
--- a/EgtBEAMWALL.ViewerOptimizer/LeftPanel/LeftPanelV.xaml
+++ b/EgtBEAMWALL.ViewerOptimizer/LeftPanel/LeftPanelV.xaml
@@ -90,9 +90,9 @@
                  Style="{StaticResource LeftPanel_Button}">
             <Image Source="/Resources/LeftPanel/NewRawPart.png" Stretch="Uniform"/>
          </Button>
-         <Button Command="{Binding NewRawPartAuto_Command}"
+         <Button Command="{Binding NewRawPartLast_Command}"
                  Visibility="{Binding MachiningPage_Visibility}"
-                 ToolTip="{Binding NewRawPartAuto_ToolTip}"
+                 ToolTip="{Binding NewRawPartLast_ToolTip}"
                  IsEnabled="{Binding LeftPanel_IsEnabled}"
                  Style="{StaticResource LeftPanel_Button}">
             <Image Source="/Resources/LeftPanel/NewRawPartAuto.png" Stretch="Uniform"/>
diff --git a/EgtBEAMWALL.ViewerOptimizer/LeftPanel/LeftPanelVM.vb b/EgtBEAMWALL.ViewerOptimizer/LeftPanel/LeftPanelVM.vb
index fb4e4f5f..06a4aa4f 100644
--- a/EgtBEAMWALL.ViewerOptimizer/LeftPanel/LeftPanelVM.vb
+++ b/EgtBEAMWALL.ViewerOptimizer/LeftPanel/LeftPanelVM.vb
@@ -100,7 +100,7 @@ Public Class LeftPanelVM
 
    ' Definizione comandi
    Private m_cmdNewRawPart As ICommand
-   Private m_cmdNewRawPartAuto As ICommand
+   Private m_cmdNewRawPartLast As ICommand
    Private m_cmdAddToRawPart As ICommand
    Private m_cmdCopyPart As ICommand
    Private m_cmdAddPart As ICommand
@@ -156,7 +156,7 @@ Public Class LeftPanelVM
       End Get
    End Property
 
-   Public ReadOnly Property NewRawPartAuto_ToolTip As String
+   Public ReadOnly Property NewRawPartLast_ToolTip As String
       Get
          Return EgtMsg(61977)
       End Get
@@ -265,7 +265,7 @@ Public Class LeftPanelVM
    Public ReadOnly Property NewRawPart_Command As ICommand
       Get
          If m_cmdNewRawPart Is Nothing Then
-            m_cmdNewRawPart = New Command(AddressOf NewRawPart)
+            m_cmdNewRawPart = New Command(AddressOf NewRawPartCmd)
          End If
          Return m_cmdNewRawPart
       End Get
@@ -274,7 +274,11 @@ Public Class LeftPanelVM
    ''' <summary>
    ''' Execute the Exec.  This method is invoked by the ExecCommand.
    ''' </summary>
-   Public Sub NewRawPart()
+   Public Sub NewRawPartCmd()
+      NewRawPart(False)
+   End Sub
+
+   Public Sub NewRawPart(bLast As Boolean)
       If IsNothing(Map.refProdManagerVM.CurrProd) Then Return
       Dim SelPart As BTLPartVM = Map.refProjectVM.BTLStructureVM.SelBTLPart
       Dim SelParts As List(Of BTLPartVM) = Map.refProjectVM.BTLStructureVM.SelBTLParts.ToList()
@@ -348,56 +352,41 @@ Public Class LeftPanelVM
             Case WarehouseType.MEDIUM
                Dim SectionList As List(Of SParam) = WarehouseHelper.GetSectionList()
                Dim SParamlist As List(Of SParam) = SectionList.FindAll(Function(x) x.SectXMat = SelParts(0).Section)
-               If SParamlist.Count = 0 Then
-                  ' apro finestra con solo edit
-                  If AddRawPartWnd(AddRawPartWndVM.EditTypes.ONLY_TEXT, SParamlist, dRawW, dRawL, dStartOffset, dOffset, dKerf) Then
-                     WarehouseHelper.SetOffset(Map.refProjectVM.BTLStructureVM.nPROJTYPE, dOffset)
-                     If Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM Then
-                        WarehouseHelper.SetStartOffset(dStartOffset)
-                     Else
-                        WarehouseHelper.SetKerf(dKerf)
-                     End If
+               If bLast Then
+                  If SParamlist.Count > 0 Then
+                     dRawL = SParamlist(0).dL
+                     dRawW = SParamlist(0).dW
                   Else
+                     MessageBox.Show(EgtMsg(61975), EgtMsg(30007))
                      Return
                   End If
-               ElseIf SParamlist.Count > 0 Then
-                  '' se premuto shift
-                  'If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
-                  ' imposto finestra con anche edit
-                  If AddRawPartWnd(AddRawPartWndVM.EditTypes.TEXT_AND_COMBO, SParamlist, dRawW, dRawL, dStartOffset, dOffset, dKerf) Then
-                     WarehouseHelper.SetOffset(Map.refProjectVM.BTLStructureVM.nPROJTYPE, dOffset)
-                     If Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM Then
-                        WarehouseHelper.SetStartOffset(dStartOffset)
+               Else
+                  If SParamlist.Count = 0 Then
+                     ' apro finestra con solo edit
+                     If AddRawPartWnd(AddRawPartWndVM.EditTypes.ONLY_TEXT, SParamlist, dRawW, dRawL, dStartOffset, dOffset, dKerf) Then
+                        WarehouseHelper.SetOffset(Map.refProjectVM.BTLStructureVM.nPROJTYPE, dOffset)
+                        If Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM Then
+                           WarehouseHelper.SetStartOffset(dStartOffset)
+                        Else
+                           WarehouseHelper.SetKerf(dKerf)
+                        End If
                      Else
-                        WarehouseHelper.SetKerf(dKerf)
+                        Return
+                     End If
+                  ElseIf SParamlist.Count > 0 Then
+                     ' imposto finestra con anche edit
+                     If AddRawPartWnd(AddRawPartWndVM.EditTypes.TEXT_AND_COMBO, SParamlist, dRawW, dRawL, dStartOffset, dOffset, dKerf) Then
+                        WarehouseHelper.SetOffset(Map.refProjectVM.BTLStructureVM.nPROJTYPE, dOffset)
+                        If Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM Then
+                           WarehouseHelper.SetStartOffset(dStartOffset)
+                        Else
+                           WarehouseHelper.SetKerf(dKerf)
+                        End If
+                     Else
+                        Return
                      End If
-                  Else
-                     Return
                   End If
-                  'Else
-                  '   ' creo grezzo con l'unico materiale
-                  '   dRawL = SParamlist(0).dL
-                  '   dRawW = SParamlist(0).dW
                End If
-               'Else
-               '   ' imposto finestra di sola scelta dimensione
-               '   Dim EditType As AddRawPartWndVM.EditTypes = AddRawPartWndVM.EditTypes.ONLY_COMBO
-               '   ' se premuto shift
-               '   If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
-               '      ' imposto finestra con anche edit
-               '      EditType = AddRawPartWndVM.EditTypes.TEXT_AND_COMBO
-               '   End If
-               '   If AddRawPartWnd(EditType, SParamlist, dRawW, dRawL, dStartOffset, dOffset, dKerf) Then
-               '      WarehouseHelper.SetOffset(Map.refProjectVM.BTLStructureVM.nPROJTYPE, dOffset)
-               '      If Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM Then
-               '         WarehouseHelper.SetStartOffset(dStartOffset)
-               '      Else
-               '         WarehouseHelper.SetKerf(dKerf)
-               '      End If
-               '   Else
-               '      Return
-               '   End If
-               'End If
          End Select
       End If
       If Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.BEAM Then
@@ -553,9 +542,91 @@ Public Class LeftPanelVM
             dKerf = AddRawPartWndVM.VariableList(2).dValue
             dOffset = AddRawPartWndVM.VariableList(3).dValue
       End Select
+      ' verifico se il materiale esiste in magazzino o devo aggiungerlo
+      Dim CurrSParam As SParam
+      Select Case EditType
+         Case AddRawPartWndVM.EditTypes.ONLY_TEXT
+            ' lo aggiungo a lista materiali in magazzino
+            CurrSParam = AddRawMaterial(dRawW, dRawL)
+         Case AddRawPartWndVM.EditTypes.ONLY_COMBO
+            ' non faccio nulla
+         Case AddRawPartWndVM.EditTypes.TEXT_AND_COMBO
+            ' verifico se lunghezza testo corrisponde a materiale
+            If Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM Then
+               CurrSParam = SParamlist.FirstOrDefault(Function(x) x.dL = AddRawPartWndVM.VariableList(0).dValue)
+            Else
+               CurrSParam = SParamlist.FirstOrDefault(Function(x) x.dL = AddRawPartWndVM.VariableList(1).dValue AndAlso x.dW = AddRawPartWndVM.VariableList(0).dValue)
+            End If
+            If IsNothing(CurrSParam) Then
+               ' lo aggiungo a lista materiali in magazzino
+               CurrSParam = AddRawMaterial(dRawW, dRawL)
+            End If
+      End Select
+      ' imposto il materiale selezionato come ultimo utilizzato
+
       Return True
    End Function
 
+   Private Function AddRawMaterial(dRawW As Double, ByRef dRawL As Double) As SParam
+      Dim sWarehousePath As String = Map.refMainWindowVM.MainWindowM.sWarehouseDir & "\" & WH_MEDIUM_INI_FILE_NAME
+      Dim nQuantity As Integer = GetMainPrivateProfileInt(S_WAREHOUSE, K_DEFAULTQUANTITY, 1)
+      If Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.BEAM Then
+         ' creo sParam
+         Dim CurrSParam As New SParam(Map.refProjectVM.BTLStructureVM.SelBTLPart.Section, dRawL, nQuantity, False)
+         Dim sL As String = String.Empty
+         sL = LenToString(CurrSParam.dL, 3)
+         ' ricavo l'indice del SecionXMaterial dalla Beam_List
+         Dim SectXMatIndex As Integer = 1
+         Dim sSxMValue As String = ""
+         While EgtUILib.GetPrivateProfileString(S_BEAM_LIST, SectXMatIndex, String.Empty, sSxMValue, sWarehousePath)
+            If sSxMValue = CurrSParam.sValue Then
+               ' se l'ho trovato esco dal while, il SectXMatIndex è l'indice che cercavamo
+               Exit While
+            End If
+            SectXMatIndex += 1
+         End While
+         ' ricavo nuovo indice materiale
+         Dim ParamIndex As Integer = 1
+         Dim sParam As String = ""
+         While GetPrivateProfileString(S_BEAM, K_L & ParamIndex, "", sParam, sWarehousePath) > 0
+            ParamIndex += 1
+         End While
+         ' lo aggiungo in warehouse
+         WritePrivateProfileString(S_BEAM, K_L & ParamIndex,
+                                            SectXMatIndex & "," & sL & "," & CurrSParam.nQuantity & "," & If(CurrSParam.bActive, 1, 0),
+                                            sWarehousePath)
+         Return CurrSParam
+      ElseIf Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.WALL Then
+         ' creo sParam
+         Dim CurrSParam As New SParam(Map.refProjectVM.BTLStructureVM.SelBTLPart.Section, dRawW, dRawL, nQuantity, False)
+         Dim sW As String = String.Empty
+         Dim sL As String = String.Empty
+         sW = LenToString(CurrSParam.dW, 3)
+         sL = LenToString(CurrSParam.dL, 3)
+         ' ricavo l'indice del SecionXMaterial dalla Wall_List
+         Dim SectXMatIndex As Integer = 1
+         Dim sSxMValue As String = ""
+         While EgtUILib.GetPrivateProfileString(S_WALL_LIST, SectXMatIndex, String.Empty, sSxMValue, sWarehousePath)
+            If sSxMValue = CurrSParam.sValue Then
+               ' se l'ho trovato esco dal while, il SectXMatIndex è l'indice che cercavamo
+               Exit While
+            End If
+            SectXMatIndex += 1
+         End While
+         ' ricavo nuovo indice materiale
+         Dim ParamIndex As Integer = 1
+         Dim sParam As String = ""
+         While GetPrivateProfileString(S_WALL, K_S & ParamIndex, "", sParam, sWarehousePath) = 0
+            ParamIndex += 1
+         End While
+         ' lo aggiungo in warehouse
+         WritePrivateProfileString(S_WALL, K_S & ParamIndex,
+                                            SectXMatIndex & "," & sW & "," & sL & "," & CurrSParam.nQuantity & "," & If(CurrSParam.bActive, 1, 0),
+                                            sWarehousePath)
+         Return CurrSParam
+      End If
+   End Function
+
    Private Function VerifyPartCount(SelParts As List(Of BTLPartVM)) As Boolean
       ' verifico se ci sono pezzi da aggiungere
       Dim ToAddList As New List(Of String)
@@ -585,289 +656,28 @@ Public Class LeftPanelVM
 
 #End Region    ' NewRawPart
 
-#Region "NewRawPartAuto"
+#Region "NewRawPartLast"
 
    ''' <summary>
    ''' Returns a command that do Exec.
    ''' </summary>
-   Public ReadOnly Property NewRawPartAuto_Command As ICommand
+   Public ReadOnly Property NewRawPartLast_Command As ICommand
       Get
-         If m_cmdNewRawPartAuto Is Nothing Then
-            m_cmdNewRawPartAuto = New Command(AddressOf NewRawPartAuto)
+         If m_cmdNewRawPartLast Is Nothing Then
+            m_cmdNewRawPartLast = New Command(AddressOf NewRawPartLast)
          End If
-         Return m_cmdNewRawPartAuto
+         Return m_cmdNewRawPartLast
       End Get
    End Property
 
    ''' <summary>
    ''' Execute the Exec.  This method is invoked by the ExecCommand.
    ''' </summary>
-   Public Sub NewRawPartAuto()
-      If IsNothing(Map.refProdManagerVM.CurrProd) Then Return
-      Dim SelPart As BTLPartVM = Map.refProjectVM.BTLStructureVM.SelBTLPart
-      Dim SelParts As List(Of BTLPartVM) = Map.refProjectVM.BTLStructureVM.SelBTLParts.ToList()
-      If IsNothing(SelParts) OrElse SelParts.Count <= 0 Then Return
-      ' verifico che abbiano tutti la stessa sezione
-      Dim dHSection As Double = SelParts(0).dH
-      Dim dWSection As Double = SelParts(0).dW
-      For PartIndex = 0 To SelParts.Count - 1
-         Dim Part As BTLPartVM = SelParts(PartIndex)
-         If Not IsNothing(Part) Then
-            If Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM Then
-               If Part.dH <> dHSection OrElse Part.dW <> dWSection Then
-                  MessageBox.Show(EgtMsg(61970), EgtMsg(30007))
-                  Return
-               End If
-            ElseIf Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.WALL Then
-               If Part.dH <> dHSection Then
-                  MessageBox.Show(EgtMsg(61970), EgtMsg(30007))
-                  Return
-               End If
-            End If
-         Else
-            SelParts.Remove(Part)
-         End If
-      Next
-      ' se pareti e piu' di uno selezionato, esco
-      If Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.WALL And SelParts.Count > 1 Then
-         MessageBox.Show(EgtMsg(61971), EgtMsg(30007))
-         Return
-      End If
-      ' se nessun grezzo, rendo tutti i pezzi visibili
-      If Map.refProjectVM.MachGroupPanelVM.MachGroupVMList.Count = 0 Then
-         Map.refProjectVM.BTLStructureVM.ShowAll(False)
-      End If
-      ' verifico se sono gia' stati messi tutti i pezzi richiesti
-      If Not VerifyPartCount(SelParts) Then Return
-      Dim dRawL As Double = SelParts(0).dL
-      Dim dRawW As Double = SelParts(0).dW
-      Dim dStartOffset As Double = 0
-      Dim dKerf As Double = 0
-      Dim dOffset As Double = WarehouseHelper.GetOffset(Map.refProjectVM.BTLStructureVM.nPROJTYPE)
-      ' se tipo di definizione grezzo esplicito
-      If WarehouseHelper.GetRawPartDef = 1 OrElse ((Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift AndAlso WarehouseHelper.GetWarehouseType = WarehouseType.BASIC) Then
-         ' chiedo lunghezza grezzo
-         Dim sWarehouseIniPath As String = Map.refMainWindowVM.MainWindowM.sWarehouseDir & "\" & WH_BASIC_INI_FILE_NAME
-         If Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.BEAM Then
-            dStartOffset = WarehouseHelper.GetStartOffset()
-            dRawL += dStartOffset
-         Else
-            dKerf = WarehouseHelper.GetKerf()
-            dRawL += 2 * dKerf
-            dRawW += 2 * dKerf
-         End If
-         Dim AddRawPartWndVM As New AddRawPartWndVM(Map.refProjectVM.BTLStructureVM.nPROJTYPE, dRawL, dRawW, dStartOffset)
-         Dim AddRawPartWnd As New AddRawPartWndV(Application.Current.MainWindow, AddRawPartWndVM)
-         If Not AddRawPartWnd.ShowDialog() Then Return
-         dRawL = AddRawPartWndVM.VariableList(0).dValue
-         dRawW = AddRawPartWndVM.VariableList(1).dValue
-         dStartOffset = AddRawPartWndVM.VariableList(1).dValue
-         ' se altrimenti definizione grezzo da warehouse
-      Else
-         If Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM Then
-            dStartOffset = WarehouseHelper.GetStartOffset()
-         Else
-            dKerf = WarehouseHelper.GetKerf()
-         End If
-         ' se warehouse basic
-         Select Case WarehouseHelper.GetWarehouseType()
-            Case WarehouseType.BASIC
-               WarehouseHelper.GetCurrentDimensions(Map.refProjectVM.BTLStructureVM.nPROJTYPE, dRawW, dRawL)
-            Case WarehouseType.MEDIUM
-               Dim SectionList As List(Of SParam) = WarehouseHelper.GetSectionList()
-               Dim SParamlist As List(Of SParam) = SectionList.FindAll(Function(x) x.SectXMat = SelParts(0).Section)
-               'If SParamlist.Count = 0 Then
-               '   ' apro finestra con solo edit
-               '   If AddRawPartWnd(AddRawPartWndVM.EditTypes.ONLY_TEXT, SParamlist, dRawW, dRawL, dStartOffset, dOffset, dKerf) Then
-               '      WarehouseHelper.SetOffset(Map.refProjectVM.BTLStructureVM.nPROJTYPE, dOffset)
-               '      If Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM Then
-               '         WarehouseHelper.SetStartOffset(dStartOffset)
-               '      Else
-               '         WarehouseHelper.SetKerf(dKerf)
-               '      End If
-               '   Else
-               '      Return
-               '   End If
-               'ElseIf SParamlist.Count = 1 Then
-               If SParamlist.Count > 0 Then
-                  '' se premuto shift
-                  'If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
-                  '   ' imposto finestra con anche edit
-                  '   If AddRawPartWnd(AddRawPartWndVM.EditTypes.TEXT_AND_COMBO, SParamlist, dRawW, dRawL, dStartOffset, dOffset, dKerf) Then
-                  '      WarehouseHelper.SetOffset(Map.refProjectVM.BTLStructureVM.nPROJTYPE, dOffset)
-                  '      If Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM Then
-                  '         WarehouseHelper.SetStartOffset(dStartOffset)
-                  '      Else
-                  '         WarehouseHelper.SetKerf(dKerf)
-                  '      End If
-                  '   Else
-                  '      Return
-                  '   End If
-                  'Else
-                  ' creo grezzo con l'unico materiale
-                  dRawL = SParamlist(0).dL
-                  dRawW = SParamlist(0).dW
-                  'End If
-                  'Else
-                  '   ' imposto finestra di sola scelta dimensione
-                  '   Dim EditType As AddRawPartWndVM.EditTypes = AddRawPartWndVM.EditTypes.ONLY_COMBO
-                  '   ' se premuto shift
-                  '   If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
-                  '      ' imposto finestra con anche edit
-                  '      EditType = AddRawPartWndVM.EditTypes.TEXT_AND_COMBO
-                  '   End If
-                  '   If AddRawPartWnd(EditType, SParamlist, dRawW, dRawL, dStartOffset, dOffset, dKerf) Then
-                  '      WarehouseHelper.SetOffset(Map.refProjectVM.BTLStructureVM.nPROJTYPE, dOffset)
-                  '      If Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM Then
-                  '         WarehouseHelper.SetStartOffset(dStartOffset)
-                  '      Else
-                  '         WarehouseHelper.SetKerf(dKerf)
-                  '      End If
-                  '   Else
-                  '      Return
-                  '   End If
-               Else
-                  MessageBox.Show(EgtMsg(61975), EgtMsg(30007))
-                  Return
-               End If
-         End Select
-      End If
-      If Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.BEAM Then
-         ' verifico se lunghezza barra e' maggiore della lunghezza dei pezzi
-         Dim dTotLen As Double = WarehouseHelper.GetStartOffset()
-         For PartIndex = 0 To SelParts.Count - 1
-            If PartIndex <> 0 Then
-               dTotLen += WarehouseHelper.GetOffset(BWType.BEAM)
-            End If
-            dTotLen += SelParts(PartIndex).dL
-         Next
-         If dTotLen > dRawL Then
-            MessageBox.Show(EgtMsg(61972), EgtMsg(30007))
-            Return
-         End If
-      End If
-      ' creo nuovo gruppo di lavorazione
-      Map.refMachGroupPanelVM.AddMachGroup()
-      Dim nCurrMachGroup As Integer = EgtGetCurrMachGroup()
-      Dim sCurrMachGroupName As String = ""
-      EgtGetMachGroupName(nCurrMachGroup, sCurrMachGroupName)
-      ' ordino i pezzi per lunghezza
-      SelParts = SelParts.OrderBy(Function(x) x.dL).ToList
-      ' creo copie dei pezzi
-      Dim nPartDuploIdList As New List(Of Integer)
-      For Each Part In SelParts
-         Dim nDuploId As Integer = EgtDuploNew(Part.nPartId)
-         ' elimino valori calcolo dell'originale
-         MyMachGroupPanelVM.DuploRemoveProjCalc(nDuploId)
-         ' lo rendo std
-         EgtSetMode(nDuploId, GDB_MD.STD)
-         nPartDuploIdList.Add(nDuploId)
-      Next
-      Dim sLogPath As String = Map.refMainWindowVM.MainWindowM.sTempDir & "\RawPartLog.txt"
-      ' scrivo dati per variabili P di comunicazione con la macchina in gruppo di lavorazione
-      EgtSetInfo(nCurrMachGroup, MGR_RPT_PRODID, Map.refProdManagerVM.CurrProd.nProdId)
-      EgtSetInfo(nCurrMachGroup, MGR_RPT_PATTID, nCurrMachGroup)
-      If Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.BEAM Then
-         ' scrivo dati costruzione grezzo in gruppo di lavorazione
-         EgtSetInfo(nCurrMachGroup, MGR_RPT_BARLEN, dRawL)
-         EgtSetInfo(nCurrMachGroup, MGR_RPT_MATERIAL, SelPart.sMATERIAL)
-         ' scrivo dati di tutti i pezzi
-         Dim dPosX As Double = WarehouseHelper.GetStartOffset()
-         ' ciclo sui pezzi
-         For nIndex = 0 To nPartDuploIdList.Count - 1
-            ' se non è primo, aggiungo offset tra barre standard
-            If nIndex <> 0 Then
-               dPosX += WarehouseHelper.GetOffset(BWType.BEAM)
-            End If
-            EgtSetInfo(nCurrMachGroup, MGR_RPT_PART & nIndex + 1, nPartDuploIdList(nIndex) & "," & DoubleToString(dPosX, 3))
-            ' incremento posizione della sua lunghezza
-            dPosX += SelParts(nIndex).dL
-         Next
-         Dim BeamMachGroup As MyMachGroupVM = Map.refMachGroupPanelVM.GetLastMachGroup()
-         ' eseguo script creazione grezzo
-         Dim nERR As Integer = 0
-         If Not ExecBeam(sLogPath, Map.refMachinePanelVM.SelectedMachine.Name, CalcIntegration.CmdTypes.RAWPART, False) Then
-            ' elimino duplo e gruppo di lavorazione
-            For Each nDuploId In nPartDuploIdList
-               EgtErase(nDuploId)
-            Next
-            BeamMachGroup.DeleteMachGroup()
-            If File.Exists(sLogPath) Then
-               Dim LogFile As String() = File.ReadAllLines(sLogPath)
-               If LogFile.Count >= 2 AndAlso Not IsNothing(LogFile(1)) Then
-                  MessageBox.Show(LogFile(1), EgtMsg(30007), MessageBoxButton.OK, MessageBoxImage.Error)
-               End If
-            Else
-               MessageBox.Show(EgtMsg(61973), EgtMsg(30007), MessageBoxButton.OK, MessageBoxImage.Error)
-            End If
-            ' se nessun grezzo, rimetto tutti i pezzi invisibili
-            If Map.refProjectVM.MachGroupPanelVM.MachGroupVMList.Count = 0 Then
-               Map.refProjectVM.BTLStructureVM.HideAll()
-            End If
-            Return
-         End If
-         For nDuploIndex = 0 To SelParts.Count - 1
-            EgtSetInfo(nPartDuploIdList(nDuploIndex), MGR_PRT_ROT, SelParts(nDuploIndex).nROTATED)
-            EgtSetInfo(nPartDuploIdList(nDuploIndex), MGR_PRT_FLIP, SelParts(nDuploIndex).nINVERTED)
-         Next
-         ' aggiorno contatore pezzi usati in Prod
-         For Each SelPart In SelParts
-            SelPart.RefreshPartInProd()
-         Next
-         'aggiorno lista pezzi
-         BeamMachGroup.MyMachGroupM.RefreshPartList()
-         BeamMachGroup.MyMachGroupM.RefreshGroupData()
-         ' aggiorno dati utilizzo barra
-         BeamMachGroup.UpdateUsage()
-         Core.ViewPanelVM.BWSetView(VT.ISO_SW, False)
-      ElseIf Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.WALL Then
-         Dim nPartDuploId As Integer = EgtDuploNew(SelPart.nPartId)
-         ' scrivo dati in gruppo di lavorazione
-         Dim dPosX As Double = dKerf
-         Dim dPosY As Double = dKerf
-         EgtSetInfo(nCurrMachGroup, MGR_RPT_PANELLEN, dRawL)
-         EgtSetInfo(nCurrMachGroup, MGR_RPT_PANELWIDTH, dRawW)
-         EgtSetInfo(nCurrMachGroup, MGR_RPT_MATERIAL, SelPart.sMATERIAL)
-         EgtSetInfo(nCurrMachGroup, MGR_RPT_PART & 1,
-                    nPartDuploId & "," & DoubleToString(dPosX, 3) & "," & DoubleToString(dPosY, 3) & ",0,0")
-         Dim WallMachGroup As MyMachGroupVM = Map.refMachGroupPanelVM.MachGroupVMList(Map.refMachGroupPanelVM.MachGroupVMList.Count - 1)
-         ' eseguo script creazione grezzo
-         If Not ExecWall(sLogPath, Map.refMachinePanelVM.SelectedMachine.Name, CalcIntegration.CmdTypes.RAWPART, False, False) Then
-            ' elimino duplo e gruppo di lavorazione
-            EgtErase(nPartDuploId)
-            WallMachGroup.DeleteMachGroup()
-            If File.Exists(sLogPath) Then
-               Dim LogFile As String() = File.ReadAllLines(sLogPath)
-               If LogFile.Count >= 2 AndAlso Not IsNothing(LogFile(1)) Then
-                  MessageBox.Show(LogFile(1), EgtMsg(30007), MessageBoxButton.OK, MessageBoxImage.Error)
-               End If
-            Else
-               MessageBox.Show(EgtMsg(61973), EgtMsg(30007), MessageBoxButton.OK, MessageBoxImage.Error)
-            End If
-            ' se nessun grezzo, rimetto tutti i pezzi invisibili
-            If Map.refProjectVM.MachGroupPanelVM.MachGroupVMList.Count = 0 Then
-               Map.refProjectVM.BTLStructureVM.HideAll(True)
-            End If
-            Return
-         End If
-         ' scrivo dati pezzo
-         EgtSetInfo(nPartDuploId, MGR_PRT_POSX, dPosX)
-         EgtSetInfo(nPartDuploId, MGR_PRT_POSY, dPosY)
-         EgtSetInfo(nPartDuploId, MGR_PRT_ROT, SelPart.nROTATED)
-         EgtSetInfo(nPartDuploId, MGR_PRT_FLIP, SelPart.nINVERTED)
-         ' aggiorno contatore pezzi usati in Prod
-         SelPart.RefreshPartInProd()
-         ' aggiorno lista pezzi
-         WallMachGroup.MyMachGroupM.RefreshPartList()
-         WallMachGroup.MyMachGroupM.RefreshGroupData()
-         ' aggiorno dati ultilizzo barra
-         WallMachGroup.UpdateUsage()
-         Core.ViewPanelVM.BWSetView(VT.TOP, False)
-      End If
-      EgtZoom(ZM.ALL)
+   Public Sub NewRawPartLast()
+      NewRawPart(True)
    End Sub
 
-#End Region    ' NewRawPartAuto
+#End Region    ' NewRawPartLast
 
 #Region "AddToRawPart"
 
diff --git a/EgtBEAMWALL.ViewerOptimizer/MachGroupPanel/MyMachGroupPanelVM.vb b/EgtBEAMWALL.ViewerOptimizer/MachGroupPanel/MyMachGroupPanelVM.vb
index c78ad98e..512042b1 100644
--- a/EgtBEAMWALL.ViewerOptimizer/MachGroupPanel/MyMachGroupPanelVM.vb
+++ b/EgtBEAMWALL.ViewerOptimizer/MachGroupPanel/MyMachGroupPanelVM.vb
@@ -241,5 +241,4 @@ Public Class MyMachGroupPanelVM
 
 #End Region    ' METHODS
 
-
 End Class
diff --git a/EgtBEAMWALL.ViewerOptimizer/WarehouseWnd/WarehouseHelper.vb b/EgtBEAMWALL.ViewerOptimizer/WarehouseWnd/WarehouseHelper.vb
index a4bf7b98..f2b92d69 100644
--- a/EgtBEAMWALL.ViewerOptimizer/WarehouseWnd/WarehouseHelper.vb
+++ b/EgtBEAMWALL.ViewerOptimizer/WarehouseWnd/WarehouseHelper.vb
@@ -250,4 +250,85 @@ Module WarehouseHelper
          SectXMat.dW >= 0
    End Function
 
+   Friend Function GetLastMaterial(SectXMat As SectionXMaterial) As SParam
+      Dim sWarehousePath As String = Map.refMainWindowVM.MainWindowM.sWarehouseDir & "\" & WH_MEDIUM_INI_FILE_NAME
+      If Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.BEAM Then
+         Dim ParamIndex As Integer = 1
+         Dim sSxMValue As String = ""
+         While EgtUILib.GetPrivateProfileString(S_BEAM_LIST, ParamIndex, String.Empty, sSxMValue, sWarehousePath) > 0
+            Dim sSectXMatValues() As String = sSxMValue.Split(","c)
+            ' creo parametro
+            Dim dW As Double = 0
+            Dim dH As Double = 0
+            Dim sMaterial As String = sSectXMatValues(2)
+            StringToLen(sSectXMatValues(0), dW)
+            StringToLen(sSectXMatValues(1), dH)
+            If SectXMat.dW = dW AndAlso SectXMat.dH = dH AndAlso SectXMat.sMaterial(0) = sMaterial Then
+               If sSectXMatValues.Length <= 3 Then Return Nothing
+               Dim sValue As String = ""
+               If EgtUILib.GetPrivateProfileString(S_BEAM, "L" & sSectXMatValues(3), String.Empty, sValue, sWarehousePath) Then
+
+               End If
+            End If
+         End While
+
+
+
+
+         If EgtUILib.GetPrivateProfileString(S_BEAM, "L" & ParamIndex, String.Empty, sValue, sWarehousePath) Then
+            Dim sParamValues() As String = sValue.Split(","c)
+            ' verifico numero minimo di parametri
+            If sParamValues.Count < 2 Then Return Nothing
+            ' cancello spazi
+            For Index = 0 To sParamValues.Count - 1
+               sParamValues(Index) = sParamValues(Index).Trim()
+            Next
+            ' ricavo SectionXMaterial tramite Beam_List
+            If EgtUILib.GetPrivateProfileString(S_BEAM_LIST, sParamValues(0), String.Empty, sSxMValue, sWarehousePath) Then
+               Dim sSectXMatValues() As String = sSxMValue.Split(","c)
+               ' creo parametro
+               Dim dW As Double = 0
+               Dim dH As Double = 0
+               Dim dL As Double = 0
+               Dim nQty As Integer = 0
+               Dim nActive As Integer = 1
+               StringToLen(sSectXMatValues(0), dW)
+               StringToLen(sSectXMatValues(1), dH)
+               StringToLen(sParamValues(1), dL)
+               If sParamValues.Count >= 3 Then Integer.TryParse(sParamValues(2), nQty)
+               If sParamValues.Count >= 4 Then Integer.TryParse(sParamValues(3), nActive)
+               Return New SParam(New SectionXMaterial(dW, dH, dL, sSectXMatValues(2)), dL, nQty, nActive > 0)
+            End If
+         End If
+      ElseIf Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.WALL Then
+         If EgtUILib.GetPrivateProfileString(S_WALL, "S" & ParamIndex, String.Empty, sValue, sWarehousePath) Then
+            Dim sParamValues() As String = sValue.Split(","c)
+            ' verifico numero minimo di parametri
+            If sParamValues.Count >= 3 Then
+               ' cancello spazi
+               For Index = 0 To sParamValues.Count - 1
+                  sParamValues(Index) = sParamValues(Index).Trim()
+               Next
+               ' ricavo SectionXMaterial tramite Wall_List
+               If EgtUILib.GetPrivateProfileString(S_WALL_LIST, sParamValues(0), String.Empty, sSxMValue, sWarehousePath) Then
+                  Dim sSectXMatValues() As String = sSxMValue.Split(","c)
+                  ' creo parametro
+                  Dim dH As Double = 0
+                  Dim dW As Double = 0
+                  Dim dL As Double = 0
+                  Dim nQty As Integer = 0
+                  Dim nActive As Integer = 1
+                  StringToLen(sSectXMatValues(0), dH)
+                  StringToLen(sParamValues(1), dW)
+                  StringToLen(sParamValues(2), dL)
+                  If sParamValues.Count >= 4 Then Integer.TryParse(sParamValues(3), nQty)
+                  If sParamValues.Count >= 5 Then Integer.TryParse(sParamValues(4), nActive)
+                  Return New SParam(New SectionXMaterial(dW, dH, dL, sSectXMatValues(1)), dW, dL, nQty, nActive > 0)
+               End If
+            End If
+         End If
+      End If
+
+   End Function
+
 End Module
diff --git a/EgtBEAMWALL.ViewerOptimizer/WarehouseWnd/WarehouseWndVM.vb b/EgtBEAMWALL.ViewerOptimizer/WarehouseWnd/WarehouseWndVM.vb
index fe0d6407..318bfadc 100644
--- a/EgtBEAMWALL.ViewerOptimizer/WarehouseWnd/WarehouseWndVM.vb
+++ b/EgtBEAMWALL.ViewerOptimizer/WarehouseWnd/WarehouseWndVM.vb
@@ -1084,7 +1084,9 @@ Public Class WarehouseWndVM
             Dim dH As Double = 0
             StringToLen(sSectXMatValues(0), dW)
             StringToLen(sSectXMatValues(1), dH)
-            SectXMatList.Add(New SectionXMaterial(dW, dH, 0, sSectXMatValues(2)))
+            If Not SectXMatList.Any(Function(x) x.dW = dW AndAlso x.dH = dH AndAlso x.sMaterial(0) = sSectXMatValues(2)) Then
+               SectXMatList.Add(New SectionXMaterial(dW, dH, 0, sSectXMatValues(2)))
+            End If
             sSectXMatIndex += 1
          End While
       ElseIf Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.WALL Then

From 848b6d98a568e50b74aed6127995bb29f2ef137a Mon Sep 17 00:00:00 2001
From: Emmanuele Sassi <emmanuele.sassi@egaltech.com>
Date: Fri, 25 Nov 2022 15:02:09 +0100
Subject: [PATCH 2/2] - correzione creazione pezzi durante creazione grezzi

---
 .../LeftPanel/LeftPanelVM.vb                  |  26 ++--
 .../WarehouseWnd/WarehouseHelper.vb           | 142 +++++++++---------
 2 files changed, 84 insertions(+), 84 deletions(-)

diff --git a/EgtBEAMWALL.ViewerOptimizer/LeftPanel/LeftPanelVM.vb b/EgtBEAMWALL.ViewerOptimizer/LeftPanel/LeftPanelVM.vb
index 4036b8c1..bb326c06 100644
--- a/EgtBEAMWALL.ViewerOptimizer/LeftPanel/LeftPanelVM.vb
+++ b/EgtBEAMWALL.ViewerOptimizer/LeftPanel/LeftPanelVM.vb
@@ -408,23 +408,23 @@ Public Class LeftPanelVM
       Dim nCurrMachGroup As Integer = EgtGetCurrMachGroup()
       Dim sCurrMachGroupName As String = ""
       EgtGetMachGroupName(nCurrMachGroup, sCurrMachGroupName)
-      ' ordino i pezzi per lunghezza
-      SelParts = SelParts.OrderBy(Function(x) x.dL).ToList
-      ' creo copie dei pezzi
-      Dim nPartDuploIdList As New List(Of Integer)
-      For Each Part In SelParts
-         Dim nDuploId As Integer = EgtDuploNew(Part.nPartId)
-         ' elimino valori calcolo dell'originale
-         MyMachGroupPanelVM.DuploRemoveProjCalc(nDuploId)
-         ' lo rendo std
-         EgtSetMode(nDuploId, GDB_MD.STD)
-         nPartDuploIdList.Add(nDuploId)
-      Next
       Dim sLogPath As String = Map.refMainWindowVM.MainWindowM.sTempDir & "\RawPartLog.txt"
       ' scrivo dati per variabili P di comunicazione con la macchina in gruppo di lavorazione
       EgtSetInfo(nCurrMachGroup, MGR_RPT_PRODID, Map.refProdManagerVM.CurrProd.nProdId)
       EgtSetInfo(nCurrMachGroup, MGR_RPT_PATTID, nCurrMachGroup)
       If Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.BEAM Then
+         ' ordino i pezzi per lunghezza
+         SelParts = SelParts.OrderBy(Function(x) x.dL).ToList
+         ' creo copie dei pezzi
+         Dim nPartDuploIdList As New List(Of Integer)
+         For Each Part In SelParts
+            Dim nDuploId As Integer = EgtDuploNew(Part.nPartId)
+            ' elimino valori calcolo dell'originale
+            MyMachGroupPanelVM.DuploRemoveProjCalc(nDuploId)
+            ' lo rendo std
+            EgtSetMode(nDuploId, GDB_MD.STD)
+            nPartDuploIdList.Add(nDuploId)
+         Next
          ' scrivo dati costruzione grezzo in gruppo di lavorazione
          EgtSetInfo(nCurrMachGroup, MGR_RPT_BARLEN, dRawL)
          EgtSetInfo(nCurrMachGroup, MGR_RPT_MATERIAL, SelPart.sMATERIAL)
@@ -753,7 +753,7 @@ Public Class LeftPanelVM
       ElseIf Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.WALL Then
          Dim WallMachGroup As MyMachGroupVM = SelMachGroup
          ' verifico spessore
-          If SelPart.Section <> WallMachGroup.Section Then
+         If SelPart.Section <> WallMachGroup.Section Then
             MessageBox.Show(EgtMsg(61868), EgtMsg(30007))
             Return
          End If
diff --git a/EgtBEAMWALL.ViewerOptimizer/WarehouseWnd/WarehouseHelper.vb b/EgtBEAMWALL.ViewerOptimizer/WarehouseWnd/WarehouseHelper.vb
index f2b92d69..73c12c0a 100644
--- a/EgtBEAMWALL.ViewerOptimizer/WarehouseWnd/WarehouseHelper.vb
+++ b/EgtBEAMWALL.ViewerOptimizer/WarehouseWnd/WarehouseHelper.vb
@@ -252,82 +252,82 @@ Module WarehouseHelper
 
    Friend Function GetLastMaterial(SectXMat As SectionXMaterial) As SParam
       Dim sWarehousePath As String = Map.refMainWindowVM.MainWindowM.sWarehouseDir & "\" & WH_MEDIUM_INI_FILE_NAME
-      If Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.BEAM Then
-         Dim ParamIndex As Integer = 1
-         Dim sSxMValue As String = ""
-         While EgtUILib.GetPrivateProfileString(S_BEAM_LIST, ParamIndex, String.Empty, sSxMValue, sWarehousePath) > 0
-            Dim sSectXMatValues() As String = sSxMValue.Split(","c)
-            ' creo parametro
-            Dim dW As Double = 0
-            Dim dH As Double = 0
-            Dim sMaterial As String = sSectXMatValues(2)
-            StringToLen(sSectXMatValues(0), dW)
-            StringToLen(sSectXMatValues(1), dH)
-            If SectXMat.dW = dW AndAlso SectXMat.dH = dH AndAlso SectXMat.sMaterial(0) = sMaterial Then
-               If sSectXMatValues.Length <= 3 Then Return Nothing
-               Dim sValue As String = ""
-               If EgtUILib.GetPrivateProfileString(S_BEAM, "L" & sSectXMatValues(3), String.Empty, sValue, sWarehousePath) Then
+      'If Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.BEAM Then
+      '   Dim ParamIndex As Integer = 1
+      '   Dim sSxMValue As String = ""
+      '   While EgtUILib.GetPrivateProfileString(S_BEAM_LIST, ParamIndex, String.Empty, sSxMValue, sWarehousePath) > 0
+      '      Dim sSectXMatValues() As String = sSxMValue.Split(","c)
+      '      ' creo parametro
+      '      Dim dW As Double = 0
+      '      Dim dH As Double = 0
+      '      Dim sMaterial As String = sSectXMatValues(2)
+      '      StringToLen(sSectXMatValues(0), dW)
+      '      StringToLen(sSectXMatValues(1), dH)
+      '      If SectXMat.dW = dW AndAlso SectXMat.dH = dH AndAlso SectXMat.sMaterial(0) = sMaterial Then
+      '         If sSectXMatValues.Length <= 3 Then Return Nothing
+      '         Dim sValue As String = ""
+      '         If EgtUILib.GetPrivateProfileString(S_BEAM, "L" & sSectXMatValues(3), String.Empty, sValue, sWarehousePath) Then
 
-               End If
-            End If
-         End While
+      '         End If
+      '      End If
+      '   End While
 
 
 
 
-         If EgtUILib.GetPrivateProfileString(S_BEAM, "L" & ParamIndex, String.Empty, sValue, sWarehousePath) Then
-            Dim sParamValues() As String = sValue.Split(","c)
-            ' verifico numero minimo di parametri
-            If sParamValues.Count < 2 Then Return Nothing
-            ' cancello spazi
-            For Index = 0 To sParamValues.Count - 1
-               sParamValues(Index) = sParamValues(Index).Trim()
-            Next
-            ' ricavo SectionXMaterial tramite Beam_List
-            If EgtUILib.GetPrivateProfileString(S_BEAM_LIST, sParamValues(0), String.Empty, sSxMValue, sWarehousePath) Then
-               Dim sSectXMatValues() As String = sSxMValue.Split(","c)
-               ' creo parametro
-               Dim dW As Double = 0
-               Dim dH As Double = 0
-               Dim dL As Double = 0
-               Dim nQty As Integer = 0
-               Dim nActive As Integer = 1
-               StringToLen(sSectXMatValues(0), dW)
-               StringToLen(sSectXMatValues(1), dH)
-               StringToLen(sParamValues(1), dL)
-               If sParamValues.Count >= 3 Then Integer.TryParse(sParamValues(2), nQty)
-               If sParamValues.Count >= 4 Then Integer.TryParse(sParamValues(3), nActive)
-               Return New SParam(New SectionXMaterial(dW, dH, dL, sSectXMatValues(2)), dL, nQty, nActive > 0)
-            End If
-         End If
-      ElseIf Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.WALL Then
-         If EgtUILib.GetPrivateProfileString(S_WALL, "S" & ParamIndex, String.Empty, sValue, sWarehousePath) Then
-            Dim sParamValues() As String = sValue.Split(","c)
-            ' verifico numero minimo di parametri
-            If sParamValues.Count >= 3 Then
-               ' cancello spazi
-               For Index = 0 To sParamValues.Count - 1
-                  sParamValues(Index) = sParamValues(Index).Trim()
-               Next
-               ' ricavo SectionXMaterial tramite Wall_List
-               If EgtUILib.GetPrivateProfileString(S_WALL_LIST, sParamValues(0), String.Empty, sSxMValue, sWarehousePath) Then
-                  Dim sSectXMatValues() As String = sSxMValue.Split(","c)
-                  ' creo parametro
-                  Dim dH As Double = 0
-                  Dim dW As Double = 0
-                  Dim dL As Double = 0
-                  Dim nQty As Integer = 0
-                  Dim nActive As Integer = 1
-                  StringToLen(sSectXMatValues(0), dH)
-                  StringToLen(sParamValues(1), dW)
-                  StringToLen(sParamValues(2), dL)
-                  If sParamValues.Count >= 4 Then Integer.TryParse(sParamValues(3), nQty)
-                  If sParamValues.Count >= 5 Then Integer.TryParse(sParamValues(4), nActive)
-                  Return New SParam(New SectionXMaterial(dW, dH, dL, sSectXMatValues(1)), dW, dL, nQty, nActive > 0)
-               End If
-            End If
-         End If
-      End If
+      '   If EgtUILib.GetPrivateProfileString(S_BEAM, "L" & ParamIndex, String.Empty, sValue, sWarehousePath) Then
+      '      Dim sParamValues() As String = sValue.Split(","c)
+      '      ' verifico numero minimo di parametri
+      '      If sParamValues.Count < 2 Then Return Nothing
+      '      ' cancello spazi
+      '      For Index = 0 To sParamValues.Count - 1
+      '         sParamValues(Index) = sParamValues(Index).Trim()
+      '      Next
+      '      ' ricavo SectionXMaterial tramite Beam_List
+      '      If EgtUILib.GetPrivateProfileString(S_BEAM_LIST, sParamValues(0), String.Empty, sSxMValue, sWarehousePath) Then
+      '         Dim sSectXMatValues() As String = sSxMValue.Split(","c)
+      '         ' creo parametro
+      '         Dim dW As Double = 0
+      '         Dim dH As Double = 0
+      '         Dim dL As Double = 0
+      '         Dim nQty As Integer = 0
+      '         Dim nActive As Integer = 1
+      '         StringToLen(sSectXMatValues(0), dW)
+      '         StringToLen(sSectXMatValues(1), dH)
+      '         StringToLen(sParamValues(1), dL)
+      '         If sParamValues.Count >= 3 Then Integer.TryParse(sParamValues(2), nQty)
+      '         If sParamValues.Count >= 4 Then Integer.TryParse(sParamValues(3), nActive)
+      '         Return New SParam(New SectionXMaterial(dW, dH, dL, sSectXMatValues(2)), dL, nQty, nActive > 0)
+      '      End If
+      '   End If
+      'ElseIf Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.WALL Then
+      '   If EgtUILib.GetPrivateProfileString(S_WALL, "S" & ParamIndex, String.Empty, sValue, sWarehousePath) Then
+      '      Dim sParamValues() As String = sValue.Split(","c)
+      '      ' verifico numero minimo di parametri
+      '      If sParamValues.Count >= 3 Then
+      '         ' cancello spazi
+      '         For Index = 0 To sParamValues.Count - 1
+      '            sParamValues(Index) = sParamValues(Index).Trim()
+      '         Next
+      '         ' ricavo SectionXMaterial tramite Wall_List
+      '         If EgtUILib.GetPrivateProfileString(S_WALL_LIST, sParamValues(0), String.Empty, sSxMValue, sWarehousePath) Then
+      '            Dim sSectXMatValues() As String = sSxMValue.Split(","c)
+      '            ' creo parametro
+      '            Dim dH As Double = 0
+      '            Dim dW As Double = 0
+      '            Dim dL As Double = 0
+      '            Dim nQty As Integer = 0
+      '            Dim nActive As Integer = 1
+      '            StringToLen(sSectXMatValues(0), dH)
+      '            StringToLen(sParamValues(1), dW)
+      '            StringToLen(sParamValues(2), dL)
+      '            If sParamValues.Count >= 4 Then Integer.TryParse(sParamValues(3), nQty)
+      '            If sParamValues.Count >= 5 Then Integer.TryParse(sParamValues(4), nActive)
+      '            Return New SParam(New SectionXMaterial(dW, dH, dL, sSectXMatValues(1)), dW, dL, nQty, nActive > 0)
+      '         End If
+      '      End If
+      '   End If
+      'End If
 
    End Function