向导生成的table control中按钮bug原因分析

维护数据的需求，我们喜欢用table control来实现，多数时候用向导来生成代码，这样来开发很简单，减少了不少工作量，但是向导生成的标准代码不是100%符合要求的，也需要我们微调，例如下面的一些情况。

向导新建‘TC_400’名称的table control然后向导在400screen生成如下逻辑流：

1. PROCESS BEFORE OUTPUT.
   
2. *&SPWIZARD: PBO FLOW LOGIC FOR TABLECONTROL 'TC_400'
   
3.   MODULE tc_400_change_tc_attr.
   
4. *&SPWIZARD: MODULE TC_400_CHANGE_COL_ATTR.
   
5.   LOOP AT   gt_list
   
6.        INTO gs_list
   
7.        WITH CONTROL tc_400
   
8.        CURSOR tc_400-current_line.
   
9.     MODULE tc_400_get_lines.
   
10. *&SPWIZARD:   MODULE TC_400_CHANGE_FIELD_ATTR
    
11.   ENDLOOP.
    
12. 
    
13.   MODULE status_0400.
    
14. *
    
15. PROCESS AFTER INPUT.
    
16. *&SPWIZARD: PAI FLOW LOGIC FOR TABLECONTROL 'TC_400'
    
17.   LOOP AT gt_list.
    
18.     CHAIN.
    
19.       FIELD gs_list-matnr MODULE set_matnr.
    
20.       FIELD gs_list-maktx MODULE set_maktx.
    
21.       FIELD gs_list-lifnr MODULE set_lifnr.
    
22.       FIELD gs_list-name1 MODULE set_name1.
    
23.       FIELD gs_list-matnr_m MODULE set_matnr_m.
    
24.       FIELD gs_list-ddtext MODULE set_ddtext.
    
25.       FIELD gs_list-datab.
    
26.       FIELD gs_list-datae MODULE set_datae.
    
27.       MODULE tc_400_modify ON CHAIN-REQUEST.
    
28.     ENDCHAIN.
    
29.     FIELD gs_list-mark
    
30.       MODULE tc_400_mark ON REQUEST.
    
31.   ENDLOOP.
    
32.   MODULE tc_400_user_command.
    
33. *&SPWIZARD: MODULE TC_400_CHANGE_TC_ATTR.
    
34. *&SPWIZARD: MODULE TC_400_CHANGE_COL_ATTR.

复制代码

有时我们自定义按钮，明明做了一些ok_code的清空，但是回车老是捕捉到上一次的ok_code

1. MODULE user_command_0400 INPUT.
   
2.   CLEAR save_ok.
   
3.   save_ok = ok_code.
   
4.   CLEAR ok_code.
   
5.   CASE save_ok.
   
6.     WHEN 'SAVE'.
   
7.     WHEN 'EXIT'.
   
8.       LEAVE PROGRAM.
   
9.     WHEN 'BACK' OR 'CANCEL'.
   
10.       REFRESH gt_list.
    
11.       LEAVE TO SCREEN 0.
    
12.     WHEN 'EXCEL'.
    
13.       PERFORM frm_execl_to_it.
    
14.     WHEN 'CHECK'.
    
15.       IF gt_list[] IS NOT INITIAL.
    
16.         PERFORM frm_400_check.
    
17.       ELSE.
    
18.         MESSAGE s208(00) DISPLAY LIKE 'E' WITH '没有数据，请输入！'.
    
19.         EXIT.
    
20.       ENDIF.
    
21.   ENDCASE.
    
22.   CLEAR: save_ok.

复制代码

我们结果分析发现，在MODULE tc_400_user_command.向导生成的module中对ok_code重新赋值了，故出现如上问题。
我们可以添加如下语句 来解决问题

1. IF ok_code(6) EQ 'TC_400'.
   
2. ......
   
3. ENDIF.

复制代码

向导生成的MODULE tc_400_modify ON CHAIN-REQUEST.中，通常需要添加如下代码：

看代码你就应该知道什么意思了吧

楼主真强大,赞一个........

IF ok_code(6) EQ 'TC_400'. 解决了困扰我好久的问题，非常感谢楼主。弱弱地问下modify那里加
IF SY-SUBRC NE 0 AND GS_LIST  IS NOT INITIAL. 这个是什么情形需要

qshiou 发表于 2015-7-2 16:20
IF ok_code(6) EQ 'TC_400'. 解决了困扰我好久的问题，非常感谢楼主。弱弱地问下modify那里加
IF SY-SUBR ...

APPEND是TC界面新增数据，modify只能是TC界面有数据更新

leon 发表于 2015-7-2 16:37
APPEND是TC界面新增数据，modify只能是TC界面有数据更新

感谢楼主，楼主棒棒哒