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

zhouying23

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.
如下图：