标签：sy 报表 层次 ABAP tabname ebeln repid ekpo LIKE
1 *&---------------------------------------------------------------------* 2 *& Report Y4_B4_TEST20 3 *&---------------------------------------------------------------------* 4 *& 5 *&---------------------------------------------------------------------* 6 REPORT y4_b4_test20. 7 TABLES: ekko,ekpo. 8 SELECT-OPTIONS s_ebeln FOR ekko-ebeln. 9 10 *1、在程序里包含SLIS 11 TYPE-POOLS:slis. 12 13 *2、声明主表和明细表 14 DATA: BEGIN OF headertab OCCURS 0, 15 ebeln LIKE ekko-ebeln, 16 bstyp LIKE ekko-bstyp, 17 bsart LIKE ekko-bsart, 18 statu LIKE ekko-statu, 19 END OF headertab. 20 21 DATA: BEGIN OF itemtab OCCURS 0, 22 ebeln LIKE ekpo-ebeln, 23 ebelp LIKE ekpo-ebelp, 24 matnr LIKE ekpo-matnr, 25 werks LIKE ekpo-werks, 26 menge LIKE ekpo-menge, 27 netpr LIKE ekpo-netpr, 28 peinh LIKE ekpo-peinh, 29 netwr LIKE ekpo-netwr, 30 END OF itemtab. 31 32 DATA: i_fieldcat TYPE slis_t_fieldcat_alv. 33 DATA: v_repid LIKE sy-repid."当前程序名 34 35 *3、申明主表和明细表的名称变量 36 DATA: g_tabname_header TYPE slis_tabname, 37 g_tabname_item TYPE slis_tabname. 38 39 *4、声明主表和明细表连接关键字变量 40 DATA: gs_keyinfo TYPE slis_keyinfo_alv. 41 42 INITIALIZATION. 43 v_repid = sy-repid. 44 45 START-OF-SELECTION. 46 47 PERFORM get_data. 48 49 END-OF-SELECTION. 50 51 *5、获取头表输出表头字段名称 52 CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE' 53 EXPORTING 54 i_program_name = v_repid "当前程序名 55 i_internal_tabname = 'HEADERTAB' "主表名 56 i_inclname = v_repid "当前程序名 57 i_bypassing_buffer = 'X' 58 i_buffer_active = '' 59 CHANGING 60 ct_fieldcat = i_fieldcat "ALV输出的主表标题 61 EXCEPTIONS 62 inconsistent_interface = 1 63 program_error = 2 64 OTHERS = 3. 65 IF sy-subrc <> 0. 66 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 67 sy-msgv2 sy-msgv3 sy-msgv4. 68 ENDIF. 69 70 *6、获取从表输出表头字段名称 71 CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE' 72 EXPORTING 73 i_program_name = sy-repid 74 i_internal_tabname = 'ITEMTAB' 75 i_inclname = v_repid 76 i_bypassing_buffer = 'X' 77 i_buffer_active = '' 78 CHANGING 79 ct_fieldcat = i_fieldcat 80 EXCEPTIONS 81 inconsistent_interface = 1 82 program_error = 2 83 OTHERS = 3. 84 IF sy-subrc <> 0. 85 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 86 sy-msgv2 sy-msgv3 sy-msgv4. 87 ENDIF. 88 89 *7、设置主从表的关联字段，最多可以设置五个字段关联。 90 gs_keyinfo-header01 = 'EBELN'. 91 gs_keyinfo-item01 = 'EBELN'. 92 93 *8、设置主表和明细表变量对应的内表名称 94 g_tabname_header = 'HEADERTAB'."主表 95 g_tabname_item = 'ITEMTAB'."明细表 96 97 *9、调用层次ALV输出函数 98 CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY' 99 EXPORTING 100 i_callback_program = v_repid 101 it_fieldcat = i_fieldcat 102 i_save = 'A' 103 i_tabname_header = g_tabname_header 104 i_tabname_item = g_tabname_item 105 is_keyinfo = gs_keyinfo 106 i_bypassing_buffer = 'X' 107 i_buffer_active = ' ' 108 TABLES 109 t_outtab_header = headertab 110 t_outtab_item = itemtab 111 EXCEPTIONS 112 program_error = 1 113 OTHERS = 2. 114 IF sy-subrc <> 0. 115 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 116 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 117 ENDIF. 118 119 FORM get_data. 120 121 SELECT ebeln bstyp bsart statu 122 INTO TABLE headertab 123 FROM ekko 124 WHERE ebeln IN s_ebeln. 125 126 IF NOT headertab[] IS INITIAL. 127 SELECT ebeln ebelp matnr werks menge netpr peinh netwr 128 INTO TABLE itemtab 129 FROM ekpo 130 FOR ALL ENTRIES IN headertab 131 WHERE ebeln = headertab-ebeln. 132 ENDIF. 133 134 ENDFORM.
标签：sy,报表,层次,ABAP,tabname,ebeln,repid,ekpo,LIKE 来源： https://www.cnblogs.com/TigerMan/p/16401243.html
本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享； 2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关； 3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关； 4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除； 5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。