Aufruf: under construction

?Boolean = dispo_clean(tcChild AS STRING , cur AS STRING)

Rückgabe: under construction

Rückgabe der Funktion: ?Boolean

Code: under construction

PROCEDURE dispo_clean (tcChild AS STRING, cur AS STRING)
	*/ Bereinigen der Disposition
	LOCAL loSession AS OBJECT ,lcDbf AS STRING
	loSession = My.Functions.SELECTED.SetInit(SET("Datasession"))
	SELECT DISTINCT idi20 FROM (m.tcChild) WHERE !EMPTY(idi20) ;
		INTO TABLE (My.Clients.PATH.cTmpDir+"disclean.dbf")
	INDEX ON idi20 TAG idi20
	lcDbf = DBF()
	USE IN (SELECT("disclean"))
	=My.Bussines.MaWi.fi20.Bereinigen([idi20 IN (SELECT idi20 FROM ("]+m.lcDbf+["))],.T.)
	=My.DATA.Tabellen.RefreshTables(SET("Datasession"))
	RELEASE loSession
	RETURN
ENDPROC