MM Enhancement ZXM06U42 之一

* add by michael chen to control GR-based invoice verification begin
    select single value into flag from zmm048
    where werks = i_ekpo-werks and bject = 'GRIV'.
    if flag = 'Y'.
      if i_ekpo-webre = '' and i_ekpo-knttp = '' and
         i_ekpo-pstyp = '0' and i_ekpo-bstyp = 'F' and
         i_ekpo-netpr <> 0.
        message e004(zmm) with
    'The indicator GR-based IV must be seted for Item' i_ekpo-ebelp.
      endif .
    endif.
* add by michael chen to control GR-based invoice verification end

* add by wenxue to control return po
    if i_ekko-bsart = 'ZRPO' .
      if i_ekpo-retpo = '' .
        message e004(zmm) with i_ekko-bsart i_ekko-ebeln
               'The return indicator must be checked for return PO' .
      endif .
    endif .

* Add by Andy to control free po begin on Mar.3 begin
    if i_ekpo-werks = 'THVA' .
      if i_ekpo-netpr <> '0'.
        message e004(zmm) with i_ekpo-werks i_ekpo-ebeln
               'The free PO indicator must be checked for Legacy PO'.
      endif .
    endif .
* Add by Andy to control free po begin on Mar.3 end

* Add by zhaozhu to control ecn delete material no allow purchase
    if i_ekpo-werks = 'AHLA' or i_ekpo-werks = 'AHLC'.
      g_matnr = ''.
      select single matnr into g_matnr
       from zpp033
         where matnr = i_ekpo-matnr and xloek ne 'X'
          and data1 = i_ekpo-werks and data2 = '1'.
      if i_ekpo-matnr =  g_matnr.
     ll_msg = 'ECN have deleted,Please contact with Ryan and ZongFeng!'.
        call function 'POPUP_TO_CONFIRM'
             exporting
                  titlebar              = 'Warning Message'
                  text_question         = ll_msg
                  text_button_1         = 'Pass'
                  text_button_2         = 'Stop'
                  default_button        = 1
                  display_cancel_button = ''
                  start_column          = 25
                  start_row             = 6
             importing
                  answer                = l_answer.
        if l_answer ne 1.
          message e004(zmm) with ll_msg.
        endif.
      endif.
    endif.

 

* Add by zhaozhu to control po price
    if i_ekpo-werks = 'AHLA' and i_ekko-lifnr = 'VIW021'.
     data: g_rlifnr like z1tm0027-rlifnr.
      select single rlifnr into g_rlifnr
       from z1tm0027
        where werks = i_ekpo-werks
         and matnr = i_ekpo-matnr
          and lifnr = i_ekko-lifnr.
      if sy-subrc ne '0'.
       l_msg = 'Please user t-code z1tmm0027 to maintain real vendor!'.
       concatenate i_ekpo-matnr l_msg into l_msg separated by ''.
        call function 'POPUP_TO_CONFIRM'
               exporting
                    titlebar              = 'Warning Message'
                    text_question         = l_msg
                    text_button_1         = 'Pass'
                    text_button_2         = 'Stop'
                    default_button        = 1
                    display_cancel_button = ''
                    start_column          = 25
                    start_row             = 6
               importing
                    answer                = l_answer.
          if l_answer ne 1.
            message e004(zmm) with l_msg.
          endif.
        endif.
    endif.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/15117617/viewspace-618329/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/15117617/viewspace-618329/