|
Установка цен номенклатуры. Нет движений документа
| ☑ |
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
|
Решено:
Вместо:
ДокУЦ.Согласован = Истина;
Надо:
ДокУЦ.Статус = Перечисления.СтатусыУстановокЦенНоменклатуры.Согласован;
Всем спасибо за ответы
|
|
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший