MES接口系列 - SAP BOM同步接口设计

业务场景
通过MES中间件定时同步SAP BOM到MES系统中，也可以在MES系统手动同步指定BOM。

同步方式，可通过指定“成品/半成品”料号或“创建/修改日期”来同步有变化的BOM到MES系统中。

SAP接口输入参数

SAP接口表参数

接口表结构

ZST_BOM_ITEM - 按实际需求定义

ZST_BOM_DEL - 已删除的组件

ZST_BOM_POINT - BOM点位表

接口代码
FUNCTION z_if_pp_bom_sync_new .
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(IM_MATNR) TYPE  MATNR OPTIONAL
*"     VALUE(IM_AEDAT) TYPE  MAST-AEDAT OPTIONAL
*"     VALUE(IM_MUTL_LEVEL) TYPE  MEHRS DEFAULT 'X'
*"  TABLES
*"      TB_WERKS_CON STRUCTURE  RANGE_WERKS OPTIONAL
*"      TB_BOM_ITEM STRUCTURE  ZST_BOM_ITEM
*"      TB_BOM_DEL STRUCTURE  ZST_BOM_DEL
*"      TB_BOM_POINT STRUCTURE  ZST_BOM_POINT
*"----------------------------------------------------------------------

*修改程序，带出虚拟件的组件  by ivan 20181016
*修改程序，组件用量按照最上层物料用量进行展开 by ivan 20181019
*修改程序，虚拟件组件需带出上层虚拟件的点位 by ivan 20181022

  DATA: lt_mast TYPE mast OCCURS 0 WITH HEADER LINE.
  DATA: lt_stb    TYPE stpox OCCURS 0 WITH HEADER LINE,
        lt_matcat TYPE cscmat OCCURS 0 WITH HEADER LINE,

        l_capid   TYPE tc04-capid.
  DATA: BEGIN OF lt_comp_setup OCCURS 0,
          setup_point(10) TYPE c.
  DATA: END OF lt_comp_setup.
  DATA: l_potx TYPE string.

  DATA: BEGIN OF it_cdhdr OCCURS 0.
  DATA:   stlnr TYPE mast-stlnr.
          INCLUDE STRUCTURE cdhdr.
          DATA: END OF it_cdhdr.
  DATA: l_index LIKE sy-tabix.
  DATA: ls_marc TYPE marc.
  DATA: ls_mast TYPE mast.

  DATA: gt_matkl_data TYPE TABLE OF ztmatkl WITH HEADER LINE.
  DATA: lr_matkl TYPE RANGE OF mara-matkl WITH HEADER LINE.
  DATA: txt_itab TYPE TABLE OF tline WITH HEADER LINE.
  DATA: lf_tdfname TYPE thead-tdname.
  DATA: g_rows TYPE sy-tabix.
  DATA: ls_stxh TYPE stxh.

  DATA:ls_matnr TYPE mast-matnr.
  DATA:tb_bom_item2 TYPE TABLE OF zst_bom_item WITH HEADER LINE .
  DATA:wa_bom TYPE zst_bom_item .



  SELECT * INTO TABLE gt_matkl_data FROM ztmatkl.

  LOOP AT gt_matkl_data.
    lr_matkl-sign = 'I'.
    lr_matkl-option = 'EQ'.
    lr_matkl-low = gt_matkl_data-matkl.
    APPEND lr_matkl.
  ENDLOOP.

  IF  NOT  im_matnr IS INITIAL  .
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input  = im_matnr
      IMPORTING
        output = im_matnr.

    SELECT * INTO CORRESPONDING FIELDS OF  TABLE lt_mast