Aufruf: Restore des Environments

BOOLEAN = RestEnv(tcWhatGo AS STRING)

Rückgabe: Restore des Environments

Rückgabe der Funktion: BOOLEAN

Code: Restore des Environments

PROCEDURE RestEnv (tcWhatGo AS STRING) AS Boolean
	IF TYPE("m.l_program")<>"C" .OR. TYPE("My.Clients.FireEvents.Name")<>"C"
		** Ohne Event- Steuerung KEINE Umgebung zurücksichern
		=My.lWriteLog AND My.WriteInLog("RestEnv(Unknown)=Break",.NULL.,"restenv.log",.F.)
		RETURN .F.
	ENDIF
	=My.lFormStackLog AND My.WriteFSLog(PROGRAM()+":"+EVL(m.tcWhatGo,''))
	RETURN My.Clients.HdmEnvironment.RestEnv(EVL(m.tcWhatGo,''),SET("Datasession"))
ENDPROC