The date and time when the service was changed.
object.Changed
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISService interface |
DateTime
Display the number of the services loaded on the basis of the selected filter, some information about them, including the date and time when the services were changed.
Dim aFilter
Dim aService
Dim aServices
Dim aMessage
Dim i
Set aFilter = Profile.CreateServicesFilter
aFilter.Description = "Injection"
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 &_
"DefaultDeliveryTime: " & aService.DefaultDeliveryTime & vbNewLine &_
"Group ID: " & aService.GroupId & vbNewLine
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Changed cannot be found, but Service can be found in
.