From 35dfb0ad5979285876c7fbf9ed692af476143bfa Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.s@egaltech.com>
Date: Sat, 15 Apr 2017 16:57:19 +0000
Subject: [PATCH] OmagCUT : - ricompilazione per modifica costanti per bit
 chiave.

---
 CurrentProjectPageUC.xaml.vb | 2 +-
 MainWindow.xaml.vb           | 9 +++++++--
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/CurrentProjectPageUC.xaml.vb b/CurrentProjectPageUC.xaml.vb
index f547b34..dfcb824 100644
--- a/CurrentProjectPageUC.xaml.vb
+++ b/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
diff --git a/MainWindow.xaml.vb b/MainWindow.xaml.vb
index 30ad6c2..8b30c67 100644
--- a/MainWindow.xaml.vb
+++ b/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