問題のフォーマット日付金額

日付

  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(30TYPEの C、RES(60TYPEの C、フェン(2TYPEのC。
  DATA:LEN TYPE I、C1のTYPE I、C2のTYPE I、C3のTYPE I、C4のTYPE 私は。
  DATA:D1(1TYPEの C、D2(1TYPEの C、D3のTYPE I。
  DATA:桁(2TYPEの C、重量(2のTYPE C。
  DATA:ルール1(20TYPEの C値' 零壹贰叁肆伍陆柒捌玖' DATA:ルール2(30TYPEの値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

 

おすすめ

転載: www.cnblogs.com/ckstock/p/11550973.html
おすすめ