Цитата(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 Тогда
// Средний курс продажи
Сообщить("Продажа "+Строка(КурсПродажи/КвоКурсовПродажи));
КонецЕсли;