EgtDOORCreator 2.1b1:

-> correzione funzionamento TextBobOnOff e ComboBoxOnOff,
-> gestione errori in fase di apertura assemblato,
-> nuovi controlli sul tipo di ddf (assemblato/porta singola) in lettura.

ProjectManager/ProjectManagerVM.vb

@@ -72,6 +72,7 @@ Public Class ProjectManagerVM
    Private m_cmdDuplica As ICommand
    Private m_cmdHardware As ICommand
    Private m_cmdRefreshDir As ICommand
+   Private m_cmdCreateAssembly As ICommand
 
 #Region "ToolTip"
 
@@ -170,6 +171,14 @@ Public Class ProjectManagerVM
          Return EgtMsg(50413)
       End Get
    End Property
+
+   Public ReadOnly Property CreateAssemblyToolTip As String
+      Get
+         ' Create Assembly
+         Return EgtMsg(50420)
+      End Get
+   End Property
+
 #End Region ' ToolTip
 
 #End Region    ' Fields & Properties
@@ -1117,6 +1126,45 @@ Public Class ProjectManagerVM
 
 #End Region ' PrintCommand
 
+#Region "CreateAssemblyCommand"
+
+   Private m_VisibilityCreateAssembly As Visibility = Visibility.Collapsed
+   Public ReadOnly Property VisibilityCreateAssembly As Visibility
+      Get
+         If OptionModule.m_ConfigurationSoftware = ConfigType.Door Then Return Visibility.Collapsed
+         If Map.refMainWindowVM.SelectedPage = MainWindowVM.ListPageEnum.nDDFPage AndAlso
+               Not IsNothing(Map.refAssemblyManagerVM) AndAlso
+               Not IsNothing(Map.refAssemblyManagerVM.CurrProject) AndAlso
+               Not IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName) AndAlso
+               Not IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly) AndAlso
+               Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.JambExists AndAlso
+               Not IsNothing(Map.refPartPageVM) AndAlso Not IsNothing(Map.refPartPageVM.CurrPart) AndAlso
+               Not IsNothing(Map.refPartPageVM.CurrPart.refPartDoor) AndAlso
+               Not IsNothing(Map.refPartPageVM.CurrPart.refPartDoor.Door) AndAlso
+               Map.refPartPageVM.CurrPart.refPartDoor.Door.TypePart.Contains("DO_") Then
+            m_VisibilityCreateAssembly = Visibility.Visible
+         Else
+            m_VisibilityCreateAssembly = Visibility.Collapsed
+         End If
+         Return m_VisibilityCreateAssembly
+      End Get
+   End Property
+
+   Public ReadOnly Property CreateAssemblyCommand As ICommand
+      Get
+         If m_cmdCreateAssembly Is Nothing Then
+            m_cmdCreateAssembly = New Command(AddressOf CreateAssembly)
+         End If
+         Return m_cmdCreateAssembly
+      End Get
+   End Property
+
+   Public Sub CreateAssembly()
+      Map.refAssemblyPageVM.CurrAssembly.CreateAssembly()
+   End Sub
+
+#End Region    ' CreateAssemblyCommand
+
 #End Region    ' Commands
 
    Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged