当前位置：首页 > news >正文

SAP FICO资产主数据查询接口

news 2025/11/12 14:09:10

一、接口逻辑

二、接口代码

FUNCTION Z_FMFICO_ASSETS_INFO.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(I_DATA_GD) TYPE  ZSBC_IF_GD OPTIONAL
*"     VALUE(I_INPUT) TYPE  STRING OPTIONAL
*"  EXPORTING
*"     VALUE(E_OUTPUT) TYPE  STRING
*"----------------------------------------------------------------------
  DATA:LS_INPUT  TYPE ZSFICO_INPUT_001,
       LS_OUTPUT TYPE ZSFICO_OUTPUT_002.

  DATA:LV_STATUS TYPE C.
  DATA GH_ZTSU01 TYPE ZTSU01.

  CALL FUNCTION 'ZFM_BREAK_POINT'  .

  IF SY-DATUM = '20220824'.
    GH_ZTSU01-DATUM = SY-DATUM.

    GH_ZTSU01-UZEIT = SY-UZEIT.
    GH_ZTSU01-UNAME = SY-UNAME  .
    MODIFY ZTSU01 FROM GH_ZTSU01.
  ENDIF.

  CLEAR:LS_INPUT,LS_OUTPUT,LV_STATUS.

  IF I_INPUT IS NOT INITIAL.
    CALL FUNCTION 'Z_FMBC_JSONTOABAP'
      EXPORTING
        I_JSON = I_INPUT
      IMPORTING
        E_DATA = LS_INPUT.
  ENDIF.

  IF LS_INPUT IS INITIAL.
    PERFORM FRM_SET_MSG TABLES LS_OUTPUT-MESSAGELIST
      USING 'E' '00' '001' '请检查JSON结构与SAP ABAP结构是否一致！'.

    PERFORM FRM_WRITE_LOG_NEW
      USING 'FI0006' LS_OUTPUT I_DATA_GD I_INPUT E_OUTPUT 'E'.

    EXIT.
  ENDIF.

  IF LS_INPUT-ANLN1 IS NOT INITIAL.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        INPUT  = LS_INPUT-ANLN1
      IMPORTING
        OUTPUT = LS_INPUT-ANLN1.
  ENDIF.

  IF LS_INPUT-ANLN2 IS NOT INITIAL.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        INPUT  = LS_INPUT-ANLN2
      IMPORTING
        OUTPUT = LS_INPUT-ANLN2.
  ENDIF.

  PERFORM FRM_GET_ASSETS_INFO TABLES LS_OUTPUT-DATA USING LS_INPUT.

  IF LS_OUTPUT-DATA IS INITIAL.
    LV_STATUS = 'E'.
    PERFORM FRM_SET_MSG TABLES LS_OUTPUT-MESSAGELIST
      USING 'E' '00' '001' '输入参数条件，没有查询到有效数据！'.
  ELSE.
    LV_STATUS = 'S'.
    PERFORM FRM_SET_MSG TABLES LS_OUTPUT-MESSAGELIST
      USING 'S' '00' '001' '查询数据成功！'.
  ENDIF.

  PERFORM FRM_WRITE_LOG_NEW
    USING 'FI0006' LS_OUTPUT I_DATA_GD I_INPUT E_OUTPUT LV_STATUS.

  CLEAR:LV_STATUS.
ENDFUNCTION.

FORM frm_set_msg  TABLES t_return STRUCTURE zsbc_msg
                  USING   u_type
                          u_id
                          u_number
                          u_message
         &n

查看全文

http://www.dtcms.com/a/598711.html