Алгоритм разброса денежных средств для исключения курсовых разниц

 

	ЗапросНМА = Новый Запрос;

	ЗапросНМА.Текст =

	"ВЫБРАТЬ

	|	ПоступлениеНМА_МеждународныйОсновныеСредства.ОсновноеСредство КАК НМА,

	|	ПоступлениеНМА_МеждународныйОсновныеСредства.Сумма КАК СуммаВалютнаяНМА

	|ИЗ

	|	Документ.ПоступлениеНМА_Международный.ОсновныеСредства КАК ПоступлениеНМА_МеждународныйОсновныеСредства

	|ГДЕ                      

	|	ПоступлениеНМА_МеждународныйОсновныеСредства.Ссылка = &Ссылка";

	ЗапросНМА.УстановитьПараметр("Ссылка",Ссылка);

	ТЗНМА = ЗапросНМА.Выполнить().Выгрузить();

	ТЗНМА.Колонки.Добавить("СуммаРублёваяНМА");

	ТЗНМА.Колонки.Добавить("СуммаРублёваяКРаспределению");

	ТЗНМА.Колонки.Добавить("СуммаВалютнаяКРаспределению");

	ТЗНМА.Колонки.Добавить("КоэффициентРаспределенияРублёвый");

	ТЗНМА.Колонки.Добавить("КоэффициентРаспределенияВалютный");

	

	// Получим курс на дату проведения

	Курс=РегистрыСведений.КурсыВалют.ПолучитьПоследнее(Ссылка.Дата,Новый Структура("Валюта",Валюта)).Курс;

	// Заполним рублёвые суммы

	Для каждого СтрНМА Из ТЗНМА Цикл

		СтрНМА.СуммаРублёваяНМА = СтрНМА.СуммаВалютнаяНМА*Курс;

	КонецЦикла;

	

	СуммаВалютнаяНМА = ТЗНМА.Итог("СуммаВалютнаяНМА");

	СуммаВалютнаяАвансов = ТЗАвансов.Итог("СуммаВалютная");

	СуммаРублёваяАвансов = ТЗАвансов.Итог("СуммаРублёвая");

	КурсАванса = СуммаРублёваяАвансов/СуммаВалютнаяАвансов;

	

	Если СуммаВалютнаяАвансов < СуммаВалютнаяНМА Тогда

		Для каждого СтрНМА Из ТЗНМА Цикл

			СтрНМА.КоэффициентРаспределенияВалютный = СтрНМА.СуммаВалютнаяНМА/СуммаВалютнаяАвансов;

		КонецЦикла;

		МассивВалютныхКоэффициентов = ТЗНМА.ВыгрузитьКолонку("КоэффициентРаспределенияВалютный");

		РезультатРаспределения = РаспределитьПропорционально(СуммаВалютнаяАвансов,МассивВалютныхКоэффициентов);

		Если РезультатРаспределения = Неопределено Тогда

			Сообщить("Ошибка распределения аванса в валюте!",СтатусСообщения.ОченьВажное);

			Возврат Ложь;

		КонецЕсли;

		ТЗНМА.ЗагрузитьКолонку(РезультатРаспределения,"СуммаВалютнаяКРаспределению");

		Для каждого СтрНМА Из ТЗНМА Цикл

			СтрНМА.СуммаРублёваяКРаспределению = СтрНМА.СуммаВалютнаяКРаспределению*КурсАванса+((СтрНМА.СуммаВалютнаяНМА-СтрНМА.СуммаВалютнаяКРаспределению)*Курс);

		КонецЦикла;

		

		Для каждого СтрПроводка Из ТЗПроводок Цикл

			СтрНМА = ТЗНМА.Найти(СтрПроводка.СубконтоДебет1,"НМА");

			Если СтрНМА <> Неопределено Тогда

				СтрПроводка.Сумма = СтрНМА.СуммаРублёваяКРаспределению;

			КонецЕсли;

		КонецЦикла;

		

	ИначеЕсли СуммаВалютнаяАвансов = СуммаВалютнаяНМА Тогда

		СуммаРублёваяПоСтроке = СуммаРублёваяАвансов/ТЗНМА.Количество();

		Для каждого СтрНМА Из ТЗНМА Цикл

			СтрНМА.КоэффициентРаспределенияРублёвый = СтрНМА.СуммаРублёваяНМА/СуммаРублёваяПоСтроке;

		КонецЦикла;

		МассивРублёвыхКоэффициентов = ТЗНМА.ВыгрузитьКолонку("КоэффициентРаспределенияРублёвый");

		РезультатРаспределения = РаспределитьПропорционально(СуммаРублёваяАвансов,МассивРублёвыхКоэффициентов);

		Если РезультатРаспределения = Неопределено Тогда

			Сообщить("Ошибка распределения авансов в рублях!",СтатусСообщения.ОченьВажное);

			Возврат Ложь;

		КонецЕсли;

		ТЗНМА.ЗагрузитьКолонку(РезультатРаспределения,"СуммаРублёваяКРаспределению");

		

		Для каждого СтрПроводка Из ТЗПроводок Цикл

			СтрНМА = ТЗНМА.Найти(СтрПроводка.СубконтоДебет1,"НМА");

			Если СтрНМА <> Неопределено Тогда

				СтрПроводка.Сумма = СтрНМА.СуммаРублёваяКРаспределению;

			КонецЕсли;

		КонецЦикла;

		

	//ИначеЕсли СуммаВалютнаяАвансов > СуммаВалютнаяНМА Тогда

		// А ничего не делаем - система тут работает отлично

	КонецЕсли;

		

	Возврат ТЗПроводок;