I recently upgraded to Windows 7 and am now using CMS Supervisor R17. The problem I am having is when I run any script, I get the error- (null) [Line 7] (null). I have deleted all my scripts and created them over, but I still get the same error every time. I used to run these same scripts on CMS Supervisor R16 on Window XP with no issues. Below is one of the scripts created with CMS R17 that I am troubleshooting with. I "XX" out the IP on this post for security reasons. Any assistance on resolving this issue is greatly appreciated.
'LANGUAGE=ENU
'SERVERNAME=XXX.XXX.XXX.XXX
Public Sub Main()
'## cvs_cmd_begin
'## ID = 2001
'## Description = "Report: Integrated: Split/Skill: Comparison Report: Export Data"
'## Parameters.Add "Report: Integrated: Split/Skill: Comparison Report: Export Data","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Integrated\Split/Skill\Comparison Report","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "270","_Top"
'## Parameters.Add "0","_Left"
'## Parameters.Add "9555","_Width"
'## Parameters.Add "11655","_Height"
'## Parameters.Add "The report Integrated\Split/Skill\Comparison Report was not found on ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "12;13;418;419;410;411;57;58;424;425;414;415;210;2 11;161;162;422;423;308;309;86;87;416;417;412;413;4 26;427;420;421;279","Splits/Skills"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "G1,0,0;0,2,0","data"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\ACD Reports\ACD1daily-afterhours.xls","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "False","_Labels"
'## Parameters.Add "False","_DurSecs"
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Integrated\Split/Skill\Comparison Report")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Integrated\Split/Skill\Comparison Report was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "The report Integrated\Split/Skill\Comparison Report was not found on ACD 1."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then
Rep.Window.Top = 270
Rep.Window.Left = 0
Rep.Window.Width = 9555
Rep.Window.Height = 11655
Rep.SetProperty "Splits/Skills","12;13;418;419;410;411;57;58;424;425;414;4 15;210;211;161;162;422;423;308;309;86;87;416;417;4 12;413;426;427;420;421;279"
Rep.ReportView.Add "G1,0,0;0,2,0","data"
b = Rep.ExportData("C:\Users\ssealey\Documents\Region 6\ACD Reports\ACD1daily-afterhours.xls", 9, 0, True, False, False)
Rep.Quit
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
End If
Set Info = Nothing
'## cvs_cmd_end
End Sub
'LANGUAGE=ENU
'SERVERNAME=XXX.XXX.XXX.XXX
Public Sub Main()
'## cvs_cmd_begin
'## ID = 2001
'## Description = "Report: Integrated: Split/Skill: Comparison Report: Export Data"
'## Parameters.Add "Report: Integrated: Split/Skill: Comparison Report: Export Data","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Integrated\Split/Skill\Comparison Report","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "270","_Top"
'## Parameters.Add "0","_Left"
'## Parameters.Add "9555","_Width"
'## Parameters.Add "11655","_Height"
'## Parameters.Add "The report Integrated\Split/Skill\Comparison Report was not found on ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "12;13;418;419;410;411;57;58;424;425;414;415;210;2 11;161;162;422;423;308;309;86;87;416;417;412;413;4 26;427;420;421;279","Splits/Skills"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "G1,0,0;0,2,0","data"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\ACD Reports\ACD1daily-afterhours.xls","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "False","_Labels"
'## Parameters.Add "False","_DurSecs"
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Integrated\Split/Skill\Comparison Report")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Integrated\Split/Skill\Comparison Report was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "The report Integrated\Split/Skill\Comparison Report was not found on ACD 1."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then
Rep.Window.Top = 270
Rep.Window.Left = 0
Rep.Window.Width = 9555
Rep.Window.Height = 11655
Rep.SetProperty "Splits/Skills","12;13;418;419;410;411;57;58;424;425;414;4 15;210;211;161;162;422;423;308;309;86;87;416;417;4 12;413;426;427;420;421;279"
Rep.ReportView.Add "G1,0,0;0,2,0","data"
b = Rep.ExportData("C:\Users\ssealey\Documents\Region 6\ACD Reports\ACD1daily-afterhours.xls", 9, 0, True, False, False)
Rep.Quit
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
End If
Set Info = Nothing
'## cvs_cmd_end
End Sub
Comment