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


 Попробуйте также компоненту Valuta, которая позволяет получать котировки валют ЦБ РФ на любую дату.

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

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

 

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

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

 

История

26.07.01        Первая версия компоненты.
03.08.01        Исправлена ошибка конвертирования строкового значения в число (ошибка могла не проявляться на некоторых компьютерах). Исправлена ошибка возврата значений по умолчанию. Выполнение метода НайтиПоИмени("Абракадабра"); приводило к аварийному завершению 1С:Предприятия. Изменены некоторые информационные сообщения компоненты и сообщения об ошибках.
09.08.01        Исправлена ошибка невозможности конвертирования строкового выражения в число. Теперь в таком случае свойство Value(Значение) будет равняться нулю, для получения значения используйте свойство StrValue1(СтрЗначение1). Исправлена ошибка неверного выделения конечной даты периода.
10.08.01        Исправлена ошибка внутренней сортировки информации, по которой невозможно было получить данные по некоторым параметрам, через метод FindbyName(НайтиПоИмени).
13.08.01        Добавлен метод  GetLastError(ПолучитьПоследнююОшибку) для получения кодов ошибок при подключении к интернету.
15.08.01        Подправлена обработка комментариев значений.

 

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

Имя свойства

Русский синоним

Значение

Тип в 1С

Name

Имя

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

Строка

Comment

Комментарий

Смысл имени параметра (см. столбец “ЗНАЧЕНИЕ ИМЕНИ” в приложении 1.)

Строка

Date

Дата

Дата значения параметра

Дата

Time

Время

Время значения параметра (формат “hh:mm:ss”)

Строка

DateBegin

ДатаНачала

Дата начала периода значения параметра

Дата

DateEnd

ДатаКонца

Дата окончания периода значения параметра

Дата

StrValue1

СтрЗначение1

Первое значение параметра

Строка

StrValue2

СтрЗначение2

Второе значение параметра (как правило показатель изменения первого параметра, за определенный период времени: день, месяц, год)

Строка

Value

Значение

Численное значение параметра свойства StrValue1(СтрЗначение1), если значение невозможно привести к числу (например для погоды), численное значение приравнивается к нулю.

Число

About

Окомпоненте

Версия компоненты, Копирайт, E-Mail

Строка

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

 

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

Имя метода

Русский синоним

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

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

GetInformation

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

Нет

Получение или обновление из интернета списка параметров и их значений. В случае успешного приема информации возвращает 1, в противном случае 0.

SelectLines

ВыбратьСтроки

Строка

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

GetLine

ПолучитьСтроку

Нет

Получает очередное значение параметра, открытого методом SelectLines. После этого метода становятся доступны все свойства параметра. Метод возвращает 0 (также имя, комментарий и значения устанавливаются в "0"), если все параметры с указанным именем или частью имени в методе SelectLines были исчерпаны, иначе возвращает 1.

FindbyName

НайтиПоИмени

Строка

Получает значение параметра с указанным именем во входящем значении (см. Приложение 1). Входящее значение не может быть пустой строкой! После этого метода становятся доступны все свойства указанного параметра. Метод возвращает 0 (также имя, комментарий и значения устанавливаются в "0"), если параметр с указанным именем или частью имени не был найден , иначе возвращает 1.
GetLastError ПолучитьПоследнююОшибку

Нет

 Возвращает числовой код ошибки при работе метода GetInformation(ПолучитьИнформацию). Список кодов и их описание смотри ниже.

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

 

Коды ошибок метода GetLastError(ПолучитьПоследнююОшибку)

Код ошибки

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

 

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

 Данный пример записывает в справочник валют значение курса на следующий день валют “1000 белорусских рублей” и “доллара” по курсу ЦБ РФ. 

Попытка

    ЗагрузитьВнешнююКомпоненту("Informer.dll");
    Вал = СоздатьОбъект("Справочник.Валюты");
    Вал.НайтиПоНаименованию("1000 BLR",0,1);
    Если Вал.Выбран() = 1 Тогда//Проверка присутствия в базе белорусских рублей
        ПерВал = СоздатьОбъект("Периодический");
        ПерВал.ИспользоватьОбъект("Курс", Вал.ТекущийЭлемент());
//Проверка существования курсов на завтрашний день в справочнике
       Если ПерВал.ВыбратьЗначения(ТекущаяДата()+1,ТекущаяДата()+1)=0 Тогда


            Попытка
                Информация = СоздатьОбъект("AddIn.GetEcInfo");
               Если Информация.ПолучитьИнформацию()=1 Тогда//Получаем информацию из интернета
                       //Ищем в показателях белорусские рубли (см. Приложение 1.)
                   Если Информация.НайтиПоИмени("BER ЦБ рф")=1 Тогда
                         Если Вал.Курс.Получить(Информация.Дата)<>Информация.Значение Тогда
                                Вал.Курс.Установить(Информация.Дата, Информация.Значение);//Устанавливаем новый курс
                        КонецЕсли;
                       КонецЕсли;

                        Если Вал.НайтиПоНаименованию("USD",0,1)=1 Тогда
                            //Курс доллара на следующий день по версии центробанка
                         Если Информация.НайтиПоИмени("USD цБ РФ")=1 Тогда
                            Если Вал.Курс.Получить(Информация.Дата)<>Информация.Значение Тогда
                                Вал.Курс.Установить(Информация.Дата, Информация.Значение);
                           КонецЕсли;
                        КонецЕсли;
                       КонецЕсли;

                 КонецЕсли;
             Исключение

                Предупреждение("Не удалось создать объект Informer'а");

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


Исключение

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

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

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

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

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

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

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

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

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

ИМЯ

ЗНАЧЕНИЕ ИМЕНИ

ММВБ- СПБВБ: валюты (СЭЛТ)

USDRUB_UTS

Котировки USD TOD в СЭЛТ ММВБ на ЕТС

USDRUB_TOM

Котировки USD TOM в СЭЛТ ММВБ

USDRUB_TOD

Котировки USD TOD в СЭЛТ ММВБ

USD tod СПВБ

Котировки USD TOD СПВБ

Российские фондовые индексы

РТС

Индекс РТС

RBC comp.

Индекс РБК Композит

Рынок наличной валюты

Нал.USD

Наличная валюта в Москве- USD

Нал.DEM

Наличная валюта в Москве- DEM

Нал.USD СПб.

Наличная валюта в Санкт-Петербурге- USD

Нал.DEM СПб.

Наличная валюта в Санкт-Петербурге- DEM

Котировки акций. По данным РТС- МФБ

EESR

EESR – РТС

MSNG

MSNG – РТС

SNGS

SNGS – РТС

LKOH

LKOH – РТС

RTKM

RTKM – РТС

EESRP

EESRP – РТС

SNGSP

SNGSP – РТС

LKOHP

LKOHP – РТС

RTKMP

RTKMP – РТС

GAZP

Газпром – МФБ

Объемы торгов на крупнейших Российских биржах

РТС

Объем сделок РТС в долларах

ММВБ акции

Объем торгов акциями на ММВБ в рублях

ММВБ ОФЗ

Объем торгов облигациями на ММВБ в рублях

Котировки FOREX

USD/JPY

USD/JPY – ФОРЕКС

USD/DEM

USD/DEM – ФОРЕКС

EUR/USD

EUR/USD – ФОРЕКС

Котировки фьючерсов

Хлопок

Фьючерсы на хлопок

Сахар

Фьючерсы на сахар

Нефть

Фьючерсы на нефть марки Brent

Диз. топливо

Фьючерсы на мазут

Природный газ

Фьючерсы на природный газ

S&P_500

Фьючерсы на S&P_500

NSDQ100

Фьючерсы на Nasdaq

Долговые обязательства казначейства США

US 5Y

Долговые обязательства казначейства США - 5 лет

US 10Y

Долговые обязательства казначейства США - 10 лет

US 3M

Долговые обязательства казначейства США - 3хмесячн.

US 1Y

Долговые обязательства казначейства США - 1 год

US 2Y

Долговые обязательства казначейства США - 2 года

US 6M

Долговые обязательства казначейства США - 6 лет

US 30Y

Долговые обязательства казначейства США - 30 лет

LIBOR USD

Однодневная процентная ставка ЛИБОР по USD

LIBOR EUR

Однодневная процентная ставка ЛИБОР по EUR

Мировые фондовые индексы

DJIA

Dow Jones Averages 30 Industrials

DJT

Dow Jones Averages 20 Transportation

DJU

Dow Jones Averages 15 Utilities

DJA

Dow Jones Averages 65 Composite

NASD

Nasdaq Composite

QVOL

Nasdaq Volume in 000's

NIND

Nasdaq National Market Composite

NDX

Nasdaq Nasdaq 100

NYSEV

New York Stock Exchange Volume in 000's

NYA

New York Stock Exchange Composite

TICK

New York Stock Exchange Tick

XAX

AMEX Composite

IIX

AMEX Internet

NWX

AMEX Networking

MerVal

Argentina MerVal

AORD

Australia All Ordinaries

FTSE

FTSE

ATX

Austria ATX

BEL

Belgium BEL-20

BUSP

Brazil Bovespa

TSE

Canada TSE 300 Composite

IPSA

Chile IPSA

SSEC

China Shanghai Composite

DJSI

Commodities Dow Jones Spot

DJFI

Commodities Dow Jones Futures

XAU

Commodities Philadelphia Gold &amp; Silver

PX50

Czech Republic PX50

KFX

Denmark KFX

CMA

Egypt CMA

HEX

Finland Helsinki General

CAC

France CAC 40

DAX

Germany DAX

ASE

Greece General Share

HSI

Hong Kong Hang Seng

BUX

Hungary BUX

NDI

Indi 500

BSE

India BSE 30

JKSE

Indonesia Jakarta Composite

TA100

Israel TA-100

MibTel

Italy MIBTel

Nikkei

Japan Nikkei 405

KLSE

Malaysia KLSE Composite

AEX

Netherlands AEX General

NZSE

New Zealand NZSE 40

IPC

Mexico IPC

TOTX

Norway Total Share

PSE

Pacific Exchange Technology

KSE

Pakistan Karachi 100

IGRA

Peru Lima General

SOXX

Philadelphia Semiconductor

PSE

Philippines PSE Composite

BVL30

Portugal BVL 30

RUI

Russell 1000

RUT

Russell 2000

RUA

Russell 3000

MTMS

Russia Moscow Times

Straits

Singapore Straits Times

SAX

Slovakia SAX

JSE

South Africa Johannesburg All Share

Kospi

South Korea Seoul Composite

IGBM

Spain Madrid General

CSE

Sri Lanka All Share

SPX

Standard and Poor's 500 Index

OEX

Standard and Poor's 100 Index

MID

Standard and Poor's 400 MidCap

SML

Standard and Poor's 400 SmallCap

SX

Sweden Stockholm General

SSMI

Switzerland Swiss Market

SET

Thailand SET

FUX

Treasury Securities (yield x10) 5-Year Note

TNX

Treasury Securities (yield x10) 10-Year Note

IPX

Treasury Securities (yield x10) 13-Week Bill

TYX

Treasury Securities (yield x10) 30-Year Bond

DOT

TSC Internet

XU100

Turkey ISE National-100

XVL

Value Line

IBC

Venezuela IBC

TMW

Wilshire 5000 TOT

Погода в городах России и СНГ

Погода

Москва

Погода

С-Петербург

Погода

Архангельск

Погода

Астана

Погода

Астрахань

Погода

Ашхабад

Погода

Баку

Погода

Бишкек

Погода

Вильнюс

Погода

Владивосток

Погода

Душанбе

Погода

Ереван

Погода

Калининград

Погода

Киев

Погода

Кишинев

Погода

Минск

Погода

Мурманск

Погода

Новосибирск

Погода

Н.-Новгород

Погода

Пермь

Погода

Рига

Погода

Ростов-на-Дону

Погода

Сочи

Погода

Таллин

Погода

Ташкент

Погода

Тбилиси

Погода

Уфа

Курсы ЦБ РФ

USD ЦБ РФ

1 Доллар США

DEM ЦБ РФ

1 Немецкая марка

EUR ЦБ РФ

1 ЕВРО

AUD ЦБ РФ

1 Австралийский доллар

AUS ЦБ РФ

10 Австрийских шиллингов

GBP ЦБ РФ

1 Англ. Фунт стерлингов

BER ЦБ РФ

1000 Белорусских рублей

BEF ЦБ РФ

100 Бельгийских франков

GRD ЦБ РФ

1000 Греческих драхм

DAC ЦБ РФ

10 Датских крон

IRF ЦБ РФ

1 Ирландский фунт

ICC ЦБ РФ

100 Исландских крон

ESP ЦБ РФ

100 Испанских песет

ITL ЦБ РФ

1000 Итальянских лир

CAD ЦБ РФ

1 Канадский доллар

NLG ЦБ РФ

1 Нидерландский гульден

NOC ЦБ РФ

10 Норвежских крон

POE ЦБ РФ

100 Португальских эскудо

SDR ЦБ РФ

1 СДР

SYD ЦБ РФ

1 Сингапурский доллар

TUL ЦБ РФ

1000000 Турецких лир

UAH ЦБ РФ

10 Украинских гривен

FIM ЦБ РФ

10 Финляндских марок

FRF ЦБ РФ

10 Французских франков

CHF ЦБ РФ

1 Швейцарский франк

SWC ЦБ РФ

10 Шведских крон

JPY ЦБ РФ

100 Японских иен

Курсы ЦБ РФ по драгоценным металлам

Золото ЦБ РФ

Золото - ЦБ РФ

Серебро ЦБ РФ

Серебро - ЦБ РФ

Платина ЦБ РФ

Платина - ЦБ РФ

Палладий ЦБ РФ

Палладий - ЦБ РФ

Прочее

ОФЗ ФД инд-р

Индикатор портфеля для ОФЗ ФД

Инв. бум. инд-р

Индикатор портфеля для Инв. Бумаг(ОФЗ ПД 25030)

ОФЗ ПД инд-р

Индикатор портфеля для ОФЗ ПД

Расх. бюджета

Расходы бюджета

Сальдо

Сальдо внешнеторгового оборота

Деф-т бюджета.

Дефицит федерального бюджета

Инв. в ОК

Инвестиции в основной капитал- млрд. руб.

Электротариф

Тариф на электроэнергию

Экспорт РФ

Экспорт РФ(млрд руб.)

Тариф на ж/д

Тариф на ж/д

ЗВ резервы

Золотовалютные резервы

Ден. база

Денежная база

Доходы бюджета

Доходы федерального бюджета

Импорт РФ

Импорт РФ(млрд руб.)

Инфляция

Инфляция в РФ

ВВП

ВВП РФ

Объем ПП

Объем промышленного производства

MOSIBAR1

Ставка по предоставленным рублевым кредитам- рассчитываемая РБК сроком на 1 день

Остатки на КС

Остатки на корсчетах

Ставка ЦБ

Ставка рефинансирования ЦБ РФ

MIBOR1

Ставки по рублевым МБК- рассчитываемые ИК ЦБ РФ, сроком на 1 день

MIACR1

Ставки по предоставленным МБК- рассчитываемые ИК ЦБ РФ, сроком на 1 день

Индекс цен

Индекс потребительских цен

Продукты

Индекс потребительских цен - на продовольственные товары

Товары

Индекс потребительских цен - на непродовольственные товары

Услуги

Индекс потребительских цен - на платные услуги населению

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