SAP SM30及ABAP维护ADRC中央地址主数据（BAS）

DeveloperMrMeng

已于 2023-11-28 11:25:39 修改

阅读量2k

点赞数 21

分类专栏： SAP技术小知识文章标签： SAP ERP ADRC SAP地址主数据 SM30 ABAP BAS

于 2023-11-28 11:22:50 首次发布

本文链接：https://blog.csdn.net/developermrmeng/article/details/134662167

版权

SAP技术小知识专栏收录该内容

61 篇文章 31 订阅

订阅专栏

文章背景：

项目组员在创建SM30的时候，发现了下图的报错，原因是因为自建表中的地址编号ADRNR字段使用了标准的数据元素AD_ADDRNUM，当使用包含该数据元素的视图在SM30进行维护时，就会出现下面的报错AM287。

后续了解到，项目成员的需求这里要维护的地址编号并不是ADRC中的地址主数据，而是一个流水号用于区分业务信息，所以改成其他自定义数据元素后重新生成视图即可解决该问题。

正文：

再回到这个问题进一步了解后发现，这里是可以直接维护ADRC中地址主数据的信息的，又称之为中央地址管理（Business Address Services），如果想要在SM30维护地址信息，就需要按照上图的提示去做进一步配置，配置如下：

自建表信息：

SM30:TSADRV

SM30:TSAD7

添加完上面两个配置后，重新生成维护视图，即可发现，不会有之前的报错，并且SM30标准界面上方出现了一个按钮。

点击这个按钮，即可进行地址主数据信息的维护，并将信息更新回ADRC表中，不过ADRNR字段是会被标准逻辑隐藏起来的。

点击维护地址按钮，就会发现，跟前台标准事务代码中维护地址信息的窗口是一样的。

这让我想起了之前业务顾问提到的一个需求，想在标准界面的增强页签中添加一个这样的按钮，用来维护客户的自定义地址信息，当时觉得可能没那么好做，不过在对SM30这个按钮进行调试后，发现其实并不难实现，主要使用的函数包含下面几个：

ADDR_DIALOG：根据参数maint_mode决定弹窗显示的形式（CREATE / CHANGE / DISPLAY）

ADDR_MEMORY_CLEAR：实际写代码测试发现如果是新增自定义地址主数据之前，需要清空掉一些缓存，否则会有报错，调用该函数可以进行清空。

ADDR_INSERT：地址主数据创建。

ADDR_UPDATE：地址主数据修改。

ADDR_DELETE：地址主数据删除（未测试）。

ADDR_NUMBER_GET：创建之后，使用该函数来获取内存中生成的地址主数据编号ADRNR。

ADDR_SINGLE_SAVE：传入地址编号，进行数据库提交保存。

测试程序：

以下为测试demo程序，用来模拟当初那个需求的实现，逻辑并没有写的很严谨，只是为了测试可行性。

主要测试逻辑为：当地址号为空时，点击按钮会进行创建，创建完成后将地址号反写回屏幕，再次点击按钮时，如果地址号有值，则以显示模式或者更改模式呼出弹窗。

测试源码：

*&---------------------------------------------------------------------*
*& Report ZTESTADRC_DIALOG
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ztestadrc_dialog.

TYPES:
  tt_handle TYPE STANDARD TABLE OF addr1_dia,
  tt_values TYPE STANDARD TABLE OF addr1_data.

DATA:
  gv_adrnr  TYPE adrc-addrnumber,
  gv_okcode TYPE sy-ucomm,
  okcode    TYPE sy-ucomm.

CALL SCREEN 9000.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9000  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_9000 INPUT.
  gv_okcode = okcode.
  CLEAR okcode.

  CASE gv_okcode.
    WHEN 'BACK'.
      LEAVE PROGRAM.
    WHEN 'MAINTAIN'.
      PERFORM frm_maintain_adrc.
    WHEN OTHERS.
  ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module STATUS_9000 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_9000 OUTPUT.
  IF gv_adrnr IS NOT INITIAL.
    LOOP AT SCREEN.
      IF screen-name = 'GV_ADRNR'.
        screen-input = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Form frm_maintain_adrc
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
FORM frm_maintain_adrc .
  DATA:
    lv_mode    TYPE addr1_dia-maint_mode,
    lt_handle  TYPE STANDARD TABLE OF addr1_dia,
    ls_handle  TYPE addr1_dia,
    lt_values  TYPE STANDARD TABLE OF addr1_data,
    ls_values  TYPE addr1_data,
    lv_ok_code TYPE sy-ucomm.

  IF gv_adrnr IS INITIAL.
    lv_mode = 'CREATE'.
  ELSE.
*    lv_mode = 'CHANGE'.
    lv_mode = 'DISPLAY'.
  ENDIF.

  CASE lv_mode.
    WHEN 'CREATE'.
      ls_handle-handle     = 'TEST_CREATE'.
      ls_handle-maint_mode = lv_mode.
      ls_handle-addr_group = 'ZA01'.
    WHEN 'CHANGE'.
      ls_handle-addrnumber = gv_adrnr.
      ls_handle-maint_mode = lv_mode.
      ls_handle-addr_group = 'ZA01'.
    WHEN 'DISPLAY'.
      ls_handle-addrnumber = gv_adrnr.
      ls_handle-maint_mode = lv_mode.
      ls_handle-addr_group = 'ZA01'.
    WHEN OTHERS.
  ENDCASE.

  APPEND ls_handle TO lt_handle.
  CLEAR ls_handle.

* Maintain address info
  CALL FUNCTION 'ADDR_DIALOG'
*   EXPORTING
*     CHECK_ADDRESS                     = 'X'
*     SUPPRESS_TAXJURCODE_CHECK         = ' '
*     IV_TIME_DEPENDENT_COMM_DATA       = ' '
    IMPORTING
      ok_code           = lv_ok_code
    TABLES
      number_handle_tab = lt_handle
      values            = lt_values
    EXCEPTIONS
      address_not_exist = 1
      group_not_valid   = 2
      parameter_error   = 3
      internal_error    = 4
      OTHERS            = 5.

  IF sy-subrc <> 0.
*   Implement suitable error handling here
  ENDIF.

  CASE lv_mode.
    WHEN 'CREATE'.
      PERFORM frm_adrc_insert USING lt_handle lt_values.
    WHEN 'CHANGE'.
      PERFORM frm_adrc_update USING lt_handle lt_values.
    WHEN OTHERS.
  ENDCASE.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form frm_ADRC_INSERT
*&---------------------------------------------------------------------*
*& Insert new records
*&---------------------------------------------------------------------*
*&      --> LT_VALUES
*&---------------------------------------------------------------------*
FORM frm_adrc_insert  USING ut_handle TYPE tt_handle
                            ut_values TYPE tt_values.
  DATA:
    ls_hanle   TYPE addr1_dia,
    ls_values  TYPE addr1_data,
    ls_addrref TYPE addr_ref.

  READ TABLE ut_handle INTO ls_hanle INDEX 1.
  READ TABLE ut_values INTO ls_values INDEX 1.

*  CALL FUNCTION 'ADDR_MEMORY_CLEAR_COMMIT_WORK'.

  CALL FUNCTION 'ADDR_MEMORY_CLEAR'
    EXPORTING
      force              = 'X'
    EXCEPTIONS
      unsaved_data_exist = 1
      internal_error     = 2
      OTHERS             = 3.
  IF sy-subrc <> 0.
*   Implement suitable error handling here
  ENDIF.


  CALL FUNCTION 'ADDR_INSERT'
    EXPORTING
      address_data    = ls_values
      address_group   = ls_hanle-addr_group
      address_handle  = ls_hanle-handle
    EXCEPTIONS
      address_exists  = 1
      parameter_error = 2
      internal_error  = 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.

    CASE sy-subrc.
      WHEN 1.
        RAISE address_exists.
      WHEN 2.
        RAISE parameter_error.
      WHEN 3 OR 4.
        RAISE internal_error.
    ENDCASE.
  ELSE.
    ls_addrref-appl_table = 'ADRC'.
    ls_addrref-appl_field = 'ADDRNUMBER'.
    ls_addrref-appl_key(3) = sy-mandt.
    ls_addrref-addr_group = 'ZA01'.

    CALL FUNCTION 'ADDR_NUMBER_GET'
      EXPORTING
        address_handle           = ls_hanle-handle
        address_reference        = ls_addrref
      IMPORTING
        address_number           = gv_adrnr
      EXCEPTIONS
        address_handle_not_exist = 1
        internal_error           = 2
        parameter_error          = 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.

      CASE sy-subrc.
        WHEN 1.
          RAISE address_exists.
        WHEN 2.
          RAISE parameter_error.
        WHEN 3 OR 4.
          RAISE internal_error.
      ENDCASE.
    ELSE.
      CALL FUNCTION 'ADDR_SINGLE_SAVE'
        EXPORTING
          address_number         = gv_adrnr
        EXCEPTIONS
          address_not_exist      = 1
          person_not_exist       = 2
          address_number_missing = 3
          reference_missing      = 4
          internal_error         = 5
          database_error         = 6
          parameter_error        = 7
          OTHERS                 = 8.

      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid
              TYPE sy-msgty
            NUMBER sy-msgno
              WITH sy-msgv1
                   sy-msgv2
                   sy-msgv3
                   sy-msgv4.

        CASE sy-subrc.
          WHEN 1.
            RAISE address_not_exist.
          WHEN 2.
            RAISE person_not_exist.
          WHEN 3.
            RAISE address_number_missing.
          WHEN 4.
            RAISE reference_missing.
          WHEN 5 OR 8.
            RAISE internal_error.
          WHEN 6.
            RAISE database_error.
          WHEN 7.
            RAISE parameter_error.
        ENDCASE.
      ELSE.
        MESSAGE |{ gv_adrnr } create successed| TYPE 'S'.
      ENDIF.
    ENDIF.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_ADRC_UPDATE
*&---------------------------------------------------------------------*
*& Update address records
*&---------------------------------------------------------------------*
*&      --> LT_VALUES
*&---------------------------------------------------------------------*
FORM frm_adrc_update  USING ut_handle TYPE tt_handle
                            ut_values TYPE tt_values.
  DATA:
    ls_hanle   TYPE addr1_dia,
    ls_values  TYPE addr1_data,
    ls_addrref TYPE addr_ref.

  READ TABLE ut_handle INTO ls_hanle INDEX 1.
  READ TABLE ut_values INTO ls_values INDEX 1.

  CALL FUNCTION 'ADDR_UPDATE'
    EXPORTING
      address_data    = ls_values
      address_number  = gv_adrnr
      address_handle  = ls_hanle-handle
    EXCEPTIONS
      address_exists  = 1
      parameter_error = 2
      internal_error  = 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.

    CASE sy-subrc.
      WHEN 1.
        RAISE address_exists.
      WHEN 2.
        RAISE parameter_error.
      WHEN 3 OR 4.
        RAISE internal_error.
    ENDCASE.
  ELSE.
    CALL FUNCTION 'ADDR_SINGLE_SAVE'
      EXPORTING
        address_number         = gv_adrnr
      EXCEPTIONS
        address_not_exist      = 1
        person_not_exist       = 2
        address_number_missing = 3
        reference_missing      = 4
        internal_error         = 5
        database_error         = 6
        parameter_error        = 7
        OTHERS                 = 8.

    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid
            TYPE sy-msgty
          NUMBER sy-msgno
            WITH sy-msgv1
                 sy-msgv2
                 sy-msgv3
                 sy-msgv4.

      CASE sy-subrc.
        WHEN 1.
          RAISE address_not_exist.
        WHEN 2.
          RAISE person_not_exist.
        WHEN 3.
          RAISE address_number_missing.
        WHEN 4.
          RAISE reference_missing.
        WHEN 5 OR 8.
          RAISE internal_error.
        WHEN 6.
          RAISE database_error.
        WHEN 7.
          RAISE parameter_error.
      ENDCASE.
    ELSE.
      MESSAGE |{ gv_adrnr } update successed| TYPE 'S'.
    ENDIF.
  ENDIF.
ENDFORM.