Genesys CTI User Forum

Genesys CTI User Forum => Genesys CTI Technical Discussion => Topic started by: Outbound Reporting on February 23, 2007, 10:35:14 AM

Title: How to retrieve GSW_APPLICATION_ID
Post by: Outbound Reporting on February 23, 2007, 10:35:14 AM

Hi,



how can I retrieve GSW_APPLICATION_ID which is  OCS server id in cfg_db without doing some fancy leg work? I refuse to believe that there is no simple way to determine this id. I noticed that without defining this ID, nothing, and I do mean nothing, gets passed to ocs from the agent.

Thanks a bunch!
[move]OCS products are fun.....................if you have nothing better to do...........[/move]

Title: Re: How to retrieve GSW_APPLICATION_ID
Post by: Fra on February 23, 2007, 01:30:05 PM

[quote author=Outbound Reporting link=topic=2071.msg7118#msg7118 date=1172226914]

how can I retrieve GSW_APPLICATION_ID which is  OCS server id in cfg_db without doing some fancy leg work? I refuse to believe that there is no simple way to determine this id. I noticed that without defining this ID, nothing, and I do mean nothing, gets passed to ocs from the agent.
[/quote]

Outbound Reporting,

as soon as the agent logs in and/or when a campaign is started, OCS sends to the agent desktop the event CampaignStarted with the key GSW_APPLICATION_ID.. take a look at the Outbound Contact Reference Manual.

Title: Re: How to retrieve GSW_APPLICATION_ID
Post by: cavagnaro on February 23, 2007, 05:58:48 PM

Dim myUserDataList As New CTKVList
Dim myUserDataPair As New CTKVPair

Set myUserDataList = EventInfo.UserData
    If myUserDataList.GetCount >= 1 Then
        For i = 0 To myUserDataList.GetCount
            Set myUserDataPair = myUserDataList.Get(i)
               
                Select Case myUserDataPair.Key
                    Case "GSW_CAMPAIGN_NAME"
                        Campaign_Name = myUserDataPair.StringValue
                    Case "GSW_APPLICATION_ID"
                        AppId = myUserDataPair.NumValue
                    Case "GSW_RECORD_HANDLE"
                        Record_Handle = myUserDataPair.NumValue
                    'And so on for all the data you may need
              end Select
        next
    end if

Regards