CMS Report Background 1

[braken2000]

Hi,

Could be the wrong place for this, but I have tried searching what seems like everything!

My question is this, is it possible to change the background colour on an AVAYA CMS custom report? I am setting up a wallboard and want to avoid using a white background as other wallboards have a black bacground.

Thanks in advance!

 

[Stinney]

In CMS Supervisor, check out Tools | Options, Report Colors.

- Stinney

I love learning and passing on knowledge. "Because knowing is half the battle".... GI JOOOOOE!

 

[braken2000]

Thanks for that, I can only change it from white to grey. Is there any freeware that can take the ODBC and enable a better looking wallboard? Something similar to SJS Optymyse Wallboard. Not really done this on CMS before and am still getting to grips with report designer.

 

[Stinney]

I started looking into what options you might have as well.

It looks like from the report designer documentation, that you could set up an html template, then script your report to export to an html file.

You could then have a job that launches and refreshes the data at whatever interval your looking for. You would just have to coordinate the export from CMS and the refresh of the html in the web browser.

- Stinney

I love learning and passing on knowledge. "Because knowing is half the battle".... GI JOOOOOE!

 

[braken2000]

Thanks again!

Just so I am thinking right on this one, I can set up a CMS report to output to an HTML file which could sit on a LAN. I could then tell this HTML file to update every so often. What choices do I have for CMS output on an automated report? I am right in thinking that I would have to have windows scheduler to do this?

 

[Stinney]

In CMS reports you can export reports and there is a script option. I've always used the interactive script format, then used Windows scheduler to run the saved report.

When you run the script, it's going to open the report you used to create the HTML and export it. You'll need to edit the script (use wordpad or notepad to open it) and after the line that has the html export criteria add a line with the command: Rep.Quit

For example:

b = Rep.SaveHTML("C:\Documents and Settings\[username]\Desktop\test.HTML", False, "")

Rep.Quit


This will close the CMS report after it exports the updated html file. Otherwise, you'll keep opening new instances of the report until you reach the maximum report window settings for the login.

- Stinney

I love learning and passing on knowledge. "Because knowing is half the battle".... GI JOOOOOE!

 

[braken2000]

I assume there is no way to export real-time data then? I need the wallboard to show calls queuing, ACW, AHT, top agents etc, but all on one page, and through HTML/CSS. If it is possible, then the wallboard should not be a problem. I can get windows scheduler put on my machine, as the current profile I am on does not have it.

 

[Stinney]

It is possible to use real-time reports. The testing I did was a real-time report to create the html export.

You can modify the VBA script to loop the report once it's launched by Windows scheduler:

At the top of the script are a bunch of lines starting with '##

The last line should be:
'## Parameters.Add "False","_UseFonts"

Add this:

Dim PauseTime, Start 'Sets variables for pausing code
PauseTime = 10 ' Set pause duration in seconds

Then before the line:

b = cvsSrv.Reports.CreateReport(Info,Rep)

add this: (change the hour times to what you need)


If hour(now) > 7 then 'If the current hour is 8am or higher then continue

Do While hour(now)< 18 'Run the following until 6pm

Start = Timer


Then after the html export add:


Do While Timer<Start+PauseTime
Loop

Rep.Quit


Then after the section that reads:

If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If


Add this:


Loop

End If


Use Windows scheduler to launch the report each morning and let it run. It will stop running at the hour you set in the code.

Here's what my entire script looks like (removed server and user names for securit purposes) to run a real-time report and export to html for skill 503 every 10 seconds:

'LANGUAGE=ENU
'SERVERNAME=*removed for security purposes*
Public Sub Main()

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Report: Real-Time: Split/Skill: Skill Status: Save HTML"
'## Parameters.Add "Report: Real-Time: Split/Skill: Skill Status: Save HTML","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "1","_Action"
'## Parameters.Add "0","_Quit"
'## Parameters.Add "Real-Time\Split/Skill\Skill Status","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "3570","_Top"
'## Parameters.Add "3165","_Left"
'## Parameters.Add "9135","_Width"
'## Parameters.Add "6525","_Height"
'## Parameters.Add "The report Real-Time\Split/Skill\Skill Status was not found on ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "503","Split/Skill"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "G8,0,0;0,2,2","data2"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\Documents and Settings\*user name removed*\Desktop\Test2.HTML","_Output"
'## Parameters.Add "","_Template"
'## Parameters.Add "False","_UseFonts"
Dim PauseTime, Start
PauseTime = 10 ' Set duration in seconds

On Error Resume Next

cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Real-Time\Split/Skill\Skill Status")

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Real-Time\Split/Skill\Skill Status was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "The report Real-Time\Split/Skill\Skill Status was not found on ACD 1."
Set Log = Nothing
End If
Else

If hour(now) > 7 then

Do While hour(now)< 18

Start = Timer

b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then

Rep.Window.Top = 3570
Rep.Window.Left = 3165
Rep.Window.Width = 9135
Rep.Window.Height = 6525

Rep.SetProperty "Split/Skill","503"

Rep.ReportView.Add "G8,0,0;0,2,2","data2"

b = Rep.SaveHTML("C:\Documents and Settings\*user name removed*\Desktop\Test2.HTML", False, "")

Do While Timer<Start+PauseTime
Loop

Rep.Quit

If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If

Loop

End If

End If
Set Info = Nothing
'## cvs_cmd_end

End Sub


- Stinney

I love learning and passing on knowledge. "Because knowing is half the battle".... GI JOOOOOE!