Aufruf: under construction

BOOLEAN = DoD0401(tcIdd04 AS STRING , toGrid AS GRID)

Rückgabe: under construction

Rückgabe der Funktion: BOOLEAN

Code: under construction

PROCEDURE DoD0401 (tcIdd04 AS STRING,toGrid AS GRID) AS Boolean
	*/ Aufruf der Form D0401 - Kalkulationsdaten (EXTERN-F2)
	LOCAL loForm AS FORM
	=My.Timers.DelayTimer.Execute([DO ('D0401.PRG') WITH ']+m.tcIdd04+['],100,"D0401")
	IF VARTYPE(m.toGrid)="O"
		loForm = m.toGrid._oForm
		IF VARTYPE(m.loForm)="O"
			=loForm.SETALL("_Refresh",-2)
			=loForm.REFRESH()
		ENDIF
	ENDIF
	RETURN .F.
ENDPROC