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

[HorrR]

Вот столкнулся с задачей, есть несколько, например, 5 однотипных полей, с похожими названиями аля Field1, Field2, Field3 и т.д, то есть отличаются названия только индексами в конце, причём индексы идут подрят, тобишь 1..5. Поля эти должны програмно заполнятся по одной закономерности, таким образом естественно возникает желание организовать цикл, итерирующий индекс от 1..5 и заполняющий поля с именами 'Field'<ind> в соответствии с закономерностью. А теперь собственно вопрос, каким именно образом можно достучатся до значения поля активной записи по его имени. В этой связи только 2 идеи: либо формировать и выполнять запрос из строки, если в аксапте такое возможно, либо каким-то образом использовать fieldname2id.

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

[Alex_KD]

Цитата:

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

Просто таких полей на самом деле 56 и вычисления значения зависит от индекса в конце названия поля.

Просто интересно - что же в этих полях хранится?

[HorrR]

Не поверишь - псевдографика)

[Alex_KD]

Цитата:

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

Не поверишь - псевдографика)

А что тогда означает 1 запись в таблице?
Опишите задачу. Интересно.

[AlexSD]

Ройте в направлении SysDictTable... SysDictField... И их прородителей DictTable и DictField.

А значение поля из записи можно получить таким образом SalesLine.(<fieldnum>);

Ну, а <fieldnum> можно узнать у вышеозначенный классов...

[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, ни в коем случае не смотрите на то как разработчики русской зарплаты извращались в дальнейшем с этой таблицей. Заполнение полей - это только начало. Вы еще полдня за ними бегать будете...

[HorrR]

За первый совет огромное спасибо! А насчёт второго маленькая поправка - есть условие не менять структуру данных, не менять дизайн форм, так как эту часть функционала делают другие "программисты"(индусы). Вот такая маца. Так что приходится выкручиваться(

[mazzy]

Цитата:

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

...индусы...

Они не поймут fieldname2id. Они не поймут, что где-то есть магическая константа 56.
пишите 56 строк в стиле table.field1 := mySuperValue...
Copy-Paste - это сила.

Опять же: "не парь мозги, делай всё по простому"

[HorrR]

Ну, индусы уже ничего не будут делать, они свою часть уже "сделали". Так что об этом можно не беспокоиться)

[HorrR]

Цитата:

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

А что тогда означает 1 запись в таблице?
Опишите задачу. Интересно.

Да что-то наподобоии скедьюлов в ганте. Наши "умницы" заказчики захотели, что бы всё было как в старой системе, тобишь псевдографикой в таблицах. А нам расхлёбывай.