- Corretta ripartenza per parete
- Correzioni e miglioramento visalizzazione errori
This commit is contained in:
Emmanuele Sassi
@@ -28,6 +28,7 @@ Public Class MachCommandMessagePanelVM
|
||||
Drive_Warning = 23
|
||||
SysInfo_Message = 24
|
||||
CNC_Warning = 25
|
||||
OperatorMsg = 30
|
||||
End Enum
|
||||
|
||||
Private m_AlarmTimer As New DispatcherTimer
|
||||
@@ -145,7 +146,14 @@ Public Class MachCommandMessagePanelVM
|
||||
Public ReadOnly Property sErrCycle As String
|
||||
Get
|
||||
Dim ShownErr As Alarm = If(m_ErrCycleCount < m_ErrCycle.Count, m_ErrCycle(m_ErrCycleCount), Nothing)
|
||||
Return If(Not IsNothing(ShownErr), ShownErr.sCode & ": " & ShownErr.sMessage, "")
|
||||
Select Case CurrentMachine.NCType
|
||||
Case NCTypes.TPA
|
||||
Return If(Not IsNothing(ShownErr), ShownErr.sCode & ": " & ShownErr.sMessage, "")
|
||||
Case NCTypes.NUM_FLEXIUM
|
||||
Return If(Not IsNothing(ShownErr), ShownErr.sMessage, "")
|
||||
Case Else
|
||||
Return ""
|
||||
End Select
|
||||
End Get
|
||||
End Property
|
||||
|
||||
@@ -154,7 +162,14 @@ Public Class MachCommandMessagePanelVM
|
||||
Public ReadOnly Property sIso As String
|
||||
Get
|
||||
Dim ShownErr As Alarm = If(m_IsoCount < m_Iso.Count, m_Iso(m_IsoCount), Nothing)
|
||||
Return If(Not IsNothing(ShownErr), ShownErr.sCode & ": " & ShownErr.sMessage, "")
|
||||
Select Case CurrentMachine.NCType
|
||||
Case NCTypes.TPA
|
||||
Return If(Not IsNothing(ShownErr), ShownErr.sCode & ": " & ShownErr.sMessage, "")
|
||||
Case NCTypes.NUM_FLEXIUM
|
||||
Return If(Not IsNothing(ShownErr), ShownErr.sMessage, "")
|
||||
Case Else
|
||||
Return ""
|
||||
End Select
|
||||
End Get
|
||||
End Property
|
||||
|
||||
@@ -163,7 +178,14 @@ Public Class MachCommandMessagePanelVM
|
||||
Public ReadOnly Property sMessage As String
|
||||
Get
|
||||
Dim ShownErr As Alarm = If(m_MessageCount < m_Message.Count, m_Message(m_MessageCount), Nothing)
|
||||
Return If(Not IsNothing(ShownErr), ShownErr.sCode & ": " & ShownErr.sMessage, "")
|
||||
Select Case CurrentMachine.NCType
|
||||
Case NCTypes.TPA
|
||||
Return If(Not IsNothing(ShownErr), ShownErr.sCode & ": " & ShownErr.sMessage, "")
|
||||
Case NCTypes.NUM_FLEXIUM
|
||||
Return If(Not IsNothing(ShownErr), ShownErr.sMessage, "")
|
||||
Case Else
|
||||
Return ""
|
||||
End Select
|
||||
End Get
|
||||
End Property
|
||||
|
||||
@@ -173,7 +195,14 @@ Public Class MachCommandMessagePanelVM
|
||||
Public ReadOnly Property sErrSystem As String
|
||||
Get
|
||||
Dim ShownErr As Alarm = If(m_ErrSystemCount < m_ErrSystem.Count, m_ErrSystem(m_ErrSystemCount), Nothing)
|
||||
Return If(Not IsNothing(ShownErr), ShownErr.sCode & ": " & ShownErr.sMessage, "")
|
||||
Select Case CurrentMachine.NCType
|
||||
Case NCTypes.TPA
|
||||
Return If(Not IsNothing(ShownErr), ShownErr.sCode & ": " & ShownErr.sMessage, "")
|
||||
Case NCTypes.NUM_FLEXIUM
|
||||
Return If(Not IsNothing(ShownErr), ShownErr.sMessage, "")
|
||||
Case Else
|
||||
Return ""
|
||||
End Select
|
||||
End Get
|
||||
End Property
|
||||
|
||||
@@ -549,31 +578,54 @@ Public Class MachCommandMessagePanelVM
|
||||
Dim AlarmCode As String = ErrorTyp & " : " & ErrorIndex & " : " & ErrorNumber & " : " & ErrorLine
|
||||
Dim AlarmMessage As String = ErrorMessage & " : " & ErrorAdditional
|
||||
|
||||
Dim ErrorNumberMsg As String = "Number:"
|
||||
Dim ErrorIndexMsg As String = "Index:"
|
||||
Dim ErrorTypMsg As String = "Type:"
|
||||
Dim ErrorLineMsg As String = "Line:"
|
||||
Dim ErrorAdditionalMsg As String = "Additional:"
|
||||
Dim nErrorIndex As Integer
|
||||
Dim nErrorNumber As Integer
|
||||
Dim nErrorExtNumber As Integer
|
||||
Dim nErrorTyp As Integer
|
||||
Dim nErrorLine As Integer
|
||||
Dim nErrorAdditional As Integer
|
||||
' converto parametri messaggio in interi
|
||||
Integer.TryParse(ErrorIndex, nErrorIndex)
|
||||
Integer.TryParse(ErrorNumber, nErrorNumber)
|
||||
Integer.TryParse(ErrorTyp, nErrorTyp)
|
||||
Integer.TryParse(ErrorLine, nErrorLine)
|
||||
Integer.TryParse(ErrorAdditional, nErrorAdditional)
|
||||
|
||||
Dim ErrorNumberMsg As String = "Number"
|
||||
Dim ErrorIndexMsg As String = "Index"
|
||||
Dim ErrorTypMsg As String = "Type"
|
||||
Dim ErrorLineMsg As String = "Line"
|
||||
Dim ErrorAdditionalMsg As String = "Additional"
|
||||
Dim ErrorExtNumberMsg As String = "Extended Number"
|
||||
Dim ErrorExtNumber As Integer = 0
|
||||
|
||||
' costruisco messaggio errore in base al tipo
|
||||
Select Case ErrorTyp
|
||||
Case NUM_ErrorTypes.CNC_Boot_Message
|
||||
Case NUM_ErrorTypes.CNC_System_Warning
|
||||
Case NUM_ErrorTypes.CNC_Message
|
||||
ErrorIndexMsg = "Cnc Channel"
|
||||
ErrorIndexMsg = "CN"
|
||||
If Map.refMachManaging.Num_Flexium.IsFlexiumPlus Then
|
||||
ErrorExtNumber = Convert.ToInt32(ErrorNumber) >> 16
|
||||
ErrorNumber = Convert.ToInt32(ErrorNumber) And &HFFFF
|
||||
nErrorExtNumber = Convert.ToInt32(ErrorNumber) >> 16
|
||||
nErrorNumber = Convert.ToInt32(ErrorNumber) And &HFFFF
|
||||
ErrorExtNumberMsg = "Ext"
|
||||
ErrorAdditionalMsg = "Line Number"
|
||||
ErrorNumberMsg = "CN:"
|
||||
End If
|
||||
ErrorLineMsg = "Number from the Cnc Block"
|
||||
|
||||
AlarmMessage = If(nErrorNumber <> 0, ErrorNumberMsg & ": " & nErrorNumber & " - ", "") &
|
||||
If(nErrorExtNumber <> 0, " - " & ErrorExtNumberMsg & ": " & nErrorExtNumber, "") &
|
||||
" " & ErrorMessage
|
||||
Case NUM_ErrorTypes.Drive_Error
|
||||
ErrorIndexMsg = "Drive Address"
|
||||
ErrorExtNumber = Convert.ToInt32(ErrorNumber) >> 16
|
||||
ErrorNumber = Convert.ToInt32(ErrorNumber) And &HFFFF
|
||||
ErrorIndexMsg = "Azionamento: Asse"
|
||||
ErrorNumberMsg = "Ext"
|
||||
ErrorExtNumberMsg = "Errore"
|
||||
nErrorExtNumber = Convert.ToInt32(ErrorNumber) >> 16
|
||||
nErrorNumber = Convert.ToInt32(ErrorNumber) And &HFFFF
|
||||
AlarmMessage = If(nErrorIndex <> 0, ErrorIndexMsg & ": " & nErrorIndex & " - ", "") &
|
||||
If(nErrorExtNumber <> 0, " - " & ErrorExtNumberMsg & ": " & nErrorExtNumber, "") &
|
||||
If(nErrorNumber <> 0, ErrorNumberMsg & ": " & nErrorNumber & " - ", "") &
|
||||
If(nErrorLine <> 0, " - " & ErrorLineMsg & ": " & nErrorLine, "") &
|
||||
" " & ErrorMessage & If(nErrorAdditional <> 0, " - " & ErrorAdditionalMsg & ": " & nErrorAdditional, "")
|
||||
Case NUM_ErrorTypes.Communication_Message
|
||||
Case NUM_ErrorTypes.PLC_Message_Reaction_Class_1,
|
||||
NUM_ErrorTypes.PLC_Message_Reaction_Class_2,
|
||||
@@ -582,19 +634,33 @@ Public Class MachCommandMessagePanelVM
|
||||
NUM_ErrorTypes.PLC_Message_Reaction_Class_5,
|
||||
NUM_ErrorTypes.PLC_Message_Reaction_Class_6,
|
||||
NUM_ErrorTypes.PLC_Message_Reaction_Class_7,
|
||||
NUM_ErrorTypes.PLC_Message_Reaction_Class_8,
|
||||
NUM_ErrorTypes.PLC_Message_Reaction_Class_8
|
||||
ErrorNumberMsg = "PLC"
|
||||
ErrorTypMsg = "Classe"
|
||||
AlarmMessage = If(nErrorIndex <> 0, ErrorIndexMsg & ": " & nErrorIndex & " - ", "") &
|
||||
If(nErrorNumber <> 0, ErrorNumberMsg & ": " & nErrorNumber & " - ", "") &
|
||||
If(nErrorExtNumber <> 0, " - " & ErrorExtNumberMsg & ": " & nErrorExtNumber, "") &
|
||||
ErrorTypMsg & ": " & nErrorTyp - 5 &
|
||||
If(nErrorLine <> 0, " - " & ErrorLineMsg & ": " & nErrorLine, "") &
|
||||
" " & ErrorMessage & If(nErrorAdditional <> 0, " - " & ErrorAdditionalMsg & ": " & nErrorAdditional, "")
|
||||
Case NUM_ErrorTypes.HMI_Message
|
||||
Case NUM_ErrorTypes.RTS_Message
|
||||
Case NUM_ErrorTypes.Drive_Warning
|
||||
ErrorIndexMsg = "Drive Address"
|
||||
Case NUM_ErrorTypes.SysInfo_Message
|
||||
Case NUM_ErrorTypes.CNC_Warning
|
||||
Case NUM_ErrorTypes.OperatorMsg
|
||||
ErrorTypMsg = "OpMsg"
|
||||
End Select
|
||||
AlarmCode = If(ErrorIndex <> 0, ErrorIndexMsg & ": " & ErrorIndex & " - ", "") & ErrorNumberMsg & ": " & ErrorNumber & " - " & If(ErrorExtNumber <> 0, " - " & ErrorExtNumberMsg & ": " & ErrorExtNumber, "") & ErrorTypMsg & ": " & ErrorTyp - 5 & If(ErrorLine <> 0, " - " & ErrorLineMsg & ": " & ErrorLine, "")
|
||||
AlarmMessage = ErrorMessage & If(ErrorAdditional <> 0, " - " & ErrorAdditionalMsg & ": " & ErrorAdditional, "")
|
||||
|
||||
AlarmCode = nErrorIndex & "." & nErrorNumber & "." & nErrorExtNumber & "." & nErrorTyp & "." & nErrorLine & "." & nErrorAdditional
|
||||
If IsNothing(AlarmMessage) Then
|
||||
AlarmMessage = If(nErrorIndex <> 0, ErrorIndexMsg & ": " & nErrorIndex & " - ", "") &
|
||||
If(nErrorNumber <> 0, ErrorNumberMsg & ": " & nErrorNumber & " - ", "") &
|
||||
If(nErrorExtNumber <> 0, " - " & ErrorExtNumberMsg & ": " & nErrorExtNumber, "") &
|
||||
ErrorTypMsg & ": " &
|
||||
If(nErrorLine <> 0, " - " & ErrorLineMsg & ": " & nErrorLine, "") &
|
||||
" " & ErrorMessage & If(nErrorAdditional <> 0, " - " & ErrorAdditionalMsg & ": " & nErrorAdditional, "")
|
||||
End If
|
||||
' scrivo messaggio di errore
|
||||
Select Case ErrorTyp
|
||||
' CInt(ISOCNC.Remoting.AlarmType.Cycle)
|
||||
@@ -606,8 +672,6 @@ Public Class MachCommandMessagePanelVM
|
||||
CInt(NUM_ErrorTypes.PLC_Message_Reaction_Class_6),
|
||||
CInt(NUM_ErrorTypes.PLC_Message_Reaction_Class_7),
|
||||
CInt(NUM_ErrorTypes.PLC_Message_Reaction_Class_8)
|
||||
'AlarmCode = "PLC: " & ErrorNumber & If(ErrorIndex <> 0, " - Index: " & ErrorIndex, "") & " - Classe: " & ErrorTyp - 5 & If(ErrorLine <> 0, " - Line: " & ErrorLine, "")
|
||||
'AlarmMessage = ErrorMessage & If(ErrorAdditional <> 0, " - Additional: " & ErrorAdditional, "")
|
||||
If AlarmOperation = CInt(ISOCNC.Remoting.AlarmOperation.Addition) Then
|
||||
m_ErrCycle.Add(Alarm.CreateAlarm(AlarmCode, AlarmMessage))
|
||||
Else
|
||||
@@ -626,7 +690,8 @@ Public Class MachCommandMessagePanelVM
|
||||
Case CInt(NUM_ErrorTypes.CNC_Boot_Message),
|
||||
CInt(NUM_ErrorTypes.CNC_Message),
|
||||
CInt(NUM_ErrorTypes.Communication_Message),
|
||||
CInt(NUM_ErrorTypes.User_Message)
|
||||
CInt(NUM_ErrorTypes.User_Message),
|
||||
CInt(NUM_ErrorTypes.OperatorMsg)
|
||||
'AlarmCode = ErrorTyp & " : " & ErrorIndex & " : " & ErrorNumber & " : " & ErrorLine
|
||||
'AlarmMessage = ErrorMessage & " : " & ErrorAdditional
|
||||
If AlarmOperation = CInt(ISOCNC.Remoting.AlarmOperation.Addition) Then
|
||||
|
||||
Reference in New Issue
Block a user