Enterprise Resource Planning Blogs by Members
Gain new perspectives and knowledge about enterprise resource planning in blog posts from community members. Share your own comments and ERP insights today!
cancel
Showing results for 
Search instead for 
Did you mean: 
former_member196081
Active Contributor
0 Kudos

I am working in SAP B One 9.0 PL 12 and till now did not find any clear solution for cheque printing in the same. There are many functions on internet for the same but every one has flaws itself. sometime it shows lacks for lakh , shows "And"  unnecessary at the end  etc. Now you can find right formula below

// formula to convert the amount in words as per Indian standard

numbervar RmVal:=0;

numbervar Amt:=0;

numbervar pAmt:=0;

stringvar InWords :=" ";

Amt := (cdbl({Command.CheckSum}));

if Amt > 10000000 then RmVal := truncate(Amt/10000000);

if Amt = 10000000 then RmVal := 1;

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 Amt = 100000 then RmVal := 1;

if RmVal >1 and Amt >100000 then

InWords := InWords + " " + towords(RmVal,0) + " lakhs"

else if  RmVal =1 and Amt >100000 then

InWords := InWords + " " + towords(RmVal,0) + " lakh"

else if Amt>0 then

InWords := InWords + " " + towords(truncate(Amt),0);

Amt := Amt - Rmval * 100000;

if Amt > 0 and  RmVal >=1 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 + " only";

UPPERCASE(InWords)

// End

If there is any query, please reply here.

Labels in this area