Aufruf: under construction

BOOLEAN = I17Check(tcMaster AS STRING)

Rückgabe: under construction

Rückgabe der Funktion: BOOLEAN

Code: under construction

PROCEDURE I17Check (tcMaster AS STRING) AS Boolean
	*/ Überprüfen der Überschussbuchungen
	LOCAL lcPrg AS STRING
	PRIVATE pnReturn AS NUMBER
	lcPrg = My.TVL(m.tcMaster,'')
	pnReturn = .NULL.
	DO CASE
		CASE LEFT(m.lcPrg,3)=="K10"
			pnReturn = My.Bussines.MaWi.MaWi.I17Check(m.idk10)
		CASE LEFT(m.lcPrg,3)=="E10"
			pnReturn = My.Bussines.MaWi.MaWi.I17Check(m.idk10,m.ide10)
	ENDCASE
	IF !ISNULL(m.pnReturn)
		IF m.pnReturn=0
			=My.Functions.Dialoge.Dialog("I17CHECK-0")
		ELSE
			=My.Functions.Dialoge.Dialog("I17CHECK-1")
		ENDIF
	ENDIF
ENDPROC