VisibleInCorrection

This property sets or returns if a project class is available for classification. You can modify this property prior to classification correction for a Verifier by setting the property to TRUE if the class is available for classification correction, or FALSE if the class is unavailable for classification correction.

Dynamic modification of this property is managed through the ScriptModule_VerifierClassify event. Dynamic modification of the class visibility overrides the default Designer class property.

Syntax

VisibleInCorrection as Boolean

Sample Code

The following sample code shows how to dynamically modify the property of classes prior to showing the classification view.

The example below hides Invoices, BOLZ and UNICOM classes from verification availability.

Public Function fnShouldHideClass(ByVal strClassNameToCheck as String, pWorkdoc as SCBCdrPROJLib.SCBCdrWorkdoc) as Boolean
   Select Case UCase (strClassNameToCheck)
      Case "BOLZ COMPANY 1234561"
         fnShouldHideClass = False
      Case "UNICOM CORPORATION 1234563"
         fnShouldHideClass = False
      Case "INVOICES"
         fnShouldHideClass = False
      Case Else
         fnShouldHideClass = True
   End Select
End Function
Private Sub ScriptModule_VerifierClassify(pWorkdoc as SCBCdrPROJLib.SCBCdrWorkdoc, ByVal Reason as SCBCdrPROJLib.CdrVerifierClassifyReason, ClassName as String)
   Dim i as Long
   Dim strNextClassName as String
   If Reason = CdrInitReason Then
      For i = 1 To Project.AllClasses.Count Step 1
         strNextClassName = Project.AllClasses.ItemName(i)
         Project.AllClasses.ItemByIndex(i).VisibleInCorrection = fnShouldHideClass(strNextClassName, pWorkdoc)
      Next i
   End If
End Sub