将数据从多个表提取到 1 个对象中



我需要将数据从 2 个表拉到 1 个对象中。两个表共享设备编号,我需要从表 EQKT 中获取相应的描述,从 EQUZ 获取所有者 ID。

DATA: BEGIN OF t_report OCCURS 3,
matnr LIKE eqkt-equnr,
mtart LIKE eqkt-eqktx,
maktx LIKE equz-J_3GEIGNER,
END OF t_report.*-
DATA: d_repid LIKE sy-repid.
*-----------------------------------------
*--Selection Screen
SELECT-OPTIONS: s_matnr FOR eqkt-equnr.
*-----------------------------------------
START-OF-SELECTION.
*-Read data
  SELECT * FROM eqkt
  WHERE equnr IN s_matnr.
    CLEAR makt.
    SELECT SINGLE *
    FROM makt
    WHERE matnr = eqkt-equnr AND
    spras = sy-langu.
    MOVE: eqkt-equnr TO t_report-matnr,
    eqkt-eqktx TO t_report-mtart.
    APPEND t_report.
  ENDSELECT.
*This is where it stops working.
  SELECT * FROM EQUZ
  WHERE equnr IN s_matnr.
    MOVE: EQUZ-J_3GEIGNER TO t_report-maktx.
    APPEND t_report.
  ENDSELECT.

代码编译,在我显示它的 ALV 中,它确实在表顶部正确显示"所有者",但没有为所有者填写任何数据(正确显示设备编号和描述)

你需要

做的是一个JOIN:

SELECT T~EQUNR T~EQKTX Z~J_3GEIGNER 
  INTO TABLE T_REPORT
  FROM EQKT AS T
  JOIN EQUZ AS Z
    ON T~EQUNR = Z~EQUNR
  WHERE T~EQUNR IN S_MATNR
    AND T~SPRAS = SY-LANGU.

(在您的示例中,您没有在表中定义MTART字段,但您可以在代码中将其移动到该位置。当然,您可以根据需要调整此示例)。

第二个循环不应该在表中添加新条目,而是应该填充表中的第三列,该列基本上是在第一个循环中填充的,对吗?

如果是这样,请将第二个选择移动到第一个选择中,并按照与表 MAKT 相同的方式进行操作,即

SELECT SINGLE J_3GEIGNER  
    FROM EQUZ
    INTO T_REPORT-MAKTX
    WHERE equnr = eqkt-equnr.

但是如果你真的想保留两个循环,你需要在第二个循环中使用字段符号,如下所示:

FIELD-SYMBOLS: <T_REPORT> LIKE LINE OF T_REPORT.
SELECT * FROM EQUZ WHERE equnr IN s_matnr.
  READ TABLE T_REPORT ASSIGNING <T_REPORT>
         WITH KEY MATNR = EQUZ-EQUNR.
  CHECK SY-SUBRC EQ 0.  " skip unknown material numbers
  <T_REPORT>-MAKTX = EQUZ-J_3GEIGNER.
ENDSELECT.

这样,表 EQUZ 中的值将被添加到内部表 T_RECORD 中的正确记录中。

顺便说一句,还有一个额外的提示:不要使用 OCCURS ,而是显式声明表。在您的情况下,它应该是这样的:

DATA: BEGIN OF S_report,
        matnr LIKE eqkt-equnr,
        mtart LIKE eqkt-eqktx,
        maktx LIKE equz-J_3GEIGNER,
      END OF S_report,
      T_REPORT like standard table of S_REPORT.

当然,你不能使用标题行,而是使用S_REPORT作为工作区,例如写APPEND S_RECORD TO T_RECORD而不是APPEND T_RECORD(但它只会让你的代码更好,更容易阅读和维护)。

相关内容

  • 没有找到相关文章

最新更新