ALV grid display

*&---------------------------------------------------------------------*
*&ReportZDEMO_ALVGRID*
*&*
*&---------------------------------------------------------------------*
*&*
*&ExampleofasimpleALVGridReport*
*&...................................*
*&*
*&Thebasicrequirementforthisdemoistodisplayanumberof*
*&fieldsfromtheEKKOtable.*
*&---------------------------------------------------------------------*
REPORTzdemo_alvgrid.

TABLES:ekko.

type-pools:slis."ALVDeclarations
*DataDeclaration
*----------------
TYPES:BEGINOFt_ekko,
ebelnTYPEekpo-ebeln,
ebelpTYPEekpo-ebelp,
statuTYPEekpo-statu,
aedatTYPEekpo-aedat,
matnrTYPEekpo-matnr,
mengeTYPEekpo-menge,
meinsTYPEekpo-meins,
netprTYPEekpo-netpr,
peinhTYPEekpo-peinh,
ENDOFt_ekko.

DATA:it_ekkoTYPESTANDARDTABLEOFt_ekkoINITIALSIZE0,
wa_ekkoTYPEt_ekko.

*ALVdatadeclarations
data:fieldcatalogtypeslis_t_fieldcat_alvwithheaderline,
gd_tab_grouptypeslis_t_sp_group_alv,
gd_layouttypeslis_layout_alv,
gd_repidlikesy-repid.


************************************************************************
*Start-of-selection.
START-OF-SELECTION.

performdata_retrieval.
performbuild_fieldcatalog.
performbuild_layout.
performdisplay_alv_report.


*&---------------------------------------------------------------------*
*&FormBUILD_FIELDCATALOG
*&---------------------------------------------------------------------*
*BuildFieldcatalogforALVReport
*----------------------------------------------------------------------*
formbuild_fieldcatalog.

*Thereareanumberofwaystocreateafieldcat.
*Forthepurposeofthisexampleiwillbuildthefieldcatalogmanualy
*bypopulatingtheinternaltablefieldsindividuallyandthen
*appendingtherows.Thismethodcanbethemosttimeconsumingbutcan
*alsoallowyoumorecontrolofthefinalproduct.

*Bewarethough,youneedtoensurethatallfieldsrequiredare
*populated.WhenusingsomeoffunctionalityavailableviaALV,suchas
*total.Youmayneedtoprovidemoreinformationthanifyouwere
*simplydisplayingtheresult
*I.e.Fieldtypemayberequiredin-orderfor
*the'TOTAL'functiontowork.

fieldcatalog-fieldname='EBELN'.
fieldcatalog-seltext_m='PurchaseOrder'.
fieldcatalog-col_pos=0.
fieldcatalog-outputlen=10.
fieldcatalog-emphasize='X'.
fieldcatalog-key='X'.
*fieldcatalog-do_sum='X'.
*fieldcatalog-no_zero='X'.
appendfieldcatalogtofieldcatalog.
clearfieldcatalog.

fieldcatalog-fieldname='EBELP'.
fieldcatalog-seltext_m='POItem'.
fieldcatalog-col_pos=1.
appendfieldcatalogtofieldcatalog.
clearfieldcatalog.

fieldcatalog-fieldname='STATU'.
fieldcatalog-seltext_m='Status'.
fieldcatalog-col_pos=2.
appendfieldcatalogtofieldcatalog.
clearfieldcatalog.

fieldcatalog-fieldname='AEDAT'.
fieldcatalog-seltext_m='Itemchangedate'.
fieldcatalog-col_pos=3.
appendfieldcatalogtofieldcatalog.
clearfieldcatalog.

fieldcatalog-fieldname='MATNR'.
fieldcatalog-seltext_m='MaterialNumber'.
fieldcatalog-col_pos=4.
appendfieldcatalogtofieldcatalog.
clearfieldcatalog.

fieldcatalog-fieldname='MENGE'.
fieldcatalog-seltext_m='POquantity'.
fieldcatalog-col_pos=5.
appendfieldcatalogtofieldcatalog.
clearfieldcatalog.

fieldcatalog-fieldname='MEINS'.
fieldcatalog-seltext_m='OrderUnit'.
fieldcatalog-col_pos=6.
appendfieldcatalogtofieldcatalog.
clearfieldcatalog.

fieldcatalog-fieldname='NETPR'.
fieldcatalog-seltext_m='NetPrice'.
fieldcatalog-col_pos=7.
fieldcatalog-outputlen=15.
fieldcatalog-do_sum='X'."Displaycolumntotal
fieldcatalog-datatype='CURR'.
appendfieldcatalogtofieldcatalog.
clearfieldcatalog.

fieldcatalog-fieldname='PEINH'.
fieldcatalog-seltext_m='PriceUnit'.
fieldcatalog-col_pos=8.
appendfieldcatalogtofieldcatalog.
clearfieldcatalog.
endform."BUILD_FIELDCATALOG


*&---------------------------------------------------------------------*
*&FormBUILD_LAYOUT
*&---------------------------------------------------------------------*
*BuildlayoutforALVgridreport
*----------------------------------------------------------------------*
formbuild_layout.
gd_layout-no_input='X'.
gd_layout-colwidth_optimize='X'.
gd_layout-totals_text='Totals'(201).
*gd_layout-totals_only='X'.
*gd_layout-f2code='DISP'."Setsfcodeforwhendouble
*"click(pressf2)
*gd_layout-zebra='X'.
*gd_layout-group_change_edit='X'.
*gd_layout-header_text='helllllo'.
endform."BUILD_LAYOUT


*&---------------------------------------------------------------------*
*&FormDISPLAY_ALV_REPORT
*&---------------------------------------------------------------------*
*DisplayreportusingALVgrid
*----------------------------------------------------------------------*
formdisplay_alv_report.
gd_repid=sy-repid.
callfunction'REUSE_ALV_GRID_DISPLAY'
exporting
i_callback_program=gd_repid
*i_callback_top_of_page='TOP-OF-PAGE'"seeFORM
*i_callback_user_command='USER_COMMAND'
*i_grid_title=outtext
is_layout=gd_layout
it_fieldcat=fieldcatalog[]
*it_special_groups=gd_tabgroup
*IT_EVENTS=GT_XEVENTS
i_save='X'
*is_variant=z_template

tables
t_outtab=it_ekko
exceptions
program_error=1
others=2.
ifsy-subrc<>0.
*MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO
*WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.
endif.
endform."DISPLAY_ALV_REPORT


*&---------------------------------------------------------------------*
*&FormDATA_RETRIEVAL
*&---------------------------------------------------------------------*
*RetrievedataformEKPOtableandpopulateitabit_ekko
*----------------------------------------------------------------------*
formdata_retrieval.

selectebelnebelpstatuaedatmatnrmengemeinsnetprpeinh
upto10rows
fromekpo
intotableit_ekko.
endform."DATA_RETRIEVAL

FROM:
http://www.sapdevelopment.co.uk/reporting/alv/alvgrid_basic.htm