采购申请ME51N行项目检查增强

BADI:ME_PROCESS_REQ_CUST

1.行项目校验

method IF_EX_ME_PROCESS_REQ_CUST~PROCESS_ITEM.
*break shiming.
data : l_mereq_item type mereq_item.
data: IM_DATA type MEREQ_ITEM.
DATA: L_LOGGR TYPE MARC-LOGGR.

if not im_item is initial.
   l_mereq_item = im_item->get_data( ).
   if  l_mereq_item-BEDNR = ''  AND ( SY-TCODE = 'ME51N' OR SY-TCODE = 'ME51' ).
       CLEAR L_LOGGR.
       SELECT SINGLE LOGGR
              FROM MARC
              INTO L_LOGGR
              WHERE MATNR  = l_mereq_item-MATNR
                    AND WERKS = l_mereq_item-WERKS.
       l_mereq_item-BEDNR = L_LOGGR.
       call method im_item->set_data( l_mereq_item ).
   endif.

ENDIF.


**-->>根据工厂/物料,把直送非直送物料分类写入供应商物料号Added by liuxy2011-12-9

DATA:t_MATNR(18).
DATA:t_COUNT TYPE I.
IF NOT IM_ITEM IS INITIAL.
    CLEAR L_MEREQ_ITEM.
    CLEAR T_MATNR.
    L_MEREQ_ITEM = IM_ITEM->GET_DATA( ).

    CLEAR T_COUNT.

    SE