SAP代替CO02下发按钮生产订单下发BAPI

ABAP 成

已于 2024-02-27 10:41:28 修改

阅读量510

点赞数 7

文章标签：经验分享

于 2024-02-27 10:41:18 首次发布

本文链接：https://blog.csdn.net/qq_48677456/article/details/135377091

版权

文章描述了一个使用SAPABAP编程技术的过程，包括从LT_STATUS表中获取订单状态，更新订单状态，审批标识，以及调用BAPI函数进行事务提交和生产订单释放的操作。

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

 DATA check_only TYPE xfeld.
  DATA client     TYPE sy-mandt.
  DATA objnr      TYPE jsto-objnr.
  DATA zeile      TYPE mesg-zeile.
  DATA set_chgkz  TYPE jsto-chgkz.
  DATA:lt_status TYPE TABLE OF jstat WITH HEADER LINE.
* 下达标识 afpo-dfrei 更新
  DATA orders             TYPE  TABLE OF bapi_order_key WITH HEADER LINE.     "生产单
  DATA detail_return      TYPE STANDARD TABLE OF bapi_order_return .

  LOOP AT gt_out INTO gs_out WHERE sel = 'X'.
    CLEAR:objnr,orders[], detail_return[].
    CALL FUNCTION 'STATUS_READ'
      EXPORTING
        client           = sy-mandt          "当前客户端
        objnr            = objnr             "生产订单对象号
      TABLES
        status           = lt_status[]       "返回订单的状态
      EXCEPTIONS
        object_not_found = 1
        OTHERS           = 2.

    "添加已审批
    lt_status-inact = ''.  "X 未激活 '' 激活
    lt_status-stat  = 'I0002'.
    APPEND  lt_status.

    "添加REL审批标识
    CALL FUNCTION 'STATUS_CHANGE_INTERN'
      EXPORTING
        client              = sy-mandt
        objnr               = objnr
      TABLES
        status              = lt_status[]
      EXCEPTIONS
        object_not_found    = 1
        status_inconsistent = 2
        status_not_allowed  = 3
        OTHERS              = 4.

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

      orders-order_number = gs_out-aufnr.    "生产单号
      APPEND  orders.

      CALL FUNCTION 'BAPI_PRODORD_RELEASE'
        TABLES
          orders = orders[].

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

    ENDIF.

  ENDLOOP.