Компонента Valuta v1.1.0 Full для 1С:Предприятие 7.7


 Попробуйте также компоненту Informer, которая позволяет получать экономическую информацию с сайта RBC в режиме реального времени.

Краткое описание

Данная компонента позволяет получать котировки всех валют (см. Приложение 1.) ЦБ РФ   на любую дату. Автор: Белов Сергей, E-MAIL: belser#chat.ru. В адресе замените # на @.

 

Кратко об использовании

Скачайте архив ZIP с компонентой отсюда. или с сайта FREESOFT. В архиве находятся: Dll -файл компоненты, внешняя обработка демонстрирующая работу компоненты, ALS-файл для синтаксис-помошника (С) Michael Geller, 2001 и эта страница.
 Распакуйте архив и скопируйте компоненту в каталог вашей БД. 
Внешняя компонента загружается при помощи команды ЗагрузитьВнешнююКомпоненту("Valuta.dll");
Объект создается при помощи команды СоздатьОбъект("AddIn.КотировкиВалюты");
Используйте методы и свойства (см. ниже) импортированные из компоненты.
Вы можете оставить сообщение для автора или почитать гостевую книгу.

 

История

21.08.01        Первая версия компоненты.
30.08.01        Исправлена ошибка обнуления даты, после использования метода "Найти".
04.09.01        Добавлен к методу ПолучитьИнформацию выбор способов подключения к Интернету.

Свойства компоненты

Имя свойства

Английский синоним

Значение

Тип в 1С

Код

Code

Код валюты (см. столбец “Код” в приложении 1.)

Строка

Имя

Name

Имя валюты (см. столбец “Имя” в приложении 1.)

Строка

Дата

Date

Дата курса валют

Дата

Кратность

Amount

 Кратность валюты

Число

ПолноеИмя

FullName

Полное имя валюты (с учетом кратности, см. столбец “Полное имя” в приложении 1.)

Строка

Курс

Value

 Курс валюты

Число

КурсЗаЕдиницу

InitialValue

Курс валюты за единицу (Курс/Кратность)

Число

Версия

Version

Версия компоненты.

Строка

Примечание: Все свойства доступны только для чтения. Свойство “Версия” доступно сразу после активации компоненты.

 

Методы компоненты

Имя метода

Английский синоним

Входящие значение

Выполняемые действия

ПолучитьИнформацию

GetInformation

Дата, Число, Строка 1, Строка 2

Получение или обновление из интернета котировок валюты на дату указанную в первом входящем параметре. В случае успешного приема информации возвращает 1, а в свойство "Дата" записывает дату полученных курсов поскольку она  может не совпадать с запрошенной датой, когда запрос задается на воскресенье, понедельник или другие дни, когда ЦБ РФ не выставляет курсы валют, в противном случае см. коды ошибок. Первый параметр "Дата" должен быть указан явно, иначе будет выдано сообщение об ошибке. Три последних входящих параметра являющиеся необязательными, указывают как надо устанавливать тип соединения, смотри таблицу ниже.

Найти

Find

Строка

Заполняет все свойства валюты по указанному входному параметру, который может принимать значения кода, имени или полного имени валюты. В случае если необходимая запись найдена то метод возвращает 1, в противном случае см. коды ошибок. Список доступных параметров и их имен смотри в Приложении 1.

Примечание: При использовании компоненты Valuta в компьютере с модемной связью  пользователю необходимо самому позаботиться о прерывании связи с интернетом, после окончания работы компоненты.

 

Параметры соединения с интернетом указываемые в методе ПолучитьИнформацию

Параметр

Описание
Число Может принимать три значения:

0 - информация о подключении берется из реестра (действует по умолчанию)
1 -  прямое подключение
2 - соединение через прокси - сервер 
Строка 1 Имя прокси - сервера(-ов), если не указано имя берется из реестра. Прокси - сервер должен быть CERN-типа для протокола HTTP.
Строка 2 Дополнительная строка имени хостов, IP адресов, с которыми не должен работать прокси - сервер. Строка может содержать маску IP адресов. По умолчанию информация берется из реестра.

Коды ошибок возвращаемые методами

Код ошибки

Описание
0 Метод неуспешно завершил работу.
1 Метод успешно завершил работу.
2 Не удалось открыть интернет-сессию.
3 Соединение не может быть установлено или компьютер работает в режиме OFF-LINE.
4 Соединение установлено, но невозможно открыть файл. Попробуйте повторить попытку через некоторое время.
5 Файл имеет нулевую длину или не может быть прочитан полностью . Попробуйте повторить попытку, через несколько минут.
6 Недостаточно памяти.
7 Информация недоступна.

 

Пример программы на языке 1с с использованием компоненты Valuta

Попытка

   ЗагрузитьВнешнююКомпоненту("valuta.dll"); 
   Valuta = СоздатьОбъект("AddIn.КотировкиВалюты");

   ИсхДата=РабочаяДата();
   Valuta.ПолучитьИнформацию(ИсхДата);
   Сообщить("Исходная дата "+Строка(ИсхДата));
   Сообщить("Результирующая дата "+Строка(Valuta.Дата));
 
   Valuta.Find("BYR"); 
   Сообщить("Код валюты "+Строка(Valuta.Code));
   Сообщить("Имя валюты "+Строка(Valuta.Имя));
   Сообщить("Кратность "+Строка(Valuta.Кратность));
   Сообщить("Полное имя "+Строка(Valuta.ПолноеИмя));
   Сообщить("Курс "+Строка(Valuta.Курс));
   Сообщить("Курс за единицу "+Строка(Valuta.КурсЗаЕдиницу));
   Сообщить("Версия "+Строка(Valuta.Version));

Исключение

    Предупреждение("Не удалось загрузить Valuta.dll");

КонецПопытки;

Условия распространения и работы компоненты

  1. Компонента распространяется бесплатно, без всяких ограничений (при условии ее неизменности) и может быть использована в любых целях, когда не нарушаются законы РФ или страны, где вы ее используйте.

  2. Автор компоненты не является сотрудником Центрального Банка Российской Федерации и не несет ответственности за пользование информации получаемой вами через интернет посредством компоненты, равно как и пользованием, вами компоненты вообще. Все риски по использованию компоненты как явные так и неявные, вы принимаете на себя.

  3. В случае использования компоненты в коммерческих целях или в составе других продуктов, обязательно упоминание моего имени как автора компоненты Valuta.

  4. Все права на компоненту Valuta принадлежат мне, ее автору Белову Сергею.

  5. Все ваши сообщения присылайте по адресу: belser#chat.ru.

ПРИЛОЖЕНИЕ 1.

Код Имя Полное имя Кратность
036   AUD   Австралийский доллар 1
040   ATS   Австрийских шиллингов 10
826   GBP   Английский фунт стерлингов 1
974   BYR   Белорусских рублей 1000
056   BEF   Бельгийских франков 100
300   GRD   Греческих драхм 1000
208   DKK   Датских крон 10
840   USD   Доллар США 1
978   EUR   ЕВРО 1
372   IEP   Ирландский фунт 1
352   ISK   Исландских крон 100
724   ESP   Испанских песет 100
380   ITL   Итальянских лир 1000
398   KZT   Казахских тенге 100
124   CAD   Канадский доллар 1
276   DEM   Немецкая марка 1
528   NLG   Нидерландский гульден 1
578   NOK   Норвежских крон 10
620   PTE   Португальских эскудо 100
960   XDR   СДР 1
702   SGD   Сингапурский доллар 1
792   TRL   Турецких лир 1000000
980   UAH   Украинских гривен 10
246   FIM   Финляндских марок 10
250   FRF   Французских франков 10
752   SEK   Шведских крон 10
756   CHF   Швейцарский франк 1
392   JPY   Японских иен 100

(C) SeBco soft, Belov V Sergey aka Soaron, 2001