× Welcome to the fracta.net forum!

Share your coding ideas or ask questions.

Error in cms 18

More
3 months 1 day ago #712 by amovilar@gmail.com
I have a really strange error with a change skills script:

I have some skills with an exact order: "765 767 563 998", in my actual version of cms supervisor (r16.3) when i execute the script it execute perfectly.

But we have a new client, and the server use the "new" r18 version, and when i execute the script change the last skill to the first "998 765 767 563 ".

The 998 skill is a control sill all agents have, and its important order in last place

The code is:
Sub ChangeSkills()

Dim agents As String
Dim cvsApp As Object
Dim cvsConn As Object
Dim cvsSrv As Object
Dim SetArr() As Variant
Dim sWarn As String
Dim Skills() As Variant


ReDim SetArr(25, 25)
SetArr(1, 1) = Sheets("CESIONES").Range("Q4")[img  ]https://ibb.co/8rktkGt[/img]
SetArr(1, 2) = Sheets("CESIONES").Range("Q5")
SetArr(1, 3) = 0
SetArr(1, 4) = 0
SetArr(2, 1) = Sheets("CESIONES").Range("R4")
SetArr(2, 2) = Sheets("CESIONES").Range("R5")
SetArr(2, 3) = 0
SetArr(2, 4) = 0
SetArr(3, 1) = Sheets("CESIONES").Range("S4")
SetArr(3, 2) = Sheets("CESIONES").Range("S5")
SetArr(3, 3) = 0
SetArr(3, 4) = 0
SetArr(4, 1) = Sheets("CESIONES").Range("T4")
SetArr(4, 2) = Sheets("CESIONES").Range("T5")
SetArr(4, 3) = 0
SetArr(4, 4) = 0
SetArr(5, 1) = Sheets("CESIONES").Range("U4")
SetArr(5, 2) = Sheets("CESIONES").Range("U5")
SetArr(5, 3) = 0
SetArr(5, 4) = 0
SetArr(6, 1) = Sheets("CESIONES").Range("V4")
SetArr(6, 2) = Sheets("CESIONES").Range("V5")
SetArr(6, 3) = 0
SetArr(6, 4) = 0
SetArr(7, 1) = Sheets("CESIONES").Range("W4")
SetArr(7, 2) = Sheets("CESIONES").Range("W5")
SetArr(7, 3) = 0
SetArr(7, 4) = 0
SetArr(8, 1) = Sheets("CESIONES").Range("X4")
SetArr(8, 2) = Sheets("CESIONES").Range("X5")
SetArr(8, 3) = 0
SetArr(8, 4) = 0
SetArr(9, 1) = Sheets("CESIONES").Range("Y4")
SetArr(9, 2) = Sheets("CESIONES").Range("Y5")
SetArr(9, 3) = 0
SetArr(9, 4) = 0
SetArr(10, 1) = Sheets("CESIONES").Range("Z4")
SetArr(10, 2) = Sheets("CESIONES").Range("Z5")
SetArr(10, 3) = 0
SetArr(10, 4) = 0
SetArr(11, 1) = Sheets("CESIONES").Range("AA4")
SetArr(11, 2) = Sheets("CESIONES").Range("AA5")
SetArr(11, 3) = 0
SetArr(11, 4) = 0
SetArr(12, 1) = Sheets("CESIONES").Range("AB4")
SetArr(12, 2) = Sheets("CESIONES").Range("AB5")
SetArr(12, 3) = 0
SetArr(12, 4) = 0
SetArr(13, 1) = Sheets("CESIONES").Range("AC4")
SetArr(13, 2) = Sheets("CESIONES").Range("AC5")
SetArr(13, 3) = 0
SetArr(13, 4) = 0
SetArr(14, 1) = Sheets("CESIONES").Range("AD4")
SetArr(14, 2) = Sheets("CESIONES").Range("AD5")
SetArr(14, 3) = 0
SetArr(14, 4) = 0
SetArr(15, 1) = Sheets("CESIONES").Range("AE4")
SetArr(15, 2) = Sheets("CESIONES").Range("AE5")
SetArr(15, 3) = 0
SetArr(15, 4) = 0
SetArr(16, 1) = Sheets("CESIONES").Range("AF4")
SetArr(16, 2) = Sheets("CESIONES").Range("AF5")
SetArr(16, 3) = 0
SetArr(16, 4) = 0
SetArr(17, 1) = Sheets("CESIONES").Range("AG4")
SetArr(17, 2) = Sheets("CESIONES").Range("AG5")
SetArr(17, 3) = 0
SetArr(17, 4) = 0
SetArr(18, 1) = Sheets("CESIONES").Range("AH4")
SetArr(18, 2) = Sheets("CESIONES").Range("AH5")
SetArr(18, 3) = 0
SetArr(18, 4) = 0
SetArr(19, 1) = Sheets("CESIONES").Range("AI4")
SetArr(19, 2) = Sheets("CESIONES").Range("AI5")
SetArr(19, 3) = 0
SetArr(19, 4) = 0
SetArr(20, 1) = Sheets("CESIONES").Range("AJ4")
SetArr(20, 2) = Sheets("CESIONES").Range("AJ5")
SetArr(20, 3) = 0
SetArr(20, 4) = 0
SetArr(21, 1) = Sheets("CESIONES").Range("AK4")
SetArr(21, 2) = Sheets("CESIONES").Range("AK5")
SetArr(21, 3) = 0
SetArr(21, 4) = 0
SetArr(22, 1) = Sheets("CESIONES").Range("AL4")
SetArr(22, 2) = Sheets("CESIONES").Range("AL5")
SetArr(22, 3) = 0
SetArr(22, 4) = 0
SetArr(23, 1) = Sheets("CESIONES").Range("AM4")
SetArr(23, 2) = Sheets("CESIONES").Range("AM5")
SetArr(23, 3) = 0
SetArr(23, 4) = 0
SetArr(24, 1) = Sheets("CESIONES").Range("AN4")
SetArr(24, 2) = Sheets("CESIONES").Range("AN5")
SetArr(24, 3) = 0
SetArr(24, 4) = 0

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

Set cvsSrv = cvsApp.Servers(Sheets("CESIONES").Range("O7"))

sWarn = ""

agents = Sheets("CESIONES").Range("O2")

Set AgMngObj = cvsSrv.AgentMgmt
AgMngObj.AcdStartUp -1, "", cvsSrv.ServerKey, -1
AgMngObj.OleAgentSetSkill_R16_1 3, "" & agents & "", 1, 0, 0, 0, Sheets("CESIONES").Range("P4"), SetArr, "" ' This is were the error occrus

Set AgMngObj = Nothing

Set cvsApp = Nothing
'Set cvsConn = Nothing
Set cvsSrv = Nothing

End Sub

Is there any change in the r18 version? i donĀ“t understand what happens.

thanks in advance
Attachments:

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

More
2 months 4 weeks ago #713 by roller
Replied by roller on topic Error in cms 18
Hi, sorry I have not used Avaya for few years now since my last job at a contact centre but from memory I think the control skill might have something to do with this line:

agents & "", 1, 0, 0, 0,

Not having the program here I can't help. Maybe another user can.

Did you try saving the script from Avaya and opening in Notepad to compare the VB code?
The following user(s) said Thank You: amovilar@gmail.com

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

More
1 month 1 week ago #715 by amovilar@gmail.com
Replied by amovilar@gmail.com on topic Error in cms 18
Sorry for the delay and thanks for your response.

When i try to make the script in avaya directly:

AgMngObj.AcdStartUp -1, "", cvsSrv.ServerKey, -1
AgMngObj.OleAgentSetSkill_R16_1 3, "5221781;5221781;5221781",1, 0,0, 0, 3,SetArr, ""

It seems the same. I hope something can help me

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

More
1 month 1 week ago #716 by roller
Replied by roller on topic Error in cms 18
Maybe the problem is with the new server setup. From memory control skills are set in the settings of Avaya. Do you have admin to Avaya CMS, if so check or compare how the skills are setup, see if there is a field or setting to make it control.

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

Time to create page: 4.883 seconds
Powered by Kunena Forum