Siebel SmartScript Administration Guide > Extending Scripts with Siebel VB and Siebel eScript > Siebel VB and Siebel eScript Sample Code >
Sample Code of Finding a Contact
The following Siebel VB and Siebel eScript code samples look for the current caller in the database. Siebel VB Code
Sub Script_Open
Dim FirstQuestion as SmartScriptQuestion Dim ContactBC as BusComp Dim ContactId as String Dim ContactExists as Integer
Set FirstQuestion = StartQuestion Set ContactBC = FirstQuestion.GetSaveBusComp
ContactBC.ActivateField "Id " ContactId = GetParameter("ContactId")
If ContactId <> "" then
ContactBC.SetViewMode 3 ContactBC.SetSearchSpec "Id", ContactId ContactBC.ExecuteQuery ForwardBackward ContactExists = ContactBC.FirstRecord()
If not ContactExists then ContactBC.NewRecord NewBefore end if
else
ContactBC.NewRecord NewBefore
end if
End Sub
Siebel eScript Code
function Script_Open () {
var FirstQuestion; var ContactBC; var ContactId; var ContactExists;
FirstQuestion = StartQuestion (); ContactBC = FirstQuestion.GetSaveBusComp ();
ContactBC.ActivateField ("Id"); ContactId = GetParameter ("ContactId");
if (ContactId != "") {
ContactBC.SetViewMode (3); ContactBC.SetSearchSpec ("Id", ContactId); ContactBC.ExecuteQuery (ForwardBackward); ContactExists = ContactBC.FirstRecord ();
if (!ContactExists)
{ ContactBC.NewRecord (NewBefore); }
} else {
ContactBC.NewRecord (NewBefore);
}
}
|