Welcome to the fracta.net forum!

Share your coding ideas or ask questions.

Question weird mistake changing skills cms r18.1

More
4 years 5 months ago #711 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 5 months ago #714 by roller
This is a double post and answered elsewhere.

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

Time to create page: 0.836 seconds
Powered by Kunena Forum