GoodleAds

INTERACTIVE REPORT USING HIDE TECHNIQUE

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.
TypesBegin of ty_ekko,
       EBELN 
type EKKO-EBELN,
       BEDAT 
type EKKO-BEDAT,
       LIFNR 
type EKKO-LIFNR,
       
End of ty_ekko.
Datawa_ekko type ty_ekko,
      it_ekko 
type table of ty_ekko.
TypesBegin 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.
Datawa_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.
 
Writewa_ekko-EBELN,
          wa_ekko
-BEDAT,
          wa_ekko
-LIFNR.

 
Hide : wa_ekko-EBELNwa_ekko-BEDATwa_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.
 
Writewa_ekpo-EBELN,
          wa_ekpo
-EBELP,
          wa_ekpo
-MENGE,
          wa_ekpo
-MEINS,
          wa_ekpo
-NETPR.
 
Endloop.
 
ENDIF.


OUTPUT:



No comments:

Post a Comment