abap中dialog的双击事件

1、se38 新建程序

1. TABLES:mara.
   
2. CALL SCREEN 2000.
   
3. *&---------------------------------------------------------------------*
   
4. *&      Module  STATUS_2000  OUTPUT
   
5. *&---------------------------------------------------------------------*
   
6. *       text
   
7. *----------------------------------------------------------------------*
   
8. MODULE status_2000 OUTPUT.
   
9.   SET PF-STATUS 'ZSTATUS'.
   
10. *  SET TITLEBAR 'xxx'.
    
11. ENDMODULE.                 " STATUS_2000  OUTPUT
    
12. *&---------------------------------------------------------------------*
    
13. *&      Module  USER_COMMAND_2000  INPUT
    
14. *&---------------------------------------------------------------------*
    
15. *       text
    
16. *----------------------------------------------------------------------*
    
17. MODULE user_command_2000 INPUT.
    
18.   DATA:lv_cur_field(20),
    
19.        lv_cur_val(18).
    
20.   CASE sy-ucomm.
    
21.     WHEN 'DCLICK'.
    
22.       GET CURSOR FIELD lv_cur_field VALUE lv_cur_val.
    
23.       CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
    
24.         EXPORTING
    
25.           input  = lv_cur_val
    
26.         IMPORTING
    
27.           output = lv_cur_val.
    
28.       IF lv_cur_field = 'MARA-MATNR' AND lv_cur_val = mara-matnr.
    
29.         SET PARAMETER ID 'MAT' FIELD lv_cur_val.
    
30.         CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
    
31.       ENDIF.
    
32.     WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
    
33.       LEAVE TO SCREEN 0.
    
34.   ENDCASE.
    
35. ENDMODULE.                 " USER_COMMAND_2000  INPUT

复制代码

2、新建屏幕2000
1）画屏幕元素，可直接从数据字典中取出

回应双击的字段的属性: 响应双击/Responds to Double-Click 给勾选上
2）定义工具栏
在状态定义上给F2的功能键分配一个功能码DCLICK，用来捕捉sy-ucomm的值


3、测试
se16-mara取出一个物料编码，输入，然后双击

双击之后会调到mm03界面


PS:SET/GET CURSOR FIELD用法

• SET CURSOR FIELD 这个是设置鼠标焦点到字段
• SET CURSOR <COL> <ROW> 设置到鼠标焦点列还是行
• SET CURSOR LINE <ROW> 设置鼠标焦点到行 这个是设置鼠标焦点的。
• GET CURSOR field 这个相对应的获取鼠标焦点得到的字段
  

如果是在TABLE CONTROL中可以用GET CURSOR FIELD LINE 来捕捉鼠标双击了那个字段

相关程序参考：TABLE CONTROL 行双击事件

1. IF lv_cur_field = 'MARA-MATNR' AND lv_cur_val = mara-matnr.
   
2.   SET PARAMETER ID 'MXX' FIELD 'K'.
   
3.   SET PARAMETER ID 'MAT' FIELD lv_cur_val.
   
4.   CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
   
5. ENDIF.

复制代码

多了一行 SET PARAMETER ID 'MXX' FIELD 'K'. ------K表示跳转到物料主数据的基本视图一，其它视图可以查看表T132。