Программное создание акта сверки во внешней обработке для БП 30

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

КонецФункции

Объект.СписокСчетов