ABAP-供应商主数据创建（税号创建）

FUNCTION zmm_fm_21_02.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(IN) TYPE  ZSLIFNR_SRM
*"  EXPORTING
*"     VALUE(OUT) TYPE  ZSLIFNR_SRM
*"----------------------------------------------------------------------

  DATA: lt_return         LIKE bapiret2   OCCURS 0 WITH HEADER LINE.
  DATA: ls_return         LIKE bapiret2   .

* DATA: L_CUSTOMER TYPE KUNNR.
  DATA lv_taxnum TYPE dfkkbptaxnum-taxnum.
  CONSTANTS : gc_black  TYPE char04 VALUE '@EB@',
              gc_red    TYPE char04 VALUE '@0A@',
              gc_green  TYPE char04 VALUE '@08@',
              gc_yellow TYPE char04 VALUE '@09@'.


**  通过业务伙伴得到业务编号
*  PERFORM FRM_GET_CUSCD_FROM_PATCD USING GW_LIST-KUNNR CHANGING L_CUSTOMER.

  SELECT SINGLE taxnum FROM dfkkbptaxnum INTO lv_taxnum
      WHERE taxnum = in-taxnum AND partner = in-partner.
  IF sy-subrc = 0.
    in-icon_a  = gc_yellow.
    in-remark   = in-remark && '/' && '增值税号已经存在'.
  ELSE.

*   增值税信息增加
    CALL FUNCTION 'BAPI_BUPA_TAX_ADD'
      EXPORTING
        businesspartner = in-partner
        taxtype         = 'CN0'
        taxnumber       = in-taxnum
      TABLES
        return          = lt_return.

    LOOP AT lt_return WHERE type = 'A' OR type = 'E'.
      in-icon_a  = gc_yellow.
      in-remark = in-remark && '/' && lt_return-message.
    ENDLOOP.
    IF sy-subrc EQ 0.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
    ELSE.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait   = 'X'
        IMPORTING
          return = ls_return.
      IF ls_return-type = 'A' OR ls_return-type = 'E'.
        in-icon_a = gc_red.
        in-remark = in-remark && ls_return-message.

      ENDIF.
      IF in-icon_a NE gc_red.
        in-icon_a = gc_yellow.
        in-remark = in-remark && '/' && '已增加增值税号信息'.
      ENDIF.

    ENDIF.
  ENDIF.

  out = in.

ENDFUNCTION.