Wednesday, October 1, 2014

Dynamic Table by using RecordRef


_RecordRef.CLOSE;
_RecordRef.OPEN(_YourTableNumber);
IF _RecordRef.FINDSET THEN
  REPEAT
    _FieldRec.SETRANGE(TableNo, _RecordRef.NUMBER);
    _FieldRec.SETRANGE(Enabled, TRUE);
    _FieldRec.SETRANGE(Class, _FieldRec.Class::Normal);
    IF _FieldRec.FINDSET THEN
      REPEAT
        _FieldRef := _RecordRef.FIELD(_FieldRec."No.");
        MESSAGE(FORMAT(_FieldRef.VALUE));
      UNTIL _FieldRec.NEXT = 0;
  UNTIL _RecordRef.NEXT = 0;

CLEAR(_FieldRef);
_RecordRef.CLOSE;

No comments:

Post a Comment