GetWaitingSupporters/GetControllingSupporters

Es wurde eine Funktion bereitgestellt, mithilfe derer eine Liste von Agenten zurückgeliefert werden kann, bei denen ein bestimmter Vorgang auf dem Tisch landet – unterteilt nach Warteschlange und Infotisch. Die Funktion ist im PostSave des Vorgangs aufrufbar.

Dim hlCase : Set hlCase = Nothing
Set hlCase = hlContext.GetCurrentObject
                    Dim a1, WaitingSuporters, ControllingSuporters
                    Dim arrW, arrC
                    arrW = hlCase.GetWaitingSupporters
                    arrC = hlCase.GetControllingSupporters
                    a1 = a1 & " UBOUNDw:" & UBound(arrW)
                    a1 = a1 & " UBOUNDc:" & UBound(arrC)
                    For Each WaitingSuporters in arrW
                             a1 = a1 & " w:" & WaitingSuporters
                    Next
                    For Each ControllingSuporters in arrC
                             a1 = a1 & " c:" & ControllingSuporters
                    Next
                    hlCase.SetValue "CaseDiagnosis.DiagnosisText",0,0,0, a1

hlContext.trace 0, "EBL ONPOSTSAVE TRRIGER"
hlContext.trace 1, "EBL ONPOSTSAVE TRRIGER"
hlContext.trace 0, a1
hlContext.trace 1, a1