EgtBeamWall :

- correzioni per impostazione tipo giacitura pezzi a BeamMgr.
2021-12-01 16:02:07 +01:00
parent 6c4bb9d0a7
commit defe2a36d0
1 changed files with 4 additions and 0 deletions
@@ -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