* Bestellung
PARAMETERS: p_ebeln TYPE ekko-ebeln.
START-OF-SELECTION.
* Retourenumlagerungsbestellungen zur Bestellung lesen
SELECT FROM ekko AS e
INNER JOIN ekpo AS p ON ( e~ebeln EQ p~ebeln )
* Verwendung von CAST und substring, da Belegposition unterschiedliche Typen (NUMC5 und NUMC10) verwendet
INNER JOIN msr_d_executed AS r ON ( p~ebeln EQ r~ref_doc_nr ) AND ( CAST( p~ebelp AS CHAR ) EQ substring( CAST( r~ref_doc_item AS CHAR ), 6, 5 ) )
FIELDS DISTINCT
e~ebeln,
p~ebelp,
p~matnr,
p~txz01,
p~menge,
p~meins,
p~netpr,
r~doc_nr,
r~doc_item
WHERE e~ebeln EQ @p_ebeln
INTO TABLE @DATA(it_ebeln).
IF sy-subrc = 0.
cl_demo_output=>write_data( it_ebeln ).
DATA(lv_html) = cl_demo_output=>get( ).
cl_abap_browser=>show_html( EXPORTING title = 'Daten'
html_string = lv_html
container = cl_gui_container=>default_screen ).
WRITE: space.
ENDIF.
Links