Присвоение значения полю активной записи по его имени

[mazzy]

Цитата:

Сообщение от HorrR

Зарание благодарен любым ответам, кроме: "не парь мозги, делай всё по простому". Просто таких полей на самом деле 56 и вычисления значения зависит от индекса в конце названия поля.

Кусок из русской зарплаты

    RPayTblDayHour calcSumRecord(boolean _dayHour)
    {
        int            i;
        RPayTblDayHour value;
        fieldId        ffieldId;
        for (i = 1; i <= 31 ; i++)
        {
            ffieldId = fieldName2Id(tableNum(RPayTblDayHourTrans),#DayHourTransFieldPrefix + int2str(i));
            value += _dayHour ? this.(ffieldId) : RPayCalendarTable::HoursToDay(this.(ffieldId)) ;
        }
        return value;
    }

Когда нормальный человек видит такую задачу, то сразу думает о подчиненной таблице.
Когда менее нормальный человек - Аксаптовед видит такую задачу, то сразу думает о типе-массиве.
Но автор требует не парить ему мозги.
Что ж, не буем парить.

HorrR, ни в коем случае не смотрите на то как разработчики русской зарплаты извращались в дальнейшем с этой таблицей. Заполнение полей - это только начало. Вы еще полдня за ними бегать будете...