************************************************************************
* data define to be show *
* *
************************************************************************
TYPES : BEGIN OF T_BKPF,
BUKRS TYPE BKPF-BUKRS,"Company Code
BELNR TYPE BKPF-BELNR,"Accounting Document Number
GJAHR TYPE BKPF-GJAHR,"Fiscal Year
BLART TYPE BKPF-BLART,"Document Type
BLDAT TYPE BKPF-BLDAT,"Document Date in Document
BUDAT TYPE BKPF-BUDAT,"Posting Date in the Document
SEL TYPE C LENGTH 1,
END OF T_BKPF.
DATA: GT_DATA TYPE STANDARD TABLE OF T_BKPF WITH HEADER LINE,
GS_DATA TYPE T_BKPF.
************************************************************************
* fieldcat and layout define *
* *
************************************************************************
DATA: GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
GS_LAYOUT TYPE SLIS_LAYOUT_ALV.
SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT_B1.
PARAMETERS P_BUKRS TYPE BKPF-BUKRS.
PARAMETERS P_BELNR TYPE BKPF-BELNR.
PARAMETERS P_GJAHR TYPE BKPF-GJAHR.
PARAMETERS P_BLART TYPE BKPF-BLART.
SELECT-OPTIONS BLDAT FOR BKPF-BLDAT.
SELECT-OPTIONS BUDAT FOR BKPF-BUDAT.
PARAMETERS P_STY1 RADIOBUTTON GROUP G_S.
PARAMETERS P_STY2 RADIOBUTTON GROUP G_S.
SELECTION-SCREEN : END OF BLOCK B1.
AT SELECTION-SCREEN ON BLOCK B1. " ADD ON BLOCK EVENT.
" MESSAGE 'This is ADD ON BLOCK EVENT.' TYPE 'I'.[/free][hide]
AT SELECTION-SCREEN ON RADIOBUTTON GROUP G_S. " ADD ON RADIOBUTTON GROUP EVENT
" MESSAGE 'This is ADD ON RADIOBUTTON GROUP EVENT.' TYPE 'I'.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_BUKRS. " ADD ON F4 EVNET
" MESSAGE 'This is ADD ON F4 EVNET.' TYPE 'I'.
AT SELECTION-SCREEN ON HELP-REQUEST FOR P_BELNR. " ADD ON F1 EVENT
" MESSAGE 'This is ADD ON F1 EVENT.' TYPE 'I'.
AT SELECTION-SCREEN ON P_GJAHR. " ADD ON EVENT FOR FIELD
" MESSAGE 'This is ADD ON EVENT FOR FIELD FOR GJAHR.' TYPE 'I'.
*AT LINE-SELECTION.
* MESSAGE 'This is AT LINE-SELECTION.' TYPE 'I'.
*------------------------------
* FORM
*------------------------------
FORM INIT_ALV_SET_DATA. "INITIAL FIELDCAT AND LAYOUT AND SO ON.
PERFORM FIELDCAT_INIT.
PERFORM LAYOUT_INIT.
ENDFORM.
FORM FIELDCAT_INIT.
INITDATA_FIELDCAT :
'1' 'BUKRS' 'Company Code',
'2' 'BELNR' 'Accounting Document Number',
'3' 'GJAHR' 'Fiscal Year',
'4' 'BLART' 'Document Type',
'5' 'BLDAT' 'Document Date in Document',
'6' 'BUDAT' 'Posting Date in the Document'.
ENDFORM.