Надоели меняющиеся курсы валют? Решение - кнопка в карточке!

Добрый всем день.

Сам знаю что идея не новая, но уже неоднократно проверено - вечно актуальная. 

Так как же нам справиться с этим легко и играючи?

1. Нам понадобится справочник с валютами, для получения из него Трехбуквенного кода валюты:

 SprCur = СпрРекв("Currency";Object.Currency;"Код")

Справочник валют зовется "Currency", а Искомый "Код" это и есть буквенное обозначение валюты.

2. Создаем новое действие в карточке того документа, где нам эта кнопка нужна (кстати для справочника это тоже вполне годится, как на скриншоте выше).

3. Заполняем наше действие кодом:

 // ссылка со страницей с курсами
 URL = "http://www.cbr.ru/scripts/XML_daily.asp"
 
   HTTP = CreateObject("MSXML2.XMLHTTP")
   oADOStream = CreateObject("ADODB.Stream")
   oADOStream.Mode = 3
   oADOStream.Type = 1 
   HTTP.Open("Get"; URL; FALSE)
   oADOStream.Open() 
   HTTP.Send()              
   oADOStream.Write(HTTP.responseBody)
     if ФайлСуществует("C:\Temp\Cur.xml") // как правило на эту папку у всех прав достаточно
        УдалитьФайл("C:\Temp\Cur.xml")    // Но вы можете выбрать любую другую
     endif
   oADOStream.SaveToFile("C:\Temp\Cur.xml")
   
   XMLDoc = CreateObject("MSXML2.DomDocument")
   XMLDoc.LoadXML(ReadFile("C:\Temp\Cur.xml"))  
   XMLText = Replace(XMLDoc.Text; "- <"; "<")
 
 ValutesNode = XMLDoc.selectNodes("ValCurs/Valute")
 i = 0
 SprCur = СпрРекв("Currency";Object.Currency;"Код") // вот тут и нужен справочник и "Код"        
 while i < ValutesNode.Length 
   // Ищем нужный нам Код валюты в документе и 
   ValNode = ValutesNode.item(i).selectNodes("CharCode")
   if ValNode.item(0).Text == СжПроб(SprCur)        // тут мы еще и лишние пробелы удаляем
     Curs = ValutesNode.item(i).selectNodes("Value") // Ищем
     val = (Curs.item(0).Text) // подбираем
     Object.KursValuty= val // это наш реквизит Курса валюты "KursValuty"
   endif
   i = i+1 // идем дальше
 endwhile
 УдалитьФайл("C:\Temp\Cur.xml") // убирать за собой, как минимум культурно
// Готово! Вы восхитительны!

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

По сути дела - это все! Теперь нам надо привязать действие к кнопке (можно кнопку с изображением) и все!
 

Измененный Справочник - прилагаю: Currency.rar