Rufbereitschaft

[SvS]

Hallo,

 

ich habe ein kleines Tool programmiert, was mir die nötigen Werte in eine von mir angelegt MSSQL Tabelle schreibt, worüber ich eine Rufbereitschaft realisieren will.

Jetzt habe ich einmal eine Script Function in den Startblock geschrieben welche mir die für den aktuellen Tag gesetzte Rufbreitschaft Durchwahl holen soll. Zumindest der SQL im SQL Management Studio gibt mir diesen Wert zurück.

 

Function CallRufbereitschaft ()
    On Error Resume Next
    
    PBXScript.OutputTrace "-------> CallRufbereitschaft"          

    Dim iReturn    
    iReturn = 0
    Dim sDsn
    sDsn = "dsn=IpPbx-SQL-Server"
    
    ' open connection to database
    Dim db
    db = CreateObject("ADODB.Connection")
    db.Open(sDsn)

    If Err <> 0 then
        'do something, e.g.
        FunctionName = False     
            db.Close
            Set db = Nothing
        ExitFunction
    End If
    
    ' open recordset
        Dim sSQL
        Dim rs
        sSQL =  "SELECT I.[Number] " & _
        "FROM [IpPbx].[dbo].[k_Bereitschaft] AS B  " & _
        "LEFT JOIN[IpPbx].[dbo].[USERS] AS U  " & _
        "ON B.[UserID] = U.[UserID] " & _
        "LEFT JOIN[IpPbx].[dbo].[InternalNumbers] AS I  " & _
        "ON B.[UserID] = I.[UserID] " & _
        "WHERE [Datum] = CONVERT (date, GETDATE())"

    Set rs = CreateObject("ADODB.Recordset")
        rs.Open sSQL, db, adOpenDynamic, adLockOptimistic, _
            adCmdText

    iReturn = rs("Number")

        rs.Close
        Set rs = Nothing
     
        db.Close
        Set db = Nothing
    
    CallRufbereitschaft = iReturn
    
    PBXScript.OutputTrace "iReturn = " & iReturn    
    PBXScript.OutputTrace "<------- CallRufbereitschaft"

End Function

 

Anschließend soll dann diese Funktion aufgerufen werden  und über den Rückgabewert dann im GSE angerufen werden.

 

 

 

Aber es Funktioniert leider nicht.

Komme bis dahin und dann wird einfach aufeglegt. Kann ich irgendwosehen ob da was geloggt wird?

 

LG und Danke für Hilfe.

 

SVS