|
Подписака на событие. Ничего не происходит | ☑ | ||
---|---|---|---|---|
0
r1000
04.06.15
✎
11:18
|
Нужно откорректировать проводки документа в БП 3.0 после создания стандартных проводок.
Создал подписку: источник - ДокументОбъект.РегламентнаяОперация, событие - ОбработкаПроведения Обработчик подписки поместил в серверный модуль. Провожу документ РегламентнаяОперация и ничего не происходит. Новых проводок не создается. Вообще ничего не происходит. В чем дело ? Вот код код обработчика: ДвиженияБУ = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей(); ДвиженияБУ.Отбор.Регистратор.Установить(Источник.Ссылка); ДвиженияБУ.Прочитать(); Счет2001 = ПланыСчетов.Хозрасчетный.ОсновноеПроизводство; НовоеДвижениеБУ = ДвиженияБУ.Добавить(); НовоеДвижениеБУ.Период = Источник.Дата; НовоеДвижениеБУ.Организация = Источник.Организация; НовоеДвижениеБУ.Регистратор = Источник.Ссылка; НовоеДвижениеБУ.Содержание = "Корректировка выпуска продукции (услуг)"; НовоеДвижениеБУ.СчетДт = ПланыСчетов.Хозрасчетный.СебестоимостьПродажНеЕНВД; НовоеДвижениеБУ.СчетКт = ПланыСчетов.Хозрасчетный.ОсновноеПроизводство; НовоеДвижениеБУ.Сумма = 100; ДвиженияБУ.Записать(); |
|||
1
r1000
04.06.15
✎
11:18
|
Тот же код в 8.2 исправно работал...
|
|||
2
Fragster
гуру
04.06.15
✎
11:19
|
ДвиженияБУ = Источник.Движения.Хозрасчетный;
.... Движения.Записывать = Истина; |
|||
3
Fragster
гуру
04.06.15
✎
11:20
|
Прочитать, отбор - этого не надо
|
|||
4
r1000
04.06.15
✎
11:33
|
Не работает. Сейчас вот так:
Если Отказ Тогда Возврат; КонецЕсли; ДвиженияБУ = Источник.Движения.Хозрасчетный; ДвиженияБУ.Записывать = Истина; //Счет2001 = ПланыСчетов.Хозрасчетный.ОсновноеПроизводство; //Субконто1Счет2001 = Справочники.НоменклатурныеГруппы.НайтиПоКоду("000000002"); // НовоеДвижениеБУ = ДвиженияБУ.Добавить(); НовоеДвижениеБУ.Период = Источник.Дата; НовоеДвижениеБУ.Организация = Источник.Организация; НовоеДвижениеБУ.Регистратор = Источник.Ссылка; НовоеДвижениеБУ.Содержание = "Корректировка выпуска продукции (услуг)"; НовоеДвижениеБУ.СчетДт = ПланыСчетов.Хозрасчетный.СебестоимостьПродажНеЕНВД; НовоеДвижениеБУ.СчетКт = ПланыСчетов.Хозрасчетный.ОсновноеПроизводство;; НовоеДвижениеБУ.Сумма = 111; ДвиженияБУ.Записать(); |
|||
5
Fragster
гуру
04.06.15
✎
11:35
|
сейчас я может и фигню скажу, но этот документ он вообще проводится?
|
|||
6
Fragster
гуру
04.06.15
✎
11:35
|
или записывается с Проведен=Истина?
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |