Документ "Корректировка Записей Регистров" "ввод на основании"
04.06.12
Разработка - Механизмы типовых конфигураций
Небольшое дополнение, для автоматизации работ в УПП (в сети......, а кому то всегда надо)
Достаточно популярный документ у бухгалтеров не имеет ввода на основании, для любых документов. Исправим.
Создайте подписку на события для документов (если нет):
- Источник=ДокументОбъект,
- Событие=ОбработкаЗаполнения,
- Обработчик=свой_ОбщегоНазначения._ОбработкаЗаполненияДокументовОбработкаЗаполнения,
- Текст процедуры:
Процедура _ОбработкаЗаполненияДокументовОбработкаЗаполнения(Источник, Основание) Экспорт
Если (ТипЗнч(Источник.Ссылка)= Тип("ДокументСсылка.КорректировкаЗаписейРегистров")) Тогда
Если Основание<>Неопределено Тогда
Источник.ИспользоватьЗаполнениеДвижений=истина;
ЗаполнениеДокументов.ЗаполнитьШапкуДокументаПоОснованию(Источник, Основание);
СтрокаТабличнойЧасти = Источник.ЗаполнениеДвижений.Добавить();
СтрокаТабличнойЧасти.Документ=Основание;
СтрокаТабличнойЧасти.Действие="Сторно движений документа";
ФормаДок = Источник.ПолучитьФорму("ФормаДокумента");
ФормаДок.КоманднаяПанельЗаполнениеДвиженийЗаполнитьДвижения("ЗаполнитьДвижения")
КонецЕсли;
КонецЕсли;
КонецПроцедуры
И не забудьте в самом Документе КорректировкаЗаписейРегистров, на вкладке "Ввод на основании" добавить все интересующие Вас документы основания.
Вступайте в нашу телеграмм-группу Инфостарт
Вы можете заказать платную адаптацию этой статьи под ваши задачи на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.