Имя: Пароль:
1C
 
Не заполняется Цена в Установке цен.
0 zippygrill
 
25.11.14
20:40
Программно заполняю документ "Установка цен номенклатуры" в УТ11 11.1.9.44. Что ему еще надо чтобы цена записалась? В другой базе УТ11 цена подставляется.
СтрокаТаблицыРезультата.Цена - тип Число.

    Если ВыборкаДетальныеЗаписи.Следующий() Тогда
        Документ = ВыборкаДетальныеЗаписи.Документ.ПолучитьОбъект();
    Иначе
        
        Документ = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
        Документ.Дата = ТекущаяДата();
        Документ.Согласован = Истина;
        Документ.Статус = Перечисления.СтатусыУстановокЦенНоменклатуры.Согласован;
        Документ.Комментарий = "АвтоОбновлениеЦен";
        
        НовыйВидЦены = Документ.ВидыЦен.Добавить();
        НовыйВидЦены.ВидЦены = ВидЦеныПрайсЛист;
        
    КонецЕсли;
    
    Документ.Товары.Очистить();
    
    Для Каждого СтрокаТаблицыРезультата из Таблица.Состав Цикл
        НоваяСтрока = Документ.Товары.Добавить();
        НоваяСтрока.Номенклатура = ПолучитьНоменклатуру(СтрокаТаблицыРезультата.Номенклатура);
        НоваяСтрока.Цена = СтрокаТаблицыРезультата.Цена;
        НоваяСтрока.ВидЦены = ВидЦеныПрайсЛист;
        НоваяСтрока.ЦенаИзмененаВручную = Истина;
        //Прервать;
    КонецЦикла;
1 zippygrill
 
25.11.14
20:40
Запись документа происходит чуть ниже. На всякий случай.
2 zippygrill
 
25.11.14
20:43
Осталось заполнять только поле "Характиристика" и "Упаковка" но не вижу связь с не сохранением цены...
3 DGorgoN
 
25.11.14
20:49
Сообщить(НоваяСтрока.Номенклатура);
Сообщить(НоваяСтрока.Цена);
        НоваяСтрока.Цена = СтрокаТаблицыРезультата.Цена;
Сообщить(НоваяСтрока.Цена);
Сообщить("*****");
        НоваяСтрока.ВидЦены = ВидЦеныПрайсЛист;
        НоваяСтрока.ЦенаИзмененаВручную = Истина;


        Прервать;
4 zippygrill
 
25.11.14
21:07
НоваяСтрока.Цена = СтрокаТаблицыРезультата.Цена;
Сообщить(НоваяСтрока.Цена); - сообщает цену :) а в документе ее нет
5 Banned
 
25.11.14
21:19
Там ещё вроде как ссылка на строку таблицы видов цен была, не?
6 zippygrill
 
25.11.14
21:55
Не помню такого
7 КонецЦикла
 
25.11.14
21:57
Куя с 2
Разберись как там устроено... там еще типы цен записаны, нужно ссылку дать
8 zippygrill
 
25.11.14
22:06
НоваяСтрока.ВидЦены=ВидЦеныПрайсЛист; - не канает уже?
9 Maniac
 
25.11.14
22:22
Вот это явно настораживает
НоваяСтрока.Номенклатура = ПолучитьНоменклатуру(СтрокаТаблицыРезультата.Номенклатура);
10 Maniac
 
25.11.14
22:23
И вот это тоже

Таблица.Состав
11 zippygrill
 
25.11.14
22:29
Спокойствие, только спокойствие :)
Там объектXDTO
12 zippygrill
 
26.11.14
09:15
(7) Каким образом еще дать ссылку на вид цены? Разве в (8) недостаточно?
13 КонецЦикла
 
26.11.14
09:32
У меня как-то так работало, УТ 10.3

ДокУЦ = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
    ДокУЦ.Дата = ТекущаяДата();
    
    СтрокаТипыЦен = ДокУЦ.ТипыЦен.Добавить();
    СтрокаТипыЦен.ТипЦен = ТипЦеныНал;
    
    ...

СтрокаТоваров = ДокУЦ.Товары.Добавить();
        СтрокаТоваров.Номенклатура = Ссылка;
        СтрокаТоваров.Цена = ЦенаБезНалПрод;
        СтрокаТоваров.Валюта = ТипЦеныБезНал.ВалютаЦены;
        СтрокаТоваров.ЕдиницаИзмерения = Ссылка.ЕдиницаХраненияОстатков;
        СтрокаТоваров.ТипЦен = ТипЦеныБезНал;
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс