SAP MIGO生產(chǎn)訂單入庫(kù)校驗(yàn)BADI增強(qiáng)MB_MIGO_BADI

• • 1. 創(chuàng)建BADI增強(qiáng)實(shí)施
  • 2.修改增強(qiáng)實(shí)施
  • 3.生產(chǎn)訂單MIGO過(guò)賬效果

1. 創(chuàng)建BADI增強(qiáng)實(shí)施

• SE19->創(chuàng)建BADI增強(qiáng)
  
• 輸入增強(qiáng)實(shí)施名稱(chēng)
  
• 設(shè)置增強(qiáng)屬性
  
• 激活增強(qiáng)實(shí)施
  

2.修改增強(qiáng)實(shí)施

• 導(dǎo)航到增強(qiáng)實(shí)施類(lèi)
  

• 創(chuàng)建全局變量
  

• IF_EX_MB_MIGO_BADI~LINE_MODIFY 中傳入數(shù)據(jù)
  

  method IF_EX_MB_MIGO_BADI~LINE_MODIFY.if CS_GOITEM-BWART = '101' OR CS_GOITEM-BWART = '102' . "移動(dòng)類(lèi)型101 102delete GT_GOITEM where ZEILE = I_LINE_ID.append CS_GOITEM to GT_GOITEM.endif. endmethod.

• IF_EX_MB_MIGO_BADI~CHECK_ITEM 中做值校驗(yàn)
  

  method IF_EX_MB_MIGO_BADI~CHECK_ITEM.data: WA_GOITEM type GOITEM.data: LV_FLAG type C,WA_AFRU type AFRU.data: LV_LMNGA type AFRU-LMNGA, "報(bào)工數(shù)量LV_VORNR type AFVC-VORNR, "最后工序的工序號(hào)LV_ERFMG_101 type MSEG-ERFMG, "101收貨入庫(kù)數(shù)量LV_ERFMG_102 type MSEG-ERFMG. "102沖銷(xiāo)入庫(kù)數(shù)量data: LS_BAPIRET type BAPIRET2.break JIEMM.if SY-TCODE = 'MIGO'.loop at GT_GOITEM into WA_GOITEM where ZEILE = I_LINE_ID and PPS_AUFNR is not initial and BWART = '101'.clear: WA_AFRU,LV_FLAG.select single * from AFRUinto WA_AFRUwhere AUFNR = WA_GOITEM-PPS_AUFNR.if WA_AFRU-VORNR is initial.LV_FLAG = 'X'. "判斷是整體報(bào)工還是工序報(bào)工endif.clear: LV_LMNGA,LV_VORNR. "取已報(bào)工數(shù)量case LV_FLAG.when 'X'.select sum( LMNGA ) "整體報(bào)工已報(bào)工數(shù)量from AFRUinto @LV_LMNGAwhere AUFNR = @WA_GOITEM-PPS_AUFNR "訂單and STOKZ = @SPACE "排除已被沖銷(xiāo)和被取消的確認(rèn)行and STZHL = @SPACE.when others.select B~VORNR "PP01訂單類(lèi)型的最后一道工序工序號(hào)from AFRU as Ainner join AFVC as B on A~AUFPL = B~AUFPLwhere A~AUFNR = @WA_GOITEM-PPS_AUFNRand B~STEUS = 'PP01'order by B~VORNR descendinginto @LV_VORNR up to 1 rows.endselect.select sum( LMNGA )from AFRUinto @LV_LMNGA "工序報(bào)工最后一道工序報(bào)工數(shù)量where AUFNR = @WA_GOITEM-PPS_AUFNRand VORNR = @LV_VORNRand STOKZ = @SPACEand STZHL = @SPACE.endcase.select sum( ERFMG ) from MSEGwhere AUFNR = @WA_GOITEM-PPS_AUFNRand MATNR = @WA_GOITEM-MATNRand BWART = '101'into @LV_ERFMG_101.select sum( ERFMG ) from MSEGwhere AUFNR = @WA_GOITEM-PPS_AUFNRand MATNR = @WA_GOITEM-MATNRand BWART = '102'into @LV_ERFMG_102.if ( LV_LMNGA - ( LV_ERFMG_101 - LV_ERFMG_102 ) ) < 0.LS_BAPIRET-TYPE = 'E'.LS_BAPIRET-ID = '00'.LS_BAPIRET-NUMBER = '001'.LS_BAPIRET-MESSAGE_V1 = |生產(chǎn)訂單：{ WA_GOITEM-PPS_AUFNR alpha = out }前期數(shù)量超收，請(qǐng)聯(lián)系生產(chǎn)確認(rèn)入庫(kù)單|.append LS_BAPIRET to ET_BAPIRET2.else.if WA_GOITEM-ERFMG > LV_LMNGA - ( LV_ERFMG_101 - LV_ERFMG_102 ).LS_BAPIRET-TYPE = 'E'.LS_BAPIRET-ID = '00'.LS_BAPIRET-NUMBER = '001'.LS_BAPIRET-MESSAGE_V1 = |生產(chǎn)訂單：{ WA_GOITEM-PPS_AUFNR alpha = out }收貨超過(guò)報(bào)工數(shù)量，目前可入庫(kù)數(shù)量為{ LV_LMNGA - ( LV_ERFMG_101 - LV_ERFMG_102 ) }個(gè)|.append LS_BAPIRET to ET_BAPIRET2.endif.endif.endloop.endif. endmethod.

• IF_EX_MB_MIGO_BADI~POST_DOCUMENT 中釋放全局變量
  

  method IF_EX_MB_MIGO_BADI~POST_DOCUMENT.CLEAR gt_goitem. endmethod.

3.生產(chǎn)訂單MIGO過(guò)賬效果

• BADI檢查
  
  
  XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  

總結(jié)

以上是生活随笔為你收集整理的SAP MIGO生产订单入库校验BADI增强MB_MIGO_BADI的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。