× Welcome to the fracta.net forum!

Share your coding ideas or ask questions.

How? CMS data automatic export to Excel

  • macario
  • Topic Author
  • Visitor
  • Visitor
9 years 6 months ago #36 by macario
Hi,
I would like to know how to use macro in exporting the login/logout of agents in Avaya CMS.
Historical>Agents>Login/Logout(Skill)

:cheer:
any suggestion is highly appreciated!;)
regards,
Macario

Please Log in or Create an account to join the conversation.

More
9 years 5 months ago #37 by roller
Have a look at this post that explains how to export the agent trace report using Excel VBA:

fracta.net/fracta/index.php/forum/2-exce...s-supervisor-reports

Then generate the log-in log-out report from your Avaya and save the script on your desktop. Open the Avaya script with Notepad and read the code, it will be very similar to the above post except the sections to do with the report name. Replace those sections with what you see in the file you opened in Notepad.

Give it a try.

Please Log in or Create an account to join the conversation.

  • macario
  • Topic Author
  • Visitor
  • Visitor
9 years 4 months ago #38 by macario
Replied by macario on topic How? CMS data automatic export to Excel
Thanks for this! :)
by the way, can you make a script for me? i will review and will study.

Historical/ Agent/Agentlogin\logout(Skill)

Thanks!

Please Log in or Create an account to join the conversation.

  • macario
  • Topic Author
  • Visitor
  • Visitor
9 years 4 months ago #39 by macario
Replied by macario on topic How? CMS data automatic export to Excel
Here's the script for the Login/Logout that i am trying to export in an excel sheet and automatically paste it to Cell A1.
Hope someone can help and arrange this for me.

'LANGUAGE=ENU
'SERVERNAME=aegiscmsuser.peoplesupport.com
Public Sub Main()

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Report: Historical: Agent: Login/Logout (Skill): Show"
'## Parameters.Add "The report Historical\Agent\Login/Logout (Skill) was not found on ACD 1.","_ReportNotFound"
'## Parameters.Add "Report: Historical: Agent: Login/Logout (Skill): Show","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "3","_Action"
'## Parameters.Add "0","_Quit"
'## Parameters.Add "Historical\Agent\Login/Logout (Skill)","_Report"
'## Parameters.Add "1","_ACD"

On Error Resume Next

cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Agent\Login/Logout (Skill)")

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

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

Rep.FastLoad = True






b = Rep.Window.Show





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

Please Log in or Create an account to join the conversation.

More
9 years 4 months ago - 9 years 4 months ago #40 by roller
Ok here's the code you need to put in the Excel VBA editor, make sure you change the user name, password, skill number and date to suit yours.

Sub CMSGetReport()

Dim lwbk As Workbook
Dim lws As Worksheet

Set lwbk = ThisWorkbook



Set lws = lwbk.Sheets(1)
lws.Range("b2:e65536").ClearContents
Const Username As String = "yourusename"
Const Password1 As String = "yourpassword"

Dim cvsApp As Object
Dim cvsConn As Object
Dim cvsSrv As Object
Dim Rep As Object

Dim Info As Object, Log As Object, b As Object

Set cvsApp = CreateObject("ACSUP.cvsApplication")
Set cvsConn = CreateObject("ACSCN.cvsConnection")
Set cvsSrv = CreateObject("ACSUPSRV.cvsServer")
Set Rep = CreateObject("ACSREP.cvsReport")

If cvsApp.CreateServer(Username , "", "", "CMS", False, "ENU", cvsSrv, cvsConn) Then

If cvsConn.Login(Username , Password1 , "CMS", "ENU") Then
On Error Resume Next

cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Agent\Login/Logout (Skill)")

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

b = cvsSrv.Reports.CreateReport(Info, Rep)
If b Then
Rep.SetProperty "Skill", "19" ' or what ever skill number you want
Rep.SetProperty "Date", "19/07/2011" ' or what ever date you want
b = Rep.ExportData("", 9, 0, True, True, False)
Rep.Quit
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If


lws.Activate
lws.Paste Destination:=lws.Cells(1, 1)

Rep.Quit



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

End If

End If

cvsApp.Servers.Remove cvsSrv.ServerKey
cvsCon.Logout
cvsCon.Disconnect

Set Log = Nothing
Set Rep = Nothing
Set cvsSrv = Nothing
Set cvsConn = Nothing
Set cvsApp = Nothing


End Sub
Last edit: 9 years 4 months ago by roller.

Please Log in or Create an account to join the conversation.

  • macario
  • Topic Author
  • Visitor
  • Visitor
9 years 4 months ago #41 by macario
Replied by macario on topic How? CMS data automatic export to Excel
YOU ARE THE BEST!:cheer:

Thanks!
Macario

Please Log in or Create an account to join the conversation.

Time to create page: 0.290 seconds
Powered by Kunena Forum