|
|
|
@@ -23,6 +23,9 @@ Class MainWindow
|
|
|
|
|
' Coefficiente di scalatura della finestra rispetto a standard
|
|
|
|
|
Friend m_dMWinScale As Double = 1
|
|
|
|
|
|
|
|
|
|
' Variabile che definisce l'avvio forzato in modalità FRAME
|
|
|
|
|
Friend m_OnlyFrame As Boolean = False
|
|
|
|
|
|
|
|
|
|
' Dichiarazione delle Page UserControl
|
|
|
|
|
Friend m_WorkInProgressPageUC As WorkInProgressPageUC
|
|
|
|
|
Friend m_CurrentProjectPageUC As CurrentProjectPageUC
|
|
|
|
@@ -101,6 +104,7 @@ Class MainWindow
|
|
|
|
|
REGISTRATION = 2 ^ 20 ' 1048576
|
|
|
|
|
SIMPLESTATISTICS = 2 ^ 21 ' 2097152
|
|
|
|
|
COMPOFRAME = 2 ^ 22 ' 4194304
|
|
|
|
|
CUT_LIGHT = 2 ^ 23 ' 8388608
|
|
|
|
|
End Enum
|
|
|
|
|
' Opzione nesting automatico
|
|
|
|
|
Private m_bAutoNest As Boolean = False
|
|
|
|
@@ -339,10 +343,16 @@ Class MainWindow
|
|
|
|
|
' Verifico abilitazione nesting automatico
|
|
|
|
|
m_bAutoNest = Not String.IsNullOrWhiteSpace(sNestKey)
|
|
|
|
|
' Recupero opzioni della chiave
|
|
|
|
|
Dim bKey As Boolean = EgtGetKeyLevel(9423, 2512, 1, m_nKeyLevel) And
|
|
|
|
|
EgtGetKeyOptions(9423, 2512, 1, m_nKeyOptions)
|
|
|
|
|
Dim bKey As Boolean = EgtGetKeyLevel(9423, 2602, 1, m_nKeyLevel) And
|
|
|
|
|
EgtGetKeyOptions(9423, 2602, 1, m_nKeyOptions)
|
|
|
|
|
' Verifico abilitazione prodotto
|
|
|
|
|
Dim bProd As Boolean = GetKeyOption(KEY_OPT.CUT_BASE)
|
|
|
|
|
|
|
|
|
|
' Impostazione per programma OnlyFrame: solo se CUT_BASE non attivo
|
|
|
|
|
If Not bProd Then
|
|
|
|
|
m_OnlyFrame = GetKeyOption(KEY_OPT.CUT_LIGHT)
|
|
|
|
|
End If
|
|
|
|
|
|
|
|
|
|
' Inizializzazione generale di EgtInterface
|
|
|
|
|
m_nDebug = GetPrivateProfileInt(S_GENERAL, K_DEBUG, 0, m_sIniFile)
|
|
|
|
|
m_sVersion = My.Application.Info.Version.Major.ToString() & "." &
|
|
|
|
@@ -658,16 +668,12 @@ Class MainWindow
|
|
|
|
|
|
|
|
|
|
' Or nAssLeftDays = 358
|
|
|
|
|
If (nAssLeftDays <= 7 And nAssLeftDays >= 0) Or nAssLeftDays = 14 Or nAssLeftDays = 21 Or nAssLeftDays = 28 Then
|
|
|
|
|
'Dim sText As String = "Fai ammenda," & vbCrLf & "gli aggiornamenti sono in fase di scadenza!"
|
|
|
|
|
'Dim sTitle As String = "⚠️ Warning!"
|
|
|
|
|
'Dim MissingKeyWnd As New EgtMsgBox(Me, sTitle, sText, EgtMsgBox.Buttons.OK, EgtMsgBox.Icons.NULL)
|
|
|
|
|
' finestra Custom
|
|
|
|
|
Dim sMsg As String = EgtMsg(91141)
|
|
|
|
|
Dim sMsg As String = EgtMsg(91141) ' Assistenza in scadenza /nContattare assistenza:/n
|
|
|
|
|
Dim sAssistance As String = String.Empty
|
|
|
|
|
GetPrivateProfileString(S_GENERAL, "Assistances", "", sAssistance, GetIniFile)
|
|
|
|
|
Dim sItems As String() = sAssistance.Split(","c)
|
|
|
|
|
For Each Item As String In sItems
|
|
|
|
|
sMsg &= "→ " & Item.Trim & " /n"
|
|
|
|
|
sMsg &= " → " & Item.Trim & " /n"
|
|
|
|
|
Next
|
|
|
|
|
Dim MyLicWn As New LicenseWindow(Me, sMsg, "Assistance " & sAssStatus)
|
|
|
|
|
MyLicWn.Show()
|
|
|
|
@@ -1139,7 +1145,7 @@ Class MainWindow
|
|
|
|
|
End If
|
|
|
|
|
' Inizio la chiusura del programma (se NUM_OLD verifico di aver terminato il processo DripFeed)
|
|
|
|
|
EgtOutLog("Iniziato processo di chiusura programma")
|
|
|
|
|
m_IsClosingApplication = If( m_CNCommunication.m_nNCType = 1, 1, 2)
|
|
|
|
|
m_IsClosingApplication = If(m_CNCommunication.m_nNCType = 1, 1, 2)
|
|
|
|
|
Dim nCount As Integer = 0
|
|
|
|
|
While m_IsClosingApplication <> 2
|
|
|
|
|
If nCount > 5 Then
|
|
|
|
@@ -1277,7 +1283,11 @@ Class MainWindow
|
|
|
|
|
m_ProdLineTimer.Start()
|
|
|
|
|
End If
|
|
|
|
|
' di default attivo la pagina CadCut
|
|
|
|
|
m_ActivePage = MainWindow.Pages.CadCut
|
|
|
|
|
If m_OnlyFrame Then
|
|
|
|
|
m_ActivePage = MainWindow.Pages.FrameCut
|
|
|
|
|
Else
|
|
|
|
|
m_ActivePage = MainWindow.Pages.CadCut
|
|
|
|
|
End If
|
|
|
|
|
' seleziono il tipo di avvio
|
|
|
|
|
m_CurrentProjectPageUC.StartProgram()
|
|
|
|
|
' aggiorno la grafica
|
|
|
|
@@ -1314,8 +1324,33 @@ Class MainWindow
|
|
|
|
|
Dim bHeadH1 As Boolean = (EgtGetHeadId("H1") <> GDB_ID.NULL)
|
|
|
|
|
EgtSetCurrentContext(nCurrCtx)
|
|
|
|
|
' Aggiorno interfaccia
|
|
|
|
|
CadCutBtn.IsEnabled = (nPrjType <> CurrentProjectPageUC.PRJ_TYPE.FRAMES)
|
|
|
|
|
FrameCutBtn.IsEnabled = (nPrjType <> CurrentProjectPageUC.PRJ_TYPE.FLATS) AndAlso bHeadH1
|
|
|
|
|
If m_OnlyFrame Then
|
|
|
|
|
If nPrjType = CurrentProjectPageUC.PRJ_TYPE.FLATS And m_ActivePage <> Pages.RawPart Then
|
|
|
|
|
Dim FrameWnd As New EgtMsgBox(Me, EgtMsg(91142), EgtMsg(91143), EgtMsgBox.Buttons.OK, EgtMsgBox.Icons.NULL)
|
|
|
|
|
'' Gestione stato FastGrid
|
|
|
|
|
'm_CadCutPageUC.m_FastGridSlabManager.OnPreNewProject()
|
|
|
|
|
' Cancello progetto salvato con nome da file ini
|
|
|
|
|
WritePrivateProfileString(S_GENERAL, K_LASTNAMEPROJ, "", GetIniFile())
|
|
|
|
|
' Scelta tavola della macchina
|
|
|
|
|
Dim nTabInd As Integer = m_CadCutPageUC.m_ProjectMgr.ChooseTable()
|
|
|
|
|
' Creo nuovo progetto
|
|
|
|
|
m_CurrentProjectPageUC.NewProject(nTabInd, False)
|
|
|
|
|
'' Gestione stato FastGrid
|
|
|
|
|
'm_CadCutPageUC.m_FastGridSlabManager.OnPostNewProject()
|
|
|
|
|
FrameCutBtn_Click(Nothing, Nothing)
|
|
|
|
|
CadCutBtn.IsEnabled = False
|
|
|
|
|
Else
|
|
|
|
|
FrameCutBtn.IsEnabled = True
|
|
|
|
|
CadCutBtn.IsEnabled = False
|
|
|
|
|
' Attivo il pulsante FRAME
|
|
|
|
|
'FrameCutBtn.IsChecked = True
|
|
|
|
|
'CadCutBtn.IsChecked = False
|
|
|
|
|
End If
|
|
|
|
|
Else
|
|
|
|
|
CadCutBtn.IsEnabled = (nPrjType <> CurrentProjectPageUC.PRJ_TYPE.FRAMES)
|
|
|
|
|
FrameCutBtn.IsEnabled = (nPrjType <> CurrentProjectPageUC.PRJ_TYPE.FLATS) AndAlso bHeadH1
|
|
|
|
|
End If
|
|
|
|
|
|
|
|
|
|
' DirectCutBtn.IsEnabled = bHeadH1
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Nicola Pievani