diff --git a/AssemblyManager/AssemblyManagerVM.vb b/AssemblyManager/AssemblyManagerVM.vb
index 79c00f5..9b77d31 100644
--- a/AssemblyManager/AssemblyManagerVM.vb
+++ b/AssemblyManager/AssemblyManagerVM.vb
@@ -57,6 +57,8 @@ Public Class AssemblyManagerVM
       ' creo nuovo assemblato
       m_CurrProject.SelAssemblyName.SelAssembly = CreateNewAssembly(CurrProject.SelAssemblyName.Name)
       If OptionModule.m_ConfigurationSoftware = ConfigType.Door Then
+         ' ricarico la lista completa degli swing 
+         NewAssName.SelAssembly.GetArrayPartDoor(0).Door.SwingTypeList = OptionModule.m_SwingTypeList
          DdfFile.WriteDDFPart(NewAssName.SelAssembly.GetArrayPartDoor(0).Door, sTempFile, False, False)
          ExecDoors(Map.refSceneManagerVM.ProjectScene, sTempFile)
          Map.refMainWindowVM.SelectedPage = MainWindowVM.ListPageEnum.nDDFPage
@@ -215,7 +217,7 @@ Public Class AssemblyManagerVM
       ' carico l'assemblato che sto creando in locale (così da poter gestire i Jamb)
       m_CurrProject.SelAssemblyName.SelAssembly = Local_SelAssembly
       CreateDoor(Local_SelAssembly)
-      ' calcolo la dimensione dei Jambs in funzione del numero di porte visibili
+      ' calcolo la dimensione dei Jambs in funzione del numero di porte visibili ed assegno gli swing
       Local_SelAssembly.DoorVisibilityNew()
       Local_SelAssembly.TopRabbetJamb()
       'Local_SelAssembly.HingeRabbetJamb()
diff --git a/CompoMatch.vb b/CompoMatch.vb
index 05986d1..c56dd04 100644
--- a/CompoMatch.vb
+++ b/CompoMatch.vb
@@ -17,11 +17,13 @@ Module CompoMatch
       EgtLuaSetGlobIntVar("STU.DoorNumber", DoorNumber)
       EgtLuaSetGlobStringVar("STU.CompoPath", sCompoDir)
       EgtLuaSetGlobStringVar("STU.Template", sTemplate)
+
       ' Chiamo funzione di Matching tra componente di anta e componente di telaio
       If Not EgtLuaCallFunction("STU.Matching") Then
          EgtOutLog("Matching error: STU.Matching")
          Return False
       End If
+
       ' Recupero il componente di telaio
       EgtLuaGetGlobStringVar("STU.OutTemplate", sFrameTemplate)
       EgtLuaResetGlobVar("STU")
diff --git a/Constants/ConstIni.vb b/Constants/ConstIni.vb
index 13f6cb0..9dd1848 100644
--- a/Constants/ConstIni.vb
+++ b/Constants/ConstIni.vb
@@ -146,5 +146,6 @@ Module ConstIni
    Public Const K_DDFFUNCTION As String = "DdfFun"
    Public Const K_MYPROJECTDIR As String = "ProjectDirectory"
    Public Const K_TEMPLATEDIR As String = "TemplateDirectory"
+   Public Const K_MACHINDIR As String = "MachinDirectory"
 
 End Module
diff --git a/DoorParameters/Compo.vb b/DoorParameters/Compo.vb
index 9b2ee4a..02663cd 100644
--- a/DoorParameters/Compo.vb
+++ b/DoorParameters/Compo.vb
@@ -783,8 +783,6 @@ End Class
 Public Class CompoParam
    Friend Shared m_rfSetTitle As Action
 
-   Friend m_IsModifyCompoParam As Boolean = False
-
    Private m_Name As String
    Public Property Name As String
       Get
@@ -845,14 +843,14 @@ Public Class TextBoxParam
       Set(value As String)
          m_Value = value
          NotifyPropertyChanged("ToolTipValue")
-         m_IsModifyCompoParam = True
+         Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = True
          ' se la componente non ha un riferimento esce
          If IsNothing(CurrCompo.refJambCompo) Then Return
          ' se fallisce il caricamento dei parametri esce
          If Not LoadCompoParam(CurrCompo) Then Return
          If Not UpdateParam() Then MessageBox.Show("No matching param ", EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
          ResetCompoParam()
-         Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = True
+
       End Set
    End Property
    Public Sub SetValue(sValue As String)
@@ -970,7 +968,6 @@ Public Class ComboBoxParam
       End Get
       Set(value As String)
          m_SelItem = value
-         m_IsModifyCompoParam = True
          Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = True
       End Set
    End Property
diff --git a/DoorParameters/Part.vb b/DoorParameters/Part.vb
index 1ce84f0..19c8fa1 100644
--- a/DoorParameters/Part.vb
+++ b/DoorParameters/Part.vb
@@ -60,6 +60,7 @@ Public Class Part
       End Get
       Set(value As List(Of String))
          m_SwingTypeList = value
+         NotifyPropertyChanged("SwingTypeList")
       End Set
    End Property
 
@@ -569,10 +570,7 @@ Public Class Part
          '-----------------------------------------------------------------------------------------------------------------------------------------------
          ' questa parte qui viene ignorata se l'oggetto chiamente è un Frame o una Porta Inattiva
          If Not IsNothing(Me.m_TypePart) AndAlso Not Me.m_TypePart.Contains("F") Then
-
             If Not IsNothing(Map.refAssemblyPageVM.CurrAssembly.LeftJamb) Then
-               '' definisco un riferimento ad una variabile che sarà usata nel jamb
-               'Dim CompoTypeJamb As CompoType
                ' costruisco un riferimnto in locale dell'assemblato
                Dim CurrAssembly As Assembly = Map.refAssemblyPageVM.CurrAssembly
                ' il nome del file associato alla componente
@@ -589,7 +587,6 @@ Public Class Part
                   Else
                      CreateRefCompo(CurrCompoType, NewCompo, CurrAssembly, FrameCompoFileConfig, FrameCompoFile, Me)
                   End If
-
                End If
             End If
          End If
@@ -691,20 +688,20 @@ Public Class Part
                   ' significa che le componenrti stanno solo sulle porte
                   If CurrDoor.TypePart = "DO_1" And Not CurrDoor.Swing.Contains("I") Then
                      NewCompo.refJambCompo = CurrAssembly.GetArrayPartDoor(1).Door.AddRefCompo(CurrCompoType)
-                     NewCompo.refJambCompo.SetTemplateSelItemRefCompo(FrameCompoFile, NewCompo.refJambCompo)
+                     NewCompo.refJambCompo.SetTemplateSelItem(FrameCompoFile)
                      NewCompo.refJambCompo.IsReadOnly = True
                   ElseIf CurrDoor.TypePart = "DO_2" And Not CurrDoor.Swing.Contains("I") Then
                      NewCompo.refJambCompo = CurrAssembly.GetArrayPartDoor(0).Door.AddRefCompo(CurrCompoType)
-                     NewCompo.refJambCompo.SetTemplateSelItemRefCompo(FrameCompoFile, NewCompo.refJambCompo)
+                     NewCompo.refJambCompo.SetTemplateSelItem(FrameCompoFile)
                      NewCompo.refJambCompo.IsReadOnly = True
                   End If
                Case "Top"
                   NewCompo.refJambCompo = CurrAssembly.TopJamb.AddRefCompo(CompoTypeJamb)
-                  NewCompo.refJambCompo.SetTemplateSelItemRefCompo(FrameCompoFile, NewCompo.refJambCompo)
+                  NewCompo.refJambCompo.SetTemplateSelItem(FrameCompoFile)
                   NewCompo.refJambCompo.IsReadOnly = True
                Case "Bottom"
                   NewCompo.refJambCompo = CurrAssembly.BottomJamb.AddRefCompo(CompoTypeJamb)
-                  NewCompo.refJambCompo.SetTemplateSelItemRefCompo(FrameCompoFile, NewCompo.refJambCompo)
+                  NewCompo.refJambCompo.SetTemplateSelItem(FrameCompoFile)
                   NewCompo.refJambCompo.IsReadOnly = True
             End Select
       End Select
diff --git a/DoorParameters/PartPageV.xaml b/DoorParameters/PartPageV.xaml
index cc90dc4..47a9d49 100644
--- a/DoorParameters/PartPageV.xaml
+++ b/DoorParameters/PartPageV.xaml
@@ -113,16 +113,13 @@
                        Style="{StaticResource DoorParamsTxBl}"
                        Margin="2,0,0,2" Visibility="{Binding CurrPart.VisibilityWeight}"/>
 
-            <TextBox  Grid.Row="4" Grid.Column="1"
+               <TextBox  Grid.Row="4" Grid.Column="1"
                       Style="{StaticResource DoorParamsTxBx}"
                       Text="{Binding CurrPart.Weight, UpdateSourceTrigger=PropertyChanged}"
                       Margin="0.4,2,39.6,3.2" VerticalAlignment="Stretch" Height="Auto"
-                      Visibility="{Binding CurrPart.VisibilityWeight}"
-                      IsReadOnly="{Binding IsRaedOnly}"/>
+                      Visibility="{Binding CurrPart.VisibilityWeight}"/>
 
-            
-            
-            <!--Seconda colonna -->
+               <!--Seconda colonna -->
             <!-- Profiles-->
             <TextBlock Grid.Column="2" Grid.Row="1" Text="{Binding LockedgeMsg}"
                        Style="{StaticResource DoorParamsTxBl}"
@@ -212,11 +209,7 @@
                 Text="{Binding CurrPart.BottomOverMaterial, UpdateSourceTrigger=PropertyChanged}"
                      IsEnabled="{Binding IsChecked, ElementName=Bottom}"
                      Margin="10,2,40,4" IsReadOnly="{Binding IsRaedOnly}"/>
-               <!--<Button Grid.Column="4" Grid.ColumnSpan="2" Grid.Row="5"
-                      Padding="3"
-                      Margin="12,4,6,1" VerticalAlignment="Stretch"
-                      Visibility="{Binding OrderButtonVisibility}"
-                      Content="Order" Command="{Binding OrderCmd}"/>-->
+ 
             </Grid>
 
       </GroupBox>
diff --git a/IniFile.vb b/IniFile.vb
index 3253e2b..37c136c 100644
--- a/IniFile.vb
+++ b/IniFile.vb
@@ -36,6 +36,8 @@ Friend Module IniFile
    Friend m_DefaultIniFile As String = String.Empty
    ' Path MyProject directory
    Friend m_MyProjectDir As String = String.Empty
+   ' direttorio dei file della macchina
+   Friend m_MachinProject As String = String.Empty
    ' Path Template directory
    Friend m_TemplateDir As String = String.Empty
    ' Path Compo directory
diff --git a/MainWindow/MainWindowVM.vb b/MainWindow/MainWindowVM.vb
index 1e57376..7f00893 100644
--- a/MainWindow/MainWindowVM.vb
+++ b/MainWindow/MainWindowVM.vb
@@ -15,7 +15,9 @@ Public Class MainWindowVM
          Return m_ProjectNameMsg
       End Get
       Set(value As String)
-         m_ProjectNameMsg = "EgtDOORCreator - " & SetTitle(value)
+         ' sostituisco il nome del direttorio con il path completo
+         'm_ProjectNameMsg = "EgtDOORCreator - " & SetTitle(value)
+         m_ProjectNameMsg = "EgtDOORCreator - " & value
          NotifyPropertyChanged("ProjectNameMsg")
       End Set
    End Property
diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb
index 1133079..3638bd2 100644
--- a/My Project/AssemblyInfo.vb	
+++ b/My Project/AssemblyInfo.vb	
@@ -72,5 +72,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.8.12.2")> 
-<Assembly: AssemblyFileVersion("1.8.12.2")> 
+<Assembly: AssemblyVersion("1.8.12.3")> 
+<Assembly: AssemblyFileVersion("1.8.12.3")> 
diff --git a/OptionsWindow/OptionModule.vb b/OptionsWindow/OptionModule.vb
index 1430347..e7617c1 100644
--- a/OptionsWindow/OptionModule.vb
+++ b/OptionsWindow/OptionModule.vb
@@ -175,6 +175,17 @@ Friend Module OptionModule
          End If
       End If
 
+      Dim sMachinDir As String = String.Empty
+      If GetMainPrivateProfileString(S_DOORS, K_MACHINDIR, "", sMachinDir) <> 0 Then
+         If Not Directory.Exists(sMachinDir) Then
+            ' manntego l'accesso a quello di default
+            EgtOutLog("Warning : " & sMachinDir & " does not exist")
+            ' controllo che il direttorio che era stato passato di default esista
+         Else
+            IniFile.m_MachinProject = sMachinDir
+         End If
+      End If
+
       ' leggo il tipo di Bevel selezionato
       Dim BevelUp As Visibility
       DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELU_INI, BevelUp)
@@ -207,13 +218,11 @@ Friend Module OptionModule
       Dim WeightVisibility As Visibility = Visibility.Collapsed
       DefaultGetPrivateProfilesVisibility(S_SIZE, K_WEIGHTISCHECKED_INI, WeightVisibility)
       Part.IsCheckedWeight = WeightVisibility
-
       ' carico il valori associati al tipo di spigolo
       Dim EdgeTypeList As New ObservableCollection(Of String)
       DefaultGetPrivateProfileObservableCollection(S_EDGE, K_EDGETYPE_LIST_INI, EdgeTypeList)
       m_StaticEdgeTypeList = EdgeTypeList
       OptionsVM.CreateEdgeTypeList()
-
       ' carico i valori associati agli spigoli
       Dim LockEdgeType As String = String.Empty
       DefaultGetPrivateProfileString(S_EDGE, K_LOCKEDGE, "", LockEdgeType)
diff --git a/OptionsWindow/OptionsV.xaml b/OptionsWindow/OptionsV.xaml
index 6c64867..ce601e0 100644
--- a/OptionsWindow/OptionsV.xaml
+++ b/OptionsWindow/OptionsV.xaml
@@ -12,10 +12,10 @@
    <EgtWPFLib5:EgtCustomWindow.InputBindings>
       <KeyBinding Key="F1" Command="{Binding OptionGuideCmd}"/>
    </EgtWPFLib5:EgtCustomWindow.InputBindings>
-   
-   
+
+
    <Grid Margin="3,3,3,3">
-    
+
 
       <Grid.ColumnDefinitions>
          <ColumnDefinition Width="1*"/>
@@ -27,9 +27,10 @@
          <RowDefinition Height="4*"/>
          <RowDefinition Height="5.5*"/>
          <RowDefinition Height="1.5*"/>
+         <RowDefinition Height="1.5*"/>
          <RowDefinition Height="1*"/>
       </Grid.RowDefinitions>
-      
+
       <!--Seclta della lingua-->
       <GroupBox Header="{Binding CurrentLanguageMsg}">
          <UniformGrid Rows="2">
@@ -102,7 +103,7 @@
                         <ColumnDefinition Width="Auto"/>
                      </Grid.ColumnDefinitions>
                      <Grid.RowDefinitions>
-                        <RowDefinition Height=" 1*"/>
+                        <RowDefinition Height="44"/>
                      </Grid.RowDefinitions>
 
                      <CheckBox Grid.Column="1"
@@ -112,8 +113,8 @@
                          Style="{StaticResource DoorParamsChBx}" />
                      <TextBox  Style="{StaticResource DoorParamsTxBx}"
                      Text="{Binding WeightValue, UpdateSourceTrigger=PropertyChanged}"
-                     Margin="5,0,10,5" 
-                     IsEnabled="{Binding IsChecked, ElementName=Weight}"/>
+                     Margin="5,8,0,14" 
+                     IsEnabled="{Binding IsChecked, ElementName=Weight}" HorizontalAlignment="Left" Width="109"/>
                   </Grid>
 
                   <TextBlock Grid.Column="2" Grid.Row="1" Text="{Binding LockEdgeMsg}" VerticalAlignment="Center"
@@ -183,7 +184,7 @@
                      Margin="5,0,30,5"/>
                </Grid>
             </GroupBox>
-         </TabItem>  
+         </TabItem>
          <TabItem Header="{Binding AssemblyMsg}" IsEnabled="{Binding EnableAssembly}">
             <GroupBox Header="Frame" Margin="2,0,2,0" >
                <Grid Margin="0,0,0,2">
@@ -391,7 +392,7 @@
                      IsEnabled="{Binding IsChecked, ElementName=BottomAssembly}"
                      Padding="1"
                      Margin="5,2.5,10,2.5"/>
-                  
+
                   <GroupBox Grid.Row="5" Grid.ColumnSpan="8" Margin="2,-4,2,-4">
                      <GroupBox.Header>
                         <StackPanel Orientation="Horizontal">
@@ -402,7 +403,7 @@
                            <TextBlock Text="{Binding ExteriorMsg}" Width="Auto"/>
                         </StackPanel>
                      </GroupBox.Header>
-                        
+
                   </GroupBox>
                   <TextBlock Text="{Binding OverlapTopMsg}"
                        Style="{StaticResource DoorParamsTxBl}"
@@ -428,7 +429,7 @@
             </GroupBox>
          </TabItem>
       </TabControl>
-      
+
       <!--Seclta del'unità dei misura-->
       <GroupBox Header="{Binding CurrentUnitMeasure}" Grid.Column="1" Margin="5,0,5,0">
          <UniformGrid Rows="2">
@@ -443,7 +444,7 @@
       <!--Seclta della modalità di avvio del programma-->
       <GroupBox Header="{Binding OptionStart}" Grid.Column="2">
          <UniformGrid Rows="2">
-            
+
             <ComboBox ItemsSource="{Binding OptionLauncher}" SelectedItem="{Binding SelectedOptionLauncher}"
                     VerticalAlignment="Center"
                    Style="{StaticResource DoorParamsCmBx}"
@@ -454,8 +455,8 @@
       </GroupBox>
 
       <!--Scelta posizionamento macchina-->
-      <GroupBox Header="{Binding BevelMsg}" Grid.Column="3" >      
-            <Grid>
+      <GroupBox Header="{Binding BevelMsg}" Grid.Column="3" >
+         <Grid>
             <Grid.ColumnDefinitions>
                <ColumnDefinition Width="1*"/>
                <ColumnDefinition Width="5*"/>
@@ -470,7 +471,7 @@
                       Style="{StaticResource DoorParamsChBx}"
                       IsChecked="{Binding BevelUpIsChecked}"/>
             <TextBlock Text="{Binding BevelUpMsg}" Grid.Column="1"
-                       VerticalAlignment="Center"/>   
+                       VerticalAlignment="Center"/>
             <CheckBox Grid.Row="1" HorizontalAlignment="Center" VerticalAlignment="Center"
                       Name="BevelDown"
                       Style="{StaticResource DoorParamsChBx}"
@@ -498,13 +499,34 @@
             <TextBlock Text="{Binding MyProjectDir}" Grid.Column="1"  Margin="2,5,5,0"
                      Style="{StaticResource DoorParamsTxBl}"/>
             <Button Content="{Binding MsgBrowse}" Grid.Column="2" 
-                    Command="{Binding BrowseCommand}" Margin="5"/>
+                    Command="{Binding BrowseCommand}" Margin="5" 
+                    CommandParameter="MyProject"/>
+         </Grid>
+      </GroupBox>
+      <!--Seclta della cartella in cui salvare i progetti-->
+      <GroupBox Header="{Binding CurrentMachinDirectiry}"  Grid.Row="3" Grid.ColumnSpan="4" Margin="5,0,5,0">
+         <Grid >
+            <Grid.ColumnDefinitions>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="3*"/>
+               <ColumnDefinition Width="1*"/>
+            </Grid.ColumnDefinitions>
+            <Grid.RowDefinitions>
+               <RowDefinition Height="1*"/>
+            </Grid.RowDefinitions>
+            <TextBlock Text="{Binding MachinDirectoryMsg}" Grid.Column="0" Margin="2,5,5,0"
+                    Style="{StaticResource DoorParamsTxBl}"/>
+            <TextBlock Text="{Binding MachinDir}" Grid.Column="1"  Margin="2,5,5,0"
+                     Style="{StaticResource DoorParamsTxBl}"/>
+            <Button Content="{Binding MsgBrowse}" Grid.Column="2" 
+                    Command="{Binding BrowseCommand}" Margin="5"
+                    CommandParameter="MachinDir"/>
          </Grid>
       </GroupBox>
       <!--Bottone di chiusura della pagina-->
-      <Button Content="{Binding MsgClose}" Grid.Row="3" Grid.Column="3" Margin="5"
+      <Button Content="{Binding MsgClose}" Grid.Row="4" Grid.Column="3" Margin="5"
               Command="{Binding CloseOptionsCommand}"/>
-      
+
       <!--<GroupBox Header="{Binding CurrentLanguageMsg}" Margin="0,0,0.4,423.6" Grid.RowSpan="3" >
 
          <UniformGrid Rows="2">
diff --git a/OptionsWindow/OptionsViewModel.vb b/OptionsWindow/OptionsViewModel.vb
index 12bf76b..84b43f6 100644
--- a/OptionsWindow/OptionsViewModel.vb
+++ b/OptionsWindow/OptionsViewModel.vb
@@ -387,13 +387,25 @@ Public Class OptionsVM
       Set(value As String)
          If value IsNot IniFile.m_MyProjectDir Then
             IniFile.m_MyProjectDir = value
-            ' iniziliazzo il valore dell'unità di misura 
             WriteMainPrivateProfileString(S_DOORS, K_MYPROJECTDIR, value)
          End If
          NotifyPropertyChanged("MyProjectDir")
       End Set
    End Property
 
+   Public Property MachinDir As String
+      Get
+         Return IniFile.m_MachinProject
+      End Get
+      Set(value As String)
+         If value IsNot IniFile.m_MachinProject Then
+            IniFile.m_MachinProject = value
+            WriteMainPrivateProfileString(S_DOORS, K_MACHINDIR, value)
+         End If
+         NotifyPropertyChanged("MachinDir")
+      End Set
+   End Property
+
    '----------------------------------------------------------------------------------------------------------------------------------------------------
 
    Public ReadOnly Property EnableAssembly As Boolean
@@ -738,6 +750,12 @@ Public Class OptionsVM
       End Get
    End Property
 
+   Public ReadOnly Property MachinDirectoryMsg As String
+      Get
+         Return "Directory Machine "
+      End Get
+   End Property
+
    Public ReadOnly Property General As String
       Get
          Return EgtMsg(MSG_MAINWINDOW + 201)
@@ -762,6 +780,13 @@ Public Class OptionsVM
       End Get
    End Property
 
+   Public ReadOnly Property CurrentMachinDirectiry As String
+      Get
+         Return "Machine"
+      End Get
+   End Property
+
+
    Public ReadOnly Property DoorMsg As String
       Get
          Return "Door"
@@ -1144,15 +1169,29 @@ Public Class OptionsVM
       End Get
    End Property
 
-   Public Sub Browse()
-      Dim FolderBrowserDialog As New System.Windows.Forms.FolderBrowserDialog
-      FolderBrowserDialog.SelectedPath = IniFile.m_MyProjectDir
-      ' mostriamo la finestra di dialogo aperta fino alla directory MyProjects
-      If FolderBrowserDialog.ShowDialog <> Forms.DialogResult.OK Then
-         ' se la risposta è diversa da OK esce
-         Return
-      End If
-      MyProjectDir = FolderBrowserDialog.SelectedPath
+   Public Sub Browse(param As Object)
+      Dim SelectButton As String = (CStr(param))
+      Select Case SelectButton
+         Case "MyProject"
+            Dim FolderBrowserDialog As New System.Windows.Forms.FolderBrowserDialog
+            FolderBrowserDialog.SelectedPath = IniFile.m_MyProjectDir
+            ' mostriamo la finestra di dialogo aperta fino alla directory MyProjects
+            If FolderBrowserDialog.ShowDialog <> Forms.DialogResult.OK Then
+               ' se la risposta è diversa da OK esce
+               Return
+            End If
+            MyProjectDir = FolderBrowserDialog.SelectedPath
+         Case "MachinDir"
+            Dim FolderBrowserDialog As New System.Windows.Forms.FolderBrowserDialog
+            FolderBrowserDialog.SelectedPath = IniFile.m_MachinProject
+            ' mostriamo la finestra di dialogo aperta fino alla directory MyProjects
+            If FolderBrowserDialog.ShowDialog <> Forms.DialogResult.OK Then
+               ' se la risposta è diversa da OK esce
+               Return
+            End If
+            MachinDir = FolderBrowserDialog.SelectedPath
+      End Select
+ 
    End Sub
 
    Public ReadOnly Property OptionGuideCmd As ICommand
diff --git a/Order/OrderVM.vb b/Order/OrderVM.vb
index 7b44f79..0886ac6 100644
--- a/Order/OrderVM.vb
+++ b/Order/OrderVM.vb
@@ -37,9 +37,15 @@ Public Class OrderVM
       End Get
    End Property
 
-   Public ReadOnly Property ConfigurationPageMsg As String
+   'Public ReadOnly Property ConfigurationPageMsg As String
+   '   Get
+   '      Return "Configuration"
+   '   End Get
+   'End Property
+
+   Public ReadOnly Property WeightMsg As String
       Get
-         Return "Configuration"
+         Return "Weight"
       End Get
    End Property
 
diff --git a/ProjectManager/ProjectManagerV.xaml b/ProjectManager/ProjectManagerV.xaml
index d589c66..058a448 100644
--- a/ProjectManager/ProjectManagerV.xaml
+++ b/ProjectManager/ProjectManagerV.xaml
@@ -38,5 +38,8 @@
    <Button Command="{Binding GuideCommand}" ToolTip="{Binding GuideToolTip}" Focusable="False">
       <TextBlock Text="{Binding GuideToolTip}"></TextBlock>
    </Button>
+   <Button Command="{Binding CopyCommand}" ToolTip="{Binding CopyToolTip}" Focusable="False">
+      <TextBlock Text="{Binding CopyToolTip}"></TextBlock>
+   </Button>
 
 </StackPanel>
diff --git a/ProjectManager/ProjectManagerVM.vb b/ProjectManager/ProjectManagerVM.vb
index 9c9447f..ca0116b 100644
--- a/ProjectManager/ProjectManagerVM.vb
+++ b/ProjectManager/ProjectManagerVM.vb
@@ -25,6 +25,7 @@ Public Class ProjectManagerVM
    Private m_cmdSendFeedback As ICommand
    Private m_CmdCreateTemplate As ICommand
    Private m_cmdGuide As ICommand
+   Private m_cmdCopy As ICommand
 
 #Region "ToolTip"
 
@@ -87,6 +88,19 @@ Public Class ProjectManagerVM
       End Get
    End Property
 
+   Public ReadOnly Property CopyToolTip As String
+      Get
+         Return "Copy"
+      End Get
+   End Property
+
+   Public ReadOnly Property Copy As String
+      Get
+         Return "Copy"
+      End Get
+   End Property
+
+
 #End Region ' ToolTip
 
 #End Region    ' Fields & Properties
@@ -519,6 +533,65 @@ Public Class ProjectManagerVM
 
 #End Region    ' Guide
 
+#Region "Copy"
+
+   Public ReadOnly Property CopyCommand As ICommand
+      Get
+         If m_cmdCopy Is Nothing Then
+            m_cmdCopy = New Command(AddressOf CopyDDF)
+         End If
+         Return m_cmdCopy
+      End Get
+   End Property
+
+   Public Sub CopyDDF()
+      Dim Result = MessageBox.Show("Do yuo want to copy all files? (yes). Do you want to copy the current file? (no)", "?", MessageBoxButton.YesNoCancel, MessageBoxImage.Question)
+      Dim CurrProjetc As String = Map.refAssemblyManagerVM.CurrProject.Name
+      Dim MachinProject As String = IniFile.m_MachinProject
+      Dim CurrFile As String = Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.Name
+      Dim MachinFile As String = String.Empty
+      If String.IsNullOrEmpty(MachinProject) Then
+         MessageBox.Show("Machin Directory not found", EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
+         Return
+      End If
+      Select Case Result
+         Case MessageBoxResult.Yes
+            For IndexFile As Integer = 0 To Map.refAssemblyManagerVM.CurrProject.AssemblyList.Count - 1
+               ' controllo che abbia estenzione ddf
+               If Path.GetExtension(Map.refAssemblyManagerVM.CurrProject.AssemblyList(IndexFile).Name) = ".ddf" Then
+                  If Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.GraphicName.Contains("*") Then
+                     Dim Length As Integer = Map.refAssemblyManagerVM.CurrProject.AssemblyList(IndexFile).GraphicName.Length - 1
+                     Dim FileName As String = Map.refAssemblyManagerVM.CurrProject.AssemblyList(IndexFile).GraphicName.Remove(Length)
+                     MachinFile = MachinProject & "/" & FileName & ".ddf"
+                  Else
+                     MachinFile = MachinProject & "/" & Map.refAssemblyManagerVM.CurrProject.AssemblyList(IndexFile).GraphicName & ".ddf"
+                  End If
+                  Try
+                     File.Copy(CurrFile, MachinFile, True)
+                  Catch ex As System.IO.IOException
+                     MessageBox.Show("Error in copying: " & ex.Message)
+                  End Try
+               End If
+            Next
+         Case MessageBoxResult.No
+            Try
+               If Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.GraphicName.Contains("*") Then
+                  Dim Length As Integer = Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.GraphicName.Length - 1
+                  Dim FileName As String = Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.GraphicName.Remove(Length)
+                  MachinFile = MachinProject & "/" & FileName & ".ddf"
+               Else
+                  MachinFile = MachinProject & "/" & Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.GraphicName & ".ddf"
+               End If
+               File.Copy(CurrFile, MachinFile, True)
+            Catch ex As System.IO.IOException
+               MessageBox.Show("Error in copying: " & ex.Message)
+            End Try
+         Case Else
+      End Select
+   End Sub
+
+#End Region    ' Copy
+
 #End Region    ' Commands
 
    Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged