ISServiceLookupParam.ActiveOnly

Description

This property is True, if only active objects are included in the loaded lookup list.

Syntax

object.ActiveOnly

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

Return Value

bool

Example

Display the number of the service lookup items, their descriptions, codes and IDs.

Dim aParam
Dim aLookupType
Dim aList
Dim aItem
Dim aMessage

Set aParam = Profile.MakeServiceLookupParam
aParam.Value = "AD"

aParam.ActiveOnly = true
aLookupType = 20
set aList = Profile.LoadLookupList2(aLookupType, aParam) 

aMessage = "Services Count = " & aList.Count & vbNewLine & vbNewLine
for each aItem in aList
  aMessage = aMessage &  aItem.Id & vbTab & aItem.Code & vbTab & aItem.Description & vbNewLine
next

Profile.MsgBox(aMessage)

Note:

Version information

Added in v7.8.0