'LANGUAGE=ENU
'SERVERNAME=<server ip>
Public Sub Main()
'## cvs_cmd_begin
'## ID = 2001
'## Description = "Report: Historical: Designer: Local Interval: Save HTML"
'## Parameters.Add "Report: Historical: Designer: Local Interval: Save HTML","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "1","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\Designer\Local Interval","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "315","_Top"
'## Parameters.Add "2505","_Left"
'## Parameters.Add "12225","_Width"
'## Parameters.Add "13140","_Height"
'## Parameters.Add "The report Historical\Designer\Local Interval was not found on ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "22;24","Trunk Groups"
'## Parameters.Add "-1","Dates"
'## Parameters.Add "00:00-23:30","Times"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\Documents and Settings\user\Desktop\Daily Reports\Local Interval.xls","_Output"
'## Parameters.Add "","_Template"
'## Parameters.Add "True","_UseFonts"
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Local Interval")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Historical\Designer\Local Interval was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "The report Historical\Designer\Local Interval was not found on ACD 1."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then
Rep.Window.Top = 315
Rep.Window.Left = 2505
Rep.Window.Width = 12225
Rep.Window.Height = 13140
Rep.SetProperty "Trunk Groups","22;24"
Rep.SetProperty "Dates","-1"
Rep.SetProperty "Times","00:00-23:30"
b = Rep.ExportData("C:\Documents and Settings\user\Desktop\Local Interval " &FormatDateTime(date(), 1)&".txt"), 44, 1, True, True, True)
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