Aufruf: under construction

BOOLEAN = Anonym()

Rückgabe: under construction

Rückgabe der Funktion: BOOLEAN

Code: under construction

PROCEDURE Anonym () AS Boolean
	*/ Anonymisieren einer Adresse...
	LOCAL lcID AS STRING , lcDbf AS STRING
	IF TYPE("m.Master")="C" AND USED(m.Master) AND My.Functions.Dialoge.Dialog("ADR_ANONYM")="JA"
		lcDbf = JUSTSTEM(DBF(m.Master))
		lcID = "m.ID"+m.lcDbf
		UNLOCK ALL
		IF TYPE(m.lcID)="C"
			RETURN My.Bussines.Strain.Address.Anonym(m.lcDbf,EVALUATE(m.lcID)) AND Action(PMS_ACTION_FUNCTION_READ)
		ENDIF
	ENDIF
ENDPROC