1F
这是我刚接触report的时候下的,转给你参考[这个贴子最后由tanglun在2003/12/0301:39pm第1次编辑]在这里我给初学者示范一个实例,讲讲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..请各位高手帮个忙