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

最新推荐文章于 2024-11-05 16:12:02 发布

SAPmatinal

最新推荐文章于 2024-11-05 16:12:02 发布

阅读量413

点赞数

分类专栏： ABAP技术文章标签：开发语言学习人工智能服务器

本文链接：https://blog.youkuaiyun.com/SAPmatinal/article/details/131647768

版权

ABAP技术专栏收录该内容

1038 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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_msg SEPARATED BY '/'.
      ENDLOOP.

      IF sy-subrc NE 0.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
          EXPORTING
            wait = 'X'.

        gs_data-status = icon_green_light.
        gs_data-mesg = '删除成功'.
      ELSE.
        CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
        gs_data-status = icon_red_light.
        gs_data-mesg = lv_msg.
      ENDIF.
      MODIFY gt_data FROM gs_data INDEX ls_rows-index TRANSPORTING status mesg.
      CLEAR:gs_data.
    ENDIF.
    CLEAR:ls_rows.
  ENDLOOP.
ENDFORM.