Bojensen Blogs

Accessing record fields

The usual way

Obviously to access a field of a record, you usually just use its name:



CustTable ct;

select firstonly ct;

The different way

But, what do you do, if you want to access the fields of a record, where you do not know the field names?

In this case you can access field values via their field ID:




CustTable ct;

select firstonly ct;
info(ct.(fieldnum(CustTable, CustAccount)));

For example the following function outputs any record to the infolog. This is achieved by iterating over the DictTable object of the passed record. The DictTable will give us the field Id’s, which in turn are used to access the field value.


static void Info(common _common, boolean _includeSys = false)
    SysDictTable   dictTable;
    SysDictField   dictField;
    int            fieldIdx;
    fieldid        commonFieldId;

    dictTable = new SysDictTable(_common.TableId);
    for(fieldIdx=1; fieldIdx <= dictTable.fieldCnt(); fieldIdx++)
      commonFieldId =  dictTable.fieldCnt2Id(fieldIdx);
      dictField = dictTable.fieldObject(commonFieldId);
      if(!dictField.isSystem() || _includeSys)
        if(dictField.baseType() == Types::Container)
          info(strfmt("%1 = <%2>", dictField.label(), dictField.baseType() ));
          info(strfmt("%1 = %2", dictField.label(), _common.(commonFieldId)));

Example of accessing dimension fields.

int        idx;
FieldId    fieldId;
FieldId    fieldIdExt;

CustTrans  custTrans;

idx = SysDimension::Center+1;

select firstOnly custTrans
    where custTrans.Dimension[idx];

fieldId = fieldNum(CustTrans, Dimension);

fieldIdExt = fieldId2Ext(fieldId, idx);


Accessing record fields – Axaptapedia

Comments are closed.