Программное создание акта сверки (не могу заполнить табличные данные акта)

&НаСервере
Функция СоздатьАктСверки(Контрагент)
	
	ДокументОбъект = Документы.АктСверкиВзаиморасчетов.СоздатьДокумент();
	ДокументОбъект.ВалютаДокумента 		= Валюта;
	ДокументОбъект.Дата 				= ДатаАктаСверки;
	ДокументОбъект.ДатаНачала 			= Период.ДатаНачала;
	ДокументОбъект.ДатаОкончания 		= Период.ДатаОкончания;
	ДокументОбъект.Контрагент 			= Контрагент;
	ДокументОбъект.Комментарий 			= "Создан автоматически "+ТекущаяДата();
	ДокументОбъект.Организация 			= Организация;
	ДокументОбъект.Ответственный 		= ПараметрыСеанса.ТекущийПользователь;
	ДокументОбъект.РазбитьПоДоговорам	= Истина;
	ДокументОбъект.ПредставительОрганизации = ПредставительОрганизации;
	Для Каждого Счет Из СчетаРасчетов Цикл
		Если Счет.Пометка Тогда
			СтрокаСчета = ДокументОбъект.СписокСчетов.Добавить();
			СтрокаСчета.Счет = Счет.Счет;
			СтрокаСчета.УчаствуетВРасчетах = Истина;
		КонецЕсли;
		
	КонецЦикла;
	
//Вот тут надо бы вставить это заполнение, но
// ДокументОбъект.ЗаполнитьПоДаннымБухгалтерскогоУчета();
//Выдает:
//{ВнешняяОбработка.СозданиеГрупповоеАктовСверкиZ.Форма.Форма.Форма(92)}: Метод объекта не обнаружен (ЗаполнитьПоДаннымБухгалтерскогоУчета)
	ДокументОбъект.ЗаполнитьПоДаннымБухгалтерскогоУчета();

	ДокументОбъект.Записать();
	Возврат ДокументОбъект.Ссылка;
	
КонецФункции

&НаСервере
Функция ЗаполнитьПоДаннымБухгалтерскогоУчета()
	
	Результат = Новый Структура();
	Результат.Вставить("ЗаданиеВыполнено", Истина);
	Результат.Вставить("Успешно", Ложь);
	
	//проверим заполненность обязательных реквизитов
	Если НЕ ПроверитьЗаполнение() Тогда
		Возврат Результат;
	КонецЕсли;
	
	СтруктураПараметров = Новый Структура;
	
	СтруктураПараметров.Вставить("ДатаНачала",                    Объект.ДатаНачала);
	СтруктураПараметров.Вставить("ДатаОкончания",                 Новый Граница(КонецДня(Объект.ДатаОкончания), ВидГраницы.Включая));
	СтруктураПараметров.Вставить("Организация",                   Объект.Организация);
	СтруктураПараметров.Вставить("Контрагент",                    Объект.Контрагент);
	СтруктураПараметров.Вставить("СОбособленнымиПодразделениями", Объект.СОбособленнымиПодразделениями);
	СтруктураПараметров.Вставить("ВыводитьСчетаФактуры",          Объект.ВыводитьСчетаФактуры);
	СтруктураПараметров.Вставить("ЗаполнятьДанныеКонтрагента",    Объект.ПоДаннымКонтрагента.Количество() = 0);
	СтруктураПараметров.Вставить("Валюта", ?((Объект.ВалютаДокумента = ВалютаРегламентированногоУчета), Неопределено, Объект.ВалютаДокумента));
	
	ФильтрСписокСчетов = Новый Массив();
	Для Каждого СтрокаСчета Из Объект.СписокСчетов Цикл
		Если ЗначениеЗаполнено(СтрокаСчета.Счет) И СтрокаСчета.УчаствуетВРасчетах Тогда
			ФильтрСписокСчетов.Добавить(СтрокаСчета.Счет);
		КонецЕсли;
	КонецЦикла;
	Если ФильтрСписокСчетов.Количество() = 0 Тогда
		ТекстОшибки = НСтр("ru='Не задан список счетов, по которым производится сверка.'");
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки, , , "Объект.СписокСчетов");
		Возврат Результат;
	КонецЕсли;
	
	СтруктураПараметров.Вставить("ФильтрСписокСчетов", ФильтрСписокСчетов);
	
	АналитикаРасчетов = Новый Массив();
	АналитикаРасчетов.Добавить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты);
	АналитикаРасчетов.Добавить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Договоры);
	СтруктураПараметров.Вставить("АналитикаРасчетов", АналитикаРасчетов);
	
	СтруктураПараметров.Вставить("ДоговорКонтрагента", 
		?(НЕ ЗначениеЗаполнено(Объект.ДоговорКонтрагента), Неопределено, Объект.ДоговорКонтрагента));
		
	СтруктураПараметров.Вставить("ВыводитьПолныеНазванияДокументов", Объект.ВыводитьПолныеНазванияДокументов);
	СтруктураПараметров.Вставить("ВалютаДокумента", Объект.ВалютаДокумента);
	СтруктураПараметров.Вставить("РазбитьПоДоговорам", Объект.РазбитьПоДоговорам);
	СтруктураПараметров.Вставить("ВалютаРегламентированногоУчета", ВалютаРегламентированногоУчета);
	
	Если ЭтоАдресВременногоХранилища(АдресХранилищаСОшибками) Тогда
		УдалитьИзВременногоХранилища(АдресХранилищаСОшибками);
		АдресХранилищаСОшибками = "";
	КонецЕсли;
	
	АдресХранилищаСОшибками = ПоместитьВоВременноеХранилище(Неопределено, УникальныйИдентификатор);
	СтруктураПараметров.Вставить("АдресХранилищаСОшибками", АдресХранилищаСОшибками);
	
	НаименованиеЗадания = "ЗаполнитьПоДаннымОрганизации";
	
	Результат = ДлительныеОперации.ЗапуститьВыполнениеВФоне(
		УникальныйИдентификатор, 
		"Документы.АктСверкиВзаиморасчетов.ПодготовитьДанныеДляЗаполнения", 
		СтруктураПараметров, 
		НаименованиеЗадания);
		
	АдресХранилища = Результат.АдресХранилища;
	
	Если Результат.ЗаданиеВыполнено Тогда
		Результат = ЗагрузитьПодготовленныеДанные();
	КонецЕсли;
	
	Возврат Результат;
	
КонецФункции

Процедура ПодготовитьДанныеДляЗаполнения(СтруктураПараметров, АдресХранилища) Экспорт