EgtCAM5 :

- modifiche agli utensili - aggiunti box per errori con chiave e licenza.
2016-07-11 13:20:11 +00:00
parent 8fc9d49cf9
commit 7194f0a108
10 changed files with 61 additions and 32 deletions
@@ -29,8 +29,13 @@ Namespace EgtCAM5
               PreInitializeScene()
               If Not m_ProjectScene.Init() Then
                  EgtOutLog("Error in Project scene creation")
-                  ' Chiudo il programma
+                 ' Box di avviso
+                 MsgBox(EgtMsg(MSG_MISSINGKEYWD + 2) & vbCrLf & EgtMsg(MSG_MISSINGKEYWD + 3), MsgBoxStyle.OkOnly, EgtMsg(MSG_MISSINGKEYWD + 1))
+                 ' Chiudo il programma
                  Application.Msn.NotifyColleagues(Application.CLOSEAPPLICATIONCOMMAND)
+               ' Verifico abilitazione prodotto
+               ElseIf (IniFile.m_nKeyOptions And KEY_OPT.BASE) = 0 Then
+                  MsgBox(EgtMsg(MSG_MISSINGKEYWD + 5), MsgBoxStyle.OkOnly, EgtMsg(MSG_MISSINGKEYWD + 1))
               End If
               IniFile.m_ProjectSceneContext = m_ProjectScene.GetCtx
               PostInitializeScene()