- eliminata infoWarehouseMaterial

EgtBEAMWALL.Core/Constants/ConstBeam.vb

@@ -143,7 +143,6 @@
    Public Const BTL_PRT_ROTATED As String = "ROTATED"
    Public Const BTL_PRT_INVERTED As String = "INVERTED"
    Public Const BTL_PRT_MATERIAL As String = "MATERIAL"
-   Public Const BTL_PRT_WAREHOUSEMATERIAL As String = "WAREHOUSEMATERIAL"
    Public Const BTL_PRT_VOLUME As String = "VOLUME"
    ' parametri pezzo
    Public Const BTL_PRT_SINGLEMEMBERNUM = "SINGLEMEMBERNUMBER"
@@ -225,7 +224,6 @@
    Public Const MGR_RPT_USAGE As String = "USAGE"
    Public Const MGR_RPT_STARTCUT As String = "STARTCUT"
    Public Const MGR_RPT_MATERIAL As String = "MATERIAL"
-   Public Const MGR_RPT_WAREHOUSEMATERIAL As String = "WAREHOUSEMATERIAL"
 
    Public Const MGR_PRT_PDN As String = "PDN"
    Public Const MGR_PRT_L As String = "L"

EgtBEAMWALL.Core/Utility/Material.vb

@@ -87,6 +87,7 @@ Public Class MaterialM
       m_sWarehouseMaterial = sWarehouseMaterial
    End Sub
 
+   ' costruttore per DataLayer
    Sub New(nId As Integer, dW As Double, dH As Double, dL As Double, sMaterial As String, sWarehouseMaterial As String)
       m_nId = nId
       m_dW = dW

EgtBEAMWALL.ViewerOptimizer/BTLViewModel/BTLPartVM.vb

@@ -455,7 +455,6 @@ Public Class BTLPartVM
             End If
 
             If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_MATERIAL, value) Then
-               EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_WAREHOUSEMATERIAL, value)
                ' verifico se ci sono altri pezzi con la sezione vecchia
                Dim bOtherSection As Boolean = Map.refProjectVM.BTLStructureVM.BTLPartVMList.Any(Function(x) x IsNot Me AndAlso x.Section = Section)
                Dim OldSection As SectionXMaterial = Nothing

EgtBEAMWALL.ViewerOptimizer/LeftPanel/LeftPanelVM.vb

@@ -441,7 +441,6 @@ Public Class LeftPanelVM
          ' scrivo dati costruzione grezzo in gruppo di lavorazione
          EgtSetInfo(nCurrMachGroup, MGR_RPT_BARLEN, dRawL)
          EgtSetInfo(nCurrMachGroup, MGR_RPT_MATERIAL, SelParts(0).MaterialM.sMaterial)
-         EgtSetInfo(nCurrMachGroup, MGR_RPT_WAREHOUSEMATERIAL, SelParts(0).MaterialM.sWarehouseMaterial)
          ' scrivo dati di tutti i pezzi
          Dim dPosX As Double = WarehouseHelper.GetStartOffset()
          ' ciclo sui pezzi
@@ -508,7 +507,6 @@ Public Class LeftPanelVM
          EgtSetInfo(nCurrMachGroup, MGR_RPT_PANELLEN, dRawL)
          EgtSetInfo(nCurrMachGroup, MGR_RPT_PANELWIDTH, dRawW)
          EgtSetInfo(nCurrMachGroup, MGR_RPT_MATERIAL, SelParts(0).MaterialM.sMaterial)
-         EgtSetInfo(nCurrMachGroup, MGR_RPT_WAREHOUSEMATERIAL, SelParts(0).MaterialM.sWarehouseMaterial)
          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)

EgtBEAMWALL.ViewerOptimizer/MachGroupPanel/MyMachGroupVM.vb

@@ -377,7 +377,6 @@ Public Class MyMachGroupVM
             ' 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_MATERIAL, sMATERIAL)
-            EgtSetInfo(nCurrMachGroup, MGR_RPT_WAREHOUSEMATERIAL, sWAREHOUSEMATERIAL)
             EgtSetInfo(nCurrMachGroup, MGR_RPT_PATTID, nCurrMachGroup)
             ' scrivo dati costruzione grezzo in gruppo di lavorazione
             EgtSetInfo(nCurrMachGroup, MGR_RPT_BARLEN, dL)
@@ -448,7 +447,6 @@ Public Class MyMachGroupVM
             ' 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_MATERIAL, sMATERIAL)
-            EgtSetInfo(nCurrMachGroup, MGR_RPT_WAREHOUSEMATERIAL, sWAREHOUSEMATERIAL)
             EgtSetInfo(nCurrMachGroup, MGR_RPT_PATTID, nCurrMachGroup)
             ' scrivo dati costruzione grezzo in gruppo di lavorazione
             EgtSetInfo(nCurrMachGroup, MGR_RPT_PANELLEN, dL)

EgtBEAMWALL.ViewerOptimizer/MaterialNameManager/MaterialNameManagerVM.vb

@@ -104,7 +104,6 @@ Public Class MaterialNameManagerVM
             ' aggiorno tutti i pezzi del progetto
             For Each Part In EmptyMatPartList
                EgtSetInfo(Part.BTLPartM.nPartId, BTL_PRT_MATERIAL, sMaterialName)
-               EgtSetInfo(Part.BTLPartM.nPartId, BTL_PRT_WAREHOUSEMATERIAL, sMaterialName)
                Part.BTLPartM.sMATERIAL = sMaterialName
                Part.NotifyPropertyChanged(NameOf(Part.sMATERIAL))
             Next

EgtBEAMWALL.ViewerOptimizer/NestingRunningWnd/NestingRunningWndVM.vb

@@ -461,7 +461,6 @@ Public Class NestingRunningWndVM
             Dim FirstPart = CALCPanelVM.GetBTLPartVMFromPartId(PartList(0).nSourcePartId)
             If Not IsNothing(FirstPart) Then
                EgtSetInfo(nCurrMachGroup, MGR_RPT_MATERIAL, FirstPart.MaterialM.sMaterial)
-               EgtSetInfo(nCurrMachGroup, MGR_RPT_WAREHOUSEMATERIAL, FirstPart.MaterialM.sWarehouseMaterial)
             End If
          End If
          Dim nPartIndex = 0