1个回答
2013-11-13
展开全部
这是我刚接触report的时候下的,转给你参考[这个贴子最后由tanglun在 2003/12/03 01:39pm 第 1 次编辑]在这里我给初学者示范一个实例,讲讲abap开发报表的简单过程。程序的正确与否我们不与讨论,我们只关心这个程序的编写过程。首先,在任何程序的开始阶段,我们都要确定将会用到的表。我们所讲的这个程序是查询采购订单是否完成的。将会用到以下三个表:EKKO,EKPO,EKET。程序的开头为:REPORTTEST.TABLES:EKKO,EKET,EKPO.现在我们已经定义了所要用到的表,接下来的工作就是定义内表和数据。内表是用来存储我们从上述三个表中查询到的数据。相关定义如下:DATA: BEGIN OF ITAB OCCURS 0, EBELN LIKE EKKO-EBELN, MENGE LIKE EKPO-MENGE, WEMNG LIKE EKET-WEMNG, END OF ITAB.现在我们已经定义完了内表ITAB。接着我们该定义数据了。数据就像C语言里的常量。其相关定义如下:DATA: MATNRLIKE EKPO-MATNR, MENGELIKE EKPO-MENGE, WEMNGLIKE EKET-WEMNG, EBELNLIKE EKPO-EBELN.到这里我们已经把程序里要用到的数据和内表都定义好了。接着我们要做的工作就是选择屏幕。所谓选择屏幕是指程序运行时,你要从屏幕上输入的内容。比如说一个程序运行时,你输入一个物料号,就可以得到该物料的当前的库存数,那你就要编写一个屏幕以供查询者输入查询的条件。其相关定义如下:SELECT-OPTIONS: EBELN1 FOREKKO-EBELN, BEDAT FOREKKO-BEDAT, EKGRP FOREKKO-EKGRP.PARAMETERS:R1 RADIOBUTTON GROUP RADI, R2 RADIOBUTTON GROUP RADI, R3 RADIOBUTTON GROUP RADI.现在我们已经完成了程序的前期准备,接着就开始真正的到表里查询我们需要的相关数据了。其代码如下:SELECTK"EBELN INTO CORRESPONDING FIELDS OF TABLE ITAB FROM EKKO AS K WHERE K"EBELN IN EBELN1 AND K"BEDAT IN BEDAT AND K"EKGRP IN EKGRP.LOOP AT ITAB. SELECT SUM( MENGE ) INTO ITAB-MENGE FROM EKPO WHERE EBELN EQ ITAB-EBELN. MODIFY ITAB.ENDLOOP.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
ZESTRON
2024-09-04 广告
2024-09-04 广告
在Dr. O.K. Wack Chemie GmbH,我们高度重视ZESTRON的表界面分析技术。该技术通过深入研究材料表面与界面的性质,为提升产品质量与可靠性提供了有力支持。ZESTRON的表界面分析不仅涵盖了相变化、化学反应、吸附与解吸...
点击进入详情页
本回答由ZESTRON提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询