Accessing record fields

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

table_name.field_name

Example: CustTable ct;

select firstonly ct; info(ct.CustAccount);

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:

table_name.(field_id)

Example:

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); setPrefix("Record"); setPrefix(dictTable.label); 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 )); else 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);

info(custTrans.(fieldIdExt));