Convert Amount In Words in D365FO in X++

 Convert Amount In Words in D365FO in X++

 public Amount2Str AmountToWords(real _Amount)

    {

        Amount2Str amount2Str;

        if (_Amount > 0)

        {

            _Amount = real2int(round(_Amount , 1));

        }

        else

        {

            _Amount = real2int(round(-(_Amount) , 1));

        }

  

        amount2Str = Global::numeralsToTxt(_Amount);

        amount2Str = subStr(amount2Str,5,strLen(amount2Str)-4);

        amount2Str = subStr(amount2Str,strLen(amount2Str)-10,-                 strLen(amount2Str));

        amount2Str = str2Capital(amount2Str) + ' Only';

        return amount2Str;

    }