- commentato log singole variabili scritte e lette

- aggiunta scrittura variabile larghezza trave al varicamento programma
- anticipata verifica reset su ripartenza prima della scrittura nome programma da eseguire

EgtBEAMWALL.Supervisor/Comms/SIEMENSSharp7Comm.vb

@@ -105,9 +105,9 @@ Public Class SIEMENSSharp7Comm
                If nResult = 0 Then
                   Map.refMachManaging.DebugMessage(1, "Lettura di " & nDBAddress & " effettuata")
                   If Map.refMachManaging.Debug > 1 Then
-                     For Index = 0 To Buffer.Count - 1
-                        Map.refMachManaging.DebugMessage(2, Index & ": " & Buffer(Index))
-                     Next
+                     'For Index = 0 To Buffer.Count - 1
+                     '   Map.refMachManaging.DebugMessage(2, Index & ": " & Buffer(Index))
+                     'Next
                   End If
                Else
                   Map.refMachManaging.DebugMessage(2, "Lettura fallita con codice di errore: " & nResult)
@@ -179,9 +179,9 @@ Public Class SIEMENSSharp7Comm
             ' Buffer(0) = Buffer(0) And nPower
             If Map.refMachManaging.Debug > 1 Then
                EgtOutLog("Scrittura variabile " & Address & " (Tipo 1) con valore " & Value)
-               For Index = 0 To Buffer.Count - 1
-                  EgtOutLog(Index & ": " & Buffer(Index))
-               Next
+               'For Index = 0 To Buffer.Count - 1
+               '   EgtOutLog(Index & ": " & Buffer(Index))
+               'Next
             End If
             Dim nResult As Integer = Client.DBWrite(nDBAddress, nStartIndex, 1, Buffer)     ' DbNumber, Start, Amount, Buffer
             '    Return WriteBool(nDBAddress, nStartIndex, bValue)

EgtBEAMWALL.Supervisor/Constants/ConstCommVar.vb

@@ -71,6 +71,8 @@ Module ConstCommVar
    Public Const NC_MODE As String = "NC_Mode"
    ' variabile per apertura pinze manuale
    Public Const OPEN_CLAMP As String = "Open_Clamp"
+   ' variabile per larghezza barra al carico
+   Public Const W_CARICO As String = "W_Carico"
 
    Public Enum OPStates
       Start = 1

EgtBEAMWALL.Supervisor/MachManagingThread/MachManaging.vb

@@ -104,7 +104,7 @@ Public Class MachManaging
    End Property
 
    ' variabile che indica prima barra dopo start (Siemens)
-   Private m_bFirstRaw As Boolean = False
+   Private m_bFirstRaw As Boolean = True
 
    ' variabile che indica se emettere ii messaggi di debug
    Private m_Debug As Integer = 0
@@ -1291,11 +1291,7 @@ Public Class MachManaging
                Dim sDestDir As String = ""
                GetPrivateProfileString(S_GENERAL, K_ISOFILEDIR, "c:/Saomad/ISO", sDestDir, CurrentMachine.sMachIniFile)
                DebugMessage(1, "Copio programma")
-               File.Copy(ProgramPath, sDestDir & "/" & nFileType & ".mpf", True)
-               ' imposto numero programma scritto
-               Dim ISONumVariable As Variable = Map.refMachCommandMessagePanelVM.MainVariablesList.FirstOrDefault(Function(x) x.sName = ISO_NUM)
-               DebugMessage(1, "Imposto programma inviato: " & nFileType)
-               ISONumVariable.sValue = nFileType
+               File.Copy(ProgramPath, sDestDir & "\" & nFileType & ".mpf", True)
                ' se primo dopo start
                If m_bFirstRaw Then
                   m_bFirstRaw = False
@@ -1303,6 +1299,14 @@ Public Class MachManaging
                   ' annullo step di ripartenza
                   Map.refMachManaging.Siemens_Sharp7.ResetStep(Not (MyMachGroup.dtStartTime <> DateTime.MinValue OrElse MyMachGroup.nProduction_State = ItemState.WIP))
                End If
+               ' imposto larghezza barra
+               Dim WCarico As Variable = Map.refMachCommandMessagePanelVM.MainVariablesList.FirstOrDefault(Function(x) x.sName = W_CARICO)
+               WCarico.sValue = DoubleToString(MyMachGroup.dW, 1)
+               DebugMessage(1, "Imposto larghezza: " & MyMachGroup.dW)
+               ' imposto numero programma scritto
+               Dim ISONumVariable As Variable = Map.refMachCommandMessagePanelVM.MainVariablesList.FirstOrDefault(Function(x) x.sName = ISO_NUM)
+               DebugMessage(1, "Imposto programma inviato: " & nFileType)
+               ISONumVariable.sValue = nFileType
             End If
             Return True
       End Select