ABAP-供应商主数据创建（公司视图）

FUNCTION zmm_fm_21_04.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(IN) TYPE  ZSLIFNR_SRM
*"  EXPORTING
*"     VALUE(OUT) TYPE  ZSLIFNR_SRM
*"     REFERENCE(GV_ERR) TYPE  CHAR1
*"----------------------------------------------------------------------
  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@'.

  DATA: ls_phone TYPE cvis_ei_phone_str,
        ls_fax   TYPE cvis_ei_fax_str,
        ls_smtp  TYPE cvis_ei_smtp_str.
  DATA:lt_return LIKE bapiret2   OCCURS 0 WITH HEADER LINE.
  DATA: lv_lifnr TYPE lfa1-lifnr.

  CLEAR: lt_return,lt_return[].


  CALL FUNCTION 'BAPI_BUPA_ROLE_ADD_2'
    EXPORTING
      businesspartner             = in-partner
      businesspartnerrolecategory = 'FLVN00'
*     ALL_BUSINESSPARTNERROLES    = ' '
      businesspartnerrole         = 'FLVN00'
*     DIFFERENTIATIONTYPEVALUE    =
*     VALIDFROMDATE               =
*     VALIDUNTILDATE              = '99991231'
    TABLES
      return                      = lt_return.

  LOOP AT lt_return WHERE type = 'A' OR type = 'E'.

*     GW_LIST-ICON = GC_RED.
*     GW_LIST-MSG  = LT_RETURN-MESSAGE.

    gv_err = 'X'.
    EXIT.
  ENDLOOP.

  IF gv_err = 'X'.
*    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
*    RETURN.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
  ENDIF.

  DATA: lt_master_data TYPE vmds_ei_main,
        ls_master_data TYPE vmds_ei_extern,
        ls_company     TYPE vmds_ei_company.

  CLEAR: ls_master_data,ls_company,lt_master_data.


  ls_master_data-header-object_task              = 'M'.
  ls_master_data-header-object_instance-lifnr    = in-partner.

  DATA:lv_ktokk2 TYPE tbc001-ktokk.
  CLEAR lv_ktokk2.
  SELECT SINGLE ktokk FROM tbc001 INTO lv_ktokk2 WHERE bu_group = in-bu_group.
  ls_master_data-central_data-central-data-ktokk  = lv_ktokk2. "供应商帐户组
  ls_master_data-central_data-central-datax-ktokk = 'X'. "供应商帐户组
*
*  LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-NAME         = in-NAME_ORG1.      "名称1
*  LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-NAME_2       = in-NAME_ORG2.      "名称2
*  LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-SORT1        = in-BU_SORT1.       "属性（SAP为搜索项 1）
**      LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-SORT2        = in-BU_SORT2.       "属性（SAP为搜索项 2）
*  LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-STREET       = in-STREET.         "街道/门牌号
*  LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-POSTL_COD1   = in-POST_CODE1.     "邮政编码
*  LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-CITY         = in-CITY1.          "城市
*  LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-COUNTRY      = in-LAND1.          "国家
*  LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-REGION       = in-REGIO.          "地区
*  LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-LANGU        = '1'.                   "语言
*
*  LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-NAME         = 'X'.                  "名称1
*  LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-NAME_2       = 'X'.                  "名称2
*  LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-SORT1        = 'X'.                  "属性（SAP为搜索项 1）
*  LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-STREET       = 'X'.                  "街道/门牌号
*  LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-POSTL_COD1   = 'X'.                  "邮政编码
*  LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-CITY         = 'X'.                  "城市
*  LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-COUNTRY      = 'X'.                  "国家
*  LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-REGION       = 'X'.                  "地区
*  LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-LANGU        = 'X'.                  "语言

*    LS_MASTER_DATA-COMPANY_DATA-COMPANY            = ''.                      "COMPANY关联类型即LS_COMPANY的关联类型
  SELECT SINGLE lifnr
    INTO lv_lifnr
    FROM lfa1
    WHERE lifnr = in-partner.
  IF sy-subrc <> 0.
    ls_master_data-central_data-address-task = 'I'.
    ls_master_data-central_data-address-postal-data-title       = in-title_key.  " 地址关键字的表格
    ls_master_data-central_data-address-postal-datax-title      = 'X'.
    ls_master_data-central_data-address-postal-data-name        = in-name_org1.  " 名称1
    ls_master_data-central_data-address