Web Client Automation Server (Doc ID 492230.1)

Last updated on JULY 11, 2017

Applies to:

Siebel Tools - Version 7.5.3 [103] to 8.1.1.8 [23012] [Release V7 to V8]
Information in this document applies to any platform.
Product Release: V8 (Enterprise)
Version: 8.0 [20405] DEU Cons Goods
Database: Oracle 10.2.0.2
Application Server OS: Microsoft Windows 2003 Server SP2
Database Server OS: Microsoft Windows 2003 Server SP2

This document was previously published as Siebel SR 38-3408916791.
Checked for relevance on 31-Oct-2013


Symptoms


After upgrade from Siebel 7.5.3 to Siebel 8 there was problem with an embedded ActiveX control and the Siebel Web Client Automation Server. To reproduce this behavior in Siebel Vanilla the following configuration steps were done:

In Siebel Tools

1. Created a DLL
Name: SISTestCtrl
Code or Class ID: clsid:6789C913-AF21-4B4E-9AF0-06153E809093
File Name: SISTestCtrl.CAB

2. Created a Class
Name: CSSISTestCtrl
DLL: SISTestCtrl
Object Type: ActiveX Control

3. Created a new Business Service
Name: TSTParam
Class: CSSService
External Use: Y
Server Enabled: Y
State Mgmt Type: Stateful
Web Service Enabled: Y

The business service contains a simple method "GetTestParam".

4. Added an ActiveX Control to "SIS Account Entry Applet"
Name: HTML ActiveXControl
Class: CSSISTestCtrl
HTML Type: ActiveXControl

5. Browser Script on Applet "SIS Account Entry Applet"
function Applet_ChangeRecord ()
{
var elem = this.FindActiveXControl("HTML ActiveXControl");
elem.GetTestParam();

}

6. Added User Property to the Application "Siebel Universal Agent"
Name: ClientBusinessService10
Value: TSTParam

Further we set "EnableWebClientAutomatio = TRUE" in the [InfraUIFramework] section of the CFG file.

The ActiveX is a OCX file written in VB6. The ActiveX communicates with the Siebel application using the COM interface "Siebel Web Client Automation". To initialize the com object following code was used:

// Declaration area
Public oSiebApp As SiebelHTMLApplication

Private Sub UserControl_Initialize()
Set oSiebApp = CreateObject("Siebel.Desktop_Integration_Application.1")
// in Siebel 753: Set oSiebApp = CreateObject("SiebelHTML.SiebelHTMLApplication.1")

GetTestParam
End Sub


Public Function GetTestParam() As String
...
Dim oOS As SiebelPropertySet
Dim oIS As SiebelPropertySet
Dim oSiebSrv As SiebelService

Set oOS = oSiebApp.NewPropertySet
Set oIS = oSiebApp.N...

Changes

 

Cause

Sign In with your My Oracle Support account

Don't have a My Oracle Support account? Click to get started

My Oracle Support provides customers with access to over a
Million Knowledge Articles and hundreds of Community platforms