点击查看代码
*&---------------------------------------------------------------------*
*& Report ZCUITEST94
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*REPORT zcuitest94.TABLES:t004f.DATA:gt_t004f TYPE TABLE OF t004f,gs_t004f TYPE t004f,gt_tmodu TYPE TABLE OF tmodu,gs_tmodu TYPE tmodu,gt_tmodo TYPE TABLE OF tmodo,gs_tmodo TYPE tmodo.DATA:gs_layout TYPE lvc_s_layo,gs_fieldcat TYPE lvc_s_fcat,gt_fieldcat TYPE TABLE OF lvc_s_fcat.DATA dyn_table TYPE REF TO data.
DATA dyn_wa TYPE REF TO data.FIELD-SYMBOLS:<dyn_table> TYPE STANDARD TABLE,<dyn_wa> TYPE any,<dyn_value> TYPE any.FIELD-SYMBOLS <fs>.SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(23) bukrs.
PARAMETERS:p_bukrs TYPE t004f-bukrs.
SELECTION-SCREEN END OF LINE.SELECTION-SCREEN SKIP.SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE b1.SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:p_1allg TYPE char1 AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN COMMENT 3(23) 1allg.
SELECTION-SCREEN END OF LINE.SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:p_2kont TYPE char1 AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN COMMENT 3(23) 2kont.
SELECTION-SCREEN END OF LINE.SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:p_3mate TYPE char1 AS CHECKBOX.
SELECTION-SCREEN COMMENT 3(23) 3mate.
SELECTION-SCREEN END OF LINE.SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:p_4zahl TYPE char1 AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN COMMENT 3(23) 4zahl.
SELECTION-SCREEN END OF LINE.SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:p_5anla TYPE char1 AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN COMMENT 3(23) 5anla.
SELECTION-SCREEN END OF LINE.SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:p_6quel TYPE char1 AS CHECKBOX.
SELECTION-SCREEN COMMENT 3(23) 6quel.
SELECTION-SCREEN END OF LINE.SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:p_7ausl TYPE char1 AS CHECKBOX.
SELECTION-SCREEN COMMENT 3(23) 7ausl.
SELECTION-SCREEN END OF LINE.SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:p_8kons TYPE char1 AS CHECKBOX.
SELECTION-SCREEN COMMENT 3(23) 8kons.
SELECTION-SCREEN END OF LINE.SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:p_9immo TYPE char1 AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN COMMENT 3(23) 9immo.
SELECTION-SCREEN END OF LINE.SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:p_9verm TYPE char1 AS CHECKBOX.
SELECTION-SCREEN COMMENT 3(23) 9verm.
SELECTION-SCREEN END OF LINE.SELECTION-SCREEN: END OF BLOCK b1.INITIALIZATION.bukrs = '字段状态变式'.b1 = '查询字段'.1allg = '一般数据'.2kont = '附加科目设置'.3mate = '物料管理'.4zahl = '支付业务'.5anla = '资产会计核算'.6quel = '税收'.7ausl = '国外收付'.8kons = '合并'.9immo = '不动产管理'.9verm = '金融资产管理'.START-OF-SELECTION.SELECT *FROM t004fINTO TABLE gt_t004fWHERE bukrs = p_bukrs.SELECT *FROM tmodoINTO TABLE gt_tmodoWHERE fauna = 'SKB1-FAUS1'.SELECT *FROM tmoduINTO TABLE gt_tmoduWHERE fauna = 'SKB1-FAUS1' ANDkoart = 'S'.CLEAR gs_fieldcat.gs_fieldcat-fieldname = 'FSTAG'.gs_fieldcat-coltext = '字段状态组'.gs_fieldcat-key = 'X'.APPEND gs_fieldcat TO gt_fieldcat.CLEAR gs_fieldcat.gs_fieldcat-tabname = 'T004G'.gs_fieldcat-fieldname = 'FSTTX'.gs_fieldcat-coltext = '字段状态组名称'.gs_fieldcat-key = 'X'.gs_fieldcat-outputlen = 40.APPEND gs_fieldcat TO gt_fieldcat.LOOP AT gt_tmodu INTO gs_tmodu.CLEAR gs_fieldcat.gs_fieldcat-fieldname = gs_tmodu-feldn.gs_fieldcat-coltext = gs_tmodu-feldn.READ TABLE gt_tmodo INTO gs_tmodo WITH KEY modif = gs_tmodu-modif.IF sy-subrc = 0.IF gs_tmodo-ggrup = '1ALLG'.IF p_1allg <> 'X'.gs_fieldcat-no_out = 'X'."隐藏ENDIF.ENDIF.IF gs_tmodo-ggrup = '2KONT'.IF p_2kont <> 'X'.gs_fieldcat-no_out = 'X'."隐藏ENDIF.ENDIF.IF gs_tmodo-ggrup = '3MATE'.IF p_3mate <> 'X'.gs_fieldcat-no_out = 'X'."隐藏ENDIF.ENDIF.IF gs_tmodo-ggrup = '4ZAHL'.IF p_4zahl <> 'X'.gs_fieldcat-no_out = 'X'."隐藏ENDIF.ENDIF.IF gs_tmodo-ggrup = '5ANLA'.IF p_5anla <> 'X'.gs_fieldcat-no_out = 'X'."隐藏ENDIF.ENDIF.IF gs_tmodo-ggrup = '6QUEL'.IF p_6quel <> 'X'.gs_fieldcat-no_out = 'X'."隐藏ENDIF.ENDIF.IF gs_tmodo-ggrup = '7AUSL'.IF p_7ausl <> 'X'.gs_fieldcat-no_out = 'X'."隐藏ENDIF.ENDIF.IF gs_tmodo-ggrup = '8KONS'.IF p_8kons <> 'X'.gs_fieldcat-no_out = 'X'."隐藏ENDIF.ENDIF.IF gs_tmodo-ggrup = '9IMMO'.IF p_9immo <> 'X'.gs_fieldcat-no_out = 'X'."隐藏ENDIF.ENDIF.IF gs_tmodo-ggrup = '9VERM'.IF p_9verm <> 'X'.gs_fieldcat-no_out = 'X'."隐藏ENDIF.ENDIF.DATA gs_tmodp TYPE tmodp.CLEAR gs_tmodp.SELECT SINGLE *INTO gs_tmodpFROM tmodpWHERE spras = '1' ANDfauna = gs_tmodo-fauna ANDmodif = gs_tmodo-modif.gs_fieldcat-coltext = gs_fieldcat-coltext && '(' && gs_tmodp-ftext && ')'.ENDIF.APPEND gs_fieldcat TO gt_fieldcat.ENDLOOP.CALL METHOD cl_alv_table_create=>create_dynamic_tableEXPORTINGit_fieldcatalog = gt_fieldcat[] " Field CatalogIMPORTINGep_table = dyn_table.ASSIGN dyn_table->* TO <dyn_table>.CREATE DATA dyn_wa LIKE LINE OF <dyn_table>.ASSIGN dyn_wa->* TO <dyn_wa>.LOOP AT gt_t004f INTO gs_t004f.CLEAR <dyn_wa>.ASSIGN COMPONENT 1 OF STRUCTURE <dyn_wa> TO <fs>.<fs> = gs_t004f-fstag.ASSIGN COMPONENT 2 OF STRUCTURE <dyn_wa> TO <fs>.SELECT SINGLE fsttxINTO <fs>FROM t004gWHERE fstag = gs_t004f-fstag ANDspras = '1' ANDbukrs = p_bukrs.DATA:lv_value TYPE char140.lv_value = gs_t004f-faus1.lv_value+90(50) = gs_t004f-faus2.DATA:lv_index TYPE i.loop at gt_tmodu INTO gs_tmodu.ASSIGN COMPONENT gs_tmodu-feldn OF STRUCTURE <dyn_wa> TO <fs>.lv_index = gs_tmodu-modif - 1.CASE lv_value+lv_index(1).WHEN '.'.<fs> = '可选'.WHEN '+'.<fs> = '必输'.WHEN '-'.<fs> = '隐藏'.ENDCASE.endloop.APPEND <dyn_wa> TO <dyn_table>.ENDLOOP.gs_layout-cwidth_opt = 'X'.gs_layout-zebra = 'X'.CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'EXPORTINGi_callback_program = sy-repidit_fieldcat_lvc = gt_fieldcatis_layout_lvc = gs_layoutTABLESt_outtab = <dyn_table>EXCEPTIONSOTHERS = 1.
