Before REPORT ypractice_501.
After REPORT ypractice_502.
Before TABLES : mara, makt, t006a.
After TABLES : t023t, mara, makt, t006a.
... TABLES : t023t, mara, makt, t006a.
INCLUDE YPRACTICE_503_ALV. *INCLUDE ypractice_501_alv.
*----------------------------------------------------------------------* *GLOBAL VARIABLE DECRALATION *----------------------------------------------------------------------* TYPES: BEGIN OF ty_header, ...
Before TYPES: BEGIN OF ty_header, matkl LIKE mara-matkl, " Material Group matnr LIKE mara-matnr, " Material Number maktx LIKE makt-maktx, " Material Description bismt LIKE mara-bismt, " Old material number meins LIKE mara-meins, " Base Unit of Measure mseht LIKE t006a-mseht, " Unit of Measurement Text END OF ty_header.
DATA: gi_header TYPE STANDARD TABLE OF ty_header WITH HEADER LINE, gi_makt LIKE STANDARD TABLE OF makt WITH HEADER LINE, gi_t006a LIKE STANDARD TABLE OF t006a WITH HEADER LINE.
After TYPES : BEGIN OF ty_header, chbox, exp, matkl LIKE t023t-matkl, wgbez LIKE t023t-wgbez, END OF ty_header.
TYPES: BEGIN OF ty_detail, matkl LIKE mara-matkl, " Material Group matnr LIKE mara-matnr, " Material Number maktx LIKE makt-maktx, " Material Description bismt LIKE mara-bismt, " Old material number meins LIKE mara-meins, " Base Unit of Measure mseht LIKE t006a-mseht, " Unit of Measurement Text END OF ty_detail.
DATA: gi_header TYPE STANDARD TABLE OF ty_header WITH HEADER LINE, gi_detail TYPE STANDARD TABLE OF ty_detail WITH HEADER LINE, gi_makt LIKE STANDARD TABLE OF makt WITH HEADER LINE, gi_t006a LIKE STANDARD TABLE OF t006a WITH HEADER LINE.
Before * Collect Master Material SELECT matnr matkl bismt meins INTO CORRESPONDING FIELDS OF TABLE gi_header FROM mara WHERE matkl IN so_matkl AND matnr IN so_matnr.
* "For SAP 4.6C * DATA : lv_total_data type i. * DESCRIBE TABLE gi_header LINES lv_total_data. * IF lv_total_data > 0.
IF LINES( gi_header ) > 0." For SAP 4.7 above * Collect Material Decription SELECT matnr maktx INTO CORRESPONDING FIELDS OF TABLE gi_makt FROM makt FOR ALL ENTRIES IN gi_header WHERE matnr = gi_header-matnr AND spras = sy-langu.
* Collect Measurement Text SELECT msehi mseht INTO CORRESPONDING FIELDS OF TABLE gi_t006a FROM t006a FOR ALL ENTRIES IN gi_header WHERE msehi = gi_header-meins AND spras = sy-langu. ENDIF.
* Notes : * Avoid using inner join
After *Collect Material Group SELECT matkl wgbez INTO CORRESPONDING FIELDS OF TABLE gi_header FROM t023t WHERE matkl IN so_matkl AND spras = sy-langu.
* "For SAP 4.6C * DATA : lv_total_data type i. * DESCRIBE TABLE gi_header LINES lv_total_data. * IF lv_total_data > 0.
IF LINES( gi_header ) > 0." For SAP 4.7 above * Collect Master Material SELECT matnr matkl bismt meins INTO CORRESPONDING FIELDS OF TABLE gi_detail FROM mara FOR ALL ENTRIES IN gi_header WHERE matkl = gi_header-matkl AND matnr IN so_matnr.
IF LINES( gi_detail ) > 0." For SAP 4.7 above * Collect Material Decription SELECT matnr maktx INTO CORRESPONDING FIELDS OF TABLE gi_makt FROM makt FOR ALL ENTRIES IN gi_detail WHERE matnr = gi_detail-matnr AND spras = sy-langu.
* Collect Measurement Text SELECT msehi mseht INTO CORRESPONDING FIELDS OF TABLE gi_t006a FROM t006a FOR ALL ENTRIES IN gi_detail WHERE msehi = gi_detail-meins AND spras = sy-langu. ENDIF. ENDIF.
* Notes : * Avoid using inner join
Before *Get other requirement information LOOP AT gi_header. * Get Material Description READ TABLE gi_makt WITH KEY matnr = gi_header-matnr. IF sy-subrc = 0. gi_header-maktx = gi_makt-maktx. ENDIF.
* Get Measurement Text READ TABLE gi_t006a WITH KEY msehi = gi_header-meins. IF sy-subrc = 0. gi_header-mseht = gi_t006a-mseht. ENDIF.
MODIFY gi_header. ENDLOOP.
After *Get other requirement information LOOP AT gi_detail. * Get Material Description READ TABLE gi_makt WITH KEY matnr = gi_detail-matnr. IF sy-subrc = 0. gi_detail-maktx = gi_makt-maktx. ENDIF.
* Get Measurement Text READ TABLE gi_t006a WITH KEY msehi = gi_detail-meins. IF sy-subrc = 0. gi_detail-mseht = gi_t006a-mseht. ENDIF.
MODIFY gi_detail. ENDLOOP.
FORM fm_build_keyinfo USING fu_keyinfo TYPE slis_keyinfo_alv .
ENDFORM.
fu_keyinfo-header01 = 'MATKL'. * fu_keyinfo-header02 = 'VKORG'. * fu_keyinfo-header03 = 'VTWEG'. * fu_keyinfo-header04 = 'NETWR'. * fu_keyinfo-header05 = 'WAERK'.
fu_keyinfo-item01 = 'MATKL'. * fu_keyinfo-item02 = 'POSNR'. * fu_keyinfo-item03 = 'VTWEG'. * fu_keyinfo-item04 = 'SPART'. * fu_keyinfo-item05 = 'NORM'.
Before gw_is_print TYPE slis_print_alv, gw_is_reprep_id TYPE slis_reprep_id.
After gw_is_print TYPE slis_print_alv, gw_is_reprep_id TYPE slis_reprep_id, gw_alv_keyinfo TYPE slis_keyinfo_alv.
Before FORM fm_alv_set_layout USING fu_title. gw_is_layout-window_titlebar = fu_title. gw_is_layout-zebra = 'X'. gw_is_layout-colwidth_optimize = 'X'. gw_is_layout-no_colhead = space. gw_is_layout-group_change_edit = 'X'. * gw_is_layout-box_fieldname = 'CHBOX'.
ENDFORM.
After FORM fm_alv_set_layout USING fu_title. gw_is_layout-window_titlebar = fu_title. gw_is_layout-zebra = 'X'. gw_is_layout-colwidth_optimize = 'X'. gw_is_layout-no_colhead = space. gw_is_layout-group_change_edit = 'X'. * gw_is_layout-box_fieldname = 'CHBOX'.
gw_is_layout-BOX_FIELDNAME = 'CHBOX'. gw_is_layout-BOX_TABNAME = 'GI_HEADER'. gw_is_layout-EXPAND_FIELDNAME = 'EXP'. gw_is_layout-EXPAND_ALL = 'X'.
ENDFORM.
PERFORM fm_build_keyinfo USING gw_alv_keyinfo.
CLEAR gi_it_event_exit. gi_it_event_exit-ucomm = '&OUP'. gi_it_event_exit-after = 'X'. APPEND gi_it_event_exit.
CLEAR gi_it_event_exit. gi_it_event_exit-ucomm = '&ODN'. gi_it_event_exit-after = 'X'. APPEND gi_it_event_exit.
CLEAR gi_it_event_exit. gi_it_event_exit-ucomm = '&ETA'. gi_it_event_exit-after = 'X'. APPEND gi_it_event_exit.
CLEAR gi_it_event_exit. gi_it_event_exit-ucomm = '&IC1'. gi_it_event_exit-after = 'X'. APPEND gi_it_event_exit.
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY' EXPORTING * I_INTERFACE_CHECK = ' ' i_callback_program = sy-repid i_callback_pf_status_set = 'FM_ALV_SET_PF_STATUS' i_callback_user_command = 'FM_ALV_USER_COMMAND' is_layout = gw_is_layout it_fieldcat = gi_it_fieldcat[] it_sort = gi_it_sort[] it_filter = gi_it_filter[] is_sel_hide = gw_is_sel_hide i_default = gv_i_default i_save = gv_i_save is_variant = gw_is_variant it_events = gi_it_events[] it_event_exit = gi_it_event_exit[] is_print = gw_is_print is_reprep_id = gw_is_reprep_id * I_SCREEN_START_COLUMN = 0 i_tabname_header = 'GI_HEADER' i_tabname_item = 'GI_DETAIL' is_keyinfo = gw_alv_keyinfo TABLES t_outtab_header = ft_header t_outtab_item = ft_detail.
IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.
form fm_alv_add_fieldcat using fu_0 fu_1 fu_2 fu_3 fu_4 fu_5 fu_6 fu_7 fu_8 fu_9 fu_10 fu_11 fu_12 fu_13 fu_14 fu_15 fu_16 fu_17 fu_18 fu_19 fu_20 fu_21.
clear: gi_it_fieldcat. gi_it_fieldcat-tabname = fu_0. " Tablename << Sisipkan sintak ini gi_it_fieldcat-fieldname = fu_1. " Fieldname gi_it_fieldcat-ref_tabname = fu_2. " Reference Tablename gi_it_fieldcat-ref_fieldname = fu_3. " Reference Fieldname gi_it_fieldcat-no_out = fu_4. " (O)blig.(X)no out gi_it_fieldcat-outputlen = fu_5. " Output length gi_it_fieldcat-seltext_l = fu_6. " long key word gi_it_fieldcat-seltext_m = fu_7. " middle key word gi_it_fieldcat-seltext_s = fu_8. " short key word gi_it_fieldcat-reptext_ddic = fu_9. " heading (ddic) gi_it_fieldcat-round = fu_10. " round in write statement gi_it_fieldcat-do_sum = fu_11. " sum up gi_it_fieldcat-hotspot = fu_12. " 'X' = hotspot is active -> Event click gi_it_fieldcat-decimals_out = fu_13. " decimals in write statement gi_it_fieldcat-currency = fu_14. gi_it_fieldcat-quantity = fu_15. gi_it_fieldcat-qfieldname = fu_16. " field with quantity unit gi_it_fieldcat-cfieldname = fu_17. " field with currency unit gi_it_fieldcat-checkbox = fu_18. " 'X' = checkbox or ' ' = not checkbox gi_it_fieldcat-icon = fu_19. " 'X' = icon or ' ' = not icon gi_it_fieldcat-fix_column = fu_20. " 'X' = Fix Column On or ' ' = Fix Column off gi_it_fieldcat-key = &21. " gi_it_fieldcat-key = fu_21. " 'X' = Key or ' ' = not Key
append gi_it_fieldcat. endform.
Before ... PERFORM fm_alv_show TABLES gi_header. .. After ... PERFORM fm_alv_show_hier TABLES gi_header gi_detail. ...
Before * Displaying Column by Fieldname PERFORM fm_alv_add_fieldcat USING : 'MATKL' 'MARA' 'MATKL' '' '' 'Mat. Group' '' '' '' '' '' '' '' '' '' '' '' '' '' 'X' 'X', 'MATNR' 'MARA' 'MATNR' '' '' 'Mat. Number' '' '' '' '' '' '' '' '' '' '' '' '' '' 'X' 'X', 'MAKTX' 'MAKT' 'MAKTX' '' '' 'Decription' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '', 'BISMT' 'MARA' 'BISMT' '' '' 'Old Mat. No' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '', 'MEINS' 'MARA' 'MEINS' '' '' 'Base Unit' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '', 'MSEHT' 'T006A' 'MSEHT' '' '' 'Measure' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''.
After * Set Header Column PERFORM fm_alv_add_fieldcat USING 'GI_HEADER': 'MATKL' 'T023T' 'MATKL' '' '' 'Mat. Group' '' '' '' '' '' '' '' '' '' '' '' '' '' 'X' 'X', 'WGBEZ' 'T023T' 'WGBEZ' '' '' 'Mat. Number' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE' EXPORTING i_internal_tabname = 'GI_HEADER' * i_structure_name = '' CHANGING ct_fieldcat = gi_it_fieldcat[] EXCEPTIONS inconsistent_interface = 1 program_error = 2 OTHERS = 3.
* Set Detail Column PERFORM fm_alv_add_fieldcat USING 'GI_DETAIL': 'MATKL' 'MARA' 'MATKL' '' '' 'Mat. Group' '' '' '' '' '' '' '' '' '' '' '' '' '' 'X' 'X', 'MATNR' 'MARA' 'MATNR' '' '' 'Mat. Number' '' '' '' '' '' '' '' '' '' '' '' '' '' 'X' 'X', 'MAKTX' 'MAKT' 'MAKTX' '' '' 'Decription' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '', 'BISMT' 'MARA' 'BISMT' '' '' 'Old Mat. No' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '', 'MEINS' 'MARA' 'MEINS' '' '' 'Base Unit' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '', 'MSEHT' 'T006A' 'MSEHT' '' '' 'Measure' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE' EXPORTING i_internal_tabname = 'GI_DETAIL' * i_structure_name = '' CHANGING ct_fieldcat = gi_it_fieldcat[] EXCEPTIONS inconsistent_interface = 1 program_error = 2 OTHERS = 3.
|
| User Threads | New Thread ( Only for Donators ) |
|
|
|||
| Threads | Last Post | Replies | Views |
|
|
|||