ISWCBFormHistory.Count

Example

Display the number of WCB F8/11 Form history items and some information about them.

Dim aWCBFormHistory
Dim aWCBFormHistoryItem
Dim aService
Dim aMessage
Dim i   

Set aWCBFormHistory = Profile.CollectWCBFormHistory(5840)

aMessage = "WCB Form History Items Count: " & aWCBFormHistory.Count & vbNewLine

for i = 0 to aWCBFormHistory.Count - 1
  set aWCBFormHistoryItem = aWCBFormHistory.Item(i)
  set aService = Profile.LoadServiceByID(aWCBFormHistoryItem.ServiceID) 
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "Date: " & aWCBFormHistoryItem.Date & vbNewLine &_
    "Amount: " & aWCBFormHistoryItem.Amount & vbNewLine &_
    "Paid: " & aWCBFormHistoryItem.Paid & vbNewLine &_
    "EForm Code ID: " & aWCBFormHistoryItem.EFormCodeID & vbNewLine &_
    "Service: " &  aService.Description & vbNewLine &_
    "Is Claimed: " & aWCBFormHistoryItem.States.IsClaimed & vbNewLine &_
    "Is Paid: " & aWCBFormHistoryItem.States.IsPaid & vbNewLine  
next

Profile.MsgBox(aMessage)