PR PO 根据控制条件自动勾选或取消勾选 收货标记增强

​

PR

PO

有部分需求，根据条件判断 PR PO保存时 收货标记是否打叉。

这里简单说下增强位置。

PR位置：

BADI : ME_PROCESS_REQ_CUST

核心代码

  DATA: G_ITEM_DATA     TYPE MEREQ_ITEM. 

    G_ITEM_DATA = IM_ITEM->GET_DATA( ).

然后根据header item 上信息的判断逻辑，是需要打叉还是不打。

如果不打X，清空掉。

IF G_ITEM_DATA-WEPOS = 'X'.  
          G_ITEM_DATA-WEPOS  = ''.
          CALL METHOD IM_ITEM->SET_DATA
            EXPORTING
              IM_DATA = G_ITEM_DATA. 
        ENDIF.

PO 位置

BADI ：ME_PROCESS_PO_CUST

核心代码
*--- Header get
    CALL METHOD IM_ITEM->GET_HEADER
      RECEIVING
        RE_HEADER = I_DOC_HD.

*--- Item data
    CLEAR:WA_L_ITM.
    CALL METHOD IM_ITEM->GET_DATA
      RECEIVING
        RE_DATA = WA_L_ITM.

然后根据header item 的数据及判断逻辑处理。
当收货打叉，自动取消掉：
        IF WA_L_ITM-WEPOS = 'X'.
          WA_L_ITM-WEPOS = ''.
          CALL METHOD IM_ITEM->SET_DATA
            EXPORTING
              IM_DATA = WA_L_ITM.
        ENDIF.