DOORCreator 2.1k2 :

-> correzione apertura dello stesso file in modalità porta singola.

DoorParameters/Compo.vb

@@ -2150,7 +2150,8 @@ Public Class TextBoxParam
          ErrorInReading = False
          MissingParameterInReading = False
          m_Value = sValue
-         If String.IsNullOrEmpty( sValue) then
+         If sValue.Contains("$") then
+            m_Value = ""
             EnableCopy = False
          End If
       End If     

DoorParameters/Part.vb

@@ -2704,14 +2704,16 @@ Public Class Part
                   If String.Equals(Trim(CompoTemplateItem.CompoParamList(IndexParam).DDFName), GetKey(sLine)) Then
                      ' se la  stringa c'è nel DDF vuol dire che è stata selezionata
                      Dim sVal As String = GetValueWithKey(sLine, Trim(CurrCompoParam.DDFName))
-                     ' DirectCast(CurrCompoParam, TextBoxOnOffParam).m_Value = sVal
-                     DirectCast(CurrCompoParam, TextBoxOnOffParam).Value = sVal
+                     DirectCast(CurrCompoParam, TextBoxOnOffParam).m_Value = sVal
+                     'DirectCast(CurrCompoParam, TextBoxOnOffParam).Value = sVal
                      Dim dVal As Double
                      If String.IsNullOrEmpty(sVal) OrElse Not StringToDouble(sVal, dVal) Then
-                        CompoTemplateItem.ErrorValue = True
-                        CurrCompoParam.ErrorInReading = True
-                     End If
-                     DirectCast(CurrCompoParam, TextBoxOnOffParam).SetIsActive(True)
+                        CompoTemplateItem.ErrorValue = False
+                        CurrCompoParam.ErrorInReading = False
+                        DirectCast(CurrCompoParam, TextBoxOnOffParam).SetIsActive(False)
+                     Else
+                        DirectCast(CurrCompoParam, TextBoxOnOffParam).SetIsActive(True)
+                     End If                 
                      ' se il nome esiste ma è sbagliato
                   ElseIf Not String.IsNullOrWhiteSpace(GetKey(sLine)) Then
                      ' significa che la TextBoxOnOff è stata disattivata

ProjectManager/ProjectManagerVM.vb

@@ -615,6 +615,7 @@ Public Class ProjectManagerVM
                End If
                Return
             End If
+            Utility.UnLockDir()
             ' salvo il nome del direttorio
             sFilePath = Path.GetDirectoryName(fd.FileName)
             ' salvo il nome completo del file
@@ -777,6 +778,7 @@ Public Class ProjectManagerVM
 
    Public Sub OpenMruFile(ByVal param As Object)
       Dim sLastProject As String = DirectCast(param, String).Replace("__", "_")
+      Utility.UnLockDir()
       OpenProject(sLastProject)
    End Sub