Code20080117

• 將調整數字欄位的輸出格式。

Function

• CLOI_PUT_SIGN_IN_FRONT => 將數字的負號放到前面。

Code

FORM adjust_int_format USING  fn_int     "Amt. or Qty.
                              fn_waers   "Currency
                     CHANGING fn_output. "Output
*---Grouping and currency
  IF fn_waers EQ space.
    WRITE fn_int TO fn_output NO-GROUPING.
  ELSE.
    WRITE fn_int TO fn_output NO-GROUPING CURRENCY fn_waers.
  ENDIF.

*---Put sign to right
  CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'
   CHANGING
    value = fn_output.

*---Left-Justified
  WRITE fn_output TO fn_output LEFT-JUSTIFIED.

ENDFORM.          " adjust_int_format