Amount in words in crystal report

Question

Hi all,
I am new to crystal report.
What i need is i need to create a formula for amount to display in words.
That is,
if the value is AED 15,68,595 then i need this to be converted into
" one million five sixty eight thousand five hundred ninety five only"
That is,
10 lakhs is equal to 1 million,
then 5 lakhs is equal to 500 thousand + 68 thousand,
five hundred and ninety five.
Help me solving out this issue.
Regards,
Janani

Answer 1

HOW TO IMPLEMENT THE LOGIC.
STEP1: IN CRYSTAL REPORT  RIGHT CLICK N  FIELD EXPLORER RIGHT CLICK ON FORMULA FIELD AND THEN CREATE NEW..EXAMPLE WORDS
STEP2:UNDER FORMULA FIELDS CLICK ON WORDS AND THEN CLICK ON EDIT..
U CAN SEE THE BELOW FORM
THE BELOW CODE JUST COPY AND PAST IT..
IN THE BELOW BOLD COLOR U HAVE CHANGE ONLY ONE LINE..
ORDR.DocTotal I AM USING ORDER.DOCTOTAL
IN YOUR CASE THE AMOUNT IS COMMING FROM WHERE WHICH TABLE AND FIELD
THAT IS ENOUGH
numbervar RmVal:=0;
numbervar Amt:=0;
numbervar pAmt:=0;
stringvar InWords :="";
Amt :={ORDR.DocTotal};
if Amt > 10000000 then
RmVal := truncate(Amt/10000000);
if RmVal = 1 then
InWords := InWords + " " + towords(RmVal,0) + " Crore"
else if RmVal > 1 then
InWords := InWords + " " + towords(RmVal,0) + " Crores";
Amt := Amt - Rmval * 10000000;
if Amt > 100000 then
RmVal := truncate(Amt/100000);
if RmVal = 1 then
InWords := InWords + " " + towords(RmVal,0) + " Lakh"
else if RmVal > 1 then
InWords := InWords + " " + towords(RmVal,0) + " Lakhs";
Amt := Amt - Rmval * 100000;
InWords := InWords + " " + towords(truncate(Amt),0);
ProperCase(InWords)
STEP3: IN FORMULA EDITOR JUST CLICK ON X2 ICON FOR CHECKING ERRORS IN THE
           FORMULA
AFTER THAT PRESS OK..
STEP4: JUST DRAG AND DROP WORKS INTO CYRSTAL REPORT THIS IS ENOUGH