1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 |
REPORT zsearch_tcode. *初始化变量 TYPE-POOLS:slis. TABLES:tstc. DATA:wa_alv_field TYPE slis_fieldcat_alv. DATA:wa_alv_layout TYPE slis_layout_alv. DATA:wa_alv_fieldcat TYPE slis_t_fieldcat_alv. DATA zxeinfo LIKE STANDARD TABLE OF tstc WITH HEADER LINE. SELECT * FROM tstc INTO CORRESPONDING FIELDS OF TABLE zxeinfo. *----------------------------------------------------------------------* * CLASS LCL_REPORT DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_report DEFINITION. PUBLIC SECTION. DATA: t_data TYPE STANDARD TABLE OF tstc, " Output dat r_ztcode TYPE RANGE OF tstc-tcode, " Select Option r_zpgmna TYPE RANGE OF tstc-pgmna, " Select Option r_zdypno TYPE RANGE OF tstc-dypno, " Select Option r_zmenue TYPE RANGE OF tstc-menue, " Select Option r_zcinfo TYPE RANGE OF tstc-cinfo, " Select Option r_zarbgb TYPE RANGE OF tstc-arbgb. " Select Option METHODS: get_data, generate_output. ENDCLASS. "lcl_report DEFINITION DATA: lo_report TYPE REF TO lcl_report. DATA: w_ztcode TYPE tstc-tcode. DATA: w_zpgmna TYPE tstc-pgmna. DATA: w_zdypno TYPE tstc-dypno. DATA: w_zmenue TYPE tstc-menue. DATA: w_zcinfo TYPE tstc-cinfo. DATA: w_zarbgb TYPE tstc-arbgb. ** Selection Screen SELECTION-SCREEN: BEGIN OF BLOCK blk1 WITH FRAME TITLE aaa. SELECT-OPTIONS: s_ztcode FOR tstc-tcode MEMORY ID ztcode, s_zpgmna FOR tstc-pgmna MEMORY ID zpgmna, s_zdypno FOR tstc-dypno MEMORY ID zdypno, s_zmenue FOR tstc-menue MEMORY ID zmenue, s_zcinfo FOR tstc-cinfo MEMORY ID zcinfo, s_zarbgb FOR tstc-arbgb MEMORY ID zarbgb. SELECTION-SCREEN: END OF BLOCK blk1. ** Initialization INITIALIZATION. aaa = '请输入查询条件[事务:查询事务码信息]'. * object for the report CREATE OBJECT lo_report. * generate output lo_report->generate_output( ). ** Start of Selection START-OF-SELECTION. * Get data lo_report->r_ztcode = s_ztcode[]. lo_report->r_zpgmna = s_zpgmna[]. lo_report->r_zdypno = s_zdypno[]. lo_report->r_zmenue = s_zmenue[]. lo_report->r_zcinfo = s_zcinfo[]. lo_report->r_zarbgb = s_zarbgb[]. lo_report->get_data( ). *———————————————————————-* * Local Class Implementation *———————————————————————-* CLASS lcl_report IMPLEMENTATION. METHOD get_data. SELECT * FROM tstc INTO TABLE me->t_data WHERE tcode IN s_ztcode AND pgmna IN s_zpgmna AND dypno IN s_zdypno AND menue IN s_zmenue AND cinfo IN s_zcinfo AND arbgb IN s_zarbgb. IF sy-dbcnt IS INITIAL. MESSAGE s398(00) WITH '未找到符合条件的记录'. ENDIF. EXPORT data = me->t_data TO MEMORY ID sy-cprog. ENDMETHOD. "get_data METHOD generate_output. DATA: lo_dock TYPE REF TO cl_gui_docking_container, lo_cont TYPE REF TO cl_gui_container, lt_fcat TYPE lvc_t_fcat, gr_grid_d1001 TYPE REF TO cl_gui_alv_grid. IMPORT data = me->t_data FROM MEMORY ID sy-cprog. FREE MEMORY ID sy-cprog. CHECK me->t_data IS NOT INITIAL. CHECK lo_dock IS INITIAL. CREATE OBJECT lo_dock EXPORTING repid = sy-cprog dynnr = sy-dynnr ratio = 68 side = cl_gui_docking_container=>dock_at_bottom name = 'DOCK_CONT'. IF sy-subrc <> 0. MESSAGE 'Error in the Docking control' TYPE 'S'. ENDIF. CHECK gr_grid_d1001 IS INITIAL. lo_cont ?= lo_dock. CREATE OBJECT gr_grid_d1001 EXPORTING i_parent = lo_cont. CALL FUNCTION 'LVC_FIELDCATALOG_MERGE' EXPORTING i_buffer_active = space i_structure_name = 'TSTC' i_client_never_display = 'X' i_bypassing_buffer = space CHANGING ct_fieldcat = lt_fcat EXCEPTIONS inconsistent_interface = 1 program_error = 2 OTHERS = 3. CALL METHOD gr_grid_d1001->set_table_for_first_display EXPORTING i_buffer_active = space i_bypassing_buffer = space CHANGING it_outtab = me->t_data it_fieldcatalog = lt_fcat. ENDMETHOD. "generate_output ENDCLASS. "lcl_report IMPLEMENTATION |
本文作者: GavinDong
版权属于: GavinDong博客
文章链接: https://gavindong.com/1142.html
如果使用过程中遇到问题,可 **点击此处** 交流沟通。
版权所有,转载时必须以链接形式注明作者和原始出处及本声明。