Question

SAP ABAP 中有关数据查询与计算问题

（1） 关联表EKKO、EKPO、EKET MAKT，取出采购订单号、物料、物料描述、采购订单下单量、下单日期、交期、请购部门。
（2） 计算已收货量：根据采购订单号、项目号关联采购订单历史表EKBE，首先根据借贷标识EKBE-SHKZG将EKBE-MENGE（数量）赋予正负号，SHKZG为S时为正数，SHKZG为H时为负数。再将相同采购订单号、项目号、EKBE-VGABE=1的数量（EKBE-MENGE）汇总，计算出已收货量
（3） 计算未清量：用采购订单行项目的数量减去已收货量得出未清量.
（4） 供应商描述：根据EKKO-LIFNR供应商账号关联表LFA1- NAME1取出描述.
（5） 物料描述：根据料号关联表MAKT-MAKTX，取出物料描述.
（6） 选择界面有”未清采购订单”的参数,控制显示的范围,如果选中,则仅显示未清的采购订单(未清量不等于0的),默认为选中状态. At select screen on
（7） 表格执行的结果分表头信息和项目信息，详见“消息输出界面”。输出的结果需要直接打印，打印内容宽度要适合页面。
给我指明 如何查询数据库 并且计算就可以了
SELECT
EKKO~BEDAT EKKO~EBELN EKPO~EBELP EKPO~AFNAM EKPO~MENGE EKPO~MEINS EKET~EINDT MAKT~MATNR MAKT~MAKTX LFA1~ LIFNR
LFA1~ NAME1
INTO CORRESPONDING FIELDS OF TABLE ITAB
From LFAL inner join EKKO on LFAL~LIFNR = EKKO~LIFNR
Inner join EKET on EKKO ~EBELN = EKET ~EBELN
Inner join EKPO on EKET~EBELN = EKPO~EBELN
AND EKET~EBELP = EKPO~EBELP
inner join MARK on EKKO~MATNR = MARK ~ MATNR.
Where LFA1~ NAME1in NAME1 .
Select EKBE-SHKZG EKBE-MENGE EKBE-VGABE from EKBE
INTO EKBE
From LFAL inner join EKKO on LFAL~LIFNR = EKKO~LIFNR
Inner join EKET on EKKO ~EBELN = EKET ~EBELN
Inner join EKBE on EKET~EBELN = EKBE~EBELN
AND EKET~EBELP = EKBE~EBELP
Where LFA1~ NAME1in NAME1 .
If EKBE-SHKZG = S.
EKBE -MENGE = EKBE -MENGE.
Else.
EKBE -MENGE = - EKBE -MENGE.
Endif.
loop at itab into wa.
Wa-yijiao = EKBE –MENGE.
Append wa to itab.
If EKBE-VGABE=1.
Collect itab.
Endloop.

Endselect.
ENDFORM.

Answer 1

代码你自己都贴出来了...
建议:
SELECT
EKKO~BEDAT EKKO~EBELN EKPO~EBELP EKPO~AFNAM EKPO~MENGE EKPO~MEINS EKET~EINDT MAKT~MATNR MAKT~MAKTX LFA1~ LIFNR
LFA1~ NAME1
INTO CORRESPONDING FIELDS OF TABLE ITAB
From LFAL inner join EKKO on LFAL~LIFNR = EKKO~LIFNR
Inner join EKET on EKKO ~EBELN = EKET ~EBELN
Inner join EKPO on EKET~EBELN = EKPO~EBELN
AND EKET~EBELP = EKPO~EBELP
inner join MARK on EKKO~MATNR = MARK ~ MATNR.
Where LFA1~ NAME1in NAME1 .
"这里已经取出订单数量了.LOOP去查交货数量就好了.
LOOP AT ITAB.
Select EKBE-SHKZG EKBE-MENGE EKBE-VGABE from EKBE
INTO CORRESPONDING FIELDS OF TABLE WA_EKBE
From LFAL inner join EKKO on LFAL~LIFNR = EKKO~LIFNR
Inner join EKET on EKKO ~EBELN = EKET ~EBELN
Inner join EKBE on EKET~EBELN = EKBE~EBELN
AND EKET~EBELP = EKBE~EBELP
Where LFA1~ NAME1in NAME1
AND EKET~EBELN = ITAB-EBELN
AND EKET~EBELP = ITAB-EBELP .
LOOP AT WA_EKBE.
If WA_EKBE-SHKZG = S.
WA_EKBE -MENGE = WA_EKBE -MENGE.
Else.
WA_EKBE -MENGE = WA_EKBE -MENGE * -1.
Endif.
交货数量ITAB = 交货数量ITAB + WA_EKBE -MENGE.
ENDLOOP.
"汇总
If EKBE-VGABE=1.
Collect itab.
endif.

ENDLOOP.

未经测试!!!

Answer 2

本来需要做一个PO统计，正好兄台给了解释，多谢多谢，很详细，很需要！

Answer 3

你不是都写清楚了吗？ 还想知道什么？

追问

我要的是代码

追答

要代码的话，没人能帮你了。写这段代码得半天时间。

Answer 4

adasdasd