Печать свойств номенклатуры (помогите!)

Новая тема
Задача:

Согласно п. 12 Закона о защите потребителей достаточно иметь в накладной указания на сертификаты и т.п. Каждому товару я через механизм свойств занес информацию о сертификации.

Вопрос:

Как в форме накладной добавить значения свойств номенклатуры? Какой нужен код и какой код в форме документа?



P.S.

Мне уже делали аналогичную операцию, но только со свойствами контрагентов. Но изменить код я не смог.
Немного пространный вопрос.

Программист, поэтому в механизмах торговли разбираюсь не особо. Но насколько знаю накладных разных видов много. Из какого именно документа печатается? В какую область накладной нужно выводить желаемую информацию? Это все немаловажно для определения формы, места размещения и содержания кода.
"Спасибо за внимание. Подробнее напишу..



У меня сейчас есть функция, которую я использую при печати накладной счета и т.д.



Функция глПечатьСвойстваКлиента(Конт,ИмяСвойства) Экспорт;

       

Стр = """";



Спр = СоздатьОбъект("Справочник.СвойстваКонтрагентов");

Спр.ИспользоватьВладельца(Конт.Клиент);

Спр.ВыбратьЭлементы();

Пока (Спр.ПолучитьЭлемент() = 1) Цикл      



Если (ИмяСвойства = СокрЛП(Спр.ВидСвойства.Наименование)) Тогда



Стр = Стр + СокрЛП(Строка(Спр.ЗначениеСвойства)) + ";";

КонецЕсли;

КонецЦикла;



Возврат Стр;

КонецФункции      





Я ее вставляю в форму документа в шапку, перед табличной частью:



В документах после полей наименование и адрес контрагента, вставляетяс информация о категории цены, отсрочке и виде контрагента, которая хранится как свойства контрагента.



Вид покупателя : [глПечатьСвойстваКлиента(Контекст,"Вид покупателя")] Категория цены : [глПечатьСвойстваКлиента(Контекст,"Вид цены")] Отсрочка платежа : [глПечатьСвойстваКлиента(Контекст,"Отсрочка платежа")]



И вот тоже самое мне надо для НОМЕКЛАТУРЫ, а вставлять эту инормацию буду в табличную часть документа



Пример:



Деталь № 007 Сертификат РОСС.564.875 срок 01.01.2003 - 01.01.2005. и далее в колонках пойдет количество цена и т.д."
"Создай такую функцию в глобалке

Функция глПечатьСвойстваНоменклатуры(Конт,ИмяСвойства) Экспорт;



Стр = """";



Спр = СоздатьОбъект("Справочник.СвойстваНоменклатуры");

Спр.ИспользоватьВладельца(Конт.Номенклатура);

Спр.ВыбратьЭлементы();

Пока (Спр.ПолучитьЭлемент() = 1) Цикл



Если (ИмяСвойства = СокрЛП(Спр.ВидСвойства.Наименование)) Тогда



Стр = Стр + СокрЛП(Строка(Спр.ЗначениеСвойства)) + ";";

КонецЕсли;

КонецЦикла;



Возврат Стр;

КонецФункции

Дальше все аналогично, вызываешь функцию с параметрами и получаешь свойство"
Спасибо, завтра попробую. Но вопрос: что собой представляет параметр "Конт"? Строка в печтной форме выглядит "Товар.Наименование". "Конт" заменит на "Товар"?
"Тогда сделай так

Функция глПечатьСвойстваНоменклатуры(Номенклатура,ИмяСвойства) Экспорт;



Стр = """";



Спр = СоздатьОбъект("Справочник.СвойстваНоменклатуры");

Спр.ИспользоватьВладельца(Номенклатура);

Спр.ВыбратьЭлементы();

Пока (Спр.ПолучитьЭлемент() = 1) Цикл



Если (ИмяСвойства = СокрЛП(Спр.ВидСвойства.Наименование)) Тогда



Стр = Стр + СокрЛП(Строка(Спр.ЗначениеСвойства)) + ";";

КонецЕсли;

КонецЦикла;



Возврат Стр;

КонецФункции



В качестве параметров передаешь непосредственно номенклатуру и значение свойства например "Сертификат". Успехов."
Конт - это контекст документа, т.е. в процедуру/функцию глобального модуля как бы передается документ. Через этот параметр можно обращаться к реквизитам документа. Exp.: Конт.ДатаДок вернет дату документа из которого вызвана процедура/функция. На будущее.
Документ работает!



СПАСИБО всем, кто отозвался на мой вопрос.
Читают тему
(гостей: 1)

Быстрый переход