")))<br><br>так и не найдёте в книжке, на в глобальнике - вот она:<br><br><br>////////////////////////////////////////////////////////////////////////////////<br>// ПРОЦЕДУРЫ И ФУНКЦИИ ДЛЯ РАБОТЫ СО СТОИМОСТНЫМИ РЕКВИЗИТАМИ<br>//<br>//******************************************************************************<br>// глПересчет(Сумма,ВалютаНач,ПоКурсуВалютыНач,ВалютаКон,ПоКурсуВалютыКон,ПоКратностиВалютыНач,ПоКратностиВалютыКон)<br>//<br>// Параметры: <br>// Сумма - сумма, которую следует пересчитать<br>// ВалютаНач - валюта (элемент справочника "Валюты"), из которой считаем<br>// ВалютаКон - валюта (элемент справочника "Валюты"), в которую считаем<br>// ПоКурсуВалютыНач - курс или дата курса валюты нач<br>// ПоКурсуВалютыКон - курс или дата курса валюты кон<br>// ПоКратностиВалютыНач - кратность валюты нач<br>// ПоКратностиВалютыКон - кратность валюты кон<br>//<br>// Возвращаемое значение: <br>// Сумма, пересчитанная в другую валюту<br>//<br>// Описание: <br>// Эта функция пересчитывает сумму из ВалютаНач и возвращает значение Сумма в <br>// ВалютаКон в параметрах ПоКурсуВалютыНач и ПоКурсуВалютыКон могут передаваться<br>// либо сами курсы либо даты<br>//<br>Функция глПересчет(Сумма,ВалютаНач,ПоКурсуВалютыНач,ВалютаКон,ПоКурсуВалютыКон,ПоКратностиВалютыНач = 1,ПоКратностиВалютыКон = 1) Экспорт<br> <br> Если ВалютаНач = ВалютаКон Тогда<br> // ну, тут и считать нечего...<br> Возврат Сумма;<br> КонецЕсли;<br><br> ТипЗн=ТипЗначенияСтр(ПоКурсуВалютыНач);<br> <br> Если ТипЗн = "Число" Тогда<br> КурсВалютыНач = ПоКурсуВалютыНач;<br> КратностьВалютыНач = ПоКратностиВалютыНач;<br> КратностьВалютыНач = ?(КратностьВалютыНач = 0,1,КратностьВалютыНач);<br> <br> ИначеЕсли ТипЗн = "Дата" Тогда<br> КурсВалютыНач = глКурсДляВалюты(ВалютаНач,ПоКурсуВалютыНач);<br> КратностьВалютыНач = глКратностьДляВалюты(ВалютаНач,ПоКурсуВалютыНач);<br> <br> Иначе<br> Сообщить("глПересчет():Неверный тип параметра ПоКурсуВалютыНач!");<br> Возврат Сумма;<br> <br> КонецЕсли;<br><br> ТипЗн = ТипЗначенияСтр(ПоКурсуВалютыКон);<br> <br> Если ТипЗн = "Число" Тогда<br> КурсВалютыКон = ПоКурсуВалютыКон;<br> КратностьВалютыКон = ПоКратностиВалютыКон;<br> КратностьВалютыКон = ?(КратностьВалютыКон = 0,1,КратностьВалютыКон);<br> <br> ИначеЕсли ТипЗн = "Дата" Тогда<br> КурсВалютыКон = глКурсДляВалюты(ВалютаКон,ПоКурсуВалютыКон);<br> КратностьВалютыКон = глКратностьДляВалюты(ВалютаКон,ПоКурсуВалютыКон);<br> <br> Иначе<br> Сообщить("глПересчет():Неверный тип параметра ПоКурсуВалютыКон!");<br> Возврат Сумма;<br> <br> КонецЕсли;<br><br> Если (КурсВалютыНач = 0) <br> ИЛИ (КурсВалютыКон = 0) Тогда<br> Сообщить("При пересчете валюты обнаружен нулевой курс валюты "<br> +?(КурсВалютыНач = 0,ВалютаНач,ВалютаКон));<br> Возврат Сумма;<br> КонецЕсли;<br> <br> Если (КратностьВалютыНач = 0) ИЛИ (КратностьВалютыКон = 0) Тогда<br> Возврат 0;<br> КонецЕсли;<br> <br> Возврат Сумма * ((КурсВалютыНач / КратностьВалютыНач) / (КурсВалютыКон / КратностьВалютыКон));<br> <br>КонецФункции // глПересчет()"