Мне надоело создавать каждый тип цен для товара... И вышло что-то вот такое. Приведенный код вставить в справочник "Номенклатура" между функцией СохранитьЕдиницы() и процедурой ДобавитьВТаблицу(Табл, Товар, ТипЦены). После этого при сохранении нового товара для него создаются типы цен с нулевой ценой.
!
! Вложенная обработка создает типы цен для товара, который уже сохранен в базе.
!
//автоматическое создание типов цен
Функция СоздатьТипыЦен()
Если Выбран() = 0 Тогда
Возврат 0;
КонецЕсли;
С = СоздатьОбъект("Справочник.Цены");
СТЦ = СоздатьОбъект("Справочник.ТипыЦен");
СТЦ.ВыбратьЭлементы();
Пока СТЦ.ПолучитьЭлемент() = 1 Цикл
С.ИспользоватьВладельца(ТекущийЭлемент());
Если С.НайтиПоРеквизиту("ТипЦен", СТЦ.ТекущийЭлемент(), 0) = 0 Тогда
С.Новый();
С.ТипЦен = СТЦ.ТекущийЭлемент();
С.Валюта = Константа.ВалютаБухУчета;
С.Записать();
П = СоздатьОбъект("Периодический");
П.ИспользоватьОбъект("Единица", С.ТекущийЭлемент());
П.ДатаЗнач = '01.01.1980';
П.Значение = БазоваяЕдиница;
П.Записать();
П.ИспользоватьОбъект("Цена", С.ТекущийЭлемент());
П.ДатаЗнач = '01.01.1980';
П.Значение = 99999999;
П.Записать();
Рез = 1;
Иначе
Рез = 1;
КонецЕсли;
КонецЦикла;
Возврат Рез;
КонецФункции
//------------------------
Может кому и пригодиться.
