|
Программное создание документа "Установка цен номенклатуры". | ☑ | ||
---|---|---|---|---|
0
zenum
07.12.15
✎
13:50
|
Здравствуйте!
1С 8.3 Комплексная автоматизация 2. Программно создал док. установки цен, заполнил его, и записал. В режиме предприятия, документ корректно заполнен, без ошибок проводится, но движений по регистру не делает. Не могу разобраться в чем проблема?! Спасибо! [code] ДокументУЦ = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент(); ДокументУстановкаЦен.Дата = ДатаРек; ДокументУстановкаЦен.Согласован = Истина; ДокументУстановкаЦен.Ответственный = Пользователи.ТекущийПользователь(); СтрокаВЦ = ДокументУстановкаЦен.ВидыЦен.Добавить(); СтрокаВЦ.ВидЦены = ВидЦены; ТаблицаТоваров = ДокументУстановкаЦен.Товары.Выгрузить(); Для НомерСтроки=2 по ЗагружаемыйФайл.КоличествоСтрок() Цикл Если ЗагрузитьЦены Тогда КодНоменклатуры = МассивКолонок[0]; НоменклатураСпр = Справочники.Номенклатура.НайтиПоКоду(КодНоменклатуры); Если НоменклатураСпр = Справочники.Номенклатура.ПустаяСсылка() Тогда Продолжить; КонецЕсли; ЦенаНоменклатуры = МассивКолонок[1]; Стр = ТаблицаТоваров.Добавить(); Стр.Номенклатура = НоменклатураСпр; стр.видцены = ВидЦены; Стр.Цена = ЦенаНоменклатуры; Стр.ЦенаИзмененаВручную = Истина; КонецЕсли; //-- Загрузить Цену КонецЦикла; //++Загрузить Цену Если ЗагрузитьЦены Тогда Попытка ДокументУстановкаЦен.Товары.Загрузить(ТаблицаТоваров); ДокументУстановкаЦен.Записать(РежимЗаписиДокумента.Запись); Исключение Предупреждение(ОписаниеОшибки(), 60); КонецПопытки; КонецЕсли; [/code] |
|||
1
Михаил Козлов
07.12.15
✎
13:57
|
А Вы его проводите? Если руками провести движения появляются?
|
|||
2
MUXACb
07.12.15
✎
13:59
|
(0) "ДокументУстановкаЦен.Записать(РежимЗаписиДокумента.Запись);"
И что вы хотите при этом получить? |
|||
3
zenum
07.12.15
✎
13:59
|
Подправил более читаемый вид.
ДокументУстановкаЦен = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент(); ДокументУстановкаЦен.Дата = ДатаРек; ДокументУстановкаЦен.Согласован = Истина; ДокументУстановкаЦен.Ответственный = Пользователи.ТекущийПользователь(); СтрокаВЦ = ДокументУстановкаЦен.ВидыЦен.Добавить(); СтрокаВЦ.ВидЦены = ВидЦены; ТаблицаТоваров = ДокументУстановкаЦен.Товары.Выгрузить(); Для НомерСтроки=2 по ЗагружаемыйФайл.КоличествоСтрок() Цикл Если ЗагрузитьЦены Тогда КодНоменклатуры = МассивКолонок[0]; НоменклатураСпр = Справочники.Номенклатура.НайтиПоКоду(КодНоменклатуры); ЦенаНоменклатуры = МассивКолонок[1]; Стр = ТаблицаТоваров.Добавить(); Стр.Номенклатура = НоменклатураСпр; стр.видцены = ВидЦены; Стр.Цена = ЦенаНоменклатуры; Стр.ЦенаИзмененаВручную = Истина; КонецЕсли; КонецЦикла; Попытка ДокументУстановкаЦен.Товары.Загрузить(ТаблицаТоваров); ДокументУстановкаЦен.Записать(РежимЗаписиДокумента.Запись); Исключение Предупреждение(ОписаниеОшибки(), 60); КонецПопытки; |
|||
4
zenum
07.12.15
✎
14:02
|
(1) Да руками провожу, не чего не происходит, кроме пометки на проведение.
(2) Не обращайте внимания на это. |
|||
5
fmrlex
07.12.15
✎
14:03
|
(4) Там ТЧ ВидыЦен в документе есть?
Просто в УТ 11 тоже такое было, пока эту ТЧ не заполнил. |
|||
6
Azverin
07.12.15
✎
14:03
|
(2) записать документ и увидеть проводки)
|
|||
7
fantomrik
07.12.15
✎
14:06
|
(5) он заполняет вид цен (СтрокаВЦ)
С виду все нормально, посмотрите в отладке пошагово в модуле объекта - Процедура ОбработкаПроведения(Отказ, РежимПроведения) |
|||
8
zenum
07.12.15
✎
14:18
|
(5)Есть, так я ее заполнил.
... СтрокаВЦ = ДокументУстановкаЦен.ВидыЦен.Добавить(); СтрокаВЦ.ВидЦены = ВидЦены; ТаблицаТоваров = ДокументУстановкаЦен.Товары.Выгрузить(); ... (7) Первое, что пришло в голову, но отладчик до туда не доходит) |
|||
9
cw014
07.12.15
✎
14:26
|
ИндексСтрокиТаблицыЦен где?
|
|||
10
zenum
07.12.15
✎
14:32
|
(9) Это реквизит?! или что это, если да, то такого там нет)
|
|||
11
zenum
07.12.15
✎
14:34
|
может НомерСтроки?!
|
|||
12
Strogg
07.12.15
✎
14:40
|
(0) - смотри в сторону (9).
|
|||
13
Тoлько_
Просмотр 07.12.15
✎
14:48
|
(10) Конечно нет, потому что они думают про старую КА. Ещё глянь реквизит Статус, если есть.
|
|||
14
cw014
07.12.15
✎
14:49
|
КА 2 новая? Что-то тут я завис
|
|||
15
zenum
07.12.15
✎
15:02
|
(10) Спасибо и чтобы тебе Porsche под окна!) В документе есть реквезит
"Статус" , типа перечисления. ДокументУстановкаЦен.Статус = Перечисления.СтатусыУстановокЦенНоменклатуры.Согласован; И все гуд! |
|||
16
Тoлько_
Просмотр 07.12.15
✎
18:39
|
(15) Это ты типа сам на свой коммент ответил?))
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |