Aufruf: Führt den angegebenen Code aus

BOOLEAN = ExecScript_32(tcScriptCode AS STRING , tp1 AS VARIANT @ , tp2 AS VARIANT @ , tp3 AS VARIANT @ , tp4 AS VARIANT @ , tp5 AS VARIANT @ , tp6 AS VARIANT @ , tp7 AS VARIANT @ , tp8 AS VARIANT @ , tp9 AS VARIANT @)

Rückgabe: Führt den angegebenen Code aus

Rückgabe der Funktion: BOOLEAN
Rückgabe per Reverenz:
	tp1 AS VARIANT
	tp2 AS VARIANT
	tp3 AS VARIANT
	tp4 AS VARIANT
	tp5 AS VARIANT
	tp6 AS VARIANT
	tp7 AS VARIANT
	tp8 AS VARIANT
	tp9 AS VARIANT

Code: Führt den angegebenen Code aus

PROCEDURE ExecScript_32 (tcScriptCode AS STRING,tp1 AS Variant @,tp2 AS Variant @,tp3 AS Variant @,tp4 AS Variant @,tp5 AS Variant @,tp6 AS Variant @,tp7 AS Variant @,tp8 AS Variant @,tp9 AS Variant @) AS Boolean
	** Führt den angegebenen Script Code aus
	** Neue Version, die Parameter werden übergeben!
	LOCAL lnParaCount,l_ok
	lnParaCount	= PCOUNT()
	l_ok		= .T.
	DO CASE
		CASE !(VARTYPE(m.tcScriptCode)="C" AND !EMPTY(m.tcScriptCode))
		CASE m.lnParaCount = 1
			l_ok = My.Functions.PmsAndWindows.ExecCode(m.tcScriptCode)
		CASE m.lnParaCount = 2
			l_ok = My.Functions.PmsAndWindows.ExecCode(m.tcScriptCode,@tp1)
		CASE m.lnParaCount = 3
			l_ok = My.Functions.PmsAndWindows.ExecCode(m.tcScriptCode,@tp1,@tp2)
		CASE m.lnParaCount = 4
			l_ok = My.Functions.PmsAndWindows.ExecCode(m.tcScriptCode,@tp1,@tp2,@tp3)
		CASE m.lnParaCount = 5
			l_ok = My.Functions.PmsAndWindows.ExecCode(m.tcScriptCode,@tp1,@tp2,@tp3,@tp4)
		CASE m.lnParaCount = 6
			l_ok = My.Functions.PmsAndWindows.ExecCode(m.tcScriptCode,@tp1,@tp2,@tp3,@tp4,@tp5)
		CASE m.lnParaCount = 7
			l_ok = My.Functions.PmsAndWindows.ExecCode(m.tcScriptCode,@tp1,@tp2,@tp3,@tp4,@tp5,@tp6)
		CASE m.lnParaCount = 8
			l_ok = My.Functions.PmsAndWindows.ExecCode(m.tcScriptCode,@tp1,@tp2,@tp3,@tp4,@tp5,@tp6,@tp7)
		CASE m.lnParaCount = 9
			l_ok = My.Functions.PmsAndWindows.ExecCode(m.tcScriptCode,@tp1,@tp2,@tp3,@tp4,@tp5,@tp6,@tp7,@tp8)
		OTHERWISE
			l_ok = My.Functions.PmsAndWindows.ExecCode(m.tcScriptCode,@tp1,@tp2,@tp3,@tp4,@tp5,@tp6,@tp7,@tp8,@tp9)
	ENDCASE
	** DER ARBEITSBEREICH WIRD NICHT ZURÜCKGESETZT!
	RETURN m.l_ok
ENDPROC