Создание ЭАВР на основании Реализации

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

						
			Сообщить(ОписаниеОшибки());
			
			Продолжить;
			
		КонецПопытки;

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

			СтрокаТЗ.АВР = АВР.Ссылка;
			СтрокаТЗ.ДатаАВР = АВР.Дата;
			СтрокаТЗ.СостояниеАВР = АВР.Состояние;
			
		КонецЕсли;
		
	КонецЦикла; 
	
КонецПроцедуры