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