Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Войти | Зарегистрироваться )




>  Загрузка межбанковского курса валют в 1С
Rurikovi4
Отправлено: 26.11.15, 13:39


Молчаливый
*

Группа: Пользователи
Сообщений: 3
Регистрация: 23.11.15
Пользователь №: 47062


Цитата(Vofka @ 26.11.15, 13:20) *
Rurikovi4, я забыл разобраться с вашим предыдущем сообщением. Вопрос ещё актуальный?

Да, если не затруднит.
  Форум: Наши сервисы · Просмотр сообщения: #105541 · Ответов: 21 · Просмотров: 34645
 

>  Загрузка межбанковского курса валют в 1С
Rurikovi4
Отправлено: 26.11.15, 13:16


Молчаливый
*

Группа: Пользователи
Сообщений: 3
Регистрация: 23.11.15
Пользователь №: 47062


Цитата(Vofka @ 04.08.13, 19:13) *
Кто пишет на 7.7, можете написать и выложить обработку работы с типовыми семерочными конфигурациями и пользователи семерки вам будут благодарны за это wink.gif .


Дам код получения курса на дату. В принципе, для любого програмиста там все понятно.

Передаваемая переменная "Дт" - это дата получения курсов

 
    Попытка
        Соединение = СоздатьОбъект("Addin.V7HttpReader");
    Исключение
        Сообщить("Не удалось создать объект Addin.V7HttpReader!");
    КонецПопытки;
    
    Валюта ="840";
    МФО = "305299";
    //Дт - переменная с датой для получения курсов
    Если СтрДлина(МФО)<6 Тогда
    ТекстСсылки = "http://pro1c.org.ua/services/interbank_rate/out.php?operation=getCourse&code="+Строка(Валюта)+"&date="+Строка(СокрЛП(Формат(Дт,"Д ГГГГММДД")));
    Иначе
    ТекстСсылки = "http://pro1c.org.ua/services/interbank_rate/out.php?operation=getCourse&mfo="+Строка(МФО)+"&code="+Строка(Валюта)+"&date="+Строка(СокрЛП(Формат(Дт,"Д ГГГГММДД")));
    КонецЕсли;
    
    
    стр = "";
    Попытка
        Ошибка = 0;
        Соединение.ПолучитьКакСтроку(ТекстСсылки, Стр);
    Исключение
        Сообщить("Неудачная попытка соединения. Курсы по валюте """ + Валюта +""" не загружены.");
        Ошибка = 1;
    КонецПопытки;
    
    КурсПокупки=0;
    КвоКурсовПокупки=0;
    КурсПродажи=0;
    КвоКурсовПродажи=0;
    Стр1 = "";
    Стр2 = "";
    
    Для к=1 по СтрКоличествоСтрок(Стр) Цикл
        Перебор  = СтрПолучитьСтроку(Стр,к);
        //Сообщить(Перебор);
        Если СтрЧислоВхождений(Перебор,"purchase")>0 Тогда
            Стр1 = СтрЗаменить(Перебор,"<purchase>","");
            Стр2 = СтрЗаменить(Стр1,"</purchase>","");
            КурсПокупки = КурсПокупки + Число(СокрЛП(Стр2));
            КвоКурсовПокупки = КвоКурсовПокупки+1;
            Стр1 = "";
            Стр2 = "";
        КонецЕсли;    
        Если СтрЧислоВхождений(Перебор,"sale")>0 Тогда
            Стр1 = СтрЗаменить(Перебор,"<sale>","");
            Стр2 = СтрЗаменить(Стр1,"</sale>","");
            КурсПродажи = КурсПродажи + Число(СокрЛП(Стр2));
            КвоКурсовПродажи = КвоКурсовПродажи+1;
            Стр1 = "";
            Стр2 = "";
        КонецЕсли;    
    КонецЦикла;    
    
    Если КвоКурсовПокупки>0 Тогда  
        // Средний курс покупки
        Сообщить("Покупка "+Строка(КурсПокупки/КвоКурсовПокупки));
    КонецЕсли;    
    Если КвоКурсовПродажи>0 Тогда
        // Средний курс продажи
        Сообщить("Продажа "+Строка(КурсПродажи/КвоКурсовПродажи));
    КонецЕсли;

  Форум: Наши сервисы · Просмотр сообщения: #105539 · Ответов: 21 · Просмотров: 34645
 

>  Загрузка межбанковского курса валют в 1С
Rurikovi4
Отправлено: 23.11.15, 18:07


Молчаливый
*

Группа: Пользователи
Сообщений: 3
Регистрация: 23.11.15
Пользователь №: 47062


Vofka, такой вопрос. Если я хочу выбрать информацию по днях начиная с 13-го года, не обрубает ли меня сервер на n-ном запросе?
  Форум: Наши сервисы · Просмотр сообщения: #105411 · Ответов: 21 · Просмотров: 34645
 


Новые сообщения  Открытая тема (есть новые ответы)
Опрос  Опрос (есть новые голоса)
Нет новых сообщений  Открытая тема (нет новых ответов)
Нет новых голосов  Опрос (нет новых голосов)
Популярная тема  Горячая тема (есть новые ответы)
Закрыта  Закрытая тема
Нет новых  Горячая тема (нет новых ответов) Перемещена  Тема перемещена
 

RSS Текстовая версия Сейчас: 28.03.24, 19:48
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!