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(ByVal 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
