Owner's manual

DOKuStar Validation for Ascent Capture Page • 105
Private Sub colorDoc(doc As Document, bnOK As Boolean)
Dim lngRed As Long
Dim lngGreen As Long
Dim lngBlue As Long
Dim cs As ColorService
Set cs = doc.Services("Color")
lngRed = 0
lngGreen = 0
lngBlue = 0
' display processed documents in different colors...
If bnOK Then
lngGreen = 255
cs.SetForeColor lngRed, lngGreen, lngBlue '...document without an empty field
Else
lngBlue = 255
cs.SetForeColor lngRed, lngGreen, lngBlue '...document contain at least one empty field
End If
End Sub