ABAP编程宝典：实用技巧与常见操作指南

需积分: 14 117 浏览量更新于2024-07-17 收藏 1.12MB PDF 举报

"这份名为'ABAP Program Tips.pdf'的文档为ABAP开发人员提供了实用的参考资料，内容涵盖了多个主题，旨在解决开发过程中的常见问题。以下是主要内容概览： 1. **文件处理** (3.4 FILE PROCESSING) - **下载到Excel** (3.4.1): 学习如何将数据从ABAP系统导出至Excel格式。 - **FTP文件传输** (3.4.2): 提供了通过FTP将文件发送到其他服务器的方法。 2. **有用事务** (CHAPTER 1 USEFUL TRANSACTIONS) - **EDI特定事务** (1.1): 包括与电子数据交换相关的事务处理。 - **消息控制** (1.2): - **邮件交付** (1.2.1) - **发票处理** (1.2.2) - **宏和命令** (3.5 MACROS) - **选择语句** (3.6 SELECT STATEMENTS) 3. **IDOC编程** (1.3 to 1.6) - **IDOC管理** (1.3 IDOC ADMINISTRATION) - **连接操作** (3.6.1 JOINs) - **IDOC开发** (1.4 IDOC DEVELOPMENT) - **SAPScript** (3.7 SAPSCRIPT) - **电子邮件订单确认主题修改** (3.7.1) - **需求编码和销售流程** (1.5 and 1.6) 4. **通用功能** (3.8 GENERAL) - **获取SAP用户邮箱地址** (3.8.1) - **执行和创建程序** (3.8.2-3.8.3) - **文档流、GUI状态和隐藏代码** (3.8.4-3.8.9) - **编辑器提示和表配置** (3.8.10-3.8.11) - **对象编程** (3.8.12-3.8.13) 5. **工作流程序** (CHAPTER 4 WORKFLOW PROGRAMS) - 用户收件箱查看 (4.1 VIEWING PARTICULAR USERS INBOX) - 包含、字段定义等 (2.3 and 2.4) 6. **ALV网格控制** (5.1 ALV GRID CONTROL) - 控制报告功能和定制选项 (3.3.1-3.3.11) 7. **IDOC编程示例** (7.1 to 7.10) - IDOC创建、发送、更改、显示、类型池操作、错误处理、报告和对话框程序示例。 8. **基础错误及解决方案** (8.1 BASIS ERRORS AND RESOLUTIONS) - 解决激活表错误 (8.1 CANNOT ACTIVATE A TABLE) 9. **索引** (9.0 INDEX) 这些内容涵盖了从基本的文件处理、事务管理，到高级功能如IDOC编程、工作流和ALV报告的广泛主题，对于提升ABAP开发效率和解决问题具有重要价值。"

STEP ONE – ADD THESE LINES OF CODE IN THE DECLARATION AREA

**** DECLARATION

DATA: BEGIN OF items OCCURS 100,

id type sy-tabix,

parent_id type sy-tabix,

text(1000),

symbol,

END OF items,

tabix_stack LIKE sy-tabix OCCURS 10 WITH HEADER LINE,

items_show LIKE items OCCURS 100 WITH HEADER LINE.

DATA: parent_stack LIKE sy-tabix OCCURS 10 WITH HEADER LINE,

t_parent LIKE sy-tabix,

current LIKE sy-tabix.

INCLUDE <symbol>.

INCLUDE ZTREE_REPORT_INCLUDES.

STEP TWO – ADD THESE LINES OF CODE TO POPULATE THE INTERNAL TABLE

**** POPULATE DATA

REFRESH parent_stack. current = 0.

parent_stack = 0. APPEND parent_stack.

LOOP AT itab_data.

CASE itab_data-qualf.

WHEN 1. “New parent

current = current + 1.

PERFORM read_from_parent_stack CHANGING t_parent.

parent_stack = current. APPEND parent_stack.

PERFORM append_item USING current

t_parent

itab_xml_data.

WHEN 2. “End of current leg

current = current + 1.

PERFORM append_item USING current

t_parent

itab_xml_data.

perform delete_parent_stack.

WHEN 3. “Same level

current = current + 1.

PERFORM read_from_parent_stack CHANGING t_parent.

PERFORM append_item USING current

t_parent

itab_xml_data.

ENDCASE.

ENDLOOP.

STEP THREE – ADD THESE LINES OF CODE TO PRINT THE REPORT

LOOP AT items WHERE parent_id = 0.

MOVE-CORRESPONDING items TO items_show.

items_show-symbol = '+'.

APPEND items_show.

ENDLOOP.

PERFORM print_tree TABLES items_show.

STEP FOUR – ADD THESE LINES OF CODE TO EXPAND \ COLLAPSE THE TREE

* at line-selection - when the node is opened/closed or item double-clk

AT LINE-SELECTION.

READ TABLE items WITH KEY parent_id = items_show-id. "see 'hide'

IF sy-subrc = 0. "item has children - expand or collapse

sy-lsind = 0.

PERFORM expand_collapse USING items_show-id.

PERFORM print_tree TABLES items_show.

ELSE. "item has NO children - perform some action

READ TABLE items WITH KEY id = items_show-id.

WRITE: 'Action performed on item "' NO-GAP, items-text NO-GAP,

'", id.', items-id.

ENDIF.

STEP FIVE – ADD THIS INCLUDE CODE

*----------------------------------------------------------------------*

* INCLUDE ZTREE_REPORT_INCLUDES *

*----------------------------------------------------------------------*

* form append_item

ABAP Programming Tips Page 16 of 151

FORM append_item USING value(id) value(parent_id) value(text).

items-id = id.

items-parent_id = parent_id.

items-text = text.

APPEND items.

ENDFORM. " APPEND_ITEM

* form read_from_stack

FORM read_from_stack CHANGING tabix LIKE sy-tabix.

DESCRIBE TABLE tabix_stack.

CHECK sy-tfill NE 0.

READ TABLE tabix_stack INDEX sy-tfill.

tabix = tabix_stack.

DELETE tabix_stack INDEX sy-tfill.

ENDFORM.

* form print tree

FORM print_tree TABLES items STRUCTURE items.

DATA: v_tabix LIKE sy-tabix,

start_tabix LIKE sy-tabix,

v_level LIKE sy-tfill,

v_offset TYPE i,

v_id LIKE items-id,

v_parent_id LIKE items-parent_id,

v_parent_id_for_vline LIKE items-parent_id,

v_prev_level TYPE i,

v_items_count LIKE sy-tfill,

v_vlines_string(200).

CHECK NOT items[] IS INITIAL.

SORT items BY parent_id id.

READ TABLE items INDEX 1.

v_parent_id = items-parent_id.

start_tabix = 1.

REFRESH tabix_stack.

DO.

LOOP AT items FROM start_tabix.

v_tabix = start_tabix = sy-tabix. "remember current index

v_id = items-id.

v_parent_id_for_vline = items-parent_id.

* decrease level and exit loop if parent not the same as previous

IF items-parent_id NE v_parent_id.

PERFORM read_from_stack CHANGING start_tabix. "level = NoOfRecs

READ TABLE items INDEX start_tabix.

v_parent_id = items-parent_id.

ADD 1 TO start_tabix. "next loop starts from parent index + 1

* clear vline

IF v_level > 1.

v_offset = 2 + ( v_level - 2 ) * 3.

IF v_level = 1. v_offset = 1. ENDIF.

v_vlines_string+v_offset = ' '.

ENDIF.

EXIT.

ENDIF.

v_parent_id = items-parent_id.

* write item

FORMAT COLOR OFF.

DESCRIBE TABLE tabix_stack LINES v_level."level is no of StackRecs

WRITE: / v_vlines_string.

v_offset = v_level * 3.

IF v_level NE 0.

IF v_prev_level < v_level.

WRITE: AT v_offset '|', / ''.

WRITE: / v_vlines_string.

ENDIF.

v_offset = v_level * 3.

WRITE AT v_offset '|--'.

ENDIF.

v_offset = v_offset + 3.

CASE items-symbol.

WHEN '+'.

WRITE AT v_offset sym_plus_folder AS SYMBOL

COLOR 4 INTENSIFIED HOTSPOT.

WHEN '-'.

WRITE AT v_offset sym_minus_folder AS SYMBOL

COLOR 4 INTENSIFIED HOTSPOT.

WHEN OTHERS. FORMAT COLOR 5.

ENDCASE.

ABAP Programming Tips Page 17 of 151

WRITE: items-text.

v_prev_level = v_level.

HIDE: items-id.

ADD 1 TO v_items_count.

READ TABLE items WITH KEY parent_id = items-id.

* increase level and exit loop if item has children

IF sy-subrc = 0.

start_tabix = sy-tabix.

APPEND v_tabix TO tabix_stack. "level is no of recs in stack

v_parent_id = items-parent_id.

* set vline

v_tabix = v_tabix + 1.

READ TABLE items INDEX v_tabix.

v_offset = 2 + ( v_level - 1 ) * 3.

IF v_level > 0.

IF items-parent_id = v_parent_id_for_vline AND sy-subrc = 0.

v_vlines_string+v_offset = '|'.

ELSE.

v_vlines_string+v_offset = ' '.

ENDIF.

EXIT.

ENDIF.

* at last - decrease level

AT LAST.

* clear vline

IF v_level > 1.

v_offset = 2 + ( v_level - 2 ) * 3.

IF v_level = 1. v_offset = 1. ENDIF.

v_vlines_string+v_offset = ' '.

ENDIF.

" next loop starts from parent index, not parent index + 1

" because of different parents level will decrease anyway

PERFORM read_from_stack CHANGING start_tabix.

APPEND start_tabix TO tabix_stack. "must return index to stack

ENDAT.

ENDLOOP.

DESCRIBE TABLE items.

IF start_tabix > sy-tfill OR v_items_count >= sy-tfill.

EXIT.

ENDIF.

ENDDO.

ENDFORM.

* form expand_collapse

FORM expand_collapse USING value(v_id).

DATA: v_no_more_orphans,

items_temp LIKE items OCCURS 100 WITH HEADER LINE.

DELETE items_show WHERE parent_id = v_id. "try to collapse

IF sy-subrc = 0. "succesfull first collapse

DO. "cascade collapse - delete 'orphans' that are left

REFRESH items_temp.

MOVE items_show[] TO items_temp[].

SORT items_temp BY id.

v_no_more_orphans = 'X'.

LOOP AT items_show WHERE parent_id NE ''.

READ TABLE items_temp WITH KEY id = items_show-parent_id

BINARY SEARCH TRANSPORTING NO FIELDS.

IF sy-subrc NE 0. "no parent - it's an orphan

CLEAR v_no_more_orphans.

DELETE items_show.

ENDIF.

ENDLOOP.

IF v_no_more_orphans = 'X'. EXIT. ENDIF.

ENDDO.

items_show-symbol = '+'.

MODIFY items_show TRANSPORTING symbol WHERE id = v_id.

ELSE. "unsuccessfull collapse - expand

items_show-symbol = '-'.

MODIFY items_show TRANSPORTING symbol WHERE id = v_id.

LOOP AT items WHERE parent_id = v_id. "show children

APPEND items TO items_show.

ENDLOOP.

LOOP AT items_show WHERE parent_id = v_id. "check grandchildren

READ TABLE items WITH KEY parent_id = items_show-id.

IF sy-subrc = 0.

items_show-symbol = '+'.

ABAP Programming Tips Page 18 of 151

ELSE.

items_show-symbol = ''.

ENDIF.

MODIFY items_show.

ENDLOOP.

ENDIF.

ENDFORM.

* form read_from_parent_stack

FORM read_from_parent_stack CHANGING tabix LIKE sy-tabix.

DESCRIBE TABLE parent_stack.

CHECK sy-tfill NE 0.

READ TABLE parent_stack INDEX sy-tfill.

tabix = parent_stack.

* DELETE tabix_stack INDEX sy-tfill.

ENDFORM.

*& Form delete_parent_stack

*&---------------------------------------------------------------------*

form delete_parent_stack.

DESCRIBE TABLE parent_stack.

CHECK sy-tfill NE 0.

DELETE parent_stack INDEX sy-tfill.

endform. " delete_parent_stack

3.3.3 Initializing date ranges on selection-options

selection-screen begin of block g1 with frame title text-000.

select-options: s_docdat for vbak-erdat. "Document date

selection-screen end of block g1.

* Initialization *

*----------------------------------------------------------------------*

initialization.

* Default dates to dsel screen

move 'I' to s_docdat-sign.

move 'BT' to s_docdat-option.

move sy-datum to s_docdat-high.

subtract 7 from sy-datum.

move sy-datum to s_docdat-low.

append s_docdat.

SELECT-OPTIONS T1 FOR MBEW-MATNR MEMORY ID MAT.

3.3.4 Report headings

top-of-page.

perform top.

form top.

uline.

write: / sy-vline no-gap,

(79) text-001 color col_heading intensified,

80 sy-vline,

/ sy-vline no-gap,

(79) text-002 color col_heading intensified off,

80 sy-vline,

/ sy-vline no-gap,

(79) text-003 color col_heading intensified off,

80 sy-vline.

uline.

endform.

3.3.5 Popup selection – Get Filename

* See program RSSPO410 for examples of this FM

DATA: returncode LIKE sy-subrc,

filestring TYPE string.

DATA: BEGIN OF fields OCCURS 2.

INCLUDE STRUCTURE sval.

DATA: END OF fields.

CLEAR fields.

fields-tabname = 'RLGRAP'.

fields-fieldname = 'FILENAME'.

fields-value = 'C:\TEST.XLS'.

fields-field_attr = '00'.

ABAP Programming Tips Page 19 of 151

APPEND fields.

CALL FUNCTION 'POPUP_GET_VALUES'

EXPORTING

POPUP_TITLE = TEXT-026

IMPORTING

RETURNCODE = RETURNCODE

TABLES

FIELDS = fields

EXCEPTIONS

ERROR_IN_FIELDS = 1

OTHERS = 2.

CHECK RETURNCODE EQ SPACE.

filestring = fields-value.

3.3.6 Checkboxes in reports

To put a delete button on the screen (Fcode = DELETE) with a checkbox on each line.

at user-command.

case sy-ucomm.

when 'DELETE'.

do counter times.

read line sy-index.

if sy-lisel(1) = 'X'. “Holds line content and sy-lisel(1) will be X when checked

select single * from ……

endif.

enddo.

perform write_report.

sy-lsind = 0.

endcase.

form write_report.

select * from ….

write: / pick as checkbox,

……

hide: …….

endselect.

counter = sy-dbcnt + 7. “Cater for header lines

endform. " WRITE_REPORT

start-of-selection.

set pf-status 'STD'.

perform write_report.

3.3.7 List Boxes on Selection Screens

Here is a short example of using list boxes on selection screens:

PROGRAM ztest.

TYPE-POOLS: vrm.

DATA: name TYPE vrm_id, list TYPE vrm_values, value LIKE LINE OF list.

PARAMETERS: ps_parm(10) AS LISTBOX VISIBLE LENGTH 10.

AT SELECTION-SCREEN OUTPUT.

name = 'PS_PARM'.

value-key = '1'. value-text = 'Line 1'. APPEND value TO list.

value-key = '2'. value-text = 'Line 2'. APPEND value TO list.

CALL FUNCTION 'VRM_SET_VALUES' EXPORTING id = name values = list.

START-OF-SELECTION.

WRITE: / 'Parameter:', ps_parm.

3.3.8 At line selection

DATA: FIELD_NAME(30), "Check for line selection on field

T_IDOC LIKE EDIDC-DOCNUM. "Store IDoc number for line selectn

* --- EVENT : AT LINE SELECTION ---

AT LINE-SELECTION.

* Return the field that the user clicked on

GET CURSOR FIELD FIELD_NAME.

CASE FIELD_NAME.

* Clicked on Invoice number

WHEN 'ITAB_SO-INVOIC_NO'.

SET PARAMETER ID 'VF' FIELD ITAB_SO-INVOIC_NO.

CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN. "View Invoice

* Clicked on delivery number

WHEN 'ITAB_SO-DELIVERY'.

ABAP Programming Tips Page 20 of 151

剩余150页未读，继续阅读

faithhs

粉丝: 2
资源: 5

ABAP编程宝典：实用技巧与常见操作指南

ABAP Program Tips v3.

ABAP开发sapeyes.pdf

ABAP学习总结.pdf

ABAP编程基础.pdf

ABAP Objects Reference.pdf

ABAP用户指南.pdf

ABAP学习手册.pdf

ABAP测试题.pdf

SAP ABAP基础编程.pdf

BC490 ABAP Performance Tuning.pdf

最新资源