INTERACTIVE REPORT USING HIDE TECHNIQUE :
Hide maintains the copy of the previous list with output line numbers & their contents. When ever the user clicks on any record of any list then at line-selection event will be triggered & list index is increased by ‘1’ & that particular record will move from hide area to work area. Based on the work area we fetch the data for current list.
Note: - Hide is always maintain after write statement
Display sales doc no, doc date and vendor on the basic list. If the user double click any one of the
record then display sales doc no, item no, quantity, unit of measurement and price in the next list
PROGRAM:
*&---------------------------------------------------------------------*
*& Report ZR_INTA_REPORT_HIDE_TECHINIQUE
*&
*&---------------------------------------------------------------------*
REPORT ZR_INTA_REPORT_HIDE_TECHINIQUE.
Data V1 type EKKO-EBELN.
Select-options S_EBELN for V1.
Types: Begin of ty_ekko,
EBELN type EKKO-EBELN,
BEDAT type EKKO-BEDAT,
LIFNR type EKKO-LIFNR,
End of ty_ekko.
Data: wa_ekko type ty_ekko,
it_ekko type table of ty_ekko.
Types: Begin of ty_ekpo,
EBELN type EKPO-EBELN,
EBELP type EKPO-EBELP,
MENGE type EKPO-MENGE,
MEINS type EKPO-MEINS,
NETPR type EKPO-NETPR,
End of ty_ekpo.
Data: wa_ekpo type ty_ekpo,
it_ekpo type table of ty_ekpo.
Select EBELN
BEDAT
LIFNR
from EKKO
into table it_ekko
where EBELN in S_EBELN.
Loop at it_ekko into wa_ekko.
Write: / wa_ekko-EBELN,
wa_ekko-BEDAT,
wa_ekko-LIFNR.
Hide : wa_ekko-EBELN, wa_ekko-BEDAT, wa_ekko-LIFNR.
Endloop.
At line-selection.
If SY-LSIND = '1'.
Select EBELN
EBELP
MENGE
MEINS
NETPR
from EKPO
into table it_ekpo
where EBELN = wa_ekko-EBELN.
Loop at it_ekpo into wa_ekpo.
Write: / wa_ekpo-EBELN,
wa_ekpo-EBELP,
wa_ekpo-MENGE,
wa_ekpo-MEINS,
wa_ekpo-NETPR.
Endloop.
ENDIF.
OUTPUT:
Hide maintains the copy of the previous list with output line numbers & their contents. When ever the user clicks on any record of any list then at line-selection event will be triggered & list index is increased by ‘1’ & that particular record will move from hide area to work area. Based on the work area we fetch the data for current list.
Note: - Hide is always maintain after write statement
Display sales doc no, doc date and vendor on the basic list. If the user double click any one of the
record then display sales doc no, item no, quantity, unit of measurement and price in the next list
PROGRAM:
*&---------------------------------------------------------------------*
*& Report ZR_INTA_REPORT_HIDE_TECHINIQUE
*&
*&---------------------------------------------------------------------*
REPORT ZR_INTA_REPORT_HIDE_TECHINIQUE.
Data V1 type EKKO-EBELN.
Select-options S_EBELN for V1.
Types: Begin of ty_ekko,
EBELN type EKKO-EBELN,
BEDAT type EKKO-BEDAT,
LIFNR type EKKO-LIFNR,
End of ty_ekko.
Data: wa_ekko type ty_ekko,
it_ekko type table of ty_ekko.
Types: Begin of ty_ekpo,
EBELN type EKPO-EBELN,
EBELP type EKPO-EBELP,
MENGE type EKPO-MENGE,
MEINS type EKPO-MEINS,
NETPR type EKPO-NETPR,
End of ty_ekpo.
Data: wa_ekpo type ty_ekpo,
it_ekpo type table of ty_ekpo.
Select EBELN
BEDAT
LIFNR
from EKKO
into table it_ekko
where EBELN in S_EBELN.
Loop at it_ekko into wa_ekko.
Write: / wa_ekko-EBELN,
wa_ekko-BEDAT,
wa_ekko-LIFNR.
Hide : wa_ekko-EBELN, wa_ekko-BEDAT, wa_ekko-LIFNR.
Endloop.
At line-selection.
If SY-LSIND = '1'.
Select EBELN
EBELP
MENGE
MEINS
NETPR
from EKPO
into table it_ekpo
where EBELN = wa_ekko-EBELN.
Loop at it_ekpo into wa_ekpo.
Write: / wa_ekpo-EBELN,
wa_ekpo-EBELP,
wa_ekpo-MENGE,
wa_ekpo-MEINS,
wa_ekpo-NETPR.
Endloop.
ENDIF.
OUTPUT: