How to change currency type according to currency

[former_member598435]

local numbervar x := {Invoice_Detail.After_Invoice_Discount_Total};
local numbervar ipart;
local numberVar decpart;
ipart := int(x);
decpart := x - ipart;
Propercase(Replace(towords(ipart)," and xx / 100","")) & " Dollar" &
if decpart = 0 then "" else " and " & Propercase(Replace(towords(decpart*100)," and xx / 100","")) & " Cent Only";

This is 100 percent correct answer. but problem is if currency type change in my application dollar to Euro how to assign variable in crystal report formula work shop. if currency type change according to my application.

[abhilash_kumar · Accepted solution]

Hi Zahid,

Do you have a database field to identify the Currency?

-Abhilash

[former_member598435 · Accepted solution]

Database fields

CountryCurrency 'Suppose Dollar / Euro

CurrencySubunit

[former_member598435 · Accepted solution]

kindly check this formula

[former_member598435]

Abhilash

Check this how to add database fields in formula

CountryCurrency 'Suppose Dollar / Euro

CurrencySubunit 'Suppose Cent / Penny

local numbervar x := {Invoice_Detail.After_Invoice_Discount_Total};
local numbervar ipart;
local numberVar decpart;
ipart := int(x);
decpart := x - ipart;
Propercase(Replace(towords(ipart)," and xx / 100","")) & " Dollar" &
if decpart = 0 then "" else " and " & Propercase(Replace(towords(decpart*100)," and xx / 100","")) & " Cent Only";

[former_member598435]

Database fields

CountryCurrency 'Suppose Dollar / Euro

CurrencySubunit 'Suppose Cent / Penny

These two field define in database

[former_member598435]

Database fields

CountryCurrency 'Suppose Dollar / Euro

CurrencySubunit 'Suppose Cent / Penny

these two field define in database