Получить данные из Регистра сведений курсы Валют

@RCF · Регистрация: 24.03.2010

Студворк — интернет-сервис помощи студентам

Добрый день уважаемые!

Подскажите пожалуйста....

мне нужно чтобы при открытии формы Номенклатура в надписях КурсЕвро и КурсДоллара отобразились курсы валют Евро и Доллара на актуальную дату из Регистра сведений КурсыВалют

Не могу реализовать такую фишку...

Спасибо большое

@FtarG · 23.11.2011, 22:06

SQL
1
2
3
4
5
6
7
8
9
10
11
Запрос = Новый Запрос;
Запрос.Текст = 
"ВЫБРАТЬ
    КурсыВалютСрезПоследних.Курс,
    КурсыВалютСрезПоследних.Кратность
ИЗ
    РегистрСведений.КурсыВалют.СрезПоследних(&Период, Валюта = &Валюта) КАК КурсыВалютСрезПоследних";
 
Запрос.УстановитьПараметры("Период", ВашаДата);
Запрос.УстановитьПараметры("Валюта", ВашаВалюта);
Результат = Запрос.Выполнить().Выгрузить();

В данном случае получите курс и кратность валюты ВашаВалюта на дату ВашаДата в таблице значений Результат.
Подтолкнете данные из таблицы в необходимые поля на форме.
Чтобы выполнялось при открытии, код в соответсвующий обработчик события формы - ПриОткрытии.
Чтобы выборка шла сразу по нескольким валютам можно заменить Валюта = &Валюта на Валюта В (&СписокВалют) и передавать в запрос список валют (в вашем случае USD и EUR).

@RCF · 23.11.2011, 22:10 **[ТС]**

Спасибо, но всё равно выводит ошибку.

Вставляю эту процедуру в модуль формы Номенклатура в процедуру ПриОткрытии.

Выкидывает ошибку

@wade25 · 24.11.2011, 10:43

Скорей всего параметры не правильно указал...

@duk337 · 24.11.2011, 11:17

C
1
2
3
4
5
6
7
8
КурсД=0;
КурсЕ=0;
Попытка
Доллар=Справочники.Валюты.НайтиПоКоду("840");
Евро=Справочники.Валюты.НайтиПоКоду("978");
КурсД=РегистрыСведений.КурсыВалют.СрезПоследних(ТекущаяДата(),Новый Структура("Валюта",Доллар))[0].Курс;
КурсЕ=РегистрыСведений.КурсыВалют.СрезПоследних(ТекущаяДата(),Новый Структура("Валюта",Евро))[0].Курс;
Исключение КонецПопытки;

@RCF · 24.11.2011, 17:04 **[ТС]**

ошибка

{Справочник.Номенклатура.Форма.ФормаЭлем ента.Форма(16,12)}: Переменная не определена (Справочники)
стДоллар = <<?>>Справочники.Валюты.НайтиПоНаименова нию("USD"); (Проверка: Тонкий клиент)
{Справочник.Номенклатура.Форма.ФормаЭлем ента.Форма(17,12)}: Переменная не определена (Справочники)
стЕвро = <<?>>Справочники.Валюты.НайтиПоНаименова нию("EURO"); (Проверка: Тонкий клиент)
{Справочник.Номенклатура.Форма.ФормаЭлем ента.Форма(18,12)}: Переменная не определена (РегистрыСведений)
КурсД = <<?>>РегистрыСведений.КурсыВалют.СрезПос ледних(ТекущаяДата(),Новый Структура("Валюта",стДоллар))[0].Курс; (Проверка: Тонкий клиент)
{Справочник.Номенклатура.Форма.ФормаЭлем ента.Форма(19,12)}: Переменная не определена (РегистрыСведений)
КурсЕ = <<?>>РегистрыСведений.КурсыВалют.СрезПос ледних(ТекущаяДата(),Новый Структура("Валюта",стЕвро))[0].Курс; (Проверка: Тонкий клиент)

@duk337 · 24.11.2011, 17:29

&НаСервере

@wade25 · 24.11.2011, 17:44

Ты сделай функцию с директивой &НаСервере и возвращай через нее массив данных на Клиент и там уже пиши в форму извлекая из массива =)

Когда ты пишешь на &НаКлиенте, это означает, что к базе ты обратиться не можешь и доступно только форма и что в ней уже находится...

@RCF · 24.11.2011, 19:01 **[ТС]**

Сообщение от wade25

Ты сделай функцию с директивой &НаСервере и возвращай через нее массив данных на Клиент и там уже пиши в форму извлекая из массива =)

чёт не получается у меня. запарился уже (((

@fimbulwinter · 24.11.2011, 21:25

может он на 7.7 делает, а вы ему НаСервере)))

RCF, скажи платформу и конфигурацию

@duk337 · 24.11.2011, 22:22

Сообщение от fimbulwinter

может он на 7.7 делает, а вы ему НаСервере)))

RCF, скажи платформу и конфигурацию

Какой же толщины должен быть клиент в 77!?

Добавлено через 8 минут

Сообщение от RCF

чёт не получается у меня. запарился уже (((

Возьми типовую конфу 82. Запусти конфигуратор. Правка.Глобальный поиск по "Справочники.". В результатах пропускай Общие модули. Когда пойдут справочники или документы - открывай любой модуль и там смотри, как используются эти директивы (&НаСервере, &НаКлиенте). Можно, конечно, и прямо поискать "&НаСервере". Это будет познавательно, наверное.

@Dethmontt · 24.11.2011, 23:38

Уууууу... Книжки читай дружок))

@fimbulwinter · 25.11.2011, 07:41

Сообщение от duk337

Какой же толщины должен быть клиент в 77!?

Каюсь)) Не внимательно читал)

@fimbulwinter · 25.11.2011, 08:11

ну вот кагбэ:

@RCF · 25.11.2011, 20:13 **[ТС]**

Ребята, спасибо за помощь.

Я ранее программировал на Visual Basic, а база была на MS SQL Server.

Теперь Руководство организации запланировало внедрение 1С предприятие 8.2.

А я его совсем не знаю. и соответственно это мне совсем не знакомо. А учить надо. Поэтому и обратился к Вам, к знатокам платформы...

Спасибо за помощь. Всего Вам наилучшего.

Будут вопросы, буду обращаться...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@RCF 5 / 5 / 4 Регистрация: 24.03.2010 Сообщений: 241 Записей в блоге: 1

	Получить данные из Регистра сведений курсы Валют 23.11.2011, 21:00. Показов 26401. Ответов 14 Метки нет (Все метки) Добрый день уважаемые! Подскажите пожалуйста.... мне нужно чтобы при открытии формы Номенклатура в надписях КурсЕвро и КурсДоллара отобразились курсы валют Евро и Доллара на актуальную дату из Регистра сведений КурсыВалют Не могу реализовать такую фишку... Спасибо большое 0

@RCF 5 / 5 / 4 Регистрация: 24.03.2010 Сообщений: 241 Записей в блоге: 1
	23.11.2011, 22:10 [ТС]
	Спасибо, но всё равно выводит ошибку. Вставляю эту процедуру в модуль формы Номенклатура в процедуру ПриОткрытии. Выкидывает ошибку 0

@wade25 145 / 145 / 3 Регистрация: 25.03.2011 Сообщений: 512
	24.11.2011, 10:43
	Скорей всего параметры не правильно указал... 0

@RCF 5 / 5 / 4 Регистрация: 24.03.2010 Сообщений: 241 Записей в блоге: 1
	24.11.2011, 17:04 [ТС]
	ошибка {Справочник.Номенклатура.Форма.ФормаЭлем ента.Форма(16,12)}: Переменная не определена (Справочники) стДоллар = <<?>>Справочники.Валюты.НайтиПоНаименова нию("USD"); (Проверка: Тонкий клиент) {Справочник.Номенклатура.Форма.ФормаЭлем ента.Форма(17,12)}: Переменная не определена (Справочники) стЕвро = <<?>>Справочники.Валюты.НайтиПоНаименова нию("EURO"); (Проверка: Тонкий клиент) {Справочник.Номенклатура.Форма.ФормаЭлем ента.Форма(18,12)}: Переменная не определена (РегистрыСведений) КурсД = <<?>>РегистрыСведений.КурсыВалют.СрезПос ледних(ТекущаяДата(),Новый Структура("Валюта",стДоллар))[0].Курс; (Проверка: Тонкий клиент) {Справочник.Номенклатура.Форма.ФормаЭлем ента.Форма(19,12)}: Переменная не определена (РегистрыСведений) КурсЕ = <<?>>РегистрыСведений.КурсыВалют.СрезПос ледних(ТекущаяДата(),Новый Структура("Валюта",стЕвро))[0].Курс; (Проверка: Тонкий клиент) 0

@duk337 2956 / 1768 / 84 Регистрация: 03.11.2011 Сообщений: 8,280
	24.11.2011, 17:29
	&НаСервере 0

@wade25 145 / 145 / 3 Регистрация: 25.03.2011 Сообщений: 512
	24.11.2011, 17:44
	Ты сделай функцию с директивой &НаСервере и возвращай через нее массив данных на Клиент и там уже пиши в форму извлекая из массива =) Когда ты пишешь на &НаКлиенте, это означает, что к базе ты обратиться не можешь и доступно только форма и что в ней уже находится... 0

@fimbulwinter 309 / 309 / 1 Регистрация: 16.01.2011 Сообщений: 1,073
	24.11.2011, 21:25
	может он на 7.7 делает, а вы ему НаСервере))) RCF, скажи платформу и конфигурацию 0

@Dethmontt Модератор 4032 / 2977 / 594 Регистрация: 10.03.2011 Сообщений: 11,701 Записей в блоге: 1
	24.11.2011, 23:38
	Уууууу... Книжки читай дружок)) 0

@fimbulwinter 309 / 309 / 1 Регистрация: 16.01.2011 Сообщений: 1,073
	25.11.2011, 08:11
	ну вот кагбэ: Миниатюры 0

@RCF 5 / 5 / 4 Регистрация: 24.03.2010 Сообщений: 241 Записей в блоге: 1
	25.11.2011, 20:13 [ТС]
	Ребята, спасибо за помощь. Я ранее программировал на Visual Basic, а база была на MS SQL Server. Теперь Руководство организации запланировало внедрение 1С предприятие 8.2. А я его совсем не знаю. и соответственно это мне совсем не знакомо. А учить надо. Поэтому и обратился к Вам, к знатокам платформы... Спасибо за помощь. Всего Вам наилучшего. Будут вопросы, буду обращаться... 0