Question

ABAP 一对多关系

FORM GET_DATA.
* DATA : BEGIN OF it_ekpo OCCURS 0,
* LIFNR TYPE ekko-LIFNR, "供应商
* EKGRP TYPE ekko-EKGRP, "采购租
* MATNR TYPE ekpo-MATNR, "物料编码
* TXZ01 TYPE EKPO-TXZ01, "物料描述
* MENGES TYPE ekpo-MENGE, "采购数量
* EBELN TYPE EKPO-EBELN, "采购订单
* EBELP TYPE EKPO-EBELP, "行项目
* AEDAT TYPE EKPO-AEDAT, "输入系统日期
* EINDT TYPE EKET-EINDT, "厂商回复交期
* END OF it_ekpo.

select lfdat banfn badat menge werks
INTO CORRESPONDING FIELDS OF TABLE it_header
from eban
WHERE werks IN z_werks.

LOOP AT it_header INTO wa_header.
* SELECT
* EKKO~AEDAT EKKO~LIFNR EKKO~EKGRP
* EKPO~ebeln EKPO~TXZ01 EKPO~MENGE
* INTO CORRESPONDING FIELDS OF iy_header
* from EKKO
* INNER JOIN EKPO
* ON EKKO~EBELN = EKPO~EBELN
* WHERE ekpo~banfn = wa_header-banfn
* AND ekpo~bnfpo = wa_header-bnfpo
* .
* MODIFY it_header FROM WA_HEADER.
ENDLOOP.

ENDFORM.

Answer 1

你用select single 取第一条记录呗

Answer 2

楼主能把问题说清楚一下吗？

Answer 3

怎么没有说明问题是什么？