This function returns the claims loaded on the basis of the selected filter.
object.LoadClaims(aFilter)
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
|
aFilter |
In, Required | The object that defines conditions for
filtering |
Display the number of the claims loaded on the basis of the selected filter and their dates.
Dim aFilter
Dim aClaim
Dim aClaims
Dim aMessage
Set aFilter = Profile.CreateClaimFilter
aFilter.DateFrom = #06/08/2018#
set aClaims = Profile.LoadClaims(aFilter)
aMessage = "Claims Count = " & aClaims.Count
for i = 0 to aClaims.Count - 1
set aClaim = aClaims.Item(i)
aMessage = aMessage & vbNewLine & "The date of the claim is " & aClaim.Date
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Claims can be found in
.