Returns True, if the group is the group header.
object.IsGroupHeader
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISService interface |
bool
Display IsGroupHeader for the specified service.
Dim aFilter
Dim aService
Dim aServices
Dim aMessage
Dim i
Set aFilter = Profile.CreateServicesFilter
aFilter.Description = "Accidents"
set aServices = Profile.LoadServicesByFilter(aFilter)
aMessage = "Services Count = " & aServices.Count & vbNewLine
for i = 0 to aServices.Count - 1
set aService = aServices.Item(i)
aMessage = aMessage & vbNewLine & "----------------------------" & vbNewLine &_
"Description: " & aService.Description & vbNewLine &_
"Code: " & aService.Code & vbNewLine &_
"Added: " & aService.Added & vbNewLine &_
"Changed: " & aService.Changed & vbNewLine &_
"Status: " & aService.Status & vbNewLine &_
"ID: " & aService.ID & vbNewLine &_
"Output Code: " & aService.OutputCode & vbNewLine &_
"Default Delivery Time: " & aService.DefaultDeliveryTime & vbNewLine &_
"Is Group Header: " & aService.IsGroupHeader & vbNewLine
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface the Group Header checkbox can be checked in
.