|
|
#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(''); //если ничего не нашли.Предлагаю модифицировать под свою таблицу. Отчет с данной функцией (она там одна) лежит здесь |
|
|