SAPMigo增強(qiáng)105時通過提貨單號自動帶出批次和生產(chǎn)日期

1、SAPMigo增強(qiáng)105時通過提貨單號自動帶出批次和生產(chǎn)日期日期寫到對應(yīng)的行項目當(dāng)中。1、建表ZMES_MIGO_VD2、創(chuàng)建RFC函數(shù)供MES系統(tǒng)調(diào)用。1）、ZMES_RFC_MIGO_VD_INSERTFuncti門moduleZMESRFCMIGOVDINSERTActiveAttributesImportExport匚hangingTablesE匚eptionsFUHCTIONZMES_RFC_MIGO_VD_INSERT.曲張*Aocwlinterface:“TABLESITAB_VDSTRUCTUREZSS_IGO_VLdata:wa_itabLIKELINEOFITAB_VD.$

2、LOOPATITAE_VDINTOwa_itab.insertintoZMES_MIGO_VDvalueswa_itab.-ENDLOOP.1-EHDFUHCTION.2)、ZMES_RFC_MIGO_VD_DELETEFuncti門moduleZMESRFCMIGOVDDELETEActiveAttributesImportExport匚hangingTablesE匚eptionsifUNCTIONZMESRFCMIGOVDDELETE.才Locslinterface:TABLES膚ITAB_VDSTRUCTUREZJES_I60_VLdata:wa_itabLIKELINEOFITAE_V

3、D.$LOOPATITAB_VDINTOwa_itab.DELETEFROMZMES_MIG0_7DWHEREEBELN二wa_itabEBELNANDEBELP二wa_itabEBELP.ENDLOOP.1-ENDFUHCTIOH.3、找到客戶增強(qiáng)MBCF0002。se37-EXIT_SAPMM07M_001-雙擊ZXMBCU02。點(diǎn)修改按鈕后加入以下代碼：*移動類型103或105時從MES取批次信息*DATA:FRBNRLIKEMKPF-FRBNR.提貨單號if(I_MSEG-BWART=103ORI_MSEG-BWART=105)AND(I_MSEG-WERKS=G009ORI_MSEG

4、-WERKS=G010).SELECTSINGLEFRBNRINTOFRBNRFROMZMES_MIGO_VDWHEREEBELN=I_MSEG-EBELNANDFRBNR=I_MKPF-FRBNR.IFSY-SUBRC0.MESSAGEE398(00)WITH采購訂單I_MSEG-EBELN不存在送貨單I_MKPF-FRBNR.ENDIF.endif.*移動類型103或105時從MES取批次信息*4、Se19創(chuàng)建BADIMB_MIGO_BADI的實現(xiàn)。1）、在se19界面選擇CreateImplementation-選擇ClassicBAdI-輸入MB_MIGO_BADI-點(diǎn)擊Impleme

5、ntationNameZMIGOIMPORTCHARGActiveImplementationShortText；MIGO時根據(jù)送貨單號自動搜索批次號碼DefinitionnameMEMIGOEADIRuntimeBehavior將調(diào)用實施3）、創(chuàng)建傳輸請求并保存。這時彈出CreateEnhancementImplementation對話框，在EnhancementImplementation輸入ZMIG0,然后輸入ShortText后保存。4）、雙擊ZCL_IM_MIGO_IMPORT_CHARG進(jìn)入該ClassInterface05）、點(diǎn)擊AttributesTab標(biāo)簽。新建一個參數(shù)：GS

6、_GOHEAD。6)、在MethodsTab頁，找到方法IF_EX_MB_MIGO_BADIPAI_HEADER,雙擊打開它。然后加入代碼GS_GOHEAD=IS_GOHEAD.如下圖：7)、回到MethodsTab頁，找到方法IF_EX_MB_MIGO_BADILINE_MODIFY,雙擊打開它。然后加入以下代碼：IFGS_GOHEAD-FRBNRAND(CS_GOITEM-WERKS=G009ORCS_GOITEM-WERKS=G010)ANDCS_GOITEM-BWART=105ANDCS_GOITEM-CHARG=.SELECTSINGLECHARGHSDATINTO(CS_GOITE

7、M-CHARG,CS_GOITEM-HSDAT)FROMZMES_MIGO_VDWHEREEBELN=CS_GOITEM-EBELNANDEBELP=CS_GOITEM-EBELPANDFRBNR=GS_GOHEAD-FRBNR.endif.如下圖：1燼狂匚De5uripti門10111213TyMethodIF.EX.MB.MIGO.EADILINE.MODIFYMethodIF_EK_MB_MIGO_BADILINE_MODIFY.ParameterTYPEGOITEMMMIMEnjoy:ItemDataI_LINE_IDTYPEMB_LINE_IDUniqueIdentificationofDdcumeritLineCS_GOITEMIFGS_G0HEADFRBNRAND(CS_GOITEMWEEKS二nG009nOECS_GOITEMV/ERKS二GDltT)ANDCS_GOITEMBWART=n105?ANDCS_GOITEMCHARG=SELECTSINGLECHARGHSDATINTO(CS_GOITEMCHARG,CS_GOITEMHSD