Внешняя обработка в 1С 8.3: как пересчитать сумму документа, после изменения табличных значений документа

Функция ИзДокРН()Экспорт
	

	ТЗ = новый ТабличныйДокумент;
	ТЗ.Очистить();
	ТЗНом= новый ТабличныйДокумент;
	ТЗНом.Очистить();
	МенеджерВТ = Новый МенеджерВременныхТаблиц;
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	РасходнаяНакладнаяЗапасы.Ссылка.Договор КАК Договор,
		|	РасходнаяНакладнаяЗапасы.Ссылка.Организация КАК Организация,
		|	РасходнаяНакладнаяЗапасы.Цена КАК Цена,
		|	РасходнаяНакладнаяЗапасы.Номенклатура КАК Номенклатура
		|ИЗ
		|	Документ.РасходнаяНакладная.Запасы КАК РасходнаяНакладнаяЗапасы
		|ГДЕ
		|	РасходнаяНакладнаяЗапасы.Ссылка.Дата >= &ДатаНачала
		|	И РасходнаяНакладнаяЗапасы.Ссылка.Дата <= &ДатаКонец";
	
	Запрос.УстановитьПараметр("ДатаКонец", Период.ДатаОкончания);
	Запрос.УстановитьПараметр("ДатаНачала", Период.ДатаНачала);
	Запрос.УстановитьПараметр("Договор",Договор);
	Запрос.УстановитьПараметр("Организация",Организация);
	
	РезультатЗапроса = Запрос.Выполнить();
	
	
	ТЗ = РезультатЗапроса.выгрузить();
	ТЗНом = РезультатЗапроса.Выгрузить();
	ТЗНом.Свернуть("Номенклатура");
	
		ПеремНоменклатура="";
		махЦена=0;

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

	Выборка= РезультатЗапроса.Выгрузить();	
	
Для каждого ном Из тз Цикл
	Для каждого СтрокаДок Из Выборка Цикл
		Док = СтрокаДок.Ссылка.ПолучитьОбъект();
		Док.Записать(РежимЗаписиДокумента.ОтменаПроведения);
	
		Для каждого Запас Из Док.Запасы Цикл
			Если Запас.Номенклатура= ном.Номенклатура Тогда
			Запас.Цена=0;
			Запас.Цена=ном.Цена;
			Запас.Сумма=Запас.Количество*Запас.Цена;
			ПолучитьФорму("Документ.РасходнаяНакладная.Форма.ФормаДокумента",);

    
			Док.Записать(РежимЗаписиДокумента.Запись);
		

		ТексСообщения = ""+Запас.Номенклатура + " " + Док.Номер ;			
		Сообщить(ТексСообщения);
	
КонецЕсли;
	

КонецЦикла; 	
	
КонецЦикла;	
	
КонецЦикла; 	 



КонецФункции // ИзДокРН()