Welcome to the fracta.net forum!
Share your coding ideas or ask questions.
Share your coding ideas or ask questions.
Question VBA initialize Skills
- DamianVBA
- Topic Author
- Visitor
7 years 7 months ago #645
by DamianVBA
Replied by DamianVBA on topic VBA initialize Skills
Hi again!
Well, i got my code to work
Also sorted out my problems with using the new server, but here comes a new one... My job on my company it's monitoring calls, agents and queues... so I need to have avaya working for me, but if I try to start another server it won't because avaya won't let me login 2 times on the same computer, you can login 2 times one in each computer without any trouble, but the problem comes when you try to do that on the same computer. Me and all my mates have 2 computers and 3 screens but we need both the monitoring and the reporting on the same computer. Is there any way to get 2 servers with the same user password on the same computer?
As always, thanks in advance, you've been very helpfull here!
Well, i got my code to work
Code:
Dim cvsApp As New ACSUP.cvsApplication
Dim cvsConn As New ACSCN.cvsConnection
Dim cvsSrv As New ACSUPSRV.cvsServer
Dim Rep As New ACSREP.cvsReport
Dim Info As Object, Log As Object, b As Object
Dim logged As Boolean
Public Sub SkillAgentes()
Dim StartTime As Double, EndTime As Double, X
StartTime = Timer
Application.ScreenUpdating = False
Set cvsSrv = cvsApp.Servers(1)
Dim Lastrow As Long
Dim LastCol As Long
Dim wsMain As Worksheet
Set wsMain = Sheets("InicialViesgo")
Dim c As Integer
Dim i As Integer
Dim S As Integer
Dim Skill As String
Dim Prtr As Integer
Dim SetArr() As Variant
Set AgMngObj = cvsSrv.AgentMgmt
S = 1
Lastrow = wsMain.Range("D" & wsMain.Rows.Count).End(xlUp).Row
For i = 2 To Lastrow
LastCol = wsMain.Cells(i, 4).End(xlToRight).Column
Dim Agentes As String: Agentes = wsMain.Cells(i, 4).Value2
Dim Cantidad As Integer: Cantidad = wsMain.Cells(i, 2).Value2
Dim ACD As Integer: ACD = wsMain.Cells(i, 1).Value2
ReDim SetArr(Cantidad, 4)
For c = 5 To LastCol Step 2
On Error Resume Next
Skill = wsMain.Cells(i, c).Value
Prtr = wsMain.Cells(i, c + 1).Value
SetArr(S, 1) = Skill
SetArr(S, 2) = Prtr
SetArr(S, 3) = 0
SetArr(S, 4) = 0
S = S + 1
Next c
AgMngObj.AcdStartUp -1, "", cvsSrv.ServerKey, -1
AgMngObj.OleAgentSetSkill_R16_1 ACD, Agentes, Prtr, 0, 0, 0, Cantidad, SetArr, ""
S = 1
Next i
EndTime = Timer
Dim Tiempo As String: Tiempo = Format$(EndTime - StartTime)
MsgBox "Skills de " & Lastrow - 1 & " agentes cambiadas en " & Format(Tiempo, "0.00") & " segundos."
End Sub
Also sorted out my problems with using the new server, but here comes a new one... My job on my company it's monitoring calls, agents and queues... so I need to have avaya working for me, but if I try to start another server it won't because avaya won't let me login 2 times on the same computer, you can login 2 times one in each computer without any trouble, but the problem comes when you try to do that on the same computer. Me and all my mates have 2 computers and 3 screens but we need both the monitoring and the reporting on the same computer. Is there any way to get 2 servers with the same user password on the same computer?
As always, thanks in advance, you've been very helpfull here!
Please Log in or Create an account to join the conversation.
Time to create page: 0.404 seconds