Обработка по перезаполнению цен в документах КА2

&НаСервере
Функция Команда1НаСервере()
		
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ РАЗЛИЧНЫЕ
		|	РеализацияТоваровУслугТовары.Ссылка КАК Ссылка
		|ИЗ
		|	Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
		|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.УстановкаЦенНоменклатуры.Товары КАК УстановкаЦенНоменклатурыТовары
		|		ПО РеализацияТоваровУслугТовары.Номенклатура = УстановкаЦенНоменклатурыТовары.Номенклатура
		|			И РеализацияТоваровУслугТовары.ВидЦены = УстановкаЦенНоменклатурыТовары.ВидЦены
		|ГДЕ
		|	РеализацияТоваровУслугТовары.Ссылка.Контрагент = &Контрагент
		|	И УстановкаЦенНоменклатурыТовары.ВидЦены = &ВидЦены
		|	И РеализацияТоваровУслугТовары.Ссылка.Дата >= &Дата
		|	И УстановкаЦенНоменклатурыТовары.Ссылка = &Ссылка
		|
		|УПОРЯДОЧИТЬ ПО
		|	РеализацияТоваровУслугТовары.Ссылка.Дата";
	
	Запрос.УстановитьПараметр("ВидЦены", Справочники.ВидыЦен.НайтиПоНаименованию("Видцены1"));
	Запрос.УстановитьПараметр("Дата", Дата(2018,07,01));
	Запрос.УстановитьПараметр("Контрагент", Справочники.Контрагенты.НайтиПоНаименованию("Контрагент1"));
	Запрос.УстановитьПараметр("Ссылка", УстановкаЦен); //УстановкаЦен - это реквизит на форме обработки, указываем документ из которого берем товары
	
	Возврат Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка");
		
КонецФункции

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


#Область РТУ

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

#КонецОбласти


#Область ЗК

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

#КонецОбласти