Am Beginn des Programmes steht:
Code: Alles auswählen
...
USE Kunden new Alias sCustomer
...
CLASS Kunden
EXPORTED:
VAR nKNummer, cKName, cKAdresse, cKPLZ, cKOrt, lAktiv
method KRead
method KShow
method RNew
method RWrite
method ChangeRec
ENDCLASS
...
//ABER: Hier wird´s nicht gefunden:
method Kunden:KRead
FIELD KNUMMER, KNAME, KADRESSE, KPLZ, KORT, AKTIV IN sCustomer
::nKNummer := sCustomer->KNUMMER
::cKName := sCustomer->KNAME
::cKAdresse := sCustomer->KADRESSE
::cKPLZ := sCustomer->KPLZ
::cKOrt := sCustomer->KORT
::lAktiv := sCustomer->AKTIV
USE
return
...
FG
Martin