Aufruf: under construction

?Boolean = I17Bereinigung()

Rückgabe: under construction

Rückgabe der Funktion: ?Boolean

Code: under construction

PROCEDURE I17Bereinigung
	*/ Bereinigung der Tabelle I17 durchführen...
	*/ Bereinigung Anhand I17 und I01 incl. Filter auf das Projekt!
	PRIVATE lnSelect AS NUMBER,lcSql AS STRING,lcIdk10 AS STRING,prjnr AS STRING
	lcSql	= "SELECT * FROM CDBFDIR!K10 WHERE ipk10 IN ('051','053') ORDER BY prjnr"
	lcIdk10 = ""
	prjnr	= ""
	lnSelect = SELECT()
	*/ Auswahl des Projekts
	IF My.Clients.SQL.SqlRead(SET("Datasession"),m.lcSql,"k10ll",.T.)
		SELECT k10ll
		=My.DATA.Tabellen.AllIndex('k10ll')
		IF My.AppForms.AppForms.LOOKUP('K10',.F.)
			lcIdk10 = k10ll.idk10
		ENDIF
		=My.DATA.Tabellen.CloseCursor(ALIAS(),.T.)
	ENDIF
	SELECT(m.lnSelect)
	RETURN My.Bussines.MaWi.fI22.I17Clear(.T.,m.lcIdk10)
ENDPROC