Correzione comando import in VeinMatch

2021-09-28 16:31:30 +02:00
parent 0edda465f1
commit 27feb8a7cc
1 changed files with 5 additions and 4 deletions
@@ -468,10 +468,11 @@ Friend Module VeinMatching
      ' Salvo il pezzo su file temporaneo
      Dim sTmpDir As String = String.Empty
      If Not EgtGetTempDir(sTmpDir) Then Return False
-      Dim sTmpFile As String = sTmpDir & "\FlatPartVme.Nge"
-      EgtSaveObjToFile(nPartId, sTmpFile, NGE.BIN)
-      ' Carico il file nel VM
-      Dim bOk As Boolean = My.Computer.FileSystem.FileExists(sTmpFile)
+        Dim sTmpFile As String = sTmpDir & "\FlatPartVme.Nge"
+        EgtSetStatus(nPartId, 1)
+        EgtSaveObjToFile(nPartId, sTmpFile, NGE.BIN)
+        ' Carico il file nel VM
+        Dim bOk As Boolean = My.Computer.FileSystem.FileExists(sTmpFile)
      If bOk Then
         bOk = AddPart(sTmpFile, nPartId)
         ' Ne aggiorno la visualizzazione