Бух: Запись не верна! Не заполнены оба счета! (Регистр бухгалтерии: Журнал проводок

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

    НаборЗаписей.Отбор.Регистратор.Установить(Документ.Ссылка); 
    
    Если Материалы.Количество() > 0 Тогда
        Для каждого тс Из Материалы Цикл 
        Движение = НаборЗаписей.Добавить();     
            Движение.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("0222"); 
            Движение.СубконтоДт.Контрагенты = ""; 
            Движение.СубконтоДт.Номенклатура = тс.Номенклатура;
            Движение.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("0222");
            Движение.КоличествоДт = тс.Количество;
            Движение.СубконтоКт.Номенклатура = тс.Номенклатура;
        КонецЦикла;
    КонецЕсли;
    
    Движение.Организация = Организация;

    Движение = НаборЗаписей.Добавить();
    Движение.Регистратор = Документ.Ссылка; 
    Движение.Период = Дата;
    Движение.Содержание = "Отчет"; 
    НаборЗаписей.Записать();