AXForum  
Вернуться   AXForum > Microsoft Dynamics NAV > NAV: Программирование
All
Забыли пароль?
Зарегистрироваться Правила Справка Пользователи Сообщения за день Поиск

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 19.09.2006, 11:29   #8  
apanko is offline
apanko
MCTS
MCBMSS
Лучший по профессии 2009
 
1,164 / 139 (7) +++++
Регистрация: 24.02.2005
Приветствую,

Для вытягивания данных из полей таблицы Товар, по коду сделал себе следующую мега-функцию:

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

Отчет с данной функцией (она там одна) лежит здесь
 


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Рейтинг@Mail.ru
Часовой пояс GMT +3, время: 17:46.