Почти универсальный код
вместо
РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
РегХозрасчетный.Отбор.Регистратор.Значение = ДокОперацияСсылка;
Надо подставить движения по своим регистрам
Комментарий ="");
Содержание = Комментарий;//Строка(ПерваяСтрока.Подразделение);
ДокОперация = Документы.ОперацияБух.СоздатьДокумент();
ДокОперация.Дата = КонецГода(КонецПериода);
ДокОперация.Организация = Организация;
ДокОперация.Ответственный = Пользователи.ТекущийПользователь();
ДокОперация.Содержание = Содержание;
ДокОперация.Комментарий = Комментарий;
СуммаОперации = 0;
ДокОперация.Записать();
ДокОперацияСсылка = ДокОперация.Ссылка;
РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
РегХозрасчетный.Отбор.Регистратор.Значение = ДокОперацияСсылка;
Для каждого Строка Из ТЗ Цикл
СуммаОперации = СуммаОперации + Строка.СуммаКонечныйОстатокДт;
РегЗапись = РегХозрасчетный.Добавить();
РегЗапись.Период = КонецПериода;
РегЗапись.Регистратор = ДокОперацияСсылка;
РегЗапись.Организация = Организация;
РегЗапись.Содержание = Содержание;
РегЗапись.СчетДт = ПланыСчетов.Хозрасчетный.ПрочиеРасчетыСФизическимиЛицами;//Строка.Счет;
РегЗапись.СчетКт = Строка.Счет;
БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "РаботникиОрганизаций", Строка.Субконто1);
БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, "РаботникиОрганизаций", Строка.Субконто1);
РегЗапись.Сумма = Строка.СуммаКонечныйОстатокДт;
РегЗапись.СуммаНУДт = Строка.СуммаКонечныйОстатокДт;
РегЗапись.СуммаНУКт = Строка.СуммаКонечныйОстатокДт;
КонецЦикла;
ДокОперация.СуммаОперации = СуммаОперации;
ДокОперация.Записать();
РегХозрасчетный.Записать();
Показать