Jump to content


< Back to Forum


 

Caller Id Is Outofarea


  • Please log in to reply

#1 Chrisksyeung 08 March 2016 - 04:11 PM

Dear Sir

I use Version 7.0 and use VB script to make Caller ID , But only one record appear  OUTOFAREA

Below is VB script , How to change script to mark OUTOFAREA to Emtpy field to CAllerID

 

[Save Data to File VBS_7]
Type=Run VB Script
DispSize=69
Txt=Save entered data to a file using VBScript
VbsFileToRun=
VbsWait=1
VbScript=
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
set fso = CreateObject("Scripting.FileSystemObject")
set tsFile = fso.OpenTextFile("c:\Program Files\VoiceGuide\Scripts\Meter Reading\IVRattendence.txt", ForAppending, True)

If $RV_HH > 12 Then

 ihh =right("0" &cstr($RV_HH - 12),2)

  tsFile.WriteLine "20$RV_YY/$RV_MM/$RV_DD PM " & ihh & ":$RV_NN:$RV_SS" & vbTab & "$RV_CIDNUMBER" & vbTab & "$RV[GetID]"
Else
  tsFile.WriteLine "20$RV_YY/$RV_MM/$RV_DD AM $RV_HH:$RV_NN:$RV_SS" & vbTab & "$RV_CIDNUMBER" & VbTab & "$RV[GetID]"

End If



#2 SupportTeam 08 March 2016 - 06:25 PM

Try this:

Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
set fso = CreateObject("Scripting.FileSystemObject")
set tsFile = fso.OpenTextFile("c:\Program Files\VoiceGuide\Scripts\Meter Reading\IVRattendence.txt", ForAppending, True)


sMyCid = "$RV_CIDNUMBER"
if (sMyCid = "OUTOFAREA")
  sMyCid = ""
End If


If $RV_HH > 12 Then

 ihh =right("0" &cstr($RV_HH - 12),2)

  tsFile.WriteLine "20$RV_YY/$RV_MM/$RV_DD PM " & ihh & ":$RV_NN:$RV_SS" & vbTab & sMyCid & vbTab & "$RV[GetID]"
Else
  tsFile.WriteLine "20$RV_YY/$RV_MM/$RV_DD AM $RV_HH:$RV_NN:$RV_SS" & vbTab & sMyCid & VbTab & "$RV[GetID]"

End If