matinal：给工单打删除标识 BAPI:BAPI_PRODORD_SET_DELETION_FLAG

最新推荐文章于 2025-05-28 17:28:56 发布

原创

最新推荐文章于 2025-05-28 17:28:56 发布 · 596 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#开发语言 #学习 #人工智能 #服务器

这段代码展示了如何通过BAPI_PRODORD_SET_DELETION_FLAG函数来设置工单的删除标志。它首先从数据表中读取选定行，然后调用BAPI进行删除操作。如果遇到错误，程序会进行回滚并显示错误消息；否则，提交事务并更新状态信息。

BAPI:BAPI_PRODORD_SET_DELETION_FLAG

FORM frm_post .

  DATA:lt_rows   TYPE lvc_t_row,
       ls_return TYPE bapiret2,
       lt_aufnr  TYPE TABLE OF bapi_order_key WITH HEADER LINE,
       lt_detail TYPE TABLE OF bapi_order_return WITH HEADER LINE.
  DATA:lv_msg TYPE string.

  "获取选中行
  CALL METHOD go_grid->get_selected_rows
    IMPORTING
      et_index_rows = lt_rows.

  LOOP AT lt_rows INTO DATA(ls_rows).

    CLEAR:lt_aufnr,lt_aufnr[],lt_detail,ls_return,lv_msg.
    READ TABLE gt_data INTO gs_data INDEX ls_rows-index.
    IF sy-subrc EQ 0.
      "需要执行删除的工单存内表
      lt_aufnr-order_number = gs_data-aufnr.
      APPEND lt_aufnr.
      CLEAR:lt_aufnr.

      CALL FUNCTION 'BAPI_PRODORD_SET_DELETION_FLAG'
        IMPORTING
          return        = ls_return
        TABLES
          orders        = lt_aufnr
          detail_return = lt_detail.

      LOOP AT lt_detail WHERE type = 'E' OR type EQ 'A' OR type EQ 'X'.
        CONCATENATE lv_msg lt_detail-message INTO lv_ms