ABAP技巧代码汇总.docxVIP

叮叮小文库 叮叮小文库 PAGE PAGE # 都是从网上找到的编程技巧，汇总在一起。 1、ABAP CHECKBOX^ LISTBOX使用指南 什么是 checkbox ： 就是一个复选框，可以用 like 或者 type 来定义，为 1 个字符型变量。它是 parameter 的一个选项， parameter xxx as checkbox 就可以在选择屏幕上显示 一个复选框。 什么是 listbox ： 就是一个下拉列表，你可以在这个列表中选择一条记录进行某种操作。也是 parameter 的一个选项， parameter xxx as listbox 就可以在选择屏幕上显示一 个下拉列表。 如何使用： 下面我们用一个程序来说明这两者的使用方法。 REPORT Z_TEXT TYPE-POOLS: VRM . “存放 combobox内容的 type pool DATA: NAME TYPE VRM_ID , “ list box 的名称 LIST TYPE VRM_VALUES , “ list box 的值 VALUE LIKE LINE OF LIST . “ list box 的结构 *定义checkbox，指定comma nd为了能够响应选择屏幕中值的改变 PARAMETERS: P_CB1 TYPE C AS CHECKBOX DEF‘AXULTUSER-COMMAND CHECK, P_CB2 TYPE C AS CHECKBOX DEFAU‘LTX USER-COMMAND CHECK. * 定义 listbox ，必须指定 visible length PARAMETERS: P_LIST1(10) TYPE C AS LISTBOX VI SIBLE LENGTH 15 , AS LISTBOXVI“这个就是变量 AS LISTBOX VI “这个就是变量P_LIST的值 这个是 text SIBLE LENGTH 25 . *开始执行 AT SELECTION-SCREEN OUTPUT . -〉选择1而没有选择2 IF P_CB1 = ‘X AND P_CB2 = ”. —〉向 listbox 里面添加值 REFRESH LIST . VALUE-KEY = 1111111111. VALUE-TEXT = 1111111111 . APPEND VALUE TO LIST . VALUE-KEY = 2222222222 . VALUE-TEXT = 2222222222 . APPEND VALUE TO LIST . VALUE-KEY = 3333333333 . VALUE-TEXT = 3333333333. APPEND VALUE TO LIST . ―〉调用函数显示listbox 里面的值 CALL FUNCTION VRM_SET_VALUES EXPORTING ID = P_LIST1 VALUES = LIST. ―〉把第二个listbox 的值清空，并且不能输入 CLEAR P_LIST2 . LOOP AT SCREEN . IF SCREEN-NAME = P_LIST2. SCREEN-INPUT = 0 . MODIFY SCREEN . ENDIF . ENDLOOP. -〉选择2,没有选择1,同上 ELSEIF P_CB2 = ‘X AND P_CB1 = ” . REFRESH LIST . VALUE-KEY = ‘ AAAAAAAAAAAAAAAAAAAA VALUE-TEXT = ‘ AAAAAAAAAAAAAAAAAAAA APPEND VALUE TO LIST . VALUE-KEY = ‘BBBBBBBBBBBBBBBBBBBB VALUE-TEXT = ‘ BBBBBBBBBBBBBBBBBBBB APPEND VALUE TO LIST . VALUE-KEY = ‘ CCCCCCCCCCCCCCCCC.CCC VALUE-TEXT= ‘ CCCCCCCCCCCCCCCCCCCC APPEND VALUE TO LIST . APPEND VALUE TO LIST . CALL FUNCTION ‘VRM_SET_VALUES EXPORTING ID = P_LIST2 VALUES = LIST. ―〉清空listbox 1 的值 CLEAR P_LIST1 . LOOP AT SCREEN . IF SCREEN-NAME = P_LIST1. SCREEN-INPUT = 0 . MODIFY SCREEN . ENDIF . ENDLOOP. -〉都没有选择，都清空且不能输入 ELSEIF P_CB1 =