Получение курса валюты за период с помощью СКД

04.02.20

Разработка - СКД

Иногда приходится сталкиваться с ситуацией, когда для решения той или иной задачи требуется знать курс валюты на каждый день заданного периода. Есть несколько вариантов решений данной проблемы, один из которых хочу предложить.

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование По подписке [?] Купить один файл
Получить курс валюты за период с помощью СКД.:
.zip 13,60Kb
2
2 Скачать (1 SM) Купить за 1 850 руб.

Уважаемые коллеги, предлагаю обработку «ПолучитьКурсНаКаждыйДень», которая с помощью СКД позволяет получить курс валюты на каждый день. Всё что нужно для получения курса это указать необходимый период и валюту. Далее эти параметры передаются в СКД, который в свою очередь обращается к регистру сведений КурсыВалют и на определённую дату по указанной валюте получает курс. Причём в СКД так же помещается в качестве набора данных «Отчет» таблица значений со списком всех дат за период и данный набор соединяется с набором данных «Запрос» с помощью параметра на закладке «Связи наборов данных» тем самым обеспечивая выполнение запроса к регистру сведений за период. Получение данных возможно и за те периоды, когда курс валюты не указывался (новогодние праздники и т.д.)

Для получения данных необходимо вставить эту обработку в метаданные и использовать функцию «ПолучитьТаблицуКурсов» модуля этой обработки. Причём вариантов получения предусматривается два: первый (по умолчанию) возвращает данные в виде Таблицы значений, второй – табличный документ.

Функция ПолучитьТаблицуКурсов(НачальнаяДата, КонечнаяДата, Валюта, ВТаблицуЗначений = Истина) Экспорт
	
	ТаблицаКурсов = Новый ТаблицаЗначений();
	СписокДат.Очистить();
	//сформируем список всех дат
	Х = 0;
	Пока НачальнаяДата + Х*60*60*24 <= КонечнаяДата Цикл
		НоваяСтрокаДат = СписокДат.Добавить();
		НоваяСтрокаДат.ДатаКурса = НачальнаяДата + Х*60*60*24;		
		Х = Х + 1;
	КонецЦикла;
	
	ВнешниеНаборыДанных = Новый Структура;
	//передаём ТЧ в набор данных "объект"
	ВнешниеНаборыДанных.Вставить("СписокДат",СписокДат);                          
	
	СхемаКомпоновкиДанных = ЭтотОбъект.ПолучитьМакет("СписокКурсов");        
	Настройки = СхемаКомпоновкиДанных.НастройкиПоУмолчанию;                       

	КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных;
	КомпоновщикНастроек.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных));
	КомпоновщикНастроек.ЗагрузитьНастройки(СхемаКомпоновкиДанных.НастройкиПоУмолчанию);
	
	//устанавливаем валюту по которой получаем курс
	ПараметрДанных1 = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[1]; 
	ПараметрДанных1.Значение = Валюта;
	ПараметрДанных1.Использование = Истина;
	
	Настройки = КомпоновщикНастроек.Настройки;
	
	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
	
	//Помещаем в переменную данные о расшифровке данных
	ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;
	
	//Определимся какой макет нам необходим: для вывода в коллекцию или в табличный документ 
	Если ВТаблицуЗначений Тогда
		МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.Настройки, , , Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));
		ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
		ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновкиДанных, ВнешниеНаборыДанных);	
		
		ТаблицаКурсов = Новый ТаблицаЗначений();
		ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;
		ПроцессорВывода.УстановитьОбъект(ТаблицаКурсов);
		ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);
	Иначе
		МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.Настройки, ДанныеРасшифровки);
		ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
		ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, ВнешниеНаборыДанных, ДанныеРасшифровки);
		
		ТаблицаКурсов = Новый ТабличныйДокумент;
		ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
		ПроцессорВывода.УстановитьДокумент(ТаблицаКурсов);
		ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);
	КонецЕсли;
	
	Возврат ТаблицаКурсов;
	
КонецФункции

Также в комплекте прилагается обработка «ПолучитьКурсыИзОбработки», которая (в качестве примера) вызывает функцию из обработки получения курсов и выводит их в таблицу значений на форме или в табличный документ на форме.

Данные обработки тестировались на системе ERP 2.4.5.143, но подойдут для всех конфигураций, использующих БСП.

Курс валюта СКД

См. также

SALE! %

Инструментарий разработчика Роли и права Запросы СКД Программист Платформа 1С v8.3 Управляемые формы Запросы Система компоновки данных Конфигурации 1cv8 Платные (руб)

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

12000 10000 руб.

02.09.2020    163050    900    401    

880

Запросы СКД Программист Стажер Система компоновки данных Россия Бесплатно (free)

Часто при разработке отчетов в СКД возникает ситуация, когда не совсем понятно, почему отчет выводит не те данные, которые нужны, либо не выводит вовсе. Возникает потребность увидеть конечный запрос, который формирует СКД. Как это сделать, рассмотрим в этой статье.

15.05.2024    9388    implecs_team    6    

47

Инструментарий разработчика СКД Программист Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

По выбранной схеме компоновки данных генерирует программный код, который генерирует СКД, аналогичную исходной схеме. Есть дополнительные инструменты для просмотра дерева схемы, сравнение исходной схемы и полученной по коду, а также сравнение изменений в сгенерированном коде для исходной схемы и для измененной.

3 стартмани

05.02.2024    7372    56    obmailok    21    

79

Запросы СКД Программист Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Абонемент ($m)

Есть список полей в виде текста, или запрос - закидываем в набор СКД.

1 стартмани

31.01.2024    3230    5    Yashazz    1    

34

СКД WEB-интеграция Программист Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

Долгое время поддерживаю web-портал, в котором появилась необходимость создавать отчеты. Просмотрев различные фреймворки на js, я решил сделать свое решение, которое позволяло бы быстро разрабатывать и добавлять новые отчеты на web-портал.

2 стартмани

11.12.2023    11096    24    John_d    25    

125

СКД Программист Платформа 1С v8.3 Система компоновки данных Конфигурации 1cv8 Бесплатно (free)

Рассмотрим еще не получивший широкого распространения способ работы с внешними данным в СКД. В процессе обсуждения работы с СКД выяснилось, что многие не знакомы со способом помещения туда временной таблицы, полученной предварительно. Статья будет полезна разработчикам, знакомым с программным созданием СКД.

05.12.2023    8412    PROSTO-1C    15    

68
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. kniga888 04.02.20 17:23 Сейчас в теме
А о способе получения списка дат в запросе не слышал?

Например:
ВЫБРАТЬ
   0 КАК Цифра
ПОМЕСТИТЬ ВТ_Цифры

ОБЪЕДИНИТЬ

ВЫБРАТЬ
   1

ОБЪЕДИНИТЬ

ВЫБРАТЬ
   2

ОБЪЕДИНИТЬ

ВЫБРАТЬ
   3

ОБЪЕДИНИТЬ

ВЫБРАТЬ
   4

ОБЪЕДИНИТЬ

ВЫБРАТЬ
   5

ОБЪЕДИНИТЬ

ВЫБРАТЬ
   6

ОБЪЕДИНИТЬ

ВЫБРАТЬ
   7

ОБЪЕДИНИТЬ

ВЫБРАТЬ
   8

ОБЪЕДИНИТЬ

ВЫБРАТЬ
   9
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
   НАЧАЛОПЕРИОДА(&НачалоПериода, ДЕНЬ) КАК ДеньПериода
ПОМЕСТИТЬ ТаблицаДат

ОБЪЕДИНИТЬ

ВЫБРАТЬ
   НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(&НачалоПериода, ДЕНЬ, ВТ_Цифры_Разряд1.Цифра + 10 * ВТ_Цифры_Разряд2.Цифра + 100 * ВТ_Цифры_Разряд3.Цифра + 1000 * ВТ_Цифры_Разряд4.Цифра), ДЕНЬ)
ИЗ
   ВТ_Цифры КАК ВТ_Цифры_Разряд1,
   ВТ_Цифры КАК ВТ_Цифры_Разряд2,
   ВТ_Цифры КАК ВТ_Цифры_Разряд3,
   ВТ_Цифры КАК ВТ_Цифры_Разряд4
ГДЕ
   НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(&НачалоПериода, ДЕНЬ, ВТ_Цифры_Разряд1.Цифра + 10 * ВТ_Цифры_Разряд2.Цифра + 100 * ВТ_Цифры_Разряд3.Цифра + 1000 * ВТ_Цифры_Разряд4.Цифра), ДЕНЬ) <= &КонецПериода

ИНДЕКСИРОВАТЬ ПО
   ДеньПериода
;
Показать
wowik; programmer_87; +2 Ответить
2. KawaNoNeko 115 05.02.20 13:01 Сейчас в теме
(1) Слышал. Принципа действия обработки это не меняет. Оптимизация спорна. Делал так как было удобно. Можешь поменять по своему усмотрению - код открытый.
Оставьте свое сообщение