* Adressnummer mit führenden Nullen
PARAMETERS: p_adr TYPE adrc-addrnumber.
START-OF-SELECTION.
DATA: lv_okcode TYPE sy-ucomm.
DATA: it_handle TYPE STANDARD TABLE OF addr1_dia WITH NON-UNIQUE DEFAULT KEY.
DATA: it_values TYPE STANDARD TABLE OF addr1_data WITH DEFAULT KEY.
* Adressgruppe aus der ADRC holen
SELECT SINGLE FROM adrc
FIELDS addr_group
WHERE addrnumber EQ @p_adr
INTO @DATA(lv_adr_grp).
it_handle = VALUE #( ( addrnumber = p_adr " Adressnummer aus er ADRC
maint_mode = 'DISPLAY' " Daten nur anzeigen, weitere Modi sind 'CREATE' und 'CHANGE'
country = 'DE' " Ausgabeformat
addr_group = lv_adr_grp " siehe Tabelle TSAD7 (Adreßgruppen (Business Address Services))
) ).
* Dialogpflege von Adressen
CALL FUNCTION 'ADDR_DIALOG'
IMPORTING
ok_code = lv_okcode
TABLES
number_handle_tab = it_handle
values = it_values
EXCEPTIONS
address_not_exist = 1
group_not_valid = 2
parameter_error = 3
internal_error = 4
OTHERS = 5.
IF sy-subrc = 0.
* Daten im Inline-Browser im SAP-Fenster anzeigen
cl_abap_browser=>show_html( EXPORTING
title = 'Adressdaten'
html_string = cl_demo_output=>new( )->write_data( lv_okcode )->write_data( it_values )->get( )
container = cl_gui_container=>default_screen ).
* cl_gui_container=>default_screen erzwingen
WRITE: space.
ENDIF.
Links