Interactive reports
REPORT zajay_in_report.
TABLES:ekpo,ekko.
TYPES: BEGIN OF ty_ekko,
ebeln TYPE ekko-ebeln,
bukrs TYPE ekko-bukrs,
bsart TYPE ekko-bsart,
END OF ty_ekko,
BEGIN OF ty_ekpo,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
aedat TYPE ekpo-aedat,
txz01 TYPE ekpo-txz01,
END OF ty_ekpo.
DATA: it_ekko TYPE TABLE OF ty_ekko,
it_ekpo TYPE TABLE OF ty_ekpo,
wa_ekko TYPE ty_ekko,
wa_ekpo TYPE ty_ekpo.
SELECT-OPTIONS: p_ebeln for ekko-ebeln.
SELECT ebeln
bukrs
bsart
FROM ekko
INTO TABLE it_ekko
WHERE ebeln in p_ebeln.
write : 'Doc_num' ,12 'com_code' ,20 'Doc_type'.
LOOP AT it_ekko INTO wa_ekko.
WRITE: / wa_ekko-ebeln,
wa_ekko-bukrs,
wa_ekko-bsart.
HIDE: wa_ekko-ebeln.
ENDLOOP.
AT LINE-SELECTION.
SELECT ebeln
ebelp
aedat
txz01
FROM ekpo
INTO TABLE it_ekpo
WHERE ebeln = wa_ekko-ebeln.
write : 'Doc_num' ,10 'Item_num' ,19 'Item_ch_date', 35 'short_text'.
LOOP AT it_ekpo INTO wa_ekpo.
WRITE:/ wa_ekpo-ebeln,
wa_ekpo-ebelp,
wa_ekpo-aedat,
wa_ekpo-txz01.
ENDLOOP.
Input
Output
Comments
Post a Comment