add currency-ru widget

2022-04-28 20:07:11 +03:00
parent 35fae44b01
commit 1dfe0b4d46
1 changed files with 400 additions and 0 deletions
--- a/ru/currency-ru-widget.lua
+++ b/ru/currency-ru-widget.lua
@@ -0,0 +1,400 @@
+-- name = "Курсы валют ЦБ"
+-- description = "Виджет отображает курсы валют Центрального Банка России"
+-- data_source = "https://www.cbr.ru/"
+-- type = "widget"
+-- lang = "ru"
+-- author = "Andrey Gavrilov"
+-- version = "1.0"
+
+local cur = "USD"
+local base_cur = "RUB"
+local nominal = 1
+local cur_id = "R01235"
+local idx = 0
+local history = ""
+
+function on_alarm()
+    get_rates()
+end
+
+function on_click()
+    http:get("https://www.cbr.ru/scripts/XML_daily.asp","today")
+end
+
+function on_long_click()
+    if history == "" then
+        return
+    end
+    ui:show_dialog("История курсов ЦБ\n"..nominal.." "..cur.." / "..base_cur,history)
+end
+
+function on_settings()
+    local xml = require "xml"
+    local t = xml:parse(currencies)
+    local names = {}
+    for i,v in ipairs(t.Valuta.Item) do
+        table.insert(names,v.Name:value())
+        if v["@ID"] == cur_id then
+            idx = i
+        end
+    end
+    ui:show_radio_dialog("Выберите валюту",names,idx)
+end
+
+function on_dialog_action(data)
+    if data == -1 then
+        return
+    end
+    local xml = require "xml"
+    local t = xml:parse(currencies)
+    cur = t.Valuta.Item[data].ISO_Char_Code:value()
+    cur_id = t.Valuta.Item[data]["@ID"]
+    idx = data
+    get_rates()
+end
+
+function on_network_result_today(result,error)
+    local xml = require "xml"
+    local t = xml:parse(result)
+	local today = ""
+	local date_today = t.ValCurs["@Date"]
+	for i,v in ipairs(t.ValCurs.Valute) do
+		if i>1 then
+			today = today.."<br>"
+		end
+		today = today..v.Nominal:value().." "..v.CharCode:value().." = "..v.Value:value():replace(",",".").." "..base_cur
+	end
+	ui:show_dialog("Курсы валют ЦБ\n"..date_today,today)
+end
+
+function on_network_result_history(result,error)
+    history = ""
+    local color = ui:get_colors()
+    local equals = "<font color=\""..color.secondary_text.."\"> = </font>"
+    local xml = require "xml"
+    local t = xml:parse(result)
+    if t.ValCurs.Record == nil then
+        ui:show_text("Для валюты "..cur.." не заданы курсы")
+        return
+    end
+	local points = {}
+	local k=#t.ValCurs.Record
+	local dd = t.ValCurs.Record[1]["@Date"]:split(".")
+	nominal = t.ValCurs.Record[k].Nominal:value()
+	local tp = os.time{day=dd[1],month=dd[2],year=dd[3]} - 24*60*60
+	for i,v in ipairs(t.ValCurs.Record) do
+		dd = v["@Date"]:split(".")
+		local tm = os.time{day=dd[1],month=dd[2],year=dd[3]}
+	    for tt=tp+24*60*60, tm, 24*60*60 do
+		    local point = {}
+		    table.insert(point,tt*1000)
+		    table.insert(point,v.Value:value():replace(",",".")/v.Nominal:value()*nominal)
+		    table.insert(points,point)
+	    end
+	    tp = tm
+		history = v["@Date"]..": "..nominal.." "..cur.." = "..v.Value:value():replace(",",".")/v.Nominal:value()*nominal.." "..base_cur..history
+		if i<#t.ValCurs.Record then
+		    history = "<br>"..history
+		end
+	end
+	local ch = round((t.ValCurs.Record[k].Value:value():replace(",",".")/t.ValCurs.Record[k].Nominal:value()*nominal-t.ValCurs.Record[k-1].Value:value():replace(",",".")/t.ValCurs.Record[k-1].Nominal:value()*nominal)/t.ValCurs.Record[k-1].Value:value():replace(",",".")*t.ValCurs.Record[k-1].Nominal:value()/nominal*100,2)
+	ui:show_chart(points,"x:date y:number",t.ValCurs.Record[k].Value:value():replace(",",".")/t.ValCurs.Record[k].Nominal:value()*nominal.." "..base_cur,true,nominal.." "..cur..equals..t.ValCurs.Record[k].Value:value():replace(",",".")/t.ValCurs.Record[k].Nominal:value()*nominal.." "..base_cur.." "..get_formatted_change_text(ch))
+end
+
+function get_rates()
+    local date2 = os.date("%d/%m/%Y")
+    local dd = date2:split("/")
+    local t = os.time{day=dd[1],month=dd[2],year=dd[3]}-30*24*60*60
+	local date1 = os.date("%d/%m/%Y",t)
+	local str = "https://www.cbr.ru/scripts/XML_dynamic.asp?date_req1="..date1.."&date_req2="..date2.."&VAL_NM_RQ="..cur_id
+    http:get(str,"history")
+end
+
+function get_formatted_change_text(change)
+	local color = ui:get_colors()
+    if change > 0 then
+        return "<font color=\""..color.progress_good.."\"> +"..change.."%</font>"
+    elseif change < 0 then
+        return "<font color=\""..color.progress_bad.."\"> "..change.."%</font>"
+    else
+        return "<font color=\""..color.secondary_text.."\"> "..change.."%</font>"
+    end
+end
+
+currencies = [[
+<?xml version="1.0" encoding="windows-1251"?>
+<Valuta name="Foreign Currency Market Lib">
+<Item ID="R01010">
+<Name>Австралийский доллар</Name>
+<EngName>Australian Dollar</EngName>
+<Nominal>1</Nominal>
+<ParentCode>R01010 </ParentCode>
+<ISO_Num_Code>36</ISO_Num_Code>
+<ISO_Char_Code>AUD</ISO_Char_Code>
+</Item>
+<Item ID="R01020A">
+<Name>Азербайджанский манат</Name>
+<EngName>Azerbaijan Manat</EngName>
+<Nominal>1</Nominal>
+<ParentCode>R01020 </ParentCode>
+<ISO_Num_Code>944</ISO_Num_Code>
+<ISO_Char_Code>AZN</ISO_Char_Code>
+</Item>
+<Item ID="R01035">
+<Name>Фунт стерлингов Соединенного королевства</Name>
+<EngName>British Pound Sterling</EngName>
+<Nominal>1</Nominal>
+<ParentCode>R01035 </ParentCode>
+<ISO_Num_Code>826</ISO_Num_Code>
+<ISO_Char_Code>GBP</ISO_Char_Code>
+</Item>
+<Item ID="R01060">
+<Name>Армянский драм</Name>
+<EngName>Armenia Dram</EngName>
+<Nominal>1000</Nominal>
+<ParentCode>R01060 </ParentCode>
+<ISO_Num_Code>51</ISO_Num_Code>
+<ISO_Char_Code>AMD</ISO_Char_Code>
+</Item>
+<Item ID="R01090B">
+<Name>Белорусский рубль</Name>
+<EngName>Belarussian Ruble</EngName>
+<Nominal>1</Nominal>
+<ParentCode>R01090 </ParentCode>
+<ISO_Num_Code>933</ISO_Num_Code>
+<ISO_Char_Code>BYN</ISO_Char_Code>
+</Item>
+<Item ID="R01100">
+<Name>Болгарский лев</Name>
+<EngName>Bulgarian lev</EngName>
+<Nominal>1</Nominal>
+<ParentCode>R01100 </ParentCode>
+<ISO_Num_Code>975</ISO_Num_Code>
+<ISO_Char_Code>BGN</ISO_Char_Code>
+</Item>
+<Item ID="R01115">
+<Name>Бразильский реал</Name>
+<EngName>Brazil Real</EngName>
+<Nominal>1</Nominal>
+<ParentCode>R01115 </ParentCode>
+<ISO_Num_Code>986</ISO_Num_Code>
+<ISO_Char_Code>BRL</ISO_Char_Code>
+</Item>
+<Item ID="R01135">
+<Name>Венгерский форинт</Name>
+<EngName>Hungarian Forint</EngName>
+<Nominal>100</Nominal>
+<ParentCode>R01135 </ParentCode>
+<ISO_Num_Code>348</ISO_Num_Code>
+<ISO_Char_Code>HUF</ISO_Char_Code>
+</Item>
+<Item ID="R01200">
+<Name>Гонконгский доллар</Name>
+<EngName>Hong Kong Dollar</EngName>
+<Nominal>10</Nominal>
+<ParentCode>R01200 </ParentCode>
+<ISO_Num_Code>344</ISO_Num_Code>
+<ISO_Char_Code>HKD</ISO_Char_Code>
+</Item>
+<Item ID="R01215">
+<Name>Датская крона</Name>
+<EngName>Danish Krone</EngName>
+<Nominal>10</Nominal>
+<ParentCode>R01215 </ParentCode>
+<ISO_Num_Code>208</ISO_Num_Code>
+<ISO_Char_Code>DKK</ISO_Char_Code>
+</Item>
+<Item ID="R01235">
+<Name>Доллар США</Name>
+<EngName>US Dollar</EngName>
+<Nominal>1</Nominal>
+<ParentCode>R01235 </ParentCode>
+<ISO_Num_Code>840</ISO_Num_Code>
+<ISO_Char_Code>USD</ISO_Char_Code>
+</Item>
+<Item ID="R01239">
+<Name>Евро</Name>
+<EngName>Euro</EngName>
+<Nominal>1</Nominal>
+<ParentCode>R01239 </ParentCode>
+<ISO_Num_Code>978</ISO_Num_Code>
+<ISO_Char_Code>EUR</ISO_Char_Code>
+</Item>
+<Item ID="R01270">
+<Name>Индийская рупия</Name>
+<EngName>Indian Rupee</EngName>
+<Nominal>100</Nominal>
+<ParentCode>R01270 </ParentCode>
+<ISO_Num_Code>356</ISO_Num_Code>
+<ISO_Char_Code>INR</ISO_Char_Code>
+</Item>
+<Item ID="R01335">
+<Name>Казахстанский тенге</Name>
+<EngName>Kazakhstan Tenge</EngName>
+<Nominal>100</Nominal>
+<ParentCode>R01335 </ParentCode>
+<ISO_Num_Code>398</ISO_Num_Code>
+<ISO_Char_Code>KZT</ISO_Char_Code>
+</Item>
+<Item ID="R01350">
+<Name>Канадский доллар</Name>
+<EngName>Canadian Dollar</EngName>
+<Nominal>1</Nominal>
+<ParentCode>R01350 </ParentCode>
+<ISO_Num_Code>124</ISO_Num_Code>
+<ISO_Char_Code>CAD</ISO_Char_Code>
+</Item>
+<Item ID="R01370">
+<Name>Киргизский сом</Name>
+<EngName>Kyrgyzstan Som</EngName>
+<Nominal>100</Nominal>
+<ParentCode>R01370 </ParentCode>
+<ISO_Num_Code>417</ISO_Num_Code>
+<ISO_Char_Code>KGS</ISO_Char_Code>
+</Item>
+<Item ID="R01375">
+<Name>Китайский юань</Name>
+<EngName>China Yuan</EngName>
+<Nominal>10</Nominal>
+<ParentCode>R01375 </ParentCode>
+<ISO_Num_Code>156</ISO_Num_Code>
+<ISO_Char_Code>CNY</ISO_Char_Code>
+</Item>
+<Item ID="R01500">
+<Name>Молдавский лей</Name>
+<EngName>Moldova Lei</EngName>
+<Nominal>10</Nominal>
+<ParentCode>R01500 </ParentCode>
+<ISO_Num_Code>498</ISO_Num_Code>
+<ISO_Char_Code>MDL</ISO_Char_Code>
+</Item>
+<Item ID="R01535">
+<Name>Норвежская крона</Name>
+<EngName>Norwegian Krone</EngName>
+<Nominal>10</Nominal>
+<ParentCode>R01535 </ParentCode>
+<ISO_Num_Code>578</ISO_Num_Code>
+<ISO_Char_Code>NOK</ISO_Char_Code>
+</Item>
+<Item ID="R01565">
+<Name>Польский злотый</Name>
+<EngName>Polish Zloty</EngName>
+<Nominal>1</Nominal>
+<ParentCode>R01565 </ParentCode>
+<ISO_Num_Code>985</ISO_Num_Code>
+<ISO_Char_Code>PLN</ISO_Char_Code>
+</Item>
+<Item ID="R01585F">
+<Name>Румынский лей</Name>
+<EngName>Romanian Leu</EngName>
+<Nominal>10</Nominal>
+<ParentCode>R01585 </ParentCode>
+<ISO_Num_Code>946</ISO_Num_Code>
+<ISO_Char_Code>RON</ISO_Char_Code>
+</Item>
+<Item ID="R01589">
+<Name>СДР (специальные права заимствования)</Name>
+<EngName>SDR</EngName>
+<Nominal>1</Nominal>
+<ParentCode>R01589 </ParentCode>
+<ISO_Num_Code>960</ISO_Num_Code>
+<ISO_Char_Code>XDR</ISO_Char_Code>
+</Item>
+<Item ID="R01625">
+<Name>Сингапурский доллар</Name>
+<EngName>Singapore Dollar</EngName>
+<Nominal>1</Nominal>
+<ParentCode>R01625 </ParentCode>
+<ISO_Num_Code>702</ISO_Num_Code>
+<ISO_Char_Code>SGD</ISO_Char_Code>
+</Item>
+<Item ID="R01670">
+<Name>Таджикский сомони</Name>
+<EngName>Tajikistan Ruble</EngName>
+<Nominal>10</Nominal>
+<ParentCode>R01670 </ParentCode>
+<ISO_Num_Code>972</ISO_Num_Code>
+<ISO_Char_Code>TJS</ISO_Char_Code>
+</Item>
+<Item ID="R01700J">
+<Name>Турецкая лира</Name>
+<EngName>Turkish Lira</EngName>
+<Nominal>1</Nominal>
+<ParentCode>R01700 </ParentCode>
+<ISO_Num_Code>949</ISO_Num_Code>
+<ISO_Char_Code>TRY</ISO_Char_Code>
+</Item>
+<Item ID="R01710A">
+<Name>Новый туркменский манат</Name>
+<EngName>New Turkmenistan Manat</EngName>
+<Nominal>1</Nominal>
+<ParentCode>R01710 </ParentCode>
+<ISO_Num_Code>934</ISO_Num_Code>
+<ISO_Char_Code>TMT</ISO_Char_Code>
+</Item>
+<Item ID="R01717">
+<Name>Узбекский сум</Name>
+<EngName>Uzbekistan Sum</EngName>
+<Nominal>1000</Nominal>
+<ParentCode>R01717 </ParentCode>
+<ISO_Num_Code>860</ISO_Num_Code>
+<ISO_Char_Code>UZS</ISO_Char_Code>
+</Item>
+<Item ID="R01720">
+<Name>Украинская гривна</Name>
+<EngName>Ukrainian Hryvnia</EngName>
+<Nominal>10</Nominal>
+<ParentCode>R01720 </ParentCode>
+<ISO_Num_Code>980</ISO_Num_Code>
+<ISO_Char_Code>UAH</ISO_Char_Code>
+</Item>
+<Item ID="R01760">
+<Name>Чешская крона</Name>
+<EngName>Czech Koruna</EngName>
+<Nominal>10</Nominal>
+<ParentCode>R01760 </ParentCode>
+<ISO_Num_Code>203</ISO_Num_Code>
+<ISO_Char_Code>CZK</ISO_Char_Code>
+</Item>
+<Item ID="R01770">
+<Name>Шведская крона</Name>
+<EngName>Swedish Krona</EngName>
+<Nominal>10</Nominal>
+<ParentCode>R01770 </ParentCode>
+<ISO_Num_Code>752</ISO_Num_Code>
+<ISO_Char_Code>SEK</ISO_Char_Code>
+</Item>
+<Item ID="R01775">
+<Name>Швейцарский франк</Name>
+<EngName>Swiss Franc</EngName>
+<Nominal>1</Nominal>
+<ParentCode>R01775 </ParentCode>
+<ISO_Num_Code>756</ISO_Num_Code>
+<ISO_Char_Code>CHF</ISO_Char_Code>
+</Item>
+<Item ID="R01810">
+<Name>Южноафриканский рэнд</Name>
+<EngName>S.African Rand</EngName>
+<Nominal>10</Nominal>
+<ParentCode>R01810 </ParentCode>
+<ISO_Num_Code>710</ISO_Num_Code>
+<ISO_Char_Code>ZAR</ISO_Char_Code>
+</Item>
+<Item ID="R01815">
+<Name>Вон Республики Корея</Name>
+<EngName>South Korean Won</EngName>
+<Nominal>1000</Nominal>
+<ParentCode>R01815 </ParentCode>
+<ISO_Num_Code>410</ISO_Num_Code>
+<ISO_Char_Code>KRW</ISO_Char_Code>
+</Item>
+<Item ID="R01820">
+<Name>Японская иена</Name>
+<EngName>Japanese Yen</EngName>
+<Nominal>100</Nominal>
+<ParentCode>R01820 </ParentCode>
+<ISO_Num_Code>392</ISO_Num_Code>
+<ISO_Char_Code>JPY</ISO_Char_Code>
+</Item>
+</Valuta>
+]]