Hi people, I have a problem with Toolkit Desktop VB6 (7.1), when ocs is on mode Progessive I need change the status manualy, for example I have a 3 phone number of a one client, the ocs sendme the firts number (chain_n=0), on this number the uncle of the client answere but the client is on the seccond number (chain_n=1), I need put the call_result on "no answer" because a treatment when the callresult is no answere giveme the next chain_n. But when send a "RecordProcessed" ocs sendme the error: [font=Verdana][b]Record not found.[/b][/font]
Note: I put on: evironment-applications-oc_server (options/ocserver: record_processed = yes)
[b]Thanks for your help.[/b]
This is the code:
[font=Verdana][b]For send the update call result:[/b][/font]
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 = "RecordProcessed"
OUTUD.AddTail OUTP
OUTP.key = "GSW_APPLICATION_ID"
OUTP.Type = CKVTypeNum
OUTP.NumValue = 136
OUTUD.AddTail OUTP
OUTP.key = "GSW_CALLING_LIST"
OUTP.Type = CKVTypeString
OUTP.StringValue = "Calling List TAO"
OUTUD.AddTail OUTP
OUTP.key = "GSW_CAMPAIGN_NAME"
OUTP.Type = CKVTypeString
OUTP.StringValue = "Campaign_Renewals"
OUTUD.AddTail OUTP
OUTP.key = "GSW_CALL_RESULT"
OUTP.Type = CKVTypeNum
OUTP.NumValue = 33
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
[font=Verdana][b]For active the updated record:[/b][/font]
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
OUTUD.AddTail OUTP
OUTP.key = "GSW_APPLICATION_ID"
OUTP.Type = CKVTypeNum
OUTP.NumValue = 136
OUTUD.AddTail OUTP
OUTP.key = "GSW_CAMPAIGN_NAME"
OUTP.Type = CKVTypeString
OUTP.StringValue = "Campaign_Renewals"
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