[ABAP] DMS: Dokumenteninfosatz zu Bestellung anlegen

* Bestellung: EBELN + EBELP
DATA: lv_objkey TYPE drad-objky VALUE '200000000000010'.

DATA: lv_return_code TYPE char255.
DATA: lv_vb_flag TYPE mcdok-cvhier.
DATA: it_tabdrad TYPE STANDARD TABLE OF drad WITH DEFAULT KEY.

* Allocate documents to object from application
CALL FUNCTION 'DOCUMENT_ASSIGNMENT'
  EXPORTING
    dokob          = 'EKPO'
    objky          = lv_objkey
    include_dynpro = '1337'
    opcode         = '2'       " 1=Anlegen 2=Ändern 3=Anzeigen
    program_name   = ' '       " SAPLMEGUI
  IMPORTING
    return_code    = lv_return_code
    vb_flag        = lv_vb_flag
  TABLES
    tabdrad        = it_tabdrad.

cl_demo_output=>write_data( lv_return_code ).
cl_demo_output=>write_data( lv_vb_flag ).
cl_demo_output=>write_data( it_tabdrad ).

* HTML-Code vom Demo-Output holen
DATA(lv_html) = cl_demo_output=>get( ).

* Daten im Inline-Browser im SAP-Fenster anzeigen
cl_abap_browser=>show_html( EXPORTING
                              title        = 'Daten'
                              html_string  = lv_html
                              container    = cl_gui_container=>default_screen ).

* cl_gui_container=>default_screen erzwingen
WRITE: space.