ABAP-NOTE 获取释放的定单

 

  loop at gt_print.

************
*    *****  添加检查订单状态  ，非REL状态删除******

    data: begin of order_objects occurs 50.
            include structure bapi_pp_order_objects.
    data: end of order_objects.

    data: begin of header occurs 50.
            include structure bapi_order_header1.
    data: end of header.


*===============================
    order_objects-header = 'X'.
    call function 'BAPI_PRODORD_GET_DETAIL'
      exporting
        number        = gt_print-aufnr
        order_objects = order_objects
      tables
        header        = header.
    loop at header.
    endloop.
    search header-system_status for 'REL'.
    if sy-subrc = 4.

      delete gt_print where aufnr = gt_print-aufnr .

    endif.

    search header-system_status for '删除'.
    if sy-subrc = 0.
      delete gt_print where aufnr = gt_print-aufnr .
    endif.



*******END

  endloop.