Inseriti messaggi per assistenza

DirectCuts/FlatteningCut.xaml.vb

@@ -600,15 +600,13 @@ Public Class FlatteningCut
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
-      Dim sNameProg As Integer = 900
-      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
          ' lancio eventuale lua post-trasmissione
-         m_MainWindow.ExecSentProgScript(True)
+         m_MainWindow.ExecSentProgScript( True)
       End If
 #End If
    End Sub

DirectCuts/GridCut.xaml.vb

@@ -535,15 +535,13 @@ Public Class GridCut
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
-      Dim sNameProg As Integer = 900
-      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
          ' lancio eventuale lua post-trasmissione
-         m_MainWindow.ExecSentProgScript(True)
+         m_MainWindow.ExecSentProgScript( True)
       End If
 #End If
    End Sub

DirectCuts/MultipleCut.xaml.vb

@@ -580,15 +580,13 @@ Public Class MultipleCut
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
-      Dim sNameProg As Integer = 900
-      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
          ' lancio eventuale lua post-trasmissione
-         m_MainWindow.ExecSentProgScript(True)
+         m_MainWindow.ExecSentProgScript( True)
       End If
 #End If
    End Sub

DirectCuts/Polishing.xaml.vb

@@ -180,15 +180,13 @@ Public Class Polishing
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
-      Dim sNameProg As Integer = 900
-      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
          ' lancio eventuale lua post-trasmissione
-         m_MainWindow.ExecSentProgScript(True)
+         m_MainWindow.ExecSentProgScript( True)
       End If
 #End If
    End Sub

DirectCuts/SawTestUC.xaml.vb

@@ -450,15 +450,13 @@ Public Class SawTestUC
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
-      Dim sNameProg As Integer = 900
-      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
          ' lancio eventuale lua post-trasmissione
-         m_MainWindow.ExecSentProgScript(True)
+         m_MainWindow.ExecSentProgScript( True)
       End If
 #End If
    End Sub

DirectCuts/SingleCutUC.xaml.vb

@@ -584,15 +584,13 @@ Public Class SingleCutUC
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
-      Dim sNameProg As Integer = 900
-      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
          ' lancio eventuale lua post-trasmissione
-         m_MainWindow.ExecSentProgScript(True)
+         m_MainWindow.ExecSentProgScript( True)
       End If
 #End If
    End Sub

DirectCuts/SingleDrillUC.xaml.vb

@@ -371,10 +371,8 @@ Public Class SingleDrillUC
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
-      Dim sNameProg As Integer = 900
-      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)

DirectCuts/SquaringUC.xaml.vb

@@ -287,10 +287,8 @@ Public Class SquaringUC
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
-      Dim sNameProg As Integer = 900
-      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)

MainWindow.xaml.vb

@@ -339,8 +339,8 @@ 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, 2601, 1, m_nKeyLevel) And
+                            EgtGetKeyOptions(9423, 2601, 1, m_nKeyOptions)
       ' Verifico abilitazione prodotto
       Dim bProd As Boolean = GetKeyOption(KEY_OPT.CUT_BASE)
       ' Inizializzazione generale di EgtInterface
@@ -658,16 +658,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()

My Project/AssemblyInfo.vb

@@ -62,5 +62,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.5.12.4")>
-<Assembly: AssemblyFileVersion("2.5.12.4")>
+<Assembly: AssemblyVersion("2.6.2.1")>
+<Assembly: AssemblyFileVersion("2.6.2.1")>

WorkInProgress/WorkInProgressPageUC.xaml.vb

@@ -189,33 +189,25 @@ Public Class WorkInProgressPageUC
       ' Valori precedenti degli assi macchina
       Dim dL1p, dL2p, dL3p, dR1p, dR2p As Double
       Dim bFirst As Boolean = True
-
       ' Gestione fase di lavoro
       Dim sPhaseVar As String = String.Empty
+      GetPrivateProfileString(S_MACH_INPROGRESS, K_PHASEVAR, "E80020", sPhaseVar, m_MainWindow.GetMachIniFile())
+      m_MainWindow.m_CNCommunication.m_CN.n_DReadELS_handle = 0
+      m_MainWindow.m_CNCommunication.m_CN.ReadEls_Add_Parameter(sPhaseVar, 3)
+      System.Threading.Thread.Sleep(100)
       Dim nCurrPhase = 1
-      Dim bCurrPhaseExists As Boolean = False
-      If GetPrivateProfileString(S_MACH_INPROGRESS, K_PHASEVAR, "E80020", sPhaseVar, m_MainWindow.GetMachIniFile()) <> 0 Then
-         bCurrPhaseExists = True
-         m_MainWindow.m_CNCommunication.m_CN.n_DReadELS_handle = 0
-         m_MainWindow.m_CNCommunication.m_CN.ReadEls_Add_Parameter(sPhaseVar, 3)
-         System.Threading.Thread.Sleep(100)
-         If m_MainWindow.m_CNCommunication.m_CN.n_DReadELS_handle = 3 Then
-            nCurrPhase = CInt(m_MainWindow.m_CNCommunication.m_CN.d_DReadELS_value)
-         End If
-         EgtSetCurrPhase(nCurrPhase, True)
-         EgtDraw()
-      Else
-         EgtOutLog("Variabile 'PhaseVar' mancante! In CurrentMachine non sarà aggiornata la fase del grezzo")
+      If m_MainWindow.m_CNCommunication.m_CN.n_DReadELS_handle = 3 Then
+         nCurrPhase = CInt(m_MainWindow.m_CNCommunication.m_CN.d_DReadELS_value)
       End If
-
+      EgtSetCurrPhase(nCurrPhase, True)
+      EgtDraw()
       ' Tempo di ritardo nel ciclo
       Dim nTimeStep As Integer = 50
       nTimeStep = GetPrivateProfileInt(S_MACH_INPROGRESS, K_WP_STEPTIME, nTimeStep, m_MainWindow.GetMachIniFile())
-      EgtOutLog("Tempo di attesa tra una lettura degli assi e la successiva: " & nTimeStep.ToString & " (ms)")
       ' Ciclo
       While m_bContinue
          ' Rileggo la variabile di fase
-         If bCurrPhaseExists Then m_MainWindow.m_CNCommunication.m_CN.ReadEls_Add_Parameter(sPhaseVar, 3)
+         m_MainWindow.m_CNCommunication.m_CN.ReadEls_Add_Parameter(sPhaseVar, 3)
          ' Recupero la posizione degli assi macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2)
@@ -246,7 +238,7 @@ Public Class WorkInProgressPageUC
          ' Per evitare di ciclare rapidissimamente e consumare inutilmente CPU
          System.Threading.Thread.Sleep(nTimeStep)
          ' Leggo la fase
-         If bCurrPhaseExists AndAlso m_MainWindow.m_CNCommunication.m_CN.n_DReadELS_handle = 3 Then
+         If m_MainWindow.m_CNCommunication.m_CN.n_DReadELS_handle = 3 Then
             m_MainWindow.m_CNCommunication.m_CN.n_DReadELS_handle = 0
             Dim nNextPhase As Integer = CInt(m_MainWindow.m_CNCommunication.m_CN.d_DReadELS_value)
             If nNextPhase > nCurrPhase Then