DAY 13 Assignment
*&---------------------------------------------------------------------*
*& Report Z22MAYCLASS_DAY12
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT z22mayclass_day13_new.
TABLES : zgstore.
DATA: it TYPE TABLE OF zgstore,
WA TYPE ZGSTORE.
DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
wa_fieldcat TYPE slis_fieldcat_alv.
SELECTION-SCREEN BEGIN OF block a3 with FRAME TITLE text-003.
parameters : cmcd type zgstore-COMPCD.
selection-SCREEN end of block a3.
SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.
DATA : CREA_TE TYPE zgstore-creato.
data : gpnos type zgstore-gpnumb.
SELECT-OPTIONS : GPNO for gpnos.
SELECT-OPTIONS: so_dateD FOR CREA_TE.
SELECTION-SCREEN END OF BLOCK a1.
SELECTION-SCREEN BEGIN OF BLOCK a2 WITH FRAME TITLE text-002.
PARAMETERS : r1 RADIOBUTTON GROUP GP DEFAULT 'X' USER-COMMAND gp ,
r2 RADIOBUTTON GROUP gp .
SELECTION-SCREEN END OF BLOCK a2.
If r1 = 'X'.
SELECT * FROM zgstore INTO TABLE @it WHERE GPASTY = 'RGP' AND creato IN @so_dateD and gpnumb in @gpno and COMPCD = @cmcd.
ELSEIF r2 = 'X'.
SELECT * FROM zgstore INTO TABLE it WHERE GPASTY = 'NRGP'
AND creato IN so_dateD and gpnumb in gpno and COMPCD = cmcd.
ENDIF.
wa_fieldcat-col_pos = 1.
wa_fieldcat-fieldname = 'COMPCD'.
Wa_fieldcat-seltext_l = 'Company code'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 2.
wa_fieldcat-fieldname = 'ISSDBY'.
Wa_fieldcat-seltext_l = 'Issued By '.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 3.
wa_fieldcat-fieldname = 'GPASTY'.
Wa_fieldcat-seltext_l = 'Gate Pass Type '.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 4.
wa_fieldcat-fieldname = 'GPNUMB'.
Wa_fieldcat-seltext_l = 'Gate Pass Number '.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 5.
wa_fieldcat-fieldname = 'CREATO'.
Wa_fieldcat-seltext_l = 'Created On. '.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 7.
wa_fieldcat-fieldname = 'EXPDRT'.
Wa_fieldcat-seltext_l = 'Expected date of Return '.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 6.
wa_fieldcat-fieldname = 'ISSPNT'.
Wa_fieldcat-seltext_l = 'Issuing Plant '.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 9.
wa_fieldcat-fieldname = 'RECPLT'.
Wa_fieldcat-seltext_l = 'Receiveing Plant '.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 8.
wa_fieldcat-fieldname = 'ACTQTY'.
Wa_fieldcat-seltext_l = 'Actual Quantity '.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 10.
wa_fieldcat-fieldname = 'AMOUNT'.
Wa_fieldcat-seltext_l = 'Amount. '.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 11.
wa_fieldcat-fieldname = 'MATRNN'.
Wa_fieldcat-seltext_l = 'Material Number '.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 12.
wa_fieldcat-fieldname = 'MATRNB'.
Wa_fieldcat-seltext_l = 'Material Description '.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 13.
wa_fieldcat-fieldname = 'ZSANBY'.
Wa_fieldcat-seltext_l = 'Sanction By. '.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 14.
wa_fieldcat-fieldname = 'SANDEG'.
Wa_fieldcat-seltext_l = 'Sanction Desig'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 15.
wa_fieldcat-fieldname = 'ISSDBY'.
Wa_fieldcat-seltext_l = 'Issued By '.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 17.
wa_fieldcat-fieldname = 'ZSTLO'.
Wa_fieldcat-seltext_l = 'Storage Location '.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 18.
wa_fieldcat-fieldname = 'VENCD'.
Wa_fieldcat-seltext_l = 'Vendor Code '.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 16.
wa_fieldcat-fieldname = 'VEDNA'.
Wa_fieldcat-seltext_l = 'Vendor Name '.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 2.
wa_fieldcat-fieldname = 'ISSDBY'.
Wa_fieldcat-seltext_l = 'Issued By '.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 2.
wa_fieldcat-fieldname = 'CUSTCD'.
Wa_fieldcat-seltext_l = 'Customer Code '.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
i_callback_program = sy-repid
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* I_CALLBACK_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
* I_BACKGROUND_ID = ' '
* I_GRID_TITLE =
* I_GRID_SETTINGS =
* IS_LAYOUT =
it_fieldcat = it_fieldcat
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
i_default = 'X'
* I_SAVE = ' '
* IS_VARIANT =
* IT_EVENTS =
* IT_EVENT_EXIT =
* IS_PRINT =
* IS_REPREP_ID =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* I_HTML_HEIGHT_TOP = 0
* I_HTML_HEIGHT_END = 0
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* IR_SALV_FULLSCREEN_ADAPTER =
* O_PREVIOUS_SRAL_HANDLER =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = it
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2
.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
