Aufruf: Führt eine Datei aus

BOOLEAN = RunIt(tcFileName 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 eine Datei aus

Rückgabe der Funktion: BOOLEAN

Code: Führt eine Datei aus

PROCEDURE RUNIT (tcFileName 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
	** Neue Version, die Parameter werden übergeben!
	LOCAL lnParaCount
	lnParaCount		= PCOUNT()
	DO CASE
		CASE VARTYPE(m.tcFileName)<>"C"
			RETURN .F.
		CASE m.lnParaCount=1
			RETURN My.Functions.PmsAndWindows.RunFile(m.tcFileName)
		CASE m.lnParaCount=2
			RETURN My.Functions.PmsAndWindows.RunFile(m.tcFileName,m.tp1)
		CASE m.lnParaCount=3
			RETURN My.Functions.PmsAndWindows.RunFile(m.tcFileName,m.tp1,m.tp2)
		CASE m.lnParaCount=4
			RETURN My.Functions.PmsAndWindows.RunFile(m.tcFileName,m.tp1,m.tp2,m.tp3)
		CASE m.lnParaCount=5
			RETURN My.Functions.PmsAndWindows.RunFile(m.tcFileName,m.tp1,m.tp2,m.tp3,m.tp4)
		CASE m.lnParaCount=6
			RETURN My.Functions.PmsAndWindows.RunFile(m.tcFileName,m.tp1,m.tp2,m.tp3,m.tp4,m.tp5)
		CASE m.lnParaCount=7
			RETURN My.Functions.PmsAndWindows.RunFile(m.tcFileName,m.tp1,m.tp2,m.tp3,m.tp4,m.tp5,m.tp6)
		CASE m.lnParaCount=8
			RETURN My.Functions.PmsAndWindows.RunFile(m.tcFileName,m.tp1,m.tp2,m.tp3,m.tp4,m.tp5,m.tp6,m.tp7)
		CASE m.lnParaCount=9
			RETURN My.Functions.PmsAndWindows.RunFile(m.tcFileName,m.tp1,m.tp2,m.tp3,m.tp4,m.tp5,m.tp6,m.tp7,m.tp8)
		OTHERWISE
			RETURN My.Functions.PmsAndWindows.RunFile(m.tcFileName,m.tp1,m.tp2,m.tp3,m.tp4,m.tp5,m.tp6,m.tp7,m.tp8,m.tp9)
	ENDCASE
ENDPROC