SAPMigo增强105时通过提货单号自动带出批次和生产日期

1、SAPMigo增强105时通过提货单号自动带出批次和生产日期日期写到对应的行项目当中。1、建表ZMES_MIGO_VD2、创建RFC函数供MES系统调用。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、找到客户增强MBCF0002。se37-EXIT_SAPMM07M_001-双击ZXMBCU02。点修改按钮后加入以下代码：*移动类型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创建BADIMB_MIGO_BADI的实现。1）、在se19界面选择CreateImplementation-选择ClassicBAdI-输入MB_MIGO_BADI-点击Impleme

5、ntationNameZMIGOIMPORTCHARGActiveImplementationShortText；MIGO时根据送货单号自动搜索批次号码DefinitionnameMEMIGOEADIRuntimeBehavior将调用实施3）、创建传输请求并保存。这时弹出CreateEnhancementImplementation对话框，在EnhancementImplementation输入ZMIG0,然后输入ShortText后保存。4）、双击ZCL_IM_MIGO_IMPORT_CHARG进入该ClassInterface05）、点击AttributesTab标签。新建一个参数：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