ABAP报表开发实例

ABAP报表开发实例。在这里示范一个实例，讲讲abap开发报表的简单过程。程序的正确与否我们不与讨论，我们只关心这个程序的编写过程。首先，在任何程序的开始阶段，我们都要确定将会用到的表。我们所讲的这个程序是查询采购订单是否完成的。将会用到以下三个表:EKKO,EKPO,EKET。程序的开头为：REPORTTEST.TABLES:EKKO,EKET,EKPO.现在我们已经定义了所要用到的表，接下来的工作就是定义内表和数据。内表是用来存储我们从上述三个表中查询到的数据。相关定义如下：DATA:BEGINOFITABOCCURS0,EBELNLIKEEKKO-EBELN,MENGELIKEEKPO-MENGE,WEMNGLIKEEKET-WEMNG,ENDOFITAB.现在我们已经定义完了内表ITAB。接着我们该定义数据了。数据就像C语言里的常量。其相关定义如下：DATA:MATNRLIKEEKPO-MATNR,MENGELIKEEKPO-MENGE,WEMNGLIKEEKET-WEMNG,EBELNLIKEEKPO-EBELN.到这里我们已经把程序里要用到的数据和内表都定义好了。接着我们要做的工作就是选择屏幕。所谓选择屏幕是指程序运行时，你要从屏幕上输入的内容。比如说一个程序运行时，你输入一个物料号，就可以得到该物料的当前的库存数，那你就要编写一个屏幕以供查询者输入查询的条件。其相关定义如下：SELECT-OPTIONS:EBELN1FOREKKO-EBELN,BEDATFOREKKO-BEDAT,EKGRPFOREKKO-EKGRP.PARAMETERS:R1RADIOBUTTONGROUPRADI,R2RADIOBUTTONGROUPRADI,R3RADIOBUTTONGROUPRADI.现在我们已经完成了程序的前期准备，接着就开始真正的到表里查询我们需要的相关数据了。其代码如下:SELECTK~EBELNINTOCORRESPONDINGFIELDSOFTABLEITABFROMEKKOASKWHEREK~EBELNINEBELN1ANDK~BEDATINBEDATANDK~EKGRPINEKGRP.LOOPATITAB.SELECTSUM(MENGE)INTOITAB-MENGEFROMEKPOWHEREEBELNEQITAB-EBELN.MODIFYITAB.ENDLOOP.LOOPATITAB.SELECTSUM(WEMNG)INTOITAB-WEMNGFROMEKETWHEREEBELNEQITAB-EBELN.MODIFYITAB.ENDLOOP.然后我们需要定义输出界面。把我们查询到的数据输出时要有一个输出的格式，这样大家看起来才会方便。代码如下：TOP-OF-PAGE.WRITE:/'采购凭证号',22'物料号码',47'采购订单数量',77'收到货物数量',95'完成标志'.ULINEAT/1(130).END-OF-PAGE.START-OF-SELECTION.最后就是把我们查到的数据输出了。其实我举的这个程序到这一步时穿插了一些查询，所以比较长。代码如下：IFR1='X'.LOOPATITAB.SELECTS~MATNRS~MENGEP~WEMNGS~EBELNINTO(MATNR,MENGE,WEMNG,EBELN)FROMEKPOASSINNERJOINEKETASPONS~EBELP=P~EBELPANDS~EBELN=P~EBELNWHERES~EBELN=ITAB-EBELN.IFITAB-MENGEITAB-WEMNG.WRITE:/2EBELN,23MATNR,41MENGE,71WEMNG,97'否'.ULINEAT/1(130).CLEAR:EBELN,MATNR,MENGE,WEMNG.ENDIF.ENDSELECT.ENDLOOP.ELSEIFR2='X'.LOOPATITAB.SELECTS~MATNRS~MENGEP~WEMNGS~EBELNINTO(MATNR,MENGE,WEMNG,EBELN)FROMEKPOASSINNERJOINEKETASPONS~EBELP=P~EBELPANDS~EBELN=P~EBELNWHERES~EBELN=ITAB-EBELN.IFITAB-MENGE=ITAB-WEMNG.WRITE:/2EBELN,23MATNR,41MENGE,71WEMNG,97'是'.ULINEAT/1(130).CLEAR:EBELN,MATNR,MENGE,WEMNG.ENDIF.ENDSELECT.ENDLOOP.ELSE.LOOPATITAB.SELECTS~MATNRS~MENGEP~WEMNGS~EBELNINTO(MATNR,MENGE,WEMNG,EBELN)FROMEKPOASSINNERJOINEKETASPONS~EBELP=P~EBELPANDS~EBELN=P~EBELNWHERES~EBELN=ITAB-EBELN.IFITAB-MENGEITAB-WEMNG.WRITE:/2EBELN,23MATNR,41MENGE,71WEMNG,97'否'.ULINEAT/1(130).CLEAR:EBELN,MATNR,MENGE,WEMNG.ENDIF.ENDSELECT.ENDLOOP.ENDIF.LOOPATITAB.IFR3='X'ANDITAB-MENGE=ITAB-WEMNG.SELECTS~MATNRS~MENGEP~WEMNGS~EBELNINTO(MATNR,MENGE,WEMNG,EBELN)FROMEKPOASSINNERJOINEKETASPONS~EBELP=P~EBELPANDS~EBELN=P~EBELNWHERES~EBELN=ITAB-EBELN.WRITE:/2EBELN,23MATNR,41MENGE,71WEMNG,97'是'.ULINEAT/1(130).CLEAR:EBELN,MATNR,MENGE,WEMNG.ENDSELECT.ENDIF.ENDLOOP.这时程序就结束了。其实举这个例子是想让大家知道ABAP开发报表的一个常规流程，并不是讲什么技巧之类的，希望能对初学者有点用