The code of the case type.
object.Code
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISCaseType interface |
string
Display the number of case types loaded on the basis of the selected filter and some information about them, including their codes.
Dim aFilter
Dim aCaseTypes, aCaseType
Dim aMessage
Dim i
Set aFilter = Profile.CreateCaseTypesFilter
aFilter.Description = "Case Type 1"
set aCaseTypes = Profile.LoadCaseTypes(aFilter)
aMessage = "Case Types Count = " & aCaseTypes.Count
for i = 0 to aCaseTypes.Count - 1
set aCaseType = aCaseTypes.Item(i)
aMessage = aMessage & vbNewLine &_
"Title: " & aCaseType.Title & vbNewLine &_
"Code: " & aCaseType.Code & vbNewLine &_
"Description: " & aCaseType.Description& vbNewLine &_
"Title Enabled: " & aCaseType.TitleEnabled & vbNewLine &_
"Color Enabled: " & aCaseType.ColorEnabled & vbNewLine &_
"Color: " & HEX(aCaseType.Color) & vbNewLine
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Code can be found in
.