原因代批量修改码程序.docxVIP

*--------------------------------------------------------------------* * Program ID : zrp_fi_038 * Program Title :原因代批量修改码程序 * Transaction : ZFI000 * Created By : Javenk * Created At : 2019.10.29 * Modify At : * *---------------------------------------------------------------------* REPORT zrp_fi_038. TABLES:bseg,t053s,t053r. DATA:BEGIN OF gt_bseg OCCURS 0 , 带表头内表 bukrs LIKE bseg-bukrs, 公司代码 gjahr LIKE bseg-gjahr, 会计掳度 h_monat LIKE bseg-h_monat, 会计期间 belnr LIKE bseg-belnr, 会计凭证号码 buzei LIKE bseg-buzei, 会计凭证行项目 dmbtr LIKE bseg-dmbtr, 本币金额 hkont LIKE bseg-hkont, 会计科目 sgtxt LIKE bseg-sgtxt, 行文本 rstgr LIKE bseg-rstgr, 原因代码 END OF gt_bseg . DATA:BEGIN OF gt_out OCCURS 0 , zmark(1) TYPE c, 选择 bukrs LIKE bseg-bukrs, 公司代码 gjahr LIKE bseg-gjahr, 会计掳度 h_monat LIKE bseg-h_monat, 会计期间 belnr LIKE bseg-belnr, 会计凭证号码 buzei LIKE bseg-buzei, 会计凭证行项目 dmbtr LIKE bseg-dmbtr, 本币金额 hkont LIKE bseg-hkont, 会计科目 txt50 LIKE skat-txt50, 科目描述 sgtxt LIKE bseg-sgtxt, 行文本 rstgr LIKE bseg-rstgr, 原因代码 txt40 LIKE v_t053r-txt40, 原因代码文本 END OF gt_out . DATA: gt_t053s LIKE t053s OCCURS 0 WITH HEADER LINE, gw_t053s LIKE LINE OF gt_t053s. *Set PF status DATA: gv_tabix TYPE sytabix, gc_grid TYPE REF TO cl_gui_alv_grid. DATA: gt_fieldcat TYPE lvc_t_fcat, gw_fieldcat LIKE LINE OF gt_fieldcat, gw_layout TYPE lvc_s_layo. DATA gt_events TYPE slis_t_event. DATA gs_event TYPE slis_alv_event. DEFINE fieldcat. CLEAR gw_fieldcat. * GW_FIELDCAT-COL_POS = 1. gw_fieldcat-fieldname = 1. gw_fieldcat-coltext = 2. gw_fieldcat-key = 3. gw_fieldcat-outputlen = 4. * gw_fieldcat-hotspot = 5. gw_fieldcat-edit = 5. * gw_fieldcat-no_out = 7. * gw_fieldcat-emphasize = 8. gw_fieldcat-f4availabl = 6. gw_fieldcat-checkbox = 7. APPEND gw_fieldcat TO gt_fieldcat. E