From 2bbd4070199acf9665dd58faa95de39d14a98cad Mon Sep 17 00:00:00 2001 From: Emmanuele Sassi Date: Tue, 19 Jul 2022 16:42:10 +0200 Subject: [PATCH] - Correzione in assenza di macchine --- EgtBEAMWALL.ViewerOptimizer/ProjManager/ProjManagerVM.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/EgtBEAMWALL.ViewerOptimizer/ProjManager/ProjManagerVM.vb b/EgtBEAMWALL.ViewerOptimizer/ProjManager/ProjManagerVM.vb index e45cd8a6..c734231b 100644 --- a/EgtBEAMWALL.ViewerOptimizer/ProjManager/ProjManagerVM.vb +++ b/EgtBEAMWALL.ViewerOptimizer/ProjManager/ProjManagerVM.vb @@ -643,7 +643,7 @@ Public Class ProjManagerVM Dim Machine As Machine = Nothing Dim nType As BWType = BWType.NULL Dim ProjectTypeWndVM As New ProjectTypeWndVM() - If ProjectTypeWndVM.MachineList.Count = 1 And DirectCast(ProjectTypeWndVM.SelMachine, MyMachine).nType <> MachineType.BOTH Then + If ProjectTypeWndVM.MachineList.Count = 1 AndAlso DirectCast(ProjectTypeWndVM.SelMachine, MyMachine).nType <> MachineType.BOTH Then Machine = ProjectTypeWndVM.SelMachine nType = DirectCast(Machine, MyMachine).nType Else