
oich this dogs are less smart on this days lol
Set myEventInfo = CreateObject("DesktopToolkitX.TEventInfo")
Set myListReagendaR = CreateObject("TCommObj.CTKVList")
Set myPairReagendaR = CreateObject("TCommObj.CTKVPair")
myPairReagendaR.Key = "GSW_AGENT_REQ_TYPE"
myPairReagendaR.Type = CKVTypeString
myPairReagendaR.StringValue = "RecordReschedule"
myListReagendaR.AddHead myPairReagendaR
myPairReagendaR.Key = "GSW_CAMPAIGN_NAME"
myPairReagendaR.Type = CKVTypeString
myPairReagendaR.StringValue = Campaign_Name
myListReagendaR.AddHead myPairReagendaR
myPairReagendaR.Key = "GSW_APPLICATION_ID"
myPairReagendaR.Type = CKVTypeNum
myPairReagendaR.NumValue = AppId
myListReagendaR.AddHead myPairReagendaR
myPairReagendaR.Key = "GSW_RECORD_HANDLE"
myPairReagendaR.Type = CKVTypeNum
myPairReagendaR.NumValue = Record_Handle
myListReagendaR.AddHead myPairReagendaR
myPairReagendaR.Key = "GSW_DATE_TIME"
myPairReagendaR.Type = CKVTypeString
myPairReagendaR.StringValue = Date_Time_Us
myListReagendaR.AddHead myPairReagendaR
myPairReagendaR.Key = "GSW_CALLBACK_TYPE"
myPairReagendaR.Type = CKVTypeString
'0=Personal, 1=Campaign
Select Case iCallBackType
Case 0:
CallBackTypE = "Campaign"
Case 1:
CallBackTypE = "Personal"
Case Else:
CallBackTypE = "Campaign"
End Select
myPairReagendaR.StringValue = CallBackTypE
myListReagendaR.AddHead myPairReagendaR
myPairReagendaR.Key = "ProcesoRescheduleCTI"
myPairReagendaR.Type = CKVTypeString
myPairReagendaR.StringValue = "Lanzado Exito"
myListReagendaR.AddHead myPairReagendaR
Set myEventInfo.UserData = myListReagendaR
myEventInfo.ThisDN = frmSender.TExtension1.TDN
frmSender.TExtension1.TSendUserEvent myEventInfo
Set myEventInfo = Nothing
Set myListReagendaR = Nothing
Set myPairReagendaR = Nothing