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

SAP SD 客户信用主数据查询接口分享

news 2025/10/20 9:33:47

一、接口逻辑

1）输入和输出参数

2）逻辑说明

二、接口代码

FUNCTION Z_FMSD_CREDIT_SEARCH.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(I_DATA_GD) TYPE  ZSBC_IF_GD OPTIONAL
*"     VALUE(I_INPUT) TYPE  STRING OPTIONAL
*"  EXPORTING
*"     VALUE(E_OUTPUT) TYPE  STRING
*"----------------------------------------------------------------------

  CALL FUNCTION 'ZFM_BREAK_POINT'  .

  "清空全局变量
  CLEAR:GV_INPUT_006,
        GV_OUTPUT_006,
        GV_STATUS_006.

  "清空输出变量
  CLEAR:E_OUTPUT.

  IF I_INPUT IS NOT INITIAL.

    CALL FUNCTION 'Z_FMBC_JSONTOABAP'
      EXPORTING
        I_JSON = I_INPUT
      IMPORTING
        E_DATA = GV_INPUT_006.

  ENDIF.

  IF GV_INPUT_006 IS INITIAL.
    PERFORM FRM_SET_MSG TABLES GV_OUTPUT_006-MESSAGELIST USING 'E' '00' '001' '请检查JSON结构与SAP ABAP结构是否一致！'.
    PERFORM FRM_WRITE_LOG_NEW  USING  'SD0006'
                                GV_OUTPUT_006
                                 I_DATA_GD
                                 I_INPUT
                                 E_OUTPUT
                                 'E'.
    EXIT.
  ENDIF.

  PERFORM FRM_CHECK_INPUT_06 TABLES GV_OUTPUT_006-MESSAGELIST.
  IF  GV_OUTPUT_006-MESSAGELIST[] IS  NOT INITIAL.
    PERFORM FRM_WRITE_LOG_NEW  USING  'SD0006'
                                     GV_OUTPUT_006
                                     I_DATA_GD
                                     I_INPUT
                                     E_OUTPUT
                                     'E'.
    EXIT.
  ENDIF.

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

  PERFORM FRM_GET_DATA_006.

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

  PERFORM FRM_WRITE_LOG_NEW  USING  'SD0006'
                             GV_OUTPUT_006
                             I_DATA_GD
                             I_INPUT
                             E_OUTPUT
                             GV_STATUS_006.

ENDFUNCTION.