37 lines
1005 B
OpenEdge ABL
37 lines
1005 B
OpenEdge ABL
|
VERSION 1.0 CLASS
|
||
|
|
BEGIN
|
||
|
|
MultiUse = -1 'True
|
||
|
|
END
|
||
|
|
Attribute VB_Name = "RulesProcessor"
|
||
|
|
Attribute VB_GlobalNameSpace = False
|
||
|
|
Attribute VB_Creatable = False
|
||
|
|
Attribute VB_PredeclaredId = False
|
||
|
|
Attribute VB_Exposed = False
|
||
|
|
Option Explicit
|
||
|
|
|
||
|
|
Private word_ As API_WordWrapper
|
||
|
|
|
||
|
|
Public errors_ As Long
|
||
|
|
Public fixes_ As Long
|
||
|
|
|
||
|
|
Public Function Init(iWord As API_WordWrapper, iConfig As API_Config)
|
||
|
|
Set word_ = iWord
|
||
|
|
Dim sConfig$: sConfig = iConfig.SaveToJSON
|
||
|
|
Dim sFile$: sFile = iWord.Document.FullName
|
||
|
|
If Not word_.Run("RulesAccess.InitProcessor", sFile, sConfig) Then _
|
||
|
|
Call Err.Raise(ERR_CANNOT_INIT)
|
||
|
|
End Function
|
||
|
|
|
||
|
|
Public Function RunRule(sRuleID$, Optional bApplyFix As Boolean = True)
|
||
|
|
Dim vResult As Variant
|
||
|
|
vResult = word_.Run("RulesAccess.RunRule", sRuleID, bApplyFix)
|
||
|
|
If vResult(0) <> 0 Then _
|
||
|
|
Call Err.Raise(vResult(0))
|
||
|
|
errors_ = vResult(1)
|
||
|
|
fixes_ = vResult(2)
|
||
|
|
End Function
|
||
|
|
|
||
|
|
Public Function FinalizeProcessing()
|
||
|
|
Call word_.Run("RulesAccess.FinalizeRulesProcessing")
|
||
|
|
End Function
|