&НаСервере

Процедура ПересчитатьНаСервере()

    ДокументОбъект = РеквизитФормыВЗначение("Объект");

    ДокументОбъект.ОбсчитатьДанные();

    ЗначениеВРеквизитФормы(ДокументОбъект,"Объект");

КонецПроцедуры   

 //Находит строку и начинает пересчет вверх по узлам.

Процедура ПересчитатьВсеДерево(дз_стр)

	для каждого стр из дз_стр.Строки Цикл

		Если стр.строки.количество()>0 тогда

			ПересчитатьВсеДерево(стр);

		Иначе

			ПересчетСуммДерева(стр);

			прервать;

		КонецЕсли;

	КонецЦикла;

Конецпроцедуры



Процедура ПересчетСуммДерева(ТекСтрока)

	Родитель=ТекСтрока.Родитель;

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

		Возврат;

	КонецЕсли;

	родитель.НазначенныйФонд=родитель.Строки.Итог("СуммаЧегото");

	родитель.КТУ=Формат(родитель.Строки.Итог("СреднийПроцентДляУзлов")/Родитель.Строки.Количество(),"ЧДЦ=2");

	ПересчетСуммДерева(Родитель);

КонецПроцедуры

   

 Процедура КнопкаВыполнитьНажатие(Кнопка)

	Для Каждого Рег Из РегистрыНакопления Цикл

		Если Рег.ПолучитьИспользованиеИтогов()=Ложь Тогда

			Рег.УстановитьИспользованиеИтогов(Истина);

			Состояние("Идет пересчет итогов регистра накопления " + Рег);

			Рег.ПересчитатьИтоги();

			Сообщить("Для регистра накопления " + Рег + " включено использование итогов");

		КонецЕсли;

	КонецЦикла;

	Для Каждого Рег Из РегистрыБухгалтерии Цикл

		Если Рег.ПолучитьИспользованиеИтогов()=Ложь Тогда

			Рег.УстановитьИспользованиеИтогов(Истина);

			Состояние("Идет пересчет итогов регистра бухгалтерии " + Рег);

			Рег.ПересчитатьИтоги();

			Сообщить("Для регистра бухгалтерии " + Рег + " включено использование итогов");

		КонецЕсли;

	КонецЦикла;

КонецПроцедуры   

 

// Эта функция пересчитывает сумму из валюты ВалютаНач по курсу ПоКурсуНач 

// в валюту ВалютаКон по курсу ПоКурсуКон

//

// Параметры:      

//	Сумма          - сумма, которую следует пересчитать;

//	ВалютаНач      - ссылка на элемент справочника Валют;

//                   определяет валюты из которой надо пересчитвать;

//	ВалютаКон      - ссылка на элемент справочника Валют;

//                   определяет валюты в которую надо пересчитвать;

// 	ПоКурсуНач     - курс из которого надо пересчитать;

// 	ПоКурсуКон     - курс в который надо пересчитать;

// 	ПоКратностьНач - кратность из которого надо пересчитать (по умолчанию = 1);

// 	ПоКратностьКон - кратность в который надо пересчитать  (по умолчанию = 1);

//

// Возвращаемое значение: 

//  Сумма, пересчитанная в другую валюту

//

Функция ПересчитатьИзВалютыВВалюту(Сумма, ВалютаНач, ВалютаКон, ПоКурсуНач, ПоКурсуКон, 

	                               ПоКратностьНач = 1, ПоКратностьКон = 1 ) Экспорт



	Если (ВалютаНач = ВалютаКон) Тогда



		// Считаем, что пересчет не нужен.

		Возврат Сумма;



	КонецЕсли;



	Если (ПоКурсуНач     = ПоКурсуКон) 

	   и (ПоКратностьНач = ПоКратностьКон) Тогда



		// ну, тут и считать нечего...

		Возврат Сумма;



	КонецЕсли;



	Если ПоКурсуНач     = 0 

	 или ПоКурсуКон     = 0 

	 или ПоКратностьНач = 0 

	 или ПоКратностьКон = 0 Тогда

		СообщитьОбОшибке(" при пересчете обнаружен нулевой курс.");

		Возврат 0;



	КонецЕсли;



	Возврат Окр((Сумма * ПоКурсуНач * ПоКратностьКон) / (ПоКурсуКон * ПоКратностьНач), 2);



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