ABAP 获取客户供应商的电话，地址，email等相关信息

例子获取销售订单we的地址信息

  DATA: lv_message TYPE char255.

  DATA: ls_selection LIKE addr1_sel,
        ls_central_addr LIKE addr1_val.
  SELECT SINGLE adrnr INTO  gs_out-adrnr_cso  FROM vbpa WHERE vbeln = gs_out-vbeln_cso AND posnr = '000000'
        AND parvw = 'WE'.

  IF sy-subrc = 0.
    CLEAR: ls_selection,ls_central_addr.
    ls_selection-addrnumber = gs_out-adrnr_cso.
    CALL FUNCTION 'ADDR_GET'
      EXPORTING
        address_selection = ls_selection
      IMPORTING
        address_value     = ls_central_addr
      EXCEPTIONS
        parameter_error   = 1
        OTHERS            = 2.