Using X++ code achieve numerals Convert to TXT String for Chinese

Sometimes,We are have to real numerals convert to txt string.

So I wrote a X++ Code achieve it.(AOT - > Classes - > Global - > Jimmy_numeralsToTxt_CN)

parameter 1　　(Real numerals)

parameter 2　　(Ture - > Simplified Chinese;　　　　False - > Traditional Chinese)

parameter 3　　(Ture - > is Money;　　　　　　　　 False - > Real number)

parameter 4　　(Counter (StrLen(num2Str(parameter 16,1,1,1,1)))).

Such as

info( global::Jimmy_numeralsToTxt_CN(1285924.56,false,True,num2str(1285924.56,16,1,1,1)) )); //壹佰贰拾捌万伍仟玖佰贰拾肆圆伍角陆分 

 

static TempStr Jimmy_numeralsToTxt_CN(RealBase  _number ,
                                      NoYes     _type   ,
                                      NoYes     _isMoney,
                                      Counter   _numLen)
{
    TempStr strNum[10];
    TempStr strUnit[16];
    TempStr strUnitB[2];
    TempStr strUnitC[6];

    TempStr result;
    TempStr strFirst;
    TempStr strEnd;

    Counter lngNumberLen;
    Counter lngI ;
    Counter lngJ ;
    Counter pos;

    TempStr strNumber;
    TempStr strTmp;

    #MacroLib.Num2Char_CN
    #define.DecimalPrecisionOfAmount(2)

    TempStr cutRightZero(TempStr _strNumber)
    {
        Counter     tempLen;
        Counter     i;
        TempStr     tempStr;
        TempStr     returnStr;

        ;
        tempLen   = strlen(_strNumber);
        returnStr = _strNumber;
        for (i = tempLen; i >= 0; i--)
        {
            tempStr = strdel(returnStr, 1, i - 1);
            if (tempStr == #Decimal)
            {
                returnStr = strdel(returnStr, i, i);
                return returnStr;
            }
            else
            {
                if (tempStr == #Zero)
                {
                    returnStr = strdel(returnStr, i, i - 1);
                }
                else
                {
                    return returnStr;
                }
            }
        }
        return '';
    }

    TempStr decimalfraction2chinese(TempStr _strDecimal,NoYes _isMon)
    {
        Counter lntgJ;
        Counter decimalLen;
        TempStr tempEndstr;
        ;

        decimalLen = strlen(_strDecimal);

        for (lntgJ = decimalLen; lntgJ >=1; lntgJ--)
        {
            if (str2int(substr(_strDecimal, strlen(_strDecimal), -1)) == 0)
            {
                _strDecimal = substr(_strDecimal, 1, strlen(_strDecimal) - 1);
            }
            else
            {
                break;
            }
        }

        decimalLen = strlen(_strDecimal);
        tempEndstr = '' ;

        for (lntgJ = 1; lntgJ <= decimalLen; lntgJ++)
        {
            if (str2int(substr(_strDecimal, lntgJ, 1)) == 0)
            {
                if (_isMon == NoYes::No)
                {
                    if (lntgJ == decimalLen)
                    {
                        tempEndstr = tempEndstr;
                    }
                    else
                    {
                        tempEndstr = tempEndstr + strNum[10];
                    }
                }
                else
                {
                    if (lntgJ == 1)
                    {
                        tempEndstr = tempEndstr + strNum[10]+strUnitB[1];
                    }
                }
            }
            else
            {
                if (_isMon == NoYes::Yes)
                {
                    tempEndstr = tempEndstr + strNum[str2int(substr(_strDecimal, lntgJ, 1))] + strUnitB[lntgJ];
                    if (decimalLen == 1)
                    {
                        tempEndstr = tempEndstr + #Integer;
                    }
                }
                else
                {
                    tempEndstr = tempEndstr + strNum[str2int(substr(_strDecimal, lntgJ, 1))];
                }
            }
        }
        return tempEndstr;
    }

    Counter getDecimalLen(RealBase _numb, Counter _numL)
    {
        Counter lntgI;
        Counter decimalLen;
        TempStr lngTmp;

        ;

        lngTmp = strltrim(strrtrim(num2str(_numb, 10, #DecimalPrecisionOfAmount, 1, 0)));
        lntgI = strfind(lngTmp,#Decimal,1,strlen(lngTmp));
        decimalLen  = _numL - lntgI;
        if (decimalLen < 0)
        {
            decimalLen = 0;
        }
        return decimalLen;
    }

    TempStr keep2digits(TempStr _strNumber)
    {
        Counter lntgI;
        Counter numberLen;
        TempStr strTemp;
        TempStr strDotAfter;
        ;

        numberLen = strlen(_strNumber);
        lntgI     = strfind(_strNumber, #Decimal, 1, numberLen);
        if (lntgI)
        {
            strTemp      = _strNumber + #Zeros;
            strDotAfter = substr(strTemp, lntgI + 1, str2int(#NumTwo));
            if (strDotAfter == #Zeros)
            {
                strTemp = substr(_strNumber, 1, lntgI-1);
            }
            else
            {
                strTemp = substr(strTemp, 1, lntgI + str2int(#NumTwo));
            }
        }
        return strltrim(strrtrim(strTemp));
    }

    TempStr number2Chinese(TempStr _strNumber)
    {
        Counter strNumberLen;
        Counter lntgI;
        Counter lntgJ;
        TempStr strTemp;
        TempStr resultNumber;
        ;

        resultNumber = '';

        strNumberLen=strlen(_strNumber);
        if (strNumberLen == 0)
        {
            return '';
        }
        else
        {
            lntgI = 1;
            for (lntgJ = strNumberLen; lntgJ >= 1; lntgJ--)
            {
                strTemp=substr(_strNumber, lntgJ, -1);
                if (strTemp == #Zero)
                {
                    if (resultNumber != '')
                    {
                        if (substr(_strNumber,lntgJ+1,-1) != #Zero)
                        {
                            resultNumber = strNum[10] + resultNumber;
                        }
                    }
                }
                else
                {
                    resultNumber = strNum[str2int(strTemp)] + strUnit[lntgI] + resultNumber;
                }

                lntgI = lntgI + 1;

            }
        }

        return resultNumber;
    }

    void setUnit(NoYes _istype)
    {
        if (_istype == NoYes::No)
        {
            strNum[1] = #Cone;
            strNum[2] = #Ctwo;
            strNum[3] = #Cthree;
            strNum[4] = #Cfour;
            strNum[5] = #Cfive;
            strNum[6] = #Csix;
            strNum[7] = #Cseven;
            strNum[8] = #Ceight;
            strNum[9] = #Cnine;
            strNum[10] = #Czero;

            strUnit[1] = '';
            strUnit[2] = #Cten;
            strUnit[3] = #Chundred;
            strUnit[4] = #Cthousand;
        }
        else if (_istype == NoYes::Yes)
        {

            strNum[1] = #Lone;
            strNum[2] = #Ltwo;
            strNum[3] = #Lthree;
            strNum[4] = #Lfour;
            strNum[5] = #Lfive;
            strNum[6] = #Lsix;
            strNum[7] = #Lseven;
            strNum[8] = #Leight;
            strNum[9] = #Lnine;
            strNum[10] = #Lzero;

            strUnit[1] = '';
            strUnit[2] = #Lten;
            strUnit[3] = #Lhundred;
            strUnit[4] = #Lthousand;

        }
    }

    void setUnitB(NoYes _isMony)
    {
        if (_isMony == NoYes::Yes)
        {
            strUnitB[1] = #Penny;
            strUnitB[2] = #Cent;
        }
        else
        {
            strUnitB[1] = '';
            strUnitB[2] = '';
        }
    }

    void setUnitC(NoYes _isMony, NoYes _istype)
    {
        if (_isMony == NoYes::Yes)
        {
            if (_istype == NoYes::No)
            {
                strUnitC[1] = #Cyuan;
            }
            else
            {
                strUnitC[1] = #Lyuan;
            }
        }
        else
        {
            strUnitC[1] = '';
        }
        strUnitC[2] = #CMillion;
        strUnitC[3] = #CBillion;
        strUnitC[4] = #CMillion;

    }
    ;

    if (_numLen > str2int(#NumSixteen))
    {
        warning(strfmt("@GLS54781", #NumSixteen));
        return '';
    }


    setUnit(_type);
    setUnitB(_isMoney);
    setUnitC(_isMoney, _type);

    if (_isMoney == NoYes::Yes)
    {
        _number = round(_number, Currency::find(CompanyInfo::find().CurrencyCode).RoundOffAmount);
    }

    if (_number == 0)
    {
        if (_isMoney == NoYes::Yes)
        {
            result = strNum[10] + strUnitC[1] + #Integer;
        }
        else
        {
            result = strNum[10];
        }
    }
    else
    {
        strNumber    = num2str(_number, str2int(#NumTen), getDecimalLen(_number, _numLen),1 ,0);
        strNumber    = strltrim(strrtrim(strNumber));
        pos          = strfind(strNumber, '.', 1, strlen(strNumber));
        if (pos != 0)
        {
            strNumber = cutRightZero(strNumber);
        }
        lngNumberLen = strlen(strNumber);
        lngI = strfind(strNumber, #Decimal, 1, lngNumberLen);
        if (_isMoney == NoYes::Yes)
        {
            if (!lngI)
            {
                strEnd = #Integer;
            }
            else
            {
                strEnd = '';
                strNumber = keep2digits(strNumber) ;
            }

        }
        else
        {
            if (!lngI)
            {
                strEnd = '';
            }
            else
            {
                strEnd = #Point;
            }
        }

        lngNumberLen = strlen(strNumber);

        if (substr(strNumber, 1,1) == #Minus)
        {
            strFirst = #Negative;
            strNumber = strdel(strNumber, 1, 1);
            lngNumberLen = lngNumberLen - 1;
        }
        else
        {
            strFirst = '';
        }

        lngI = strfind(strNumber, #Decimal, 1, lngNumberLen);

        if (lngI)
        {
            strTmp = substr(strNumber, lngI + 1, lngNumberLen);

            strEnd=strEnd + decimalfraction2chinese(strTmp, _isMoney);

            strNumber = substr(strNumber,1, lngI - 1);
            lngNumberLen = strlen(strNumber);
        }

        result = '';

        lngJ = lngNumberLen / str2int(#NumFour);

        if (lngJ * str2int(#NumFour) < lngNumberLen)
        {
            lngJ = lngJ + 1;
        }

        for (lngI = 0; lngI < lngJ; lngI++)
        {
            if (lngI != lngJ - 1)
            {
                result = number2Chinese(substr(strNumber, lngNumberLen - lngI * str2int(#NumFour), -str2int(#NumFour))) + strUnitC[lngI + 1] + result;

            }
            else
            {
                result = number2Chinese(substr(strNumber, 1, lngNumberLen - lngI * str2int(#NumFour))) + strUnitC[lngI + 1] + result;
            }


        }

    }

    result = strReplace(result, strUnitC[3] + strUnitC[2], strUnitC[3]);


    if ( result == strUnitC[1] && _isMoney == NoYes::Yes )
    {
        result = strNum[10] + result;
    }

    if ( strlen(result) == 0 && _isMoney == NoYes::No)
    {
        result = strNum[10] + result;
    }

    result = strFirst + result + strEnd;

    return result;
}