PP篇7 生产替代料齐套后处理

扫描可关注本人技术分享公众号，与您一起学习新知！

对于计划订单和生产订单，
当存在替代料的时候，完成齐套性检查后，按照可齐套量进行拆单，并删除不能齐套的替代料（有个删除规则）。不能齐套就按照优先级最高（库存最大）的组件安排生产，其他的组件删除。
计划订单齐套后处理
选择所有PLAF-STLFX <> X（物料清单展开的固定标识）的计划订单。

2.1 判断如果PLAF- VFMNG (可齐套数量)>0，删除不齐套的替代料。删除COMMITED QUANTITY, (RESB-VMENG = 0)的组件行。

2.2 如果PLAF- VFMNG (可齐套数量)=0，保留需求日期可用量较大的替代料（删除计划订单组件）
2.3 如果选择了按齐套拆解计划订单，则更改计划订单的数量为可齐套数量。
重新批量执行MRP，批量进行ATP检查。

生产订单齐套后处理
3.1，如果生产订单的AFPO- VFMNG (可齐套数量) <> 0, 删除掉RESB- VMENG (承诺数量)=0的替代料。
3.2，如果生产订单的AFPO- VFMNG (可齐套数量) =0, 保留工单中可用量最大的替代料，删除掉其他替代料。（删除工单组件）

3.3，如果选择了“按齐套结果分拆工单”，按照AFPO- VFMNG (可齐套数量)更新工单。

下面分享需求里用到的主要功能：
1，删除计划订单组件，删除生产订单组件，对应前台事务码分别是 MD12 ， CO02
2，修改计划订单总订单数量，对应前台事务码 MD12
3，修改工单总数量，对应前台事务码 CO02

1.删除订单组件用BAPI：

*&---------------------------------------------------------------------*
*& Form FRM_DEAL_DD01
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> LT_RESBKEYS
*&---------------------------------------------------------------------*
FORM frm_deal_dd01  TABLES   pt_resbkeys TYPE coxt_t_resbdel.
  DATA: lt_return TYPE STANDARD TABLE OF bapiret2,
        lv_error  TYPE flag.

  CHECK pt_resbkeys[] IS NOT INITIAL.
* BAPI to delete the components of Production Order
  CALL FUNCTION 'CO_XT_COMPONENTS_DELETE'
    EXPORTING
      it_resbkeys_to_delete = pt_resbkeys[]
    IMPORTING
      e_error_occurred      = lv_error
    TABLES
      ct_bapireturn         = lt_return
    EXCEPTIONS
      delete_failed         = 1
      OTHERS                = 2.
  IF lv_error IS INITIAL.
    PERFORM change_flag_set(saplcozv).
*    CALL FUNCTION 'CO_IT_SET_FLG_ITAB_NEW'.
    CALL FUNCTION 'CO_XT_ORDER_PREPARE_COMMIT'.
    COMMIT WORK AND WAIT.
    LOOP AT gt_data ASSIGNING FIELD-SYMBOL(<gf_data>) WHERE aufnr = gs_key-aufnr
                                                          OR plnum = gs_key-plnum.
      <gf_data>-ctype = gc_s.
    ENDLOOP.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
    CLEAR: gv_cmsg.
    LOOP AT lt_return INTO DATA(ls_return1) WHERE type CA 'EAX'.
      MESSAGE ID   ls_return1-id
            TYPE   ls_return1-type
            NUMBER ls_return1-number
            WITH   ls_return1-message_v1
                   ls_return1-message_v2
                   ls_return1-message_v3
                   ls_return1-message_v4
            INTO  DATA(lv_message).
      gv_ctype = gc_e.
      gv_cmsg = |{ lv_message };{ gv_cmsg }|.
      CLEAR: lv_message.
    ENDLOOP.
    LOOP AT gt_data ASSIGNING <gf_data> WHERE aufnr = gs_key-aufnr
                                            OR plnum = gs_key-plnum.

      <gf_data>-ctype = gc_e.
      <gf_data>-cmsg = gv_cmsg.
    ENDLOOP.
  ENDIF.
ENDFORM.

这步现在测试，删除生产订单OK ，删除计划订单也没有报错，但是没有删除成功，正在找问题，
放开

CALL FUNCTION 'CO_IT_SET_FLG_ITAB_NEW'.

再测试一次

需求数量和可用性检查数量的对比

已经走完commit work 但还是不能删除成功
本来 103102-0000HL-09 这一行应该被删除，

2，修改计划订单总订单数量

*&---------------------------------------------------------------------*
*& Form FRM_DEAL_PL
*&---------------------------------------------------------------------*
*& 更改计划订单的数量 为可齐套数量
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_deal_pl .
  DATA:ls_headerdata  TYPE bapiplaf_i2,
       ls_headerdatax TYPE bapiplaf_i2x,
       ls_return      TYPE bapireturn1.

  ls_headerdata-total_plord_qty = gs_data-qtmng.
  ls_headerdatax-total_plord_qty = 'X'.
**FIXED_SCRAP_QTY  "计划报废数量 字段AVMNG
  CALL FUNCTION 'BAPI_PLANNEDORDER_CHANGE'
    EXPORTING
      plannedorder = gs_data-plnum
      headerdata   = ls_headerdata
      headerdatax  = ls_headerdatax
    IMPORTING
      return       = ls_return.
  IF ls_return-type    CA 'EXA'.
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
    MESSAGE ID   ls_return-id
          TYPE   ls_return-type
          NUMBER ls_return-number
          WITH   ls_return-message_v1
                 ls_return-message_v2
                 ls_return-message_v3
                 ls_return-message_v4
           INTO  DATA(lv_message).
    gs_data-ctype = gc_e.
    gs_data-cmsg = lv_message.
    gs_data-sffc = abap_true.
    APPEND gs_data TO gt_data.
    CLEAR gs_data.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = abap_true.
    gs_data-sffc = abap_true.
    gs_data-ctype = gc_s.
    gs_data-cmsg = '更改计划订单的数量成功'(004).
  ENDIF.
ENDFORM.

3.修改工单总数量，

*&---------------------------------------------------------------------*
*& Form FRM_DEAL_DD02
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_deal_dd02 .
  DATA: ls_orderdata    LIKE  bapi_pp_order_change, "修改结构
        ls_orderdatax   LIKE  bapi_pp_order_changex,
        ls_order_status LIKE  bapi_order_status,
        lv_otype        LIKE  bapi_order_copy-order_type,
        lv_bapiflag     LIKE  bapiflag-bapiflag,
        ls_return       LIKE  bapiret2.

  IF p_dd02 EQ abap_true.
    ls_orderdata-quantity = gs_data-qtmng.
    ls_orderdatax-quantity = 'X'.
    CALL FUNCTION 'BAPI_PRODORD_CHANGE'
      EXPORTING
        number           = gs_data-aufnr
        orderdata        = ls_orderdata
        orderdatax       = ls_orderdatax
      IMPORTING
        return           = ls_return
        order_type       = lv_otype
        order_status     = ls_order_status
        master_data_read = lv_bapiflag.
    IF ls_return-type    CA 'EXA'.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
      MESSAGE ID   ls_return-id
            TYPE   ls_return-type
            NUMBER ls_return-number
            WITH   ls_return-message_v1
                   ls_return-message_v2
                   ls_return-message_v3
                   ls_return-message_v4
             INTO  DATA(lv_message).
      gs_data-ctype = gc_e.
      gs_data-cmsg = lv_message.
      gs_data-sffc = abap_true.
      APPEND gs_data TO gt_data.
      CLEAR gs_data.
    ELSE.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = abap_true.
      gs_data-sffc = abap_true.
      gs_data-ctype = gc_s.
      gs_data-cmsg = '按照afpo-vfmng (可齐套数量)更新工单成功'(003).
      APPEND gs_data TO gt_data.
      CLEAR gs_data.
    ENDIF.
  ENDIF.
ENDFORM.

来源：https://www.cnblogs.com/rainysblog/p/12014322.html

标签