ABAP把内表里的两行物料号显示到一条返回信息里

在ABAP中，如果你想将内表（Internal Table）中的两条或多条物料号合并成一条返回的信息，通常的做法是遍历这个内表，并将相关的数据存储在一个临时变量或者新的内表中。这里提供一个简单的示例，假设我们有一个名为lt_items的内表，其中包含物料编号字段matrikelnummer：

DATA: lt_output TYPE SORTED TABLE OF ty_output WITH UNIQUE KEY matrikelnummer.

FOR each_data IN lt_items.
  DATA: output_line TYPE ty_output.
  output_line.matrikelnummer = each_data.matrikelnummer.
  " 这里可以根据需要添加其他字段值
  APPEND output_line TO lt_output.
ENDFOR.

" 如果内表中有超过一条数据，我们需要在最后再添加一条合并的记录
IF LINE-COUNTOF(lt_output) > 1.
  CREATE OBJECT output_line ASSIGNING TO data.
  data.matrikelnummer = '...'(或其他合并物料号的表示)
  ... (处理其他合并的字段)
  APPEND data TO lt_output.
ENDIF.

WRITE: / lt_output.  " 将结果写入屏幕或进一步保存

相关问题

用abap代码写一个显示物料数据报表

以下是一个简单的 ABAP 代码示例，用于显示物料数据报表，包括物料号、物料描述、批次号和库存数量。

REPORT z_material_report.

TABLES: mara, mard.

DATA: BEGIN OF itab OCCURS 0,
        matnr TYPE mara-matnr,
        maktx TYPE mara-maktx,
        charg TYPE mard-charg,
        labst TYPE mard-labst,
      END OF itab.

SELECT-OPTIONS: s_matnr FOR mara-matnr.

SELECT mara~matnr
       mara~maktx
       mard~charg
       mard~labst
  FROM mara
  JOIN mard
    ON mara~matnr = mard~matnr
  INTO TABLE itab
 WHERE mara~matnr IN s_matnr.

IF sy-subrc = 0.
  WRITE: / '物料号', '物料描述', '批次号', '库存数量'.
  LOOP AT itab.
    WRITE: / itab-matnr, itab-maktx, itab-charg, itab-labst.
  ENDLOOP.
ELSE.
  WRITE: / '没有符合条件的数据。'.
ENDIF.

这段代码首先定义了一个内部表 itab，包含物料号、物料描述、批次号和库存数量等字段。然后，使用 SELECT 语句从 MARA 和 MARD 表中检索所需的数据，并将其存储在内部表中。最后，通过一个循环遍历内部表，并使用 WRITE 语句将数据输出到屏幕上。

abap 新增内表行alv显示及刷新

在ABAP中，新增内表行通常是通过内循环（Internal Table Looping）以及ALV（Advanced List View）来完成的。当需要在用户界面显示数据并允许用户添加新行时，你可以按照以下步骤操作：

1. 定义一个内部表（Internal Table），用于存储你需要显示的数据。

data: lt_my_table like my_table型.

2. 创建一个新的ALV表格控件，并将其关联到你的内部表上：

REPORT zmy_report.
ON DATABASE initialization.
  DATA: lv_alv TYPE alv_grid,
        lv_table_id TYPE sy-tabname.

  cl_gui_alv_table=>create(
    EXPORTING
      id = lv_table_id
      table = lt_my_table
      ...
    IMPORTING
      handle_data = lv_alv ).

3. 在循环中填充初始数据（如有），然后设置ALV控件可见：

loop AT lt_my_table INTO DATA(ls_row).
  ...
ENDLOOP.

lv_alv->display( ).

4. 提供添加新行的功能，比如使用`INSERT ROWS`函数：

cl_gui_alv_table=>insert_rows(
  SCREEN = sy-screen
  TABLE = lt_my_table
  INDEX = sy-index ).

5. 用户填写完新行后，可以使用`ACTIONPerform`调用保存或提交功能，更新内部表并刷新ALV：

CALL FUNCTION 'ACTION_PERFORM'
  WITH SCREEN = sy-screen
  TABLE_ID = lv_table_id
  ACTION_NAME = 'ACTION_SAVE'.

6. 结束循环后，记得关闭ALV视图：

lv_alv->close( ).