ABAP/4 报表编程模板

ABAP/4 报表编程模板初学者必看

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

*& Report Z_X_XXXXX                                               

*&Module                   Module \SubModule                    

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

*&Created                  author (2009.10.09)                  

*&Modified                 author (someday)                     

Intention               程序的详细说明                        

请用户在ABAP/4REPORT编程时,参考本程序提供的编程框架             

                     

在编码规范有出入时,以本程序为准

以下各事件可根据实际编程需要使用,对于需要处理的事件,可将该事

件后面的语句注释去掉,再编写相应的子程序代码。

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

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' fielditab_sales-gsber.   "权限检查

if sy-subrc ne0.                           "权限检查未通过

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.

ENDform.                   " PAGE_HEADER

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

*&     form  INI_DATA

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

     text

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

--> p1       text

<-- p2       text

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

form INI_DATA.

ENDform.                   " INI_DATA

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

*&     form  INI_SELECTION_SCREEN

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

     text

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

--> p1       text

<-- p2       text

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

form INI_SELECTION_SCREEN.

ENDform.                   " INI_SELECTION_SCREEN

 

 

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

*& IncludeZ_X_XXXXXTOP                                            

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

REPORT  Z_X_XXXXX                  .

*-------------------声明系统字典对象----------------------------*

TABLES: t001.

*--------------------声明 Selection-screen变量-----------------*

SELECTION-SCREEN BEGIN OF BLOCK B1

                        WITH FRAME

                        TITLE TEXT-001.

SELECTION-SCREEN SKIP.

SELECT-OPTIONS: S_BUKRS  FOR T001-BUKRS MEMORY ID  BUK.

PARAMETERS:    P_DATE   LIKESY-DATUM   DEFAULT SY-DATUM.

SELECTION-SCREEN END   OFBLOCK B1.

*--------------------声明全局变量-------------------------------*

*声明内表时,表名为 ITAB_XXXX,后缀尽可能为关联DBTab或内表用途

DATA:  bldat  like  bsid-bldat.

RANGES: R_FIELD  FOR   DBTAB-FIELD.

说明:以上是模板程序的框架及说明,在R/3系统的开发环境中有该模板程序(Z_X_XXXXX),建议编程序之前,先将该程序另存一新文件,再根据需要修改这新文件。

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

*& Report Z_X_XXXXX                                               

*&Module                   Module \SubModule                    

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

*&Created                  author (2003.10.09)                  

*&Modified                 author (someday)                     

Intention               程序的详细说明                        

请用户在ABAP/4REPORT编程时,参考本程序提供的编程框架             

                     

在编码规范有出入时,以本程序为准

以下各事件可根据实际编程需要使用,对于需要处理的事件,可将该事

件后面的语句注释去掉,再编写相应的子程序代码。

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

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' fielditab_sales-gsber.   "权限检查

if sy-subrc ne0.                           "权限检查未通过

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.

ENDform.                   " PAGE_HEADER

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

*&     form  INI_DATA

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

     text

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

--> p1       text

<-- p2       text

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

form INI_DATA.

ENDform.                   " INI_DATA

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

*&     form  INI_SELECTION_SCREEN

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

     text

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

--> p1       text

<-- p2       text

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

form INI_SELECTION_SCREEN.

ENDform.                   " INI_SELECTION_SCREEN

 

 

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

*& IncludeZ_X_XXXXXTOP                                            

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

REPORT  Z_X_XXXXX                  .

*-------------------声明系统字典对象----------------------------*

TABLES: t001.

*--------------------声明 Selection-screen变量-----------------*

SELECTION-SCREEN BEGIN OF BLOCK B1

                        WITH FRAME

                        TITLE TEXT-001.

SELECTION-SCREEN SKIP.

SELECT-OPTIONS: S_BUKRS  FOR T001-BUKRS MEMORY ID  BUK.

PARAMETERS:    P_DATE   LIKESY-DATUM   DEFAULT SY-DATUM.

SELECTION-SCREEN END   OFBLOCK B1.

*--------------------声明全局变量-------------------------------*

*声明内表时,表名为 ITAB_XXXX,后缀尽可能为关联DBTab或内表用途

DATA:  bldat  like  bsid-bldat.

RANGES: R_FIELD  FOR   DBTAB-FIELD.

说明:以上是模板程序的框架及说明,在R/3系统的开发环境中有该模板程序(Z_X_XXXXX),建议编程序之前,先将该程序另存一新文件,再根据需要修改这新文件。

1,ObjectNavigator是ABAP工作平台上众中开发工具的中心入口,事务代码为:se80,其中还有几个经常会用到的T-CODE: SE38,SE24, SE37.

2,在ABAP Editor中有一个Excute with variant按钮,代表通过变量运行(变式与选择屏幕相关).

3,Editor Pretty Printer ON/OFF的设置: 菜单项:Utilites->settings有相关项,选中Indent,Convertupper/lowercase同Keyword Uppercase.

4,ABAP有三种类型的处理块:Event blocks, DialogModules,Procedures只有后一种可拥有自己的局部变量,而且程序语句是内部调用,前两者处理块之间实行外部调用.

5,应用程序类型,可执行的:以Report关键字引导,不能定义功能模块但可以调用.模块池的:以Program关键字引导,必须通过事务代码运行.

6,语句链 Write: text1, text2. 等同于: Write text1. Write text2.

7,在一个Program中,处于Form和Endform之间的是Subroutines.该程序由Program引导,不能直接运行,需被调用,不能包含自定义的用户屏幕.

8,数据内部定义: types type(len) Type type [decimal dec]

data data(len) Type type [decimal dec] [value var]

Decimal 附加项只适用于指定P类型的小数位.

9,两个结构体进行赋值操作,如果 Source与Destination的组件结构不完全相同,则用

Move-corresponding, eg: move-corresponding source-data todestination-data.

10.在ABAP数据表达式中,关键字前后必须有空格,eg: Fault: (a=b+c) true:: a = b + c.

11.在用户主记录里可以设置日期的显示分隔符,小数点字符和千位分隔符,在system->userprofile->owndata或T-code: su01.

12,内表是一种大批量数据管理形式,用于在程序运行期间存储多行结构相同的数据,程序对内表的行操作不能直接进行,必须通过一种接口来传输,这个接口就是工作区.

13,ABAP的两种动态数据对象: Field symbols 与 Data reference.

14,内表有三种形式: standard table , sorted table , hashedtable后一种不能进行索引查找,只能通过关键字搜索.

15,子程序的定义和调用分别用Form/Endform和perform来实现,如果想生成子程序的代码框架,则在prefomadd处双击即可.

1,package的命名规则: begin with A-S or U-X是SAP standard object, beginwith Y or Z are customer objects, begin with T are private testpackage, begin with $ are local package.

2.在数据字典中,每创建一个TABLE,都将生成一个同名的结构化数据类型,其中的组件字段与实际物理数据库表完全一致.

3,在select查询中如果要指定多个数据对象,则需要将这些对象放在括号内,并用逗号隔开,eg: select * fromspfli into (a, b).

4.FunctionModule是最为常用的复用组件,它是独立的R/3仓库对象,也是一种过程模块,在不同的系统间可以通过RFC(Remotefunction call)技术进行功能模块的调用.

5,几个有用的系统函数: sy-uname, sy-host, sy-datum, sy-uzedit, sy-subrc,sy-bdcnt,sy-index, sy-tabix,sy-dynnr.

6,可用于交互式报表的列表事件有: at line-selection, at user-command前者为选择某行时触发,后者由某个GUI触发.

7,在可执行程序中,只要在程序代码中使用parametes或select-options语句,则在程序运行后就会产生用户的选择屏幕.

  • 0
    点赞
  • 7
    收藏
    觉得还不错? 一键收藏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值