ECR Bereitschaft

[Stefan Fuchs]

Hallo Tom,
danke für die schnelle Antwort. Jetzt bekomme ich leider einen Kompilierungsfehler.

Hoffe habe deinen Block richtig eingesetzt:

'Bereitschaft

 

    sSQL = "select * from bereit_plan1 where getDate() between bereit_start and bereit_ende"
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open sSQL, db, adOpenDynamic, adLockOptimistic, adCmdText

PBXScript.OutputTrace sSQL
 

    ' if there are records in recordset, this caller seems to be known
    bReturn = not rs.EOF
        If bReturn = TRUE Then
	name_bereit1 = rs.fields("bereit_name1").value
	name_bereit2 = rs.fields("bereit_name2").value

PBXScript.OutputTrace "name_bereit1 ="  & name_bereit1
PBXScript.OutputTrace "name_bereit2 ="  & name_bereit2

    End If

    sSQL = "select * from bereit_nummern where (bereit_name = '" & name_bereit1 & "'") or (bereit_name = '" & name_bereit2 & "'")
	rs.Open sSQL, db, adOpenDynamic, adLockOptimistic, adCmdText

PBXScript.OutputTrace sSQL

Dim nFeld
nFeld     = 1
vTelefon1 = ""
vTelefon2 = ""

while not rs.EOF

	select case nFeld
		case 1
			vTelefon1 = rs("bereit_nummer")
		case 2
			vTelefon2 = rs("bereit_nummer")
	end select

	nFeld = nFeld + 1

	rs.MoveNext
    
wend

	rs.close
	
PBXScript.OutputTrace "vTelefon1 ="  & vTelefon1
PBXScript.OutputTrace "vTelefon2 ="  & vTelefon2

End If

PBXScript.OutputTrace "<--------- KnownCallerId"

end function

 

[Tom Wellige]

Zwei Dinge:

 

Setz mal in der Mitte noch ein "rs.Close"

 

	End If

	rs.Close

	sSQL = "select * from bereit_nummern where (bereit_name = '" & name_bereit1 & "'") or (bereit_name = '" & name_bereit2 & "'")

 

 

Und am Ende ist ein "End If" zu viel:

 

PBXScript.OutputTrace "vTelefon1 ="  & vTelefon1
PBXScript.OutputTrace "vTelefon2 ="  & vTelefon2

PBXScript.OutputTrace "<--------- KnownCallerId"

 

[Stefan Fuchs]

Leider will es immer noch nicht so recht. 

 

A callrouting script has been terminated or could not be executed due to a script error.
 
Script: callrouting.vbs (User, Bereitschaft) 
Error:  Kompilierungsfehler in Microsoft VBScript, Anweisungsende erwartet, 800a0401
 

[Tom Wellige]

Poste doch bitte mal die komplette Fehlermeldung und häng auch Dein Skript als .RSE Datei exportiert mit an.

 

[Stefan Fuchs]

Hallo Tom,

anbei die rse. Die Fehlermeldung aus der Ereignisanzeige siehe oben.

 

Bereitschaft_vt.rse

[Tom Wellige]

Hallo Stefan,

 

was ich meinte, war die komplette Fehlermeldung aus dem Server Trace. So wie Du sie ja auch vorher schonmal gepostet hattest.

 

[Stefan Fuchs]

05 08:27:01.302 0018ec Info SrvScrAPI  07D00540 00000813 SScriptLoader::LoadScript               (callrouting.vbs, U:71 Bereitschaft)
05 08:27:01.303 0018ec Info SrvScCache 06084B00 00000813 SScriptFCache::LoadFile                 () Done loading (Success) callrouting.vbs', scope User
05 08:27:01.303 0018ec Info SrvScCache 06084B00 00000813 SScriptFCache::LoadFile                 ()     Done loading (Success) Templates_V4.3.vbs', scope SystemDefault
05 08:27:01.303 0018ec Info SrvScCache 06084B00 00000813 SScriptFCache::LoadFile                 ()         Done loading (Success) rulePreProcessing.vbs', scope SystemDefault
05 08:27:01.304 0018ec Info SrvScCache 06084B00 00000813 SScriptFCache::LoadFile                 ()         Done loading (Success) rulePostProcessing.vbs', scope SystemDefault
05 08:27:01.304 0018ec Info SrvScCache 06084B00 00000813 SScriptFCache::LoadFile                 ()         Done loading (Success) Functions.vbs', scope SystemDefault
05 08:27:01.306 0018ec Info SrvScCache 06084B00 00000813 SScriptFCache::LoadFile                 ()         Done loading (Success) actionStandardVoicemail.vbs', scope SystemDefault
05 08:27:01.311 0018ec Info SrvScCache 06084B00 00000813 SScriptFCache::LoadFile                 ()         Done loading (Success) actionStandardRemoteInquiry.vbs', scope SystemDefault
05 08:27:01.312 0018ec Info SrvScCache 06084B00 00000813 SScriptFCache::LoadFile                 ()             Done loading (Success) actionRedirection.vbs', scope SystemDefault
05 08:27:01.316 0018ec Info SrvScCache 06084B00 00000813 SScriptFCache::LoadFile                 ()         Done loading (Success) Resources.vbs', scope SystemDefault
05 08:27:01.318 0018ec Info SrvScCache 06084B00 00000813 SScriptFCache::LoadFile                 ()     Done loading (Success) ruleBereitschaft0503211.vbs', scope User
05 08:27:01.320 0018ec Info SrvScrAPI  07BD4E10 00000813 SScriptHostVbs::Initialize              () loaded 'callrouting.vbs (User, Bereitschaft)' with 622336 bytes in 0.017s
05 08:27:01.332 00239c *Err SrvScrAPI  07C03FB8 00000813 SPBXScriptSiteVbs::OnScriptError        ()
~Code:   0
~Src:    Kompilierungsfehler in Microsoft VBScript
~Desc:   Anweisungsende erwartet
~RetVal: 800a0401
~Line:   15301 
~Column: 85
~Source code:
~    sSQL = "select * from bereit_nummern where (bereit_name = '" & name_bereit1 & "'") or (bereit_name = '" & name_bereit2 & "'")
~                                                                                     ^ error position

Zeigt das ^ error position wirklich die Position des Fehlers? Dann ist es die erste schließende Klammer.

 

[Tom Wellige]

Hallo Stefan,

 

da hatte sich ein kleiner Fehler in das 2. SQL Statement eingeschlichen.

 

Ich habe den Code mal entsprechend angepasst, aufgeräumt und die Funktion umbenannt (da sie ja nicht mehr überprüft, ob der Anrufer bekannt ist).

 

Das GSE Skript habe ich entsprechend angepasst und auch noch eine kleine Überprüfung eingebaut, ob es überhaupt eine 2. Nummer aus der Datenbnk gelesen wurde, bevor versucht wird auf diese zu zustellen.

 

Bereitschaft_vt_v2.rse

 

[Stefan Fuchs]

Hallo Tom,

vielen Dank für deine Hilfe. Eine Kleinigkeit musste ich noch anpassen. Denn ich habe immer den Fehler bekommen:

 

A callrouting script has been terminated or could not be executed due to a script error.
 
Script: callrouting.vbs (User, Bereitschaft) 
Error:  Laufzeitfehler in Microsoft VBScript, Falsche Anzahl an Argumenten oder ungültige Eigenschaftszuweisung: 'GetDestinations', 800a01c2

 

 

 

In deinem SkriptCode einfügen Block steht nun folgendes GetDestinations ( callerID ).

 

Dann geht es.

[Tom Wellige]

Ah, sorry, da hatte ich nicht dran gedacht. Ich hatte das Skript auf meiner Seite nicht ausprobiert, da ich ja Deine Datenbank nicht habe.

 

Freut mich, dass jetzt alles läuft 🙂