Bookshelf Home | Contents | Index | Search | PDF |
Siebel Object Interfaces Reference > Interfaces Reference > Business Component Events >
BusComp_Query
The Query event is called just after the query is complete and the rows have been retrieved, but before the rows are actually displayed.
Syntax
BusComp_Query
Returns
Not applicable
Used With
Server Script
Example
In this Siebel VB example, important information is defined using the Action business component with a special activity type. If the user starts an account query, the code checks whether important information is available. If so, the information is displayed in a message box.
Sub BusComp_Query
Dim oBusObj As BusObject, oCurrFinAct As BusComp,
Dim oActivities as BusComp, oAppl as Applet
Dim sName as String, sDescription as StringOn error goto leave
set oBusObj = theApplication.ActiveBusObject
Set oCurrFinAct = theApplication.ActiveBusCompIf oCurrFinAct.FirstRecord <> 0 then
sName = oCurrFinAct.GetFieldValue("Name")
Set oActivities = oBusObj.GetBusComp("Finance _
Important Info Activity")
With oActivities
.ActivateField("Description")
.ClearToQuery
.SetSearchSpec "Account Name", sName
.SetSearchSpec "Type", "Important Info"
.ExecuteQuery ForwardOnly
If .FirstRecord <> 0 then
sDescription = .GetFieldValue("Description")
theApplication.Trace("Important Information: " + sDescription)
do while .NextRecord <> 0
sDescription = .GetFieldValue("Description")
theApplication.Trace("Important Information: " + sDescription)
loop
End If
End With
End Ifleave:
Set oCurrFinAct = Nothing
set oBusObj = NothingEnd Sub
Bookshelf Home | Contents | Index | Search | PDF |
Siebel Object Interfaces Reference Published: 18 June 2003 |