Try this. Let me know if it's working.
numbervar RmVal:=0;
numbervar Amt:=0;
numbervar pAmt:=0;
stringvar InWords :=" ";
numbervar totalAmt;
totalAmt := Sum ({employee.salary});
Amt := totalAmt;
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;
RmVal := 0;
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;
RmVal := 0;
if Amt >= 1000 then
RmVal := truncate(Amt/1000);
if RmVal =1 then
Inwords := InWords + " " + towords(RmVal,0) + "Thousand"
Else
if RmVal > 1 then
InWords := InWords + " " + towords(RmVal,0) + "thousand ";
Amt := Amt - RmVal * 1000;
if Amt > 0 then
InWords := InWords + " " + towords(truncate(Amt),0);
pAmt := (Amt - truncate(Amt)) * 100;
if pAmt > 0 then
InWords := InWords + " and " + towords(pAmt,0) + " paisa only"
else
InWords := InWords + " rupees only";
UPPERCASE(InWords)