OmagCUT :

- ricompilazione per modifica costanti per bit chiave.

CurrentProjectPageUC.xaml.vb

@@ -109,7 +109,7 @@ Public Class CurrentProjectPageUC
             m_MainWindow.Close()
          End If
          ' Verifico abilitazione prodotto
-         If Not m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.BASE) Then
+         If Not m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.CUT_BASE) Then
             Dim MissingKeyWnd As New EgtMsgBox(m_MainWindow, EgtMsg(MSG_MISSINGKEYWD + 1), EgtMsg(MSG_MISSINGKEYWD + 5), EgtMsgBox.Buttons.OK, EgtMsgBox.Icons.NULL, 1)
             m_MainWindow.Close()
          End If

MainWindow.xaml.vb

@@ -67,7 +67,7 @@ Class MainWindow
    ' Opzioni abilitate dalla licenza attiva associata alla chiave
    Private m_nKeyOptions As UInteger
    Friend Enum KEY_OPT As UInteger
-      BASE = 1
+      CUT_BASE = 1
       MAN_MANIP = 2
       AUTO_MANIP = 4
       MAN_PHOTO = 8
@@ -75,6 +75,9 @@ Class MainWindow
       AUTO_NESTING = 32
       ENABLE_MILL = 64
       PROCUCTION_LINE = 128
+      OFFICE_BASE = 256
+      VM_MULTI = 512
+      UNDER_CUT = 1024
    End Enum
 
    ' Dichiarazione lista per ListBox della ImportPage
@@ -224,6 +227,8 @@ Class MainWindow
       EgtSetKey(sKey)
       ' Recupero opzioni della chiave
       Dim bKey As Boolean = EgtGetKeyOptions(9423, 16, 1, m_nKeyOptions)
+      ' Verifico abilitazione prodotto
+      Dim bProd As Boolean = GetKeyOption(KEY_OPT.CUT_BASE)
       ' Inizializzazione generale di EgtInterface
       m_nDebug = GetPrivateProfileInt(S_GENERAL, K_DEBUG, 0, m_sIniFile)
       Dim sLogFile As String = m_sTempDir & "\" & GENLOG_FILE_NAME
@@ -287,7 +292,7 @@ Class MainWindow
       WindowState = If(nFlag = 1, WindowState.Maximized, WindowState.Normal)
       m_dMWinScale = Math.Min(Me.Width / 1280, Me.Height / 832)
       ' Info su opzioni chiave
-      EgtOutLog("KeyOptions : " & bKey.ToString() & " " & m_nKeyOptions.ToString())
+      EgtOutLog("KeyOptions : " & bKey.ToString() & " " & m_nKeyOptions.ToString() & " " & bProd.ToString())
       ' Inizializzazione della libreria EgtWPFLib
       EgtWPFInit()
       ' Inizializzo classe macchina corrente