we keep it simple
Welcome to the fracta.net forum!

Share your coding ideas or ask questions.

Question weird mistake changing skills cms r18.1

More
4 years 11 months ago #711 by amovilar@gmail.com
weird mistake changing skills cms r18.1 was created by amovilar@gmail.com
I have this sript working perfect in version r16.3, but we have a new client and only works with the new version r18.1.

Code:
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") 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 16_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

when i change the skill it change the orrder and put it the first:

Example : " 765 757 563 998" is the correct order , when i execute my script (or a avaya cms script) the result is :" 998 765 757 563".

I´m crazy, i don´t understand why happens even with the script in the cms

i hope you can help me thx

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

More
4 years 11 months ago #714 by roller
Replied by roller on topic weird mistake changing skills cms r18.1
This is a double post and answered elsewhere.

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

Time to create page: 0.790 seconds
Powered by Kunena Forum

Login Form