Sunday, December 11, 2011

SIMPLE ALV REPORT

REPORT  ZSIMPLEALVREPORT.


type-pools : slis.
data:   it_fieldcat type slis_t_fieldcat_alv,
        lt_top_of_page 
type slis_t_listheader,
        ls_layout      
type slis_layout_alv,
        gt_events      
type slis_t_event.

data : begin of t_lips occurs 0,
          vbeln 
type lips-vbeln ,
          brgew 
type lips-brgew,
       
end of t_lips.

data : begin of t_vttp occurs 0,
          vbeln 
type vttp-vbeln,
          tknum 
type vttp-tknum,
       
end of t_vttp.

data : begin of t_vttp2 occurs 0,
          brgew 
type lips-brgew,
          tknum 
type vttp-tknum,
       
end of t_vttp2.

data :  wa_fieldcat like line of it_fieldcat.

parameters : so like lips-vgbel.


start-
of-selection.
*****data selection part***
  
perform data_selection.
******data display*****
  
perform data_display.
*

form data_selection .

select
  vbeln
  brgew
  
from lips into CORRESPONDING FIELDS OF TABLE t_lips
  
WHERE vgbel = so.

   
SELECT  vbeln
           tknum
    
from vttp into CORRESPONDING FIELDS OF TABLE t_vttp
    
for ALL ENTRIES IN t_lips[]
    
where vbeln = t_lips-vbeln.

Loop at t_lips.
  
read table t_vttp WITH key vbeln = t_lips-vbeln.
     t_vttp2-brgew = t_lips-brgew.
     t_vttp2-tknum = t_vttp-tknum.
  
APPEND t_vttp2.
  
endloop.

endform.                    " DATA_SELECTION


form data_display .

  
perform get_values.
  
perform grid_display.

endform.                    " DATA_DISPLAY


form get_values .

  wa_fieldcat-fieldname = 
'BRGEW'.
  wa_fieldcat-ref_tabname = 
'T_VTTP2'.
  wa_fieldcat-seltext_l = 
'GROSS WEIGHT'.
  wa_fieldcat-outputlen = 
20.
  wa_fieldcat-col_pos     = 
'1'.
  
append wa_fieldcat to it_fieldcat.
  
clear wa_fieldcat.



  wa_fieldcat-fieldname = 
'TKNUM'.
  wa_fieldcat-ref_tabname = 
'T_VTTP2'.
  wa_fieldcat-seltext_l = 
'SHIPMENT NO.'.
  wa_fieldcat-outputlen = 
20.
  wa_fieldcat-col_pos     = 
'2'.
  
append wa_fieldcat to it_fieldcat.
  
clear wa_fieldcat.



endform.                    " GET_VALUES

form grid_display .

  
call function 'REUSE_ALV_GRID_DISPLAY'

  
exporting
    i_callback_program                = sy-cprog
    is_layout                         = ls_layout
    it_fieldcat                       = it_fieldcat[]

   it_events                         = gt_events[]
   
tables
     t_outtab                          = t_vttp2[]
 
exceptions
  program_error                     = 
1
  
others                            = 2
           .
  
if sy-subrc <> 0.

  
endif.


endform.                   

1 comment:

  1. Nice blog....For a long time I was looking for SAP ABAP training in Chennai and got the link


    THE CREATING EXPERTS is providing SAP BASIS training in real time

    http://thecreatingexperts.com/sap-abap-training-in-chennai/

    Contact 8122241286

    ReplyDelete