ChainedRecords

NICE CXone API & Integrations
1

Hi people, I have a problem with the chain records, if you can helpme thanks.

I have the following recors on the database.

chain_id chain_n phone
1 0 1234
1 1 1255
1 2 1266
2 3 9652

The campaign mode is preview.

This is the code for take the records.
***************** (this function perfect, and I get the phone)

            Dim OUTUD As CTKVList
            Set OUTUD = New CTKVList
            
            Dim OUTP As CTKVPair
            Set OUTP = New CTKVPair
            
            OUTP.key = "GSW_AGENT_REQ_TYPE"
            OUTP.Type = CKVTypeString
            OUTP.StringValue = "PreviewRecordRequest" 
            OUTUD.AddTail OUTP
            
            OUTP.key = "GSW_APPLICATION_ID"
            OUTP.Type = CKVTypeNum
            OUTP.NumValue = PublicCTKVList.Get(4).NumValue
            OUTUD.AddTail OUTP
            
            OUTP.key = "GSW_CAMPAIGN_NAME"
            OUTP.Type = CKVTypeString
            OUTP.StringValue = PublicCTKVList.Get(1).StringValue
            OUTUD.AddTail OUTP
            
            'OUTUD.Insert 0, OUTP
            Dim EVENI As TEventInfo
            Set EVENI = New TEventInfo
            EVENI.UserData = OUTUD
            Me.TExtension1.TSendUserEvent EVENI

*********** (this code take any problem, this code I use for the next chain phone, but no found, the firs request from ocs is the eventtype=138 but the second request from ocs es 96 and the description is: “Invalid Request Data”)

Dim OUTUD As CTKVList
Set OUTUD = New CTKVList

Dim OUTP As CTKVPair
Set OUTP = New CTKVPair

OUTP.key = "GSW_AGENT_REQ_TYPE"
OUTP.Type = CKVTypeString
OUTP.StringValue = "ChainedRecordRequest"
OUTUD.AddTail OUTP

OUTP.key = "GSW_APPLICATION_ID"
OUTP.Type = CKVTypeNum
OUTP.NumValue = 133
OUTUD.AddTail OUTP
   
OUTP.key = "GSW_CAMPAIGN_NAME"
OUTP.Type = CKVTypeString
OUTP.StringValue = "Campaign_outbound_test_115"
OUTUD.AddTail OUTP 
   
Dim i As Integer
Dim gswRH As String
For i = 0 To PublicCTKVListCallNow.GetCount()
    If PublicCTKVListCallNow.Get(i).key = "GSW_RECORD_HANDLE" Then
        gswRH = PublicCTKVListCallNow.Get(i).NumValue
    End If
    
Next
   
OUTP.key = "GSW_RECORD_HANDLE"
OUTP.Type = CKVTypeNum
OUTP.StringValue = gswRH
OUTUD.AddTail OUTP

Dim EVENI As TEventInfo
Set EVENI = New TEventInfo
EVENI.UserData = OUTUD
Me.TExtension1.TSendUserEvent EVENI

You know if I need any code for a correct request from ocs?

Thanks.