abap 报表编程 框架

ABAP/4 报表编程模板初学者必看
*&--------------------------------------------------------------*
*& Report  Z_X_XXXXX                                                
*& Module                   :  Module " SubModule                      
*&--------------------------------------------------------------*
*& Created                  :  author  (2003.10.09)                    
*& Modified                 :  author  (someday)                      
*  Intention                :  程序的详细说明                          
*  请用户在ABAP/4 REPORT编程时，参考本程序提供的编程框架              
*                        
*  在编码规范有出入时，以本程序为准
*  以下各事件可根据实际编程需要使用，对于需要处理的事件，可将该事
*  件后面的语句注释去掉，再编写相应的子程序代码。
*&--------------------------------------------------------------*

INCLUDE Z_X_XXXXXTOP .           " TOP 子程序，用来声明全局变量

*----以下三个子程序只有在多个程序调用同一逻辑时才建议使用-----*
*INCLUDE Z_X_XXXXXO01 .               " PBO 子程序
*INCLUDE Z_X_XXXXXI01 .               " PAI 子程序
*INCLUDE Z_X_XXXXXF01 .               " form 子程序

INITIALIZATION.
*  PERform  INI_SELECTION_SCREEN.       " 初始化选择屏上的变量

AT SELECTION-SCREEN.
*  PERform  INI_DATA.                   " 初始化全局变量

START-OF-SELECTION.
*  PERform  PRECESS_DATA.               " 主要数据处理逻辑

AT LINE-SELECTION.
*  PERform  PRECESS_LINE_SELECTED.      " 行选择时的处理

AT USER-COMMAND.
*  PERform  PRECESS_USER_COMMAND.      * 用自定义命令按钮时的处理

TOP-OF-PAGE.
*  PERform  PAGE_HEADER.                " 页眉

END-OF-PAGE.
*  PERform  PAGE_FOOT.                  " 页脚


*&--------------------------------------------------------------*
*&      form  PRECESS_DATA
*&--------------------------------------------------------------*
*       text
*---------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*---------------------------------------------------------------*

form PRECESS_DATA.
*如果逻辑简单, 则合并若干form为一个
 PERform  SEL_DBTAB_XXXXX.   " 从透明表中取数据赋给内表
 PERform  CMP_ITAB_XXXXX.    " 内表中数据计算处理
 PERform  WRT_ITAB_RESULT.   " 输出内表数据
ENDform.                    " PRECESS_DATA

*&--------------------------------------------------------------*
*&      form  SEL_DBTAB_XXXXX
*&--------------------------------------------------------------*
*       text
*---------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*---------------------------------------------------------------*
form SEL_DBTAB_XXXXX.
select * into corresponding fields of itab_sales
        from bsid
        where bukrs = s_bukrs.

    authority-check object 'Z:FI-00001'
       id 'ACTVT' field '03'
       id 'BUKRS' field itab_sales-bukrs
       id 'GSBER' field itab_sales-gsber.   "权限检查

if sy-subrc ne 0.                            "权限检查未通过
continue.
endif.
append itab_sales.
clear itab_sales.
endselect.
ENDform.                    " SEL_DBTAB_XXXXX

*&--------------------------------------------------------------*
*&      form  CMP_ITAB_XXXXX
*&--------------------------------------------------------------*
*       text
*---------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*---------------------------------------------------------------*

form CMP_ITAB_XXXXX.

ENDform.                    " CMP_ITAB_XXXXX

*&--------------------------------------------------------------*
*&      form  WRT_ITAB_RESULT
*&--------------------------------------------------------------*
*       text
*---------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*---------------------------------------------------------------*
form WRT_ITAB_RESULT.
*  PERform WRT_ITAB_SUB.
ENDform.                    " WRT_ITAB_RESULT

*&--------------------------------------------------------------*
*&      form  PAGE_HEADER
*&--------------------------------------------------------------*
*       text
*---------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*---------------------------------------------------------------*
form PAGE_HEADER.