1. November 2005 15:58
AssignValue(FieldNO: Integer, Datum: Text30)
CASE FieldNo OF
1: Rec."No.":=Datum;
2: Rec."Line No.":=Datum;
....
x: Rec.Feldx:=Datum
END;
1. November 2005 16:35
1. November 2005 16:59
1. November 2005 17:39
AssignValue(FieldNumber: Integer, NewValue: Text30)
RecRef.GETTABLE(Rec);
FldRef := RecRef.Field(FieldNumber);
FldRef.Value := NewValue;
RecRef.SETTABLE(Rec);
GetValue(FieldNumber: Integer) : Text30
RecRef.GETTABLE(Rec);
EXIT(RecRef.Field(FieldNumber).Value);