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

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

实现功能1：在MVT103时录入提货单（送货单），自动查询类表是否存在送货单，如果不存在，提示录入错误。

实现功能2：在105时，根据送货单自动带出来批次号码，生产日期；并把批次号码，生产日期写到对应的行项目当中。

1、建表ZMES_MIGO_VD

2、创建RFC函数供MES系统调用。1）、ZMES_RFC_MIGO_VD_INSERT

2）、ZMES_RFC_MIGO_VD_DELETE

3、找到客户增强MBCF0002。

se37->EXIT_SAPMM07M_001->双击ZXMBCU02。点修改按钮后加入以下代码：

***************移动类型103或105时从MES取批次信息******************* DATA: FRBNR LIKE MKPF-FRBNR. "提货单号

if ( I_MSEG-BWART = '103'OR I_MSEG-BWART = '105' ) AND ( I_MSEG-WERKS = 'G009'OR I_MSEG-WERKS = 'G010' ).

SELECT SINGLE FRBNR INTO FRBNR

FROM ZMES_MIGO_VD

WHERE EBELN = I_MSEG-EBELN AND FRBNR = I_MKPF-FRBNR.

IF SY-SUBRC <> 0.

MESSAGE E398(00) WITH'采购订单'

I_MSEG-EBELN

'不存在送货单'

I_MKPF-FRBNR.

ENDIF.

endif.

***************移动类型103或105时从MES取批次信息*******************

4、Se19创建BADI MB_MIGO_BADI的实现。

1）、在se19界面选择Create Implementation->选择Classic BAdI->输入MB_MIGO_BADI->点击Create Impl.

2）、输入Implementation Short Text，然后点保存按钮。

3）、创建传输请求并保存。这时弹出Create Enhancement Implementation对话框，在Enhancement Implementation输入ZMIGO，然后输入Short Text后保存。

4）、双击ZCL_IM_MIGO_IMPORT_CHARG进入该Class Interface。

5）、点击Attributes Tab标签。新建一个参数：GS_GOHEAD。

6）、在Methods Tab页，找到方法IF_EX_MB_MIGO_BADI~PAI_HEADER，双击打开它。然后加入代码GS_GOHEAD = IS_GOHEAD. 如下图：

7）、回到Methods Tab页，找到方法IF_EX_MB_MIGO_BADI~LINE_MODIFY，双击打开它。然后加入以下代码：

IF GS_GOHEAD-FRBNR <> ''

AND ( CS_GOITEM-WERKS = 'G009'OR CS_GOITEM-WERKS = 'G010' )

AND CS_GOITEM-BWART = '105'AND CS_GOITEM-CHARG = ''.

SELECT SINGLE CHARG HSDAT INTO (CS_GOITEM-CHARG,CS_GOITEM-HSDAT) FROM ZMES_MIGO_VD

WHERE EBELN = CS_GOITEM-EBELN

AND EBELP = CS_GOITEM-EBELP

AND FRBNR = GS_GOHEAD-FRBNR.

endif.

如下图：

2012-05-16

zjm