ABAP技巧代码汇总

都是从网上找到的编程技巧，汇总在一起。

1、ABAP CHECKBOX 和LISTBOX使用指南1.什么是checkbox：就是一个复选框，可以用like或者type来定义，为1个字符型变量。

它是parameter的一个选项，parameter xxx as checkbox就可以在选择屏幕上显示一个复选框。

2.什么是listbox：就是一个下拉列表，你可以在这个列表中选择一条记录进行某种操作。

也是parameter的一个选项，parameter xxx as listbox就可以在选择屏幕上显示一个下拉列表。

3.如何使用：下面我们用一个程序来说明这两者的使用方法。

REPORT Z_TEXTTYPE-POOLS: VRM . “存放combobox内容的type poolDATA: NAME TYPE VRM_ID , “ list box的名称LIST TYPE VRM_VALUES , “ list box的值VALUE LIKE LINE OF LIST . “ list box的结构*定义checkbox，指定command，为了能够响应选择屏幕中值的改变PARAMETERS: P_CB1 TYPE C AS CHECKBOX DEFAULT ‘X’ USER-COMMAND CHECK,P_CB2 TYPE C AS CHECKBOX DEFAULT ‘X’USER-COMMAND CHECK.*定义listbox，必须指定visible lengthPARAMETERS: P_LIST1(10) TYPE C AS LISTBOXVI SIBLE LENGTH 15 ,P_LIST2(20) TYPE C AS LISTBOXVI SIBLE LENGTH 25 .*开始执行AT SELECTION-SCREEN OUTPUT .*–〉选择1而没有选择2IF P_CB1 = ‘X’ AND P_CB2 = ”.*—〉向listbox里面添加值REFRESH LIST .VALUE-KEY = ’11′ . “这个就是变量P_LIST的值VALUE-TEXT = ’11′ . “这个是textAPPEND VALUE TO LIST .VALUE-KEY = ’22′ .VALUE-TEXT = ’22′ .APPEND VALUE TO LIST .VALUE-KEY = ’33′ .VALUE-TEXT = ’33′ .APPEND VALUE TO LIST .*—〉调用函数显示listbox里面的值CALL FUNCTION ‘VRM_SET_VALUES’EXPORTINGID = ‘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 = ‘CCCCCCCCCCCCCCCCCCCC’ .VALUE-TEXT = ‘CCCCCCCCCCCCCCCCCCCC’ .APPEND VALUE TO LIST .APPEND VALUE TO LIST .CALL FUNCTION ‘VRM_SET_VALUES’EXPORTINGID = ‘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 = ” AND P_CB2 = ” .CLEAR: P_LIST1,P_LIST2 .LOOP AT SCREEN .IF SCREEN-NAME = ‘P_LIST1′ .SCREEN-INPUT = 0 .MODIFY SCREEN .ENDIF .ENDLOOP .LOOP AT SCREEN .IF SCREEN-NAME = ‘P_LIST2′ .SCREEN-INPUT = 0 .MODIFY SCREEN .ENDIF .ENDLOOP .*–〉都选，执行ELSEIF P_CB1 = ‘X’ AND P_CB2 = ‘X’ .REFRESH LIST .VALUE-KEY = ’11′ .VALUE-TEXT = ’11′ .APPEND VALUE TO LIST .VALUE-KEY = ’22′ .VALUE-TEXT = ’22′ .APPEND VALUE TO LIST .VALUE-KEY = ’33′ .VALUE-TEXT = ’33′ .APPEND VALUE TO LIST .CALL FUNCTION ‘VRM_SET_VALUES’EXPORTINGID = ‘P_LIST1′VALUES = LIST.REFRESH LIST .VALUE-KEY = ‘AAAAAAAAAAAAAAAAAAAA’ .VALUE-TEXT = ‘AAAAAAAAAAAAAAAAAAAA’ .APPEND VALUE TO LIST .VALUE-KEY = ‘BBBBBBBBBBBBBBBBBBBB’ .VALUE-TEXT = ‘BBBBBBBBBBBBBBBBBBBB’ .APPEND VALUE TO LIST .VALUE-KEY = ‘CCCCCCCCCCCCCCCCCCCC’ .VALUE-TEXT = ‘CCCCCCCCCCCCCCCCCCCC’ .APPEND VALUE TO LIST .CALL FUNCTION ‘VRM_SET_VALUES’EXPORTINGID = ‘P_LIST2′VALUES = LIST.ENDIF .START-OF-SELECTION .*–〉输出到第二屏幕看看WRITE: P_LIST1 ,/ P_LIST2 .2、ABAP memory中的Export和Import可以用于SUBMIT方式调用其他ABAP程序后，数据只能通过某个透明表暂存，在由主程序查询透明表取得结果的情况，这样做的好处是不用在通过透明表转数据了，先把子程序中的数据EXPORT到一块命名的内存空间，然后在主程序里IMPORT命名的内存空间的值到内表中。

REPORT z_barry_export_import .DATA: BEGIN OF itab1 OCCURS 0 ,ff(10) ,END OF itab1.DATA: itab2 LIKE itab1 OCCURS 0 WITH HEADER LINE .DATA: str1 TYPE string ,str2 TYPE string .APPEND '1' TO itab1.APPEND '2' TO itab1.str1 = 'sssssssssss'.***如果是同名的对象，可以这么写：EXPORT itab1 TO MEMORY ID 'M1'.FREE itab1.IMPORT itab1 FROM MEMORY ID 'M1'.LOOP AT itab1.WRITE / itab1-ff.ENDLOOP.***如果不是同名的对象，需要加上一个对象名EXPORT a = itab1 b = str1 TO MEMORY ID 'M2'.IMPORT a = itab2 b = str2 FROM MEMORY ID 'M2'.LOOP AT itab2.WRITE / itab2-ff.ENDLOOP.WRITE / str2.3、ABAP 获得程序的激活次数或者传输次数的方法REPOSRC ：Report Source CodeDATA SUM TYPE I.PARAMETERS P_NAME TYPE STRING.SELECT COUNT(*)FROM E070INNER JOIN E071 ON E071~TRKORR = E070~TRKORRINTO SUMWHERE E071~OBJ_NAME = P_NAMEAND E071~LOCKFLAG <> ''AND E070~TRSTATUS = 'R'.REPOSRC 这个表很有意思，它包含任何一个程序的激活次数，即字段VERN(版本)其中的字段R3STATE 如果是A则表明是激活的版本。

如果是I 表明是被修改的状态，如果最新的版本没有被激活，则会出现R3STATE字段有A 和I 的两组数据。

其中I为最新的保存数据的记录，VERN记录修改的次数。

R3STATE字段为A的则是记录前一次被激活的版本数据，VERN对应的版本号。

表REPOSRC对应一个视图这个视图是PROGDIR.使用这个视图对我们的控制会更有帮助，其中这个视图标签SELECITONS CONDITIONS中进行限制如下：TABLE FIELDNAME 操作COMPARISON VALUE AND/ORREPOSRC R3STATE EQ 'A' ORREPOSRC R3STATE EQ 'I'存放变式的表VARI 这是一张数据簇表。

4、ABAP 生成ZIP压缩文件的代码data: izip type ref to cl_abap_zip,cont type xstring ,xzip_file type xstring,binary_tab type standard table of x255 .data: itab type standard table of sdokcntasc .start-of-selection.do 20 times.append 'ABAP开发' to itab.enddo.call function 'SCMS_TEXT_TO_XSTRING'exportingmimetype = 'text/html;charset=gb2312'importingbuffer = conttablestext_tab = itabexceptionsfailed = 1others = 2.create object izip.call method izip->addexportingname = 'ITAB.TXT'content = cont.call method izip->savereceivingzip = xzip_file.call function 'SCMS_XSTRING_TO_BINARY'exportingbuffer = xzip_filetablesbinary_tab = binary_tab.call function 'GUI_DOWNLOAD'exportingfilename = 'C:\sf.zip'filetype = 'BIN'tablesdata_tab = binary_tab.5、ABAP程序打印Spool Request到PDF其实打印到pdf完全不需要程序，只要你装了pdf打印生成软件，打印的时候选择pdf也就行了。