|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 |
// Эта функция пересчитывает сумму из валюты ВалютаНач по курсу ПоКурсуНач // в валюту ВалютаКон по курсу ПоКурсуКон // // Параметры: // Сумма - сумма, которую следует пересчитать; // ВалютаНач - ссылка на элемент справочника Валют; // определяет валюты из которой надо пересчитвать; // ВалютаКон - ссылка на элемент справочника Валют; // определяет валюты в которую надо пересчитвать; // ПоКурсуНач - курс из которого надо пересчитать; // ПоКурсуКон - курс в который надо пересчитать; // ПоКратностьНач - кратность из которого надо пересчитать (по умолчанию = 1); // ПоКратностьКон - кратность в который надо пересчитать (по умолчанию = 1); // // Возвращаемое значение: // Сумма, пересчитанная в другую валюту // Функция ПересчитатьИзВалютыВВалюту(Сумма, ВалютаНач, ВалютаКон, ПоКурсуНач, ПоКурсуКон, ПоКратностьНач = 1, ПоКратностьКон = 1 ) Экспорт Если (ВалютаНач = ВалютаКон) Тогда // Считаем, что пересчет не нужен. Возврат Сумма; КонецЕсли; Если (ПоКурсуНач = ПоКурсуКон) и (ПоКратностьНач = ПоКратностьКон) Тогда // ну, тут и считать нечего... Возврат Сумма; КонецЕсли; Если ПоКурсуНач = 0 или ПоКурсуКон = 0 или ПоКратностьНач = 0 или ПоКратностьКон = 0 Тогда СообщитьОбОшибке(" при пересчете обнаружен нулевой курс."); Возврат 0; КонецЕсли; Возврат Окр((Сумма * ПоКурсуНач * ПоКратностьКон) / (ПоКурсуКон * ПоКратностьНач), 2); КонецФункции |
About the Author
