ISService.Status

Description

The status of the service.

1	srstActive
2	srstInactive
3	srstDiscontinued

Syntax

object.Status

Part	Attribute	Type	Description
`object`	Required	ISService	The `object` always implements the ISService interface

Restriction: This property is readonly.

Return Value

int

Example

Display the number of the services loaded on the basis of the selected filter and some information about them, including their statuses.

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 & vbNewLine &_
    "Group ID: " & aService.GroupId & vbNewLine 
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Status can be found in Maintain > Services > Edit > Status field.

Version information

Added in v7.8.0