检查SAP系统中货币是否存在

*&Check Currency exist

DATA: ls_return LIKE bapiret2,
              lt_return LIKE TABLE OF bapiret2 WITH HEADER LINE.

 

CALL FUNCTION 'AIA_CHECK_EXIST_CURRENCY'
   EXPORTING
     i_currency = p_curr
   TABLES
     return = lt_return
   EXCEPTIONS
     no_currency = 1
     currency_not_exist = 2
     OTHERS = 3.

IF sy-subrc <> 0.
MESSAGE s398(00) WITH 'Currency is not valid'.
STOP.
ENDIF.