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
* *---------------------------------------------------------------*
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
* *---------------------------------------------------------------*
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
* *---------------------------------------------------------------*
form. CMP_ITAB_XXXXX.
ENDform. " CMP_ITAB_XXXXX
*&--------------------------------------------------------------*
*& form WRT_ITAB_RESULT
*&--------------------------------------------------------------*
* text
*---------------------------------------------------------------*
* --> p1 text
* *---------------------------------------------------------------*
form. WRT_ITAB_RESULT.
* PERform. WRT_ITAB_SUB.
ENDform. " WRT_ITAB_RESULT
*&--------------------------------------------------------------*
*& form PAGE_HEADER
*&--------------------------------------------------------------*
* text
*---------------------------------------------------------------*
* --> p1 text
* *---------------------------------------------------------------*
form. PAGE_HEADER.
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/16565567/viewspace-611931/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/16565567/viewspace-611931/