Skip to main content

Update exchange rate using Yahoo Web Service

In this example I am using Yahoo's online currency converter to update the exchange rates table. An idea would be to put this code in a batch class, which you can schedule to run daily.

static void YahooCurrencyUpdate(Args _args)
{
    Currency                    currency;
    ExchRates                   exchRates;
    str                         uri;
    str                         exchRate = "";
    str                         fromCurrency, toCurrency;

    System.Net.HttpWebRequest   httpRequest  = null;
    System.Net.HttpWebResponse  httpResponse = null;
    CLRObject                   clro         = null;
    System.IO.Stream            stream       = null;
    System.IO.StreamReader      streamReader = null;
    ;

    while select currency
    {
        fromCurrency    = CompanyInfo::find().CurrencyCode;
        toCurrency      = currency.CurrencyCode;

        uri = "http://finance.yahoo.com/d/quotes.csv?e=.csv&f=l1&s=" + fromCurrency + toCurrency + "=X";

        try
        {
            new InteropPermission(InteropKind::ClrInterop).assert();
            clro         = System.Net.WebRequest::Create(uri);
            httpRequest  = clro;
            httpResponse = httpRequest.GetResponse();
            stream = httpResponse.GetResponseStream();
            streamReader = new System.IO.StreamReader(stream);
            exchRate = streamReader.ReadToEnd();
            info(exchRate);

            if (str2num(exchRate) > 0)
            {
                exchRates.initValue();
                exchRates.CurrencyCode = toCurrency;
                exchRates.FromDate = systemdateget();
                exchRates.editExchRate(true, str2num(exchRate) * 100);
                exchRates.insert();
            }

            CodeAccessPermission::revertAssert();
        }
        catch(Exception::CLRError)
        {
            throw error(AifUtil::getClrErrorMessage());
        }
    }
}

Additional information:
Microsoft provides a simple example on how to consume a web service. In their example they take a currency converter too.
http://www.microsoft.com/downloads/details.aspx?FamilyID=ef3a50d2-61c8-4ffc-bce8-2caf038f98cd&displaylang=en
The Microsoft whitepaper was written to illustrate on how to consume web services using references.

There are a lot of online services that provide exchange rates and methods to consume. Yahoo provides the days rates via the web services but not historical rates.

Other online services:
www.thomsonreuters.com,
www.oanda.com,
www.xe.com
Labels:

Popular posts from this blog

AX - How to use Map and MapEnumerator

Similar to Set class, Map class allows you to associate one value (the key) with another value. Both the key and value can be any valid X++ type, including objects. The types of the key and the value are specified in the declaration of the map. The way in which maps are implemented means that access to the values is very fast. Below is a sample code that sets and retrieves values from a map. static void checkItemNameAliasDuplicate(Args _args) { inventTable inventTable; Map map; MapEnumerator mapEnumerator; NameAlias nameAlias; int counter = 0; ; map = new Map(Types::String, Types::Integer); //store into map while select inventTable { nameAlias = inventTable.NameAlias; if (!map.exists(nameAlias)) { map.insert(nameAlias, 1); } else { map.insert(nameAlias, map.lookup(nameAlias) + 1); } } //retrieve fro...
Read more

AX - How to use Set and SetEnumerator

The Set class is used for the storage and retrieval of data from a collection in which the values of the elements contained are unique and serve as the key values according to which the data is automatically ordered. You can create a set of primitive data types or complex data types such as a Class, Record or Container. Below is sample of a set of records. static void _Set(Args _args) {     CustTable       custTable;     Set             set = new Set(Types::Record);     SetEnumerator   setEnumerator;     ;     while select custTable     {         if (custTable && !set.in(custTable))         {             set.add(custTable);         }     }     if (!set.empty())     {    ...
Read more

Approve Workflow via email using template placeholders #Dyn365FO

Dynamics 365 for Finance and Operations has placeholders which can be inserted into the instructions. Normally you would want this to show up in the email that is sent. One of the most useful ones is the URL link to the exact record that you are approving. In the workflow configurations use the placeholder and build up your message. Towards the end it has workflow specific ones. The URL token is %Workflow.Link to web% . For the technical people the token is replaced in this class WorkflowDocumentField. This is what I inserted into my email template. <BODY> subject: %subject% <BR> message: %message% <BR> company: %company% <BR> for: %for% <BR> </BODY> Should look like this. The final result looks like this. If you debug these are the place holders that are put together.
Read more