Печать свойств номенклатуры (помогите!)
19.08.2003
01:03
#1
Задача:
Согласно п. 12 Закона о защите потребителей достаточно иметь в накладной указания на сертификаты и т.п. Каждому товару я через механизм свойств занес информацию о сертификации.
Вопрос:
Как в форме накладной добавить значения свойств номенклатуры? Какой нужен код и какой код в форме документа?
P.S.
Мне уже делали аналогичную операцию, но только со свойствами контрагентов. Но изменить код я не смог.
Согласно п. 12 Закона о защите потребителей достаточно иметь в накладной указания на сертификаты и т.п. Каждому товару я через механизм свойств занес информацию о сертификации.
Вопрос:
Как в форме накладной добавить значения свойств номенклатуры? Какой нужен код и какой код в форме документа?
P.S.
Мне уже делали аналогичную операцию, но только со свойствами контрагентов. Но изменить код я не смог.
19.08.2003
09:49
#2
Немного пространный вопрос.
Программист, поэтому в механизмах торговли разбираюсь не особо. Но насколько знаю накладных разных видов много. Из какого именно документа печатается? В какую область накладной нужно выводить желаемую информацию? Это все немаловажно для определения формы, места размещения и содержания кода.
Программист, поэтому в механизмах торговли разбираюсь не особо. Но насколько знаю накладных разных видов много. Из какого именно документа печатается? В какую область накладной нужно выводить желаемую информацию? Это все немаловажно для определения формы, места размещения и содержания кода.
19.08.2003
10:50
#3
"Спасибо за внимание. Подробнее напишу..
У меня сейчас есть функция, которую я использую при печати накладной счета и т.д.
Функция глПечатьСвойстваКлиента(Конт,ИмяСвойства) Экспорт;
Стр = """";
Спр = СоздатьОбъект("Справочник.СвойстваКонтрагентов");
Спр.ИспользоватьВладельца(Конт.Клиент);
Спр.ВыбратьЭлементы();
Пока (Спр.ПолучитьЭлемент() = 1) Цикл
Если (ИмяСвойства = СокрЛП(Спр.ВидСвойства.Наименование)) Тогда
Стр = Стр + СокрЛП(Строка(Спр.ЗначениеСвойства)) + ";";
КонецЕсли;
КонецЦикла;
Возврат Стр;
КонецФункции
Я ее вставляю в форму документа в шапку, перед табличной частью:
В документах после полей наименование и адрес контрагента, вставляетяс информация о категории цены, отсрочке и виде контрагента, которая хранится как свойства контрагента.
Вид покупателя : [глПечатьСвойстваКлиента(Контекст,"Вид покупателя")] Категория цены : [глПечатьСвойстваКлиента(Контекст,"Вид цены")] Отсрочка платежа : [глПечатьСвойстваКлиента(Контекст,"Отсрочка платежа")]
И вот тоже самое мне надо для НОМЕКЛАТУРЫ, а вставлять эту инормацию буду в табличную часть документа
Пример:
Деталь № 007 Сертификат РОСС.564.875 срок 01.01.2003 - 01.01.2005. и далее в колонках пойдет количество цена и т.д."
У меня сейчас есть функция, которую я использую при печати накладной счета и т.д.
Функция глПечатьСвойстваКлиента(Конт,ИмяСвойства) Экспорт;
Стр = """";
Спр = СоздатьОбъект("Справочник.СвойстваКонтрагентов");
Спр.ИспользоватьВладельца(Конт.Клиент);
Спр.ВыбратьЭлементы();
Пока (Спр.ПолучитьЭлемент() = 1) Цикл
Если (ИмяСвойства = СокрЛП(Спр.ВидСвойства.Наименование)) Тогда
Стр = Стр + СокрЛП(Строка(Спр.ЗначениеСвойства)) + ";";
КонецЕсли;
КонецЦикла;
Возврат Стр;
КонецФункции
Я ее вставляю в форму документа в шапку, перед табличной частью:
В документах после полей наименование и адрес контрагента, вставляетяс информация о категории цены, отсрочке и виде контрагента, которая хранится как свойства контрагента.
Вид покупателя : [глПечатьСвойстваКлиента(Контекст,"Вид покупателя")] Категория цены : [глПечатьСвойстваКлиента(Контекст,"Вид цены")] Отсрочка платежа : [глПечатьСвойстваКлиента(Контекст,"Отсрочка платежа")]
И вот тоже самое мне надо для НОМЕКЛАТУРЫ, а вставлять эту инормацию буду в табличную часть документа
Пример:
Деталь № 007 Сертификат РОСС.564.875 срок 01.01.2003 - 01.01.2005. и далее в колонках пойдет количество цена и т.д."
19.08.2003
17:16
#4
"Создай такую функцию в глобалке
Функция глПечатьСвойстваНоменклатуры(Конт,ИмяСвойства) Экспорт;
Стр = """";
Спр = СоздатьОбъект("Справочник.СвойстваНоменклатуры");
Спр.ИспользоватьВладельца(Конт.Номенклатура);
Спр.ВыбратьЭлементы();
Пока (Спр.ПолучитьЭлемент() = 1) Цикл
Если (ИмяСвойства = СокрЛП(Спр.ВидСвойства.Наименование)) Тогда
Стр = Стр + СокрЛП(Строка(Спр.ЗначениеСвойства)) + ";";
КонецЕсли;
КонецЦикла;
Возврат Стр;
КонецФункции
Дальше все аналогично, вызываешь функцию с параметрами и получаешь свойство"
Функция глПечатьСвойстваНоменклатуры(Конт,ИмяСвойства) Экспорт;
Стр = """";
Спр = СоздатьОбъект("Справочник.СвойстваНоменклатуры");
Спр.ИспользоватьВладельца(Конт.Номенклатура);
Спр.ВыбратьЭлементы();
Пока (Спр.ПолучитьЭлемент() = 1) Цикл
Если (ИмяСвойства = СокрЛП(Спр.ВидСвойства.Наименование)) Тогда
Стр = Стр + СокрЛП(Строка(Спр.ЗначениеСвойства)) + ";";
КонецЕсли;
КонецЦикла;
Возврат Стр;
КонецФункции
Дальше все аналогично, вызываешь функцию с параметрами и получаешь свойство"
19.08.2003
19:54
#5
Спасибо, завтра попробую. Но вопрос: что собой представляет параметр "Конт"? Строка в печтной форме выглядит "Товар.Наименование". "Конт" заменит на "Товар"?
20.08.2003
09:58
#6
"Тогда сделай так
Функция глПечатьСвойстваНоменклатуры(Номенклатура,ИмяСвойства) Экспорт;
Стр = """";
Спр = СоздатьОбъект("Справочник.СвойстваНоменклатуры");
Спр.ИспользоватьВладельца(Номенклатура);
Спр.ВыбратьЭлементы();
Пока (Спр.ПолучитьЭлемент() = 1) Цикл
Если (ИмяСвойства = СокрЛП(Спр.ВидСвойства.Наименование)) Тогда
Стр = Стр + СокрЛП(Строка(Спр.ЗначениеСвойства)) + ";";
КонецЕсли;
КонецЦикла;
Возврат Стр;
КонецФункции
В качестве параметров передаешь непосредственно номенклатуру и значение свойства например "Сертификат". Успехов."
Функция глПечатьСвойстваНоменклатуры(Номенклатура,ИмяСвойства) Экспорт;
Стр = """";
Спр = СоздатьОбъект("Справочник.СвойстваНоменклатуры");
Спр.ИспользоватьВладельца(Номенклатура);
Спр.ВыбратьЭлементы();
Пока (Спр.ПолучитьЭлемент() = 1) Цикл
Если (ИмяСвойства = СокрЛП(Спр.ВидСвойства.Наименование)) Тогда
Стр = Стр + СокрЛП(Строка(Спр.ЗначениеСвойства)) + ";";
КонецЕсли;
КонецЦикла;
Возврат Стр;
КонецФункции
В качестве параметров передаешь непосредственно номенклатуру и значение свойства например "Сертификат". Успехов."
Про отчет и таблицы, вопрос новичкаВопрос по работе с Комплексной конфигурацией "Бухгалтерия+Торговля+Склад+Зарплата+Кадры дл
Читают тему
(гостей: 1)