Имя: Пароль:
1C
1С v8
УТ 11.5, док. установка цен пишет в разные регистры ЦеныНоменклатуры25 и ЦеныНоменклатуры?
,
0 8319
 
11.02.22
10:41
Здравствуйте, создаю документ "УЦ"  (через "прай-лист") пишет в регистр "ЦеныНоменклатуры25", все цены подтягиваются во все документы, все отлично. Создаю программно документ "УЦ" (код ниже), пишет цены в регистр "ЦеныНоменклатуры", цены в документы не подтягиваются. Пожалуйста, подскажите что переделать, чтоб цены нормально писались в регистр "ЦеныНоменклатуры25" и соответвенно подтягивались в документы.

Программный код создания "УЦ":

    ДокУЦ = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
    ДокУЦ.Дата = ТекущаяДата();
    ДокУЦ.Статус =Перечисления.СтатусыУстановокЦенНоменклатуры.Согласован;
    ДокУЦ.Ответственный = Пользователи.ТекущийПользователь();
    ДокУЦ.Согласован = Истина;
    
    ВидЦены = Объект.ТипЦен;
    ТЧВидЦены = ДокУЦ.ВидыЦен.Добавить();
    ТЧВидЦены.ВидЦены = ВидЦены;
    
    Для каждого СтрД Из Объект.Цены Цикл
        НоваяСтрока = ДокУЦ.Товары.Добавить();
        СпрНом = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул",СтрД.Артикул);
        НоваяСтрока.Номенклатура = СпрНом;
        НоваяСтрока.ВидЦены      = ВидЦены;
        НоваяСтрока.Валюта       = Объект.Валюта;
        
        Если Объект.ТипЦен.ЦенаВключаетНДС Тогда
            НоваяСтрока.Цена = СтрД.ЦенаСНДС;
        Иначе
            НоваяСтрока.Цена = СтрД.ЦенаБезНДС;
        КонецЕсли;
        
        ДокУЦ.Товары.Свернуть("Номенклатура, ВидЦены, Цена");
    КонецЦикла;
    
    Попытка
        ДокУЦ.Записать(РежимЗаписиДокумента.Проведение);
        Сообщить("Документ успешно создан.");
    Исключение
        Сообщить("Обнаружены ошибки: "+ОписаниеОшибки());
    КонецПопытки;
1 vicof
 
11.02.22
10:45
Создавать документ "УЦ"  (через "прай-лист")
2 8319
 
11.02.22
10:46
(1) Надо программно, через обработку подтягивать цены в 1С.
3 pechkin
 
11.02.22
10:47
а что за регистр? типовой? и зачем он вообще нужен?
4 yzimin
 
11.02.22
10:47
Создать документ программно, создать документ вручную, сравнить пореквизитно
5 8319
 
11.02.22
10:47
(3) Да, типовой )
6 8319
 
11.02.22
10:48
(3) Причем, оба типовые:)
7 8319
 
11.02.22
10:52
Ни кто не подскажет? Из-за чего такое происходит?
8 Смотрящий
 
11.02.22
11:12
(7) Какой нить флажок забыл взвести в УЦ который программно создаешь или поле заполнить ...
Сравни свой сделанный программно документ с тем который делаешь руками
9 8319
 
11.02.22
11:13
Короче ответ, может кто-то будет искать.

Вместо НоваяСтрока = ДокУЦ.Товары.Добавить();

Надо НоваяСтрока = ДокУЦ.ДокУЦ.Товары2_5.Добавить();

И будет счастье...
10 8319
 
11.02.22
11:17
(9) Вернее так:
Вместо НоваяСтрока = ДокУЦ.Товары.Добавить();

Надо НоваяСтрока = ДокУЦ.Товары2_5.Добавить();
11 8319
 
11.02.22
11:20
(8) Да так и сделал, и обнаружил, что товар добавляет в разные таблицы. Спасибо!