[PP] 判斷不同BOM修改, 將BOM核發狀態改為unrelease

BAdI: BOM_UPDATE

 Method: CHANGE_AT_SAVE

 [CODE]
METHOD IF_EX_BOM_UPDATE~CHANGE_AT_SAVE.

   CHECK SY-TCODE EQ 'CS02'.

   DATA: WA_STPO TYPE STPO,
              L_MATNR TYPE MAST-MATNR,
              L_WERKS TYPE MAST-WERKS,
              L_STLNR TYPE MAST-STLNR,
              L_STLAL TYPE MAST-STLAL,
              TB_STPO TYPE STANDARD TABLE OF STPO,
              L_RELEASE(1) TYPE C,
              WA_STKO TYPE STKO,
              WA_MAST TYPE MAST,
              WA_STPO2 TYPE STPO.

   CLEAR L_RELEASE.

   LOOP AT DELTA_MASTB INTO WA_MAST.
    MOVE: WA_MAST-MATNR TO L_MATNR.
    MOVE: WA_MAST-WERKS TO L_WERKS.
    SELECT SINGLE STLNR STLAL FROM MAST INTO (L_STLNR, L_STLAL) WHERE MATNR = L_MATNR AND WERKS = L_WERKS.
    CHECK L_MATNR IS NOT INITIAL.
    EXIT.
  ENDLOOP.

   IF L_MATNR+0(2) = 'PA' AND L_WERKS = '****'.     " check statement
    SELECT * FROM STPO INTO TABLE TB_STPO WHERE STLNR = L_STLNR AND STLTY = 'M'.

     LOOP AT DELTA_STPOB INTO WA_STPO.
      CLEAR: WA_STPO2.
      READ TABLE TB_STPO INTO WA_STPO2 WITH KEY POSNR = WA_STPO-POSNR
                                                IDNRK = WA_STPO-IDNRK
                                                MENGE = WA_STPO-MENGE
                                                MEINS = WA_STPO-MEINS.
      IF WA_STPO2 IS NOT INITIAL.          " Change qty of BOM component
        L_RELEASE = 'X'.
      ENDIF.
    ENDLOOP.

     CHECK L_RELEASE = 'X'.

     SELECT SINGLE * INTO WA_STKO FROM STKO WHERE STLTY = 'M'
                                                                                                 AND STLNR = L_STLNR
                                                                                                 AND STLAL = L_STLAL.
    WA_STKO-STLST = '2'.      " 2: unrelease
    WA_STKO-AEDAT = SY-DATUM.
    WA_STKO-AENAM = SY-UNAME.
    UPDATE STKO FROM WA_STKO.
  ENDIF.

 ENDMETHOD.

留言

張貼留言

這個網誌中的熱門文章

[SD] Check Payment term in VA01/VA02 (FORM USEREXIT_SAVE_DOCUMENT_PREPARE)

[PURPOSE]   Check whether the payment term is suitable for the customer or not in VA01/VA02. [TOOL]   INCLUDE: MV45AFZZ USEREXIT: USEREXIT_SAVE_DOCUMENT_PREPARE XVBAK ← New data if any change/else it will be same as old YVBAK ← Old value VBAK ← Work area when you deal with Items it will be some thing like this.. XVBAP ← New data if any change/else it will be same as old YVBAP ← Old data if any change(considers item) /else it is blank If we want to get SO header where in header or items, we can obtain from WA: VBAK does not concerned to use XVBAK or YVBAK or OVBAK. [CODE] FORM USEREXIT_SAVE_DOCUMENT_PREPARE.   DATA: P_ZTERM TYPE KNB1-ZTERM,                P_MESSAGE TYPE STRING. ** GET PAYMENT TERM IN CUSTOMER MASTER DATA   CLEAR P_ZTERM.   SELECT SINGLE ZTERM INTO P_ZTERM FROM KNVV WHERE KUNNR = VBAK-KUNNR                       ...
閱讀完整內容

[ABAP] Change Tax Code for Invoice Item

Solution 1. Include: LMRMDF0H Form: t_drseg_aufbauen_pruefen_1   at the end of form code I cleared position tax code in a loop: ENHANCEMENT 1  ZMUK_MIRO_TAXCODE_EDIT. "active version   FIELD-SYMBOLS <ls_drseg> LIKE LINE OF t_drseg[].   LOOP AT t_drseg ASSIGNING <ls_drseg>.   CLEAR <ls_drseg>-mwskz.   ENDLOOP. ENDENHANCEMENT. After that, system is propagating tax code automatically from MIRO header to all the items. * 如採用Solution1有可能在SAP升級後，標準程式恢復原版，客製的部分就會被蓋掉 Solution 2. BAdI: EXTENSION_US_TAXES Method: MM_ITEM_TAX_MODIFY method IF_EX_EXTENSION_US_TAXES~MM_ITEM_TAX_MODIFY. IF I_RBKPV-MWSKZ1 <> I_DRSEG-MWSKZ.   "header tax  <> item tax   E_MWSKZ = I_RBKPV-MWSKZ1.                     "item tax = header tax   E_CHANGE = 'X'. ENDIF. endmethod. or Function: MRM_BADI_TAX_DATA_CHANGE
閱讀完整內容

[MM] Accounts Determination 會計科目決定

圖片
<Valuation Group Code & Valuation Area & COA> 如不同工廠或不同國籍的子公司可設定不同評價範圍，並指派不同COA，可利用評價分組代碼來作管理。 但那之前要先啟用"估價分組代碼" <Account category reference & Valuation Class &    Material type & account category reference mapping> 這功能跟GL的special G/L indicator類似，SAP雖已定義好Business transaction背後對照的會科，但如有特殊情況需對應到其他會科，即可使用評價類別(Valuation Class) Valuation Class群組成Account category reference  ex. 原料的參考、成品的參考...etc 而成品的參考可囊括評價類別7910 外購成品、7920 自製成品...etc 最後則將Account category reference與物料類型作mapping <Movement type & TE key> <OBYC> COA 底下 Transaction + Valuation Class 對應的GL Account <OMWB - Simulation 模擬> 驗證OBYC設定是否正確
閱讀完整內容