Заполнение документа ОперацияБух

Всем добрый день.
Заполняю программно документ "ОперацияБух".

Смотрю примеры в интернете. объясните зачем в цикле писать эти строки?
"БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "Контрагенты", Контрагент);
"БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "ОсновныеСредства", ОсновноеСредство);

Полный текст:
**************
Содержание = Комментарий;//Строка(ПерваяСтрока.Подразделение);
    ДокОперация = Документы.ОперацияБух.СоздатьДокумент();
    ДокОперация.Дата = КонецГода(КонецПериода);
    ДокОперация.Организация = Организация;
    ДокОперация.Ответственный = Пользователи.ТекущийПользователь();
    ДокОперация.Содержание = Содержание;
    ДокОперация.Комментарий = Комментарий;
    СуммаОперации = 0;
    ДокОперация.Записать();
    ДокОперацияСсылка = ДокОперация.Ссылка;

    РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
    РегХозрасчетный.Отбор.Регистратор.Значение = ДокОперацияСсылка;

    Для каждого Строка Из ТЗ Цикл

        СуммаОперации = СуммаОперации +  Строка.СуммаКонечныйОстатокДт;

        РегЗапись = РегХозрасчетный.Добавить();
        РегЗапись.Период = КонецПериода;
        РегЗапись.Регистратор = ДокОперацияСсылка;
        РегЗапись.Организация = Организация;
        РегЗапись.Содержание  = Содержание;
        РегЗапись.СчетДт = ПланыСчетов.Хозрасчетный.ПрочиеРасчетыСФизическимиЛицами;//Строка.Счет;
        РегЗапись.СчетКт = Строка.Счет;

        БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "РаботникиОрганизаций", Строка.Субконто1);
        БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, "РаботникиОрганизаций", Строка.Субконто1);
        РегЗапись.Сумма = Строка.СуммаКонечныйОстатокДт;
        РегЗапись.СуммаНУДт = Строка.СуммаКонечныйОстатокДт;
        РегЗапись.СуммаНУКт = Строка.СуммаКонечныйОстатокДт;
    КонецЦикла;

    ДокОперация.СуммаОперации = СуммаОперации;
    ДокОперация.Записать();

    РегХозрасчетный.Записать();
*****************