Имя: Пароль:
1C
 
Программное создание документа "Установка цен номенклатуры".
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) Это ты типа сам на свой коммент ответил?))