OmagCUT 3.1a1 :

- aggiornamento annuale versione
- prima di chiudere CameraMng con Kill si invia il comando di preavviso 8.

MainWindow.xaml.vb

@@ -362,8 +362,8 @@ Class MainWindow
       ' Verifico abilitazione nesting automatico
       m_bAutoNest = Not String.IsNullOrWhiteSpace(sNestKey)
       ' Recupero opzioni della chiave
-      Dim bKey As Boolean = EgtGetKeyLevel(9423, 2712, 1, m_nKeyLevel) And
-                            EgtGetKeyOptions(9423, 2712, 1, m_nKeyOptions)
+      Dim bKey As Boolean = EgtGetKeyLevel(9423, 3101, 1, m_nKeyLevel) And
+                            EgtGetKeyOptions(9423, 3101, 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

My Project/AssemblyInfo.vb

@@ -22,7 +22,7 @@ Imports System.Windows
 #End If
 <Assembly: AssemblyCompany("Egalware s.r.l.")>
 <Assembly: AssemblyProduct("OmagCUT")>
-<Assembly: AssemblyCopyright("Copyright ©  2015-2025 by Egalware s.r.l.")>
+<Assembly: AssemblyCopyright("Copyright ©  2015-2026 by Egalware s.r.l.")>
 <Assembly: AssemblyTrademark("")>
 <Assembly: ComVisible(False)>
 
@@ -62,5 +62,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.7.12.2")>
-<Assembly: AssemblyFileVersion("2.7.12.2")>
+<Assembly: AssemblyVersion("3.1.1.1")>
+<Assembly: AssemblyFileVersion("3.1.1.1")>

RawPhoto/Camera.vb

@@ -421,14 +421,12 @@ Public Class Camera
       m_bClickOk = False
       m_bCorrectedImgOk = False
       m_bSavedBackImage = False
-      ' Argomento utilizzato per verificare lo stato della comunicazione
-      Dim sArgs As String = "7"
       Dim nIndTab As Integer = GetCurrentTable()
       Dim nIndProc As Integer = GetProcessFromCurrentTable(nIndTab)
-      ' Invio richiesta al processo per vedere se la comunicazione è aperta
+      ' Invio richiesta al processo per vedere se la comunicazione è aperta (comando 7)
       Try
          If Not m_ProcessCmgList(nIndProc - 1).HasExited Then
-            m_ProcessCmgList(nIndProc - 1).StandardInput.WriteLine(sArgs)
+            m_ProcessCmgList(nIndProc - 1).StandardInput.WriteLine("7")
          Else
             Return -2
          End If
@@ -446,8 +444,8 @@ Public Class Camera
          ReloadCameraHide(nIndProc - 1)
          For i As Integer = 0 To N_LOOP
             Thread.Sleep(1000)
-            ' Invio richiesta al processo per vedere se la comunicazione è aperta
-            m_ProcessCmgList(nIndProc - 1).StandardInput.WriteLine(sArgs)
+            ' Invio richiesta al processo per vedere se la comunicazione è aperta (comando 7)
+            m_ProcessCmgList(nIndProc - 1).StandardInput.WriteLine("7")
             If m_bIsRunnigProc Then Exit For
          Next
       End If
@@ -813,6 +811,9 @@ Public Class Camera
    Private Sub KillProcesses()
       For i As Integer = 0 To m_ProcessCmgList.Count() - 1
          Try
+            ' Invio comando "8" di annuncio chiusura
+            m_ProcessCmgList(i).StandardInput.WriteLine("8")
+            ' Eseguo chiusura
             m_ProcessCmgList(i).Kill()
          Catch Ex As Exception
             EgtOutLog(ex.Message())