Filtering the contents of an event

Es posible editar el código de la acción de flujo Filtro para dividir el contenido de un evento concreto en dos grupos.
Por ejemplo, en la aprobación de páginas puede que desee probar las páginas extensas de una forma y el resto de páginas de otra. Puede usar la acción de flujo Filtro para realizar este tipo de división.
De forma predeterminada, la interfaz de usuario crea dos bloques de código: uno que contiene las condiciones True/False para el filtro y otro que comprueba la condición para cada elemento de interés y lo agrega a las listas Accepted o Rejected.
' =======================================================
' The ConfigureAction function implements a filter.
' It is called with the event which triggered the rule and the action.
' ================================================================
Public Sub ConfigureAction( _
ByVal triggerEvent As Creo.PWS.Automation.PrinergyDataModel.SurfaceFullEvent, _
ByVal action As Creo.PWS.Automation.GenericDataModel.FilterAction)
'Create a counter variable and initialize to the value 0
Dim idx0 As Integer = 0
'Next we create a loop that will go through all the input files (until
'the counter reaches the end of the list)
Do While (idx0 < triggerEvent.Surfaces.Length)
Dim idx1 As Integer = 0
Do While (idx1 < triggerEvent.Surfaces(idx0).Separations.Length)
'Check to see if this item is Accepted or Rejected
If Me.IsAccepted(triggerEvent.Surfaces(idx0).Separations(idx1)) Then
'This is how we add an item to the Accepted list for the filter
action.AddAcceptedItem(triggerEvent.Surfaces(idx0).Separations(idx1))
Else
'This is how we add an item to the Rejected list for the filter
action.AddRejectedItem(triggerEvent.Surfaces(idx0).Separations(idx1))
End If
idx1 = (idx1 + 1)
Loop
idx0 = (idx0 + 1)
Loop
End Sub

' ==============================================================
' The condition functions test each item selected by the filter.
' If it returns true the item will be added to a list of items accepted by the filter.
' If it returns false the item will be added to a list of items rejected by the filter.
' =============================================================
Private Function Condition1( _
ByVal item As Creo.PWS.Automation.PrinergyDataModel.PageApprovalChangedEvent) _
As Boolean
Return (item.NewApprovalState = _
Creo.PWS.Automation.PrinergyDataModelTypes.ApprovalState.Approved)
End Function
Private Function Condition1( _
ByVal candidate As Creo.PWS.Automation.PrinergyDataModel.Separation) As Boolean
'We return a TRUE if this item is accepted by the filter, a FALSE value if not
Return candidate.Color.IsProcessYellow
End Function