![]() |
#8 |
MCTS
|
Приветствую,
Для вытягивания данных из полей таблицы Товар, по коду сделал себе следующую мега-функцию: Код: f_itemField(c_No : Code[20];t_fieldname : Text[30]) : Text[30] //c_No - код искомого товара //t_fieldname - наименование поля //возвращаемое значение текст VAR Name DataType Subtype Length r_item Record Item r_fields Record Field RecRef1 RecordRef fldNom Integer r_fields.SETFILTER(TableNo,'%1',DATABASE::Item); //в таблице Field выбрали поля принадлежащие таблице товар; r_fields.SETFILTER(FieldName,'%1',t_fieldname); //выбрали нужное нам поле (по идее одно) IF r_fields.FIND('-') THEN fldNom:=r_fields."No."; //узнали номер этого поля. IF fldNom=0 THEN //если такого поля нет EXIT(''); r_item.SETFILTER("No.",c_No); //выбрали нужный товар (да, меня устраивает оператор FIND) IF r_item.FIND('-') THEN BEGIN RecRef1.GETTABLE(r_item); //спозиционировали RecRef1 на нужной записи EXIT(RecRef1.FIELD(fldNom).VALUE); //получили значение поля END; EXIT(''); //если ничего не нашли. Предлагаю модифицировать под свою таблицу. Отчет с данной функцией (она там одна) лежит здесь |
|