Как изменить проводку в расширении конфигурации при проведении документа
Добрый день
Есть необходимость поменять проводку при проведении документа в расширении конфигурации... Платформа 1С8.3 (8.3.18). Конфигурация БП 3.0
Добавил в расширение:
Так вот, строка "Движение.СубконтоДт.Очистить()" не очищает Субконто, а очищает только значения Субконто и соответственно документ не проводится...
Подскажите, что делаю не так... или может каким другим способом можно поправить проводку?
Есть необходимость поменять проводку при проведении документа в расширении конфигурации... Платформа 1С8.3 (8.3.18). Конфигурация БП 3.0
Добавил в расширение:
&После("ОбработкаПроведения")
Процедура Расш_ОбработкаПроведения(Отказ, РежимПроведения)
ДвиженияХозрасчетный = ЭтотОбъект.Движения.Хозрасчетный;
ДвиженияХозрасчетный.Записывать = Истина;
Для каждого Движение Из ДвиженияХозрасчетный Цикл
Если Движение.СчетДт.ПринадлежитЭлементу(ПланыСчетов.Хозрасчетный.СебестоимостьПродаж) И Движение.СчетКт = ПланыСчетов.Хозрасчетный.ГотоваяПродукция Тогда
Движение.СчетДт = ПланыСчетов.Хозрасчетный.НераспределеннаяПрибыльВОбращении;
Движение.СубконтоДт.Очистить();
ВидСубконто = Движение.СчетДт.ВидыСубконто.Получить(0).ВидСубконто;
Движение.СубконтоДт.Вставить(ВидСубконто, СубконтоБлаготворительность);
Движение.Сумма = 0;
Движение.СуммаНУДт = 0;
Движение.СуммаНУКт = 0;
Движение.Содержание = "Благотворительность";
КонецЕсли;
КонецЦикла;
ПоказатьТак вот, строка "Движение.СубконтоДт.Очистить()" не очищает Субконто, а очищает только значения Субконто и соответственно документ не проводится...
Подскажите, что делаю не так... или может каким другим способом можно поправить проводку?
По теме из базы знаний
- Модульная (open source) конфигурация "INFOSTART ERP community edition"
- Указание склада для номенклатуры в табличной части документа (BAS: Бухгалтерия и BAS: Бухгалтерия КОРП)
- Не клади яйца в одну корзину. Как удовлетворить всех клиентов и не превратить конфигурацию в помойку
- Учет ОС и НМА - расширение для конфигурации "INFOSTART ERP community edition"
- Как автоматизировать учет по проектам в 1С:Бухгалтерии
Найденные решения
Сделал через ТаблицуЗначений... Вроде работает...
&После("ОбработкаПроведения")
Процедура Расш_ОбработкаПроведения(Отказ, РежимПроведения)
ДвиженияХозрасчетный = ЭтотОбъект.Движения.Хозрасчетный;
ДвиженияХозрасчетный.Записывать = Истина;
ТЗПроводок = ДвиженияХозрасчетный.Выгрузить();
Для каждого Движение Из ТЗПроводок Цикл
Если Движение.СчетДт.ПринадлежитЭлементу(ПланыСчетов.Хозрасчетный.СебестоимостьПродаж) И Движение.СчетКт = ПланыСчетов.Хозрасчетный.ГотоваяПродукция Тогда
Движение.СчетДт = ПланыСчетов.Хозрасчетный.НераспределеннаяПрибыльВОбращении;
ВидСубконто = Движение.СчетДт.ВидыСубконто.Получить(0).ВидСубконто;
Движение.ВидСубконтоДт1 = ВидСубконто;
Движение.ВидСубконтоДт2 = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ПустаяСсылка();
Движение.ВидСубконтоДт3 = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ПустаяСсылка();
Движение.Сумма = 0;
Движение.СуммаНУДт = 0;
Движение.СуммаНУКт = 0;
Движение.Содержание = "Благотворительность";
КонецЕсли;
КонецЦикла;
ДвиженияХозрасчетный.Загрузить(ТЗПроводок);
ПоказатьОстальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(5)Эмм, я правильно понимаю, что вы хотите на счет, у которого нет субконто, например, Номенклатура, в проводку добавить именно субконто Номенклатура и значение тоже из Номенклатуры? Вообще так не должно работать, список субконто фиксирован и настраивается у счета, не может быть изменен при формировании проводки.
Сделал через ТаблицуЗначений... Вроде работает...
&После("ОбработкаПроведения")
Процедура Расш_ОбработкаПроведения(Отказ, РежимПроведения)
ДвиженияХозрасчетный = ЭтотОбъект.Движения.Хозрасчетный;
ДвиженияХозрасчетный.Записывать = Истина;
ТЗПроводок = ДвиженияХозрасчетный.Выгрузить();
Для каждого Движение Из ТЗПроводок Цикл
Если Движение.СчетДт.ПринадлежитЭлементу(ПланыСчетов.Хозрасчетный.СебестоимостьПродаж) И Движение.СчетКт = ПланыСчетов.Хозрасчетный.ГотоваяПродукция Тогда
Движение.СчетДт = ПланыСчетов.Хозрасчетный.НераспределеннаяПрибыльВОбращении;
ВидСубконто = Движение.СчетДт.ВидыСубконто.Получить(0).ВидСубконто;
Движение.ВидСубконтоДт1 = ВидСубконто;
Движение.ВидСубконтоДт2 = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ПустаяСсылка();
Движение.ВидСубконтоДт3 = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ПустаяСсылка();
Движение.Сумма = 0;
Движение.СуммаНУДт = 0;
Движение.СуммаНУКт = 0;
Движение.Содержание = "Благотворительность";
КонецЕсли;
КонецЦикла;
ДвиженияХозрасчетный.Загрузить(ТЗПроводок);
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот