日付
DATA:lv_date のTYPE 。DATSを
CALL FUNCTION ' DATE_CHECK_PLAUSIBILITY ' EXPORTINGオプションDATE = lv_date 例外= plausibility_check_failedを。1 OTHERS = 2 。IF SY-SUBRC NE 0の「それはゼロ以外を返した場合、その日付が有効でない= gv_error ' X- ' gs_data-msgtp =。' E ' 。ライトgs_data = icon_red_light。gs_data-MSG = ' 日付フォーマットエラー' 。Error_flag = ' X- ' 。ENDIF 。CALLFUNCTION ' CONVERT_DATE_TO_EXTERNAL ' EXPORTING date_internal = lv_date IMPORTING date_external = gs_data- datbi EXCEPTIONS date_internal_is_invalid = 1 OTHERS = 2。
お金
http://blog.sina.com.cn/s/blog_5d3b01030100tv1b.html
https://blog.csdn.net/zhongguomao/article/details/80298971
データ l_internal_amountのTYPE bseg- dmbtr。 データ LC LIKE t001- WAERS。 LC = ' CNY ' 。 CLEAR :l_internal_amount。 l_internal_amount = gs_excel- kbetr。 CALL FUNCTION ' BAPI_CURRENCY_CONV_TO_EXTERNAL ' EXPORTINGオプション 通貨 = LC amount_internal = l_internal_amount IMPORTING amount_external = l_internal_amountを。 gs_data-kbetr = l_internal_amount。
負符号問題の量
負符号関数(小数点以下2)の量が低減CONVERSION_EXIT_Z001_INPUT
CONVERSION_EXIT_Z001_OUTPUT進角量マイナス関数(小数点2)
負CONVERSION_EXIT_Z002_INPUT低減機能(小数点以下3)の数を
大文字は、量を換算しました
機能z_numeric_to_chinese。 * 「------------------------------------------------ ---------------------- * "*"本地接口: * "IMPORTING * " VALUE(IV_MONEY)TYPE BF_DMBTR * "輸出し * " VALUE(EV_MONEY)TYPE STRING * "例外 * " WRONG_MONEY * 「----------------------------------------- ----------------------------- iv_money = ABS(iv_money)。 DATA:SCR(30)TYPEの C、RES(60)TYPEの C、フェン(2)TYPEのC。 DATA:LEN TYPE I、C1のTYPE I、C2のTYPE I、C3のTYPE I、C4のTYPE 私は。 DATA:D1(1)TYPEの C、D2(1)TYPEの C、D3のTYPE I。 DATA:桁(2) TYPEの C、重量(2)のTYPE C。 DATA:ルール1(20)TYPEの C値' 零壹贰叁肆伍陆柒捌玖' 。 DATA:ルール2(30)TYPEの値C 「ワン白白千千億ピックアップ白千ワンピッキング二等分線撮像素子」。 SCR = iv_money * 100 。 CONDENSE SCRは無ギャップ。 IF SCR = 「0 」。 RESの = 「ナシ」。 ELSE 。 lenは =のSTRLEN(SCR) C1 = 0 。 D1は =の' 0 ' 。 CLEAR RES。 DO LEN TIMES 。 C1= C1 + 1 。 C2 = LEN - C1。 D2 = SCR + C2(1 )。 IF D2 = ' 0 ' 。 D3 = 0 。 ELSE 。 D3 = D2。 ENDIF 。 桁 =ルール1 + D3(1 )。 C3 =(C1 - 1 )。 重量 = RULE2 + C3(1 )。 IF D2 = ' 0 ' 。 IF C1 =3 。 桁 = '' 。 ELSEIF C1 = 7 。 桁 = '' 。 IF > lenは10 。 C4 = LEN - 10 。 IF SCR + C4(4)= ' 0000 ' 。 重量 = '' 。 ENDIF 。 ENDIF 。 ELSEIF C1 = 11 。 桁 = 「」。 ELSEIF D1 = ' 0 ' 。 桁 = '' 。 重量 = '' 。 ELSE 。 重量 = '' 。 ENDIF 。 ENDIF 。 CONCATENATE桁の重みのres INTO RES。 D1 = D2。 ENDDO 。 ENDIF 。 LENの =のSTRLEN(RES) - 1 。 フェン =のRES + LEN(1 )。 IF沼地<> ' 分' 。 CONCATENATEのres ' 整' INTO ev_money。 ELSE 。 ev_moneyの =の解像度。 ENDIF 。 ENDFUNCTION。