Aufruf: under construction

BOOLEAN = MatListe(tcIdk10 AS STRING , tcIde10 AS STRING)

Rückgabe: under construction

Rückgabe der Funktion: BOOLEAN

Code: under construction

PROCEDURE MatListe (tcIdk10 AS STRING , tcIde10 AS STRING) AS Boolean
	*/ Erzeugt eine Materialliste zur Anzeige
	LOCAL lcDbf AS STRING , lnSelect AS NUMBER
	lcDbf = My.Bussines.MaWi.fik10.MatList(m.tcIdk10,m.tcIde10)
	IF !EMPTY(m.lcDbf)
		lnSelect = SELECT()
		SELECT 0
		USE (m.lcDbf) ALIAS MatList ORDER icb01 SHARED AGAIN
		My.AppForms.AppForms.LOOKUP("MATLIST",.F.,SET("Datasession"),.T.)
		USE IN (SELECT('MatList'))
		SELECT(m.lnSelect)
	ENDIF
ENDPROC