diff --git a/EgtBEAMWALL.ViewerOptimizer/ProjManager/ProjManagerVM.vb b/EgtBEAMWALL.ViewerOptimizer/ProjManager/ProjManagerVM.vb
index 5b0c1fd9..bdcfc83c 100644
--- a/EgtBEAMWALL.ViewerOptimizer/ProjManager/ProjManagerVM.vb
+++ b/EgtBEAMWALL.ViewerOptimizer/ProjManager/ProjManagerVM.vb
@@ -609,6 +609,10 @@ Public Class ProjManagerVM
          bOk = EgtSaveFile(sProjFileName, NGE.CMPTEXT)
          SectionXMaterial.SetType(nType)
          ManageView.UpdateBWType(nType)
+         ' imposto flag secondo tipo di progetto (travi o pareti)
+         Dim sBTLFlag As String = If( Map.refProjManagerVM.nProjType = Core.ConstBeam.BWType.BEAM, K_BTLFLAG, K_WALLBTLFLAG)
+         Dim nFlag As Integer = GetMainPrivateProfileInt(S_IMPORT, sBTLFlag, EIB_FL.TS3_POS + EIB_FL.SORT + EIB_FL.USEUATTR)
+         EgtBeamSetFlag( nFlag)
       Else
          EgtOutLog("Errore nell'importazione BTL")
       End If