diff --git a/CurrMachWindow/CurrMachWindowVM.vb b/CurrMachWindow/CurrMachWindowVM.vb index a0084ef..66a8849 100644 --- a/CurrMachWindow/CurrMachWindowVM.vb +++ b/CurrMachWindow/CurrMachWindowVM.vb @@ -456,28 +456,28 @@ Public Class CurrMachWindowVM ' --- DRILL --- CreateMachiningList(MCH_MY.DRILLING, m_AvailableDrillList, m_CurrDrillingList) ' Se la lista è vuota cancello la lavorazione corrente di questo tipo - If m_CurrDrillingList.Count = 0 Then + If m_CurrDrillingList.Count <= 1 Then CurrentMachine.sCurrDrilling = String.Empty End If ' --- MILL --- CreateMachiningList(MCH_MY.MILLING, m_AvailableMillList, m_CurrMillingList) ' Se la lista è vuota cancello la lavorazione corrente di questo tipo - If m_CurrMillingList.Count = 0 Then + If m_CurrMillingList.Count <= 1 Then CurrentMachine.sCurrMilling = String.Empty End If ' --- SCASSO --- CreateMachiningList(MCH_MY.POCKETING, m_AvailableMillList, m_CurrPocketingList) ' Se la lista è vuota cancello la lavorazione corrente di questo tipo - If m_CurrPocketingList.Count = 0 Then + If m_CurrPocketingList.Count <= 1 Then CurrentMachine.sCurrPocketing = String.Empty End If ' --- WATERJET --- CreateMachiningList(MCH_MY.WATERJETTING, m_AvailableWaterjetList, m_CurrWaterjettingList) ' Se la lista è vuota cancello la lavorazione corrente di questo tipo - If m_CurrWaterjettingList.Count = 0 Then + If m_CurrWaterjettingList.Count <= 1 Then CurrentMachine.sCurrWaterJetting = String.Empty End If m_CurrWaterjettingQualityList = New List(Of String)(CurrentMachine.Qualities) @@ -487,28 +487,28 @@ Public Class CurrMachWindowVM ' --- DRILL --- CreateMachiningList(MCH_MY.DRILLING, m_AvailableDrillList, m_CurrDrillingList) ' Se la lista è vuota cancello la lavorazione corrente di questo tipo - If m_CurrDrillingList.Count = 0 Then + If m_CurrDrillingList.Count <= 1 Then CurrentMachine.sCurrDrilling = String.Empty End If ' --- MILL --- CreateMachiningList(MCH_MY.MILLING, m_AvailableMillList, m_CurrMillingList) ' Se la lista è vuota cancello la lavorazione corrente di questo tipo - If m_CurrMillingList.Count = 0 Then + If m_CurrMillingList.Count <= 1 Then CurrentMachine.sCurrMilling = String.Empty End If ' --- SCASSO --- CreateMachiningList(MCH_MY.POCKETING, m_AvailableMillList, m_CurrPocketingList) ' Se la lista è vuota cancello la lavorazione corrente di questo tipo - If m_CurrPocketingList.Count = 0 Then + If m_CurrPocketingList.Count <= 1 Then CurrentMachine.sCurrPocketing = String.Empty End If ' --- WATERJET --- CreateMachiningList(MCH_MY.WATERJETTING, m_AvailableWaterjetList, m_CurrWaterjettingList) ' Se la lista è vuota cancello la lavorazione corrente di questo tipo - If m_CurrWaterjettingList.Count = 0 Then + If m_CurrWaterjettingList.Count <= 1 Then CurrentMachine.sCurrWaterJetting = String.Empty End If m_CurrWaterjettingQualityList = New List(Of String)(CurrentMachine.Qualities) diff --git a/OmagOFFICE.vbproj b/OmagOFFICE.vbproj index 37c0c2c..84e832e 100644 --- a/OmagOFFICE.vbproj +++ b/OmagOFFICE.vbproj @@ -128,8 +128,8 @@ My Project\app.manifest - - packages\DotNetZip.1.16.0\lib\net40\DotNetZip.dll + + ..\..\EgtProg\OmagOFFICE\DotNetZip.dll False