Gestione simulazione linea di produzione

2021-09-29 14:49:03 +02:00
parent aa83984a15
commit fb0436d090
6 changed files with 30 additions and 11 deletions
@@ -28,6 +28,9 @@ Public Class CurrentMachine
   Private m_nThreadSleep As Integer = 150

   ' Dati su linea di produzione
+   Private m_bDemo As Boolean = False
+   Public nLastProjSentToViewDEMO As Integer = 0
+
   Private m_bProdLine As Boolean = False
   Private m_sVarProg1 As String = "E80021"
   Private m_nProg1 As Integer = 901
@@ -225,6 +228,12 @@ Public Class CurrentMachine
      End Get
   End Property

+   Friend ReadOnly Property bDemo As Boolean
+      Get
+         Return m_bDemo
+      End Get
+   End Property
+
   Friend ReadOnly Property bProdLine As Boolean
      Get
         Return m_bProdLine
@@ -1034,6 +1043,7 @@ Public Class CurrentMachine
         m_bProdLine = False
         EgtOutLog("Error - Production line requested but not key enabled")
      End If
+      m_bDemo = (GetPrivateProfileInt(S_PRODUCTIONLINE, "Demo", 0, sMachIniFile) <> 0)
      GetPrivateProfileString(S_PRODUCTIONLINE, K_VARPROG1, "", m_sVarProg1, sMachIniFile)
      m_nProg1 = GetPrivateProfileInt(S_PRODUCTIONLINE, K_NAMEPROG1, 0, m_MainWindow.GetMachIniFile())
      GetPrivateProfileString(S_PRODUCTIONLINE, K_VARPROG2, "", m_sVarProg2, sMachIniFile)