Nuova gestione (NomeBlocco-nn)

MainWindow/MainWindowM.vb

@@ -267,16 +267,8 @@ Public Class MainWindowM
          MessageBox.Show(EgtMsg(MSG_OMAGPHOTO + 1) & EgtMsg(MSG_OMAGPHOTO + 2), EgtMsg(MSG_EGTMSGBOX + 15), MessageBoxButton.OK, MessageBoxImage.Error)
          End
       End If
-      ' verifico se è abilitata la Text per l'inserimento dell'Id di una lastra
-      Dim sLastId As String = String.Empty
-      If GetMainPrivateProfileString(S_GENERAL, K_LASTID, "", sLastId) <> 0 Then
-         Try
-            m_LastId = CInt(sLastId)
-            m_EnableTextId = False
-         Catch ex As Exception
-            m_EnableTextId = True
-         End Try
-      End If
+
+      Dim sLastBlock As String = String.Empty
 
       ' Info su opzioni chiave
       EgtOutLog("KeyOptions : " & bKey.ToString() & " " & m_nKeyOptions.ToString() & " " & bProd.ToString())
@@ -290,7 +282,7 @@ Public Class MainWindowM
       EgtPHOTOLib.MainData.SetDataFilePrinter(m_DatFilePrinter)
       EgtPHOTOLib.MainData.SetZebraPrinterExe(m_ZebraUtilitiesExe)
       EgtPHOTOLib.MainData.SetPrinterVisibility(m_PrinterIsVisible)
-      If Not m_EnableTextId Then EgtPHOTOLib.MainData.SetLastId(m_LastId)
+      If GetMainPrivateProfileString(S_GENERAL, "LastBlock", "", sLastBlock) <> 0 Then EgtPHOTOLib.MainData.SetLastBlock(sLastBlock)
       Dim sIdKey As String = String.Empty
       EgtGetKeyInfo(sIdKey)
       EgtPHOTOLib.MainData.SetKey(sIdKey)