SAP公司代码函数

函数中有缓存机制，有些情况大概比直接 SELECT T001快一点

公司名称：

CALL FUNCTION 'AIPH_GET_TEXT_COMPANY_CODE'
  EXPORTING
    i_bukrs = bukrs
  IMPORTING
    e_text  = butxt.

公司本位币：

CALL FUNCTION 'REBW_WAERS_GET_FROM_BUKRS'
  EXPORTING
    iv_bukrs = bukrs
  IMPORTING
    ev_waers = waers.

公司信息T001：

CALL FUNCTION 'WLF_READ_T001'
  EXPORTING
    i_bukrs             = bukrs
  IMPORTING
    e_t001              = t001
  EXCEPTIONS
    missing_customizing = 1
    OTHERS              = 2.
IF sy-subrc <> 0.
  
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

 公司地址信息ADRC：

CALL FUNCTION 'FKK_AR_COMPANY_DATA_GET'
  EXPORTING
    i_bukrs                      = bukrs
  IMPORTING
*   E_T001                       =
*   E_ID_TYPE                    =
*   E_ID_NUMBER                  =
*   E_KALSM                      =
    e_adrc                       = adrc
* EXCEPTIONS
*   ID_NOT_FOUND                 = 1
*   COMPANY_CODE_NOT_FOUND       = 2
*   KALSM_NOT_FOUND              = 3
*   OTHERS                       = 4
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.