× Welcome to the fracta.net forum!

Share your coding ideas or ask questions.

weird mistake changing skills cms r18.1

More
1 month 3 days 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.

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 weeks 1 day 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.135 seconds
Powered by Kunena Forum