Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
23 июн 2021, 11:37

Программное заполнение Документа Установка Цен Номенклатуры

Автор illiona, 26 мая 2017, 07:03

0 Пользователей и 1 гость просматривают эту тему.

illiona

Добрый день. Помогите разобраться. Создаю программно установку цен.
Как для для каждого типа цен добавить данные.

ДокУЦ = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
    ДокУЦ.Дата = ТекущаяДата();
    ДокУЦ.Ответственный = Пользователи.ТекущийПользователь();
    ВидЦены = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Базовая цена поставщика");
    ТЧВидЦены = ДокУЦ.ТипыЦен.Добавить();
    ТЧВидЦены.ТипЦен = ВидЦены;
    ВидЦены = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Дилерская цена прихода");
    ТЧВидЦены = ДокУЦ.ТипыЦен.Добавить();
    ТЧВидЦены.ТипЦен = ВидЦены;
    ВидЦены = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Розничная");
    ТЧВидЦены = ДокУЦ.ТипыЦен.Добавить();
    ТЧВидЦены.ТипЦен = ВидЦены;
    ВидЦены = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Оптовая 1");
    ТЧВидЦены = ДокУЦ.ТипыЦен.Добавить();
    ТЧВидЦены.ТипЦен = ВидЦены;
    ВидЦены = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Оптовая 2");
    ТЧВидЦены = ДокУЦ.ТипыЦен.Добавить();
    ТЧВидЦены.ТипЦен = ВидЦены;
    ВидЦены = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Оптовая 3");
    ТЧВидЦены = ДокУЦ.ТипыЦен.Добавить();
    ТЧВидЦены.ТипЦен = ВидЦены;
    ВидЦены = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Цена спец.предложения");
    ТЧВидЦены = ДокУЦ.ТипыЦен.Добавить();
    ТЧВидЦены.ТипЦен = ВидЦены;
    ВидЦены = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Цена спец.предложения 2");
    ТЧВидЦены = ДокУЦ.ТипыЦен.Добавить();
    ТЧВидЦены.ТипЦен = ВидЦены;

Читаю данные для даполнения из таблицы с формы
    Для каждого СтрД Из ТаблицаДанные1 Цикл
        НоваяСтрока = ДокУЦ.Товары.Добавить();
   СпрНом = Справочники.Номенклатура.НайтиПоНаименованию(СтрД.Номенклатура);
   НоваяСтрока.Номенклатура = СпрНом;
    КонецЦикла;


А как по типам цен данные не пойму добавить

illiona

Или как каждому товару установить несколько цен

ef0din

Обычно в ТЧ товары есть реквизит "ВидЦен". Туда вид цен и устанавливается. Если по нескольким ценам для одной номенклатуры - несколько строк, по одной для конкретной номенклатуры с конкретным видом цен.

Теги:

Похожие темы (5)

Рейтинг@Mail.ru Rambler's Top100

Поиск