The status of the external provider.
| 1 | Active |
| 2 | On leave |
| 3 | Inactive |
| 4 | Departed |
| 5 | Locum |
object.Status
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISExternalProvider interface |
int
Display the status of the selected external provider.
Dim aExtProvider
Dim aCode
Dim aMessage
aCode = "1"
Set aExtProvider = Profile.LoadExternalProvider(aCode)
if aExtProvider.ID = 0 then
Profile.MsgBox("No external provider with the specified code")
exit sub
end if
aMessage = "FULL NAME:" & vbTab & aExtProvider.FullName & vbNewLine &_
"STATUS:" & vbTab & aExtProvider.Status & vbNewLine &_
"STATUS DESCRIPTION:" & vbTab & aExtProvider.StatusDescription
Profile.MsgBox(aMessage) In Profile Client v8 on User Interface Status can be found in .