Имя: Пароль:
1C
1С v8
Установка цен номенклатуры. Нет движений документа
0 norets
 
13.10.16
08:08
Добрый день!
Пытаюсь написать обработку по загрузке прайс-листа xls. Файл читается, номенклатура создается, даже документ установка цен создается и проводится, но... Но вот движений по регистру нет. Опыта мне не хватает чтобы самостоятельно разобраться в проблеме. Подскажите где ошибка

<code>
&НаСервере
Функция УстановкаЗакЦен(Товар, ЦенаЗакуп, Док)
       ВидЦены = Справочники.ВидыЦен.НайтиПоНаименованию("Закупочные");
    Ном = Справочники.Номенклатура.НайтиПоКоду(Товар.Код);

    Если Док = Неопределено Тогда
    ДокУЦ = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
        ДокУЦ.Дата = ТекущаяДата();
        ДокУЦ.Согласован = Истина;
        ДокУЦ.Ответственный = Пользователи.ТекущийПользователь();
                    
        ТЧВидЦены = ДокУЦ.ВидыЦен.Добавить();
        ТЧВидЦены.ВидЦены = ВидЦены;
    Иначе
        ДокУЦ = Док;
    КонецЕсли;
    
        
        НоваяСтрока = ДокУЦ.Товары.Добавить();
        НоваяСтрока.Номенклатура = Ном;
        НоваяСтрока.ВидЦены      = ВидЦены;
        НоваяСтрока.Цена         = ЦенаЗакуп;
        НоваяСтрока.ЦенаИзмененаВручную = Истина;
        
    
    ДокУЦ.Записать();
    Возврат ДокУЦ.Ссылка;
КонецФункции    
</code>
1 norets
 
13.10.16
08:31
Оговорка:
Платформа 8.3.8.1652
УТ 11.1.2.9

Если ручками создать документ, добавить номенклатуру, установить цену то движения по регистру проходят. Программно нет. И номер документа в пределах дня выставляется ~23 650
2 FIXXXL
 
13.10.16
09:04
(1) создай руками и сравни потроха документа запросом с созданным программно, ищи различия
3 aleks_default
 
13.10.16
09:09
записывать нужно в режиме проведения
4 FIXXXL
 
13.10.16
09:24
ДокУЦ.Записать();

мда...
5 Krabb
 
13.10.16
09:50
(0) ДокУЦ.Записать(РежимЗаписиДокумента.Проведение);
6 norets
 
13.10.16
11:17
РежимЗаписиДокумента не влияет...
А можно образец запроса для сравнения документов? Не получается у меня что-то...
7 FIXXXL
 
13.10.16
11:20
(6) содаешь программно док с одной записью, записываешь
создаешь точно такой же руками
выбираешь инфу из обоих через ОБЪЕДИНИТЬ, смотришь глазами
8 Krabb
 
13.10.16
11:55
(6) Какая конфигурация?
9 norets
 
13.10.16
12:19
Платформа 8.3.8.1652
УТ 11.1.2.9
10 norets
 
13.10.16
14:12
Решено:
Вместо:

ДокУЦ.Согласован = Истина;

Надо:

ДокУЦ.Статус = Перечисления.СтатусыУстановокЦенНоменклатуры.Согласован;

Всем спасибо за ответы
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший