32 lines
911 B
OpenEdge ABL
32 lines
911 B
OpenEdge ABL
VERSION 1.0 CLASS
|
|
BEGIN
|
|
MultiUse = -1 'True
|
|
END
|
|
Attribute VB_Name = "ValidationResult"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = False
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
|
|
Public Passed As Boolean
|
|
Public ErrorCode As String
|
|
Public ErrorCol As Long
|
|
Public ErrorRow As Long
|
|
Public Extra As String ' extra info per rule type (e.g. duplicate value for ERR_DUPLICATE)
|
|
|
|
Private Sub Class_Initialize()
|
|
Passed = True
|
|
End Sub
|
|
|
|
' ============================================================
|
|
' Mark this result as a failure.
|
|
' ============================================================
|
|
Public Sub SetFail(errorCode As String, errorCol As Long, errorRow As Long, Optional extra As String = "")
|
|
Passed = False
|
|
Me.ErrorCode = errorCode
|
|
Me.ErrorCol = errorCol
|
|
Me.ErrorRow = errorRow
|
|
Me.Extra = extra
|
|
End Sub
|