diff --git a/AssemblyManager/AssemblyManagerVM.vb b/AssemblyManager/AssemblyManagerVM.vb
index 65e676f..28ef9e2 100644
--- a/AssemblyManager/AssemblyManagerVM.vb
+++ b/AssemblyManager/AssemblyManagerVM.vb
@@ -215,13 +215,13 @@ Public Class AssemblyManagerVM
       Local_SelAssembly.SetDispositionItem(OptionModule.m_Disposition)
 
       ' riaggiorno la lista dei bevel con quello che è stato settato nel Confi.ini
-      If OptionModule.m_Disposition.Name.Contains("BU") Then
+      If OptionModule.m_sDisposition.Contains("BU") Then
          Part.m_DispositionList(0).IsActive = Visibility.Visible
          OptionModule.m_bBevelUp = Visibility.Visible
          Part.m_DispositionList(1).IsActive = Visibility.Collapsed
          Part.m_DispositionList(2).IsActive = Visibility.Collapsed
          OptionModule.m_bBevelDown = Visibility.Collapsed
-      ElseIf OptionModule.m_Disposition.Name.Contains("BD") Then
+      ElseIf OptionModule.m_sDisposition.Contains("BD") Then
          Part.m_DispositionList(0).IsActive = Visibility.Collapsed
          OptionModule.m_bBevelUp = Visibility.Collapsed
          Part.m_DispositionList(1).IsActive = Visibility.Visible
@@ -333,13 +333,13 @@ Public Class AssemblyManagerVM
       ref_Part.SetDispositionItem(OptionModule.m_Disposition)
 
       ' riaggiorno la lista dei bevel con quello che è stato settato nel Confi.ini
-      If OptionModule.m_Disposition.Name.Contains("BU") Then
+      If OptionModule.m_sDisposition.Contains("BU") Then
          Part.m_DispositionList(0).IsActive = Visibility.Visible
          OptionModule.m_bBevelUp = Visibility.Visible
          Part.m_DispositionList(1).IsActive = Visibility.Collapsed
          Part.m_DispositionList(2).IsActive = Visibility.Collapsed
          OptionModule.m_bBevelDown = Visibility.Collapsed
-      ElseIf OptionModule.m_Disposition.Name.Contains("BD") Then
+      ElseIf OptionModule.m_sDisposition.Contains("BD") Then
          Part.m_DispositionList(0).IsActive = Visibility.Collapsed
          OptionModule.m_bBevelUp = Visibility.Collapsed
          Part.m_DispositionList(1).IsActive = Visibility.Visible
diff --git a/DoorParameters/Part.vb b/DoorParameters/Part.vb
index 55fcf9e..c887695 100644
--- a/DoorParameters/Part.vb
+++ b/DoorParameters/Part.vb
@@ -1463,13 +1463,13 @@ Public Class Part
    Public Function GetSecure(Index As Integer) As Integer
       Dim sSecure As String = SearchKeyValue(FileContent(Index), K_SECURE)
       ' riaggiorno la lista dei bevel con quello che è stato settato nel Confi.ini
-      If OptionModule.m_Disposition.Name.Contains("BU") Then
+      If OptionModule.m_sDisposition.Contains("BU") Then
          Part.m_DispositionList(0).IsActive = Visibility.Visible
          OptionModule.m_bBevelUp = Visibility.Visible
          Part.m_DispositionList(1).IsActive = Visibility.Collapsed
          Part.m_DispositionList(2).IsActive = Visibility.Collapsed
          OptionModule.m_bBevelDown = Visibility.Collapsed
-      ElseIf OptionModule.m_Disposition.Name.Contains("BD") Then
+      ElseIf OptionModule.m_sDisposition.Contains("BD") Then
          Part.m_DispositionList(0).IsActive = Visibility.Collapsed
          OptionModule.m_bBevelUp = Visibility.Collapsed
          Part.m_DispositionList(1).IsActive = Visibility.Visible
diff --git a/OptionsWindow/OptionModule.vb b/OptionsWindow/OptionModule.vb
index ff6d6ba..0672ed7 100644
--- a/OptionsWindow/OptionModule.vb
+++ b/OptionsWindow/OptionModule.vb
@@ -60,6 +60,7 @@ Friend Module OptionModule
    Friend m_ConfigurationSoftware As ConfigType
 
    Friend m_Disposition As New EdgeType("", Visibility.Visible)
+   Friend m_sDisposition As String
 
    Friend m_ThicknessJamb As String
    Friend m_WidthJamb As String
@@ -199,7 +200,10 @@ Friend Module OptionModule
       'disposizione in macchina delle porte
       Dim Disp As String = String.Empty
       GetMainPrivateProfileString(S_GENERAL, "Disposition", "0", Disp)
+      ' questa variabile sarà chiamata in tutto il programma per avere una lettura globale del bevel dela porta
       m_Disposition.Name = Disp
+      ' questa variabile deve essere usata solo in locale per settare la visibilità della optionpage dei bevel
+      m_sDisposition = Disp
       ' se esizte una selezione allora non mostrare a video
       If Not IsNothing(m_Disposition) And m_Disposition.Name.Contains("BU") Then
          m_bBevelUp = Visibility.Visible
@@ -453,9 +457,9 @@ Friend Module OptionModule
 
    Public Function DispositionBoolean() As Boolean
       ' per rendere selezionabile la disposizione dalla pagina delle opzioni
-      If IsNothing(m_Disposition) Then
+      If IsNothing(m_sDisposition) Then
          Return True
-      ElseIf m_Disposition.Name <> "BU" And m_Disposition.Name <> "BD" Then
+      ElseIf m_sDisposition <> "BU" And m_sDisposition <> "BD" Then
          Return True
       Else
          Return False
diff --git a/OptionsWindow/OptionsViewModel.vb b/OptionsWindow/OptionsViewModel.vb
index 7f1ea17..76c6e05 100644
--- a/OptionsWindow/OptionsViewModel.vb
+++ b/OptionsWindow/OptionsViewModel.vb
@@ -1117,6 +1117,7 @@ Public Class OptionsVM
       Part.m_DispositionList.Add(New EdgeType("BU", OptionModule.m_bBevelUp))
       Part.m_DispositionList.Add(New EdgeType("BD", OptionModule.m_bBevelDown))
       Part.m_DispositionList.Add(New EdgeType("BySwing", Visibility.Visible))
+      ' assegno il valore della disposizione 
       If IsNothing(OptionModule.m_Disposition) Then
          OptionModule.m_Disposition = Part.m_DispositionList(2)
       ElseIf OptionModule.m_Disposition.Name <> "BU" AndAlso OptionModule.m_Disposition.Name <> "BD" Then