The default delivery time of the service.
object.DefaultDeliveryTime
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISService interface |
int
Display the number of the services loaded on the basis of the selected filter and some information about them, including the default delivery time of the services.
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 &_
"Default Delivery Time: " & aService.DefaultDeliveryTime
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Default Delivery Time can be found in
.