SAP采购交货已完成不能入库增强

短命女 2022-04-11 07:54 459阅读 0赞

貌似用PP生产入库的增强更好(区别在那个操作动作检查)

SE19

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1][]

METHOD if\_ex\_mb\_migo\_badi~post\_document.  
    DATA: xx TYPE mkpf-mblnr .  
\*\*  
\*    EXPORT p1  from  gv\_mblnr  to  MEMORY  id 'dd'  .  
  
    IMPORT p1  TO     xx       FROM MEMORY ID 'dd' .  
  
    DATA: lv\_budat   TYPE mkpf-budat .  "原单的过账日期  
    DATA: lv\_budat2 TYPE mkpf-budat .  
    SELECT SINGLE budat  
      INTO lv\_budat  
      FROM mkpf  
      WHERE vgart = 'WE' "采购订单据收货  
       AND   mblnr = xx     .  
  
  
    lv\_budat2 =  is\_mkpf-budat ."当前单据的物料过账日期  
  
    DATA: lv\_bwart TYPE mseg-bwart .  
    DATA: is\_mseg  TYPE mseg.  
  
    DATA: lv\_elikz TYPE ekpo-elikz .  
    DATA: lv\_msg TYPE c LENGTH 100 .  
  
  
    LOOP AT  it\_mseg INTO is\_mseg .  
      IF is\_mseg-bwart EQ '122'.  
        lv\_bwart = '122' .  
      ENDIF .  
  
      IF is\_mseg-bwart EQ '101'.  
        CLEAR:lv\_elikz ,lv\_msg  .  
        SELECT SINGLE elikz INTO lv\_elikz  
          FROM ekpo  
          WHERE ebeln = is\_mseg-ebeln  
          AND   ebelp = is\_mseg-ebelp .  
        IF lv\_elikz  EQ 'X'.  
          CONCATENATE is\_mseg-ebeln '-' is\_mseg-ebelp '交货已完成,请联系采购员'  INTO lv\_msg .  
          MESSAGE lv\_msg  TYPE 'E'.  
        ENDIF .  
  
      ENDIF .  
  
    ENDLOOP .  
  
  
  
  
    IF lv\_budat IS NOT INITIAL AND lv\_bwart EQ '122' .  
      IF lv\_budat2+0(6)  >  lv\_budat+0(6) .  
        MESSAGE '单据跨月退货,请联系采购员' TYPE 'E'.  
      ENDIF .  
    ENDIF .  
  
    FREE MEMORY ID 'dd' .  
  ENDMETHOD.

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70]: /images/20220411/30c3fa3838104eefb58560bf801c5bd6.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1]: /images/20220411/e523df7061564b3694bf61bd9c0a956a.png