Good day,
I produce reports in Excel 2007 that calculate data exported from Avaya CMS 16.1 through VBA. I'm having trouble exporting CMS reports in different time zones. In the code, when I set the CMS report properties and try to change the time zone it shows me an error or it doesn't change the time zone at all, depending on the code I used.
Here is part of the code:
....
....
....
....
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports(sReportName)
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The Report " & sReportName & " was not found on ACD 1", vbCritical Or vbOKOnly, "CentreVu Supervisor"
Else
Set Log = CreateObject("ACSERR.cvslog")
Log.AutoLogWrite "The Report " & sReportName & " was not found on ACD 1"
Set Log = Nothing
End If
Else
B = cvsSrv.Reports.CreateReport(Info, Rep)
If B Then
'--------- Report Properties --------------------
'-----------------------------------------------
'Rep.TimeZone = "US/Central" ---- shows "Method or data not found"
'cvsSrv.Reports.TimeZone = "US/Central" ------ no change is performed
Debug.Print Rep.SetProperty("Splits/Skills", sk)
Debug.Print Rep.SetProperty("Dates", 0)
Debug.Print Rep.SetProperty("Times", "01:00-00:30")
B = Rep.ExportData("", 9, 0, False, True, True)
Rep.Quit
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
End If
Set Info = Nothing
....
....
....
....
I would really appreciate some help with this.
Thanks in advance!
I produce reports in Excel 2007 that calculate data exported from Avaya CMS 16.1 through VBA. I'm having trouble exporting CMS reports in different time zones. In the code, when I set the CMS report properties and try to change the time zone it shows me an error or it doesn't change the time zone at all, depending on the code I used.
Here is part of the code:
....
....
....
....
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports(sReportName)
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The Report " & sReportName & " was not found on ACD 1", vbCritical Or vbOKOnly, "CentreVu Supervisor"
Else
Set Log = CreateObject("ACSERR.cvslog")
Log.AutoLogWrite "The Report " & sReportName & " was not found on ACD 1"
Set Log = Nothing
End If
Else
B = cvsSrv.Reports.CreateReport(Info, Rep)
If B Then
'--------- Report Properties --------------------
'-----------------------------------------------
'Rep.TimeZone = "US/Central" ---- shows "Method or data not found"
'cvsSrv.Reports.TimeZone = "US/Central" ------ no change is performed
Debug.Print Rep.SetProperty("Splits/Skills", sk)
Debug.Print Rep.SetProperty("Dates", 0)
Debug.Print Rep.SetProperty("Times", "01:00-00:30")
B = Rep.ExportData("", 9, 0, False, True, True)
Rep.Quit
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
End If
Set Info = Nothing
....
....
....
....
I would really appreciate some help with this.
Thanks in advance!