闲人闲谈PS之四十八——非标定制企业BOM传输问题

惯例闲话：上个月，集团公司组织了一次信息化大会，邀请国内外10几位知名的院士嘉宾来助阵。能听这些站在知识顶端的大佬的讲座，受益匪浅。至少在当下数字化趋势之下，细分领域的发展势头，有了方向性的指点。很多情况下，受制于信息渠道，我们大部分人只是生活在信息茧房中。突破信息茧房，只有接触比自己更高阶层有真才实学愿意分享知识的人。令闲人欣慰的是，这些年自己坚持的，项目型制造为典型的工程行业（建筑、装备制造、军工、航空航天、系能源等）是当下经济发展动力主要源泉，沉淀在这些行业做数字化、信息化，在当下经济寒冬，在解决温饱问题的同时，可以探出头看看“井口”之外的天空。

闲话到此为止，今天聊聊非标定制行业的BOM传输问题

非标定制行业BOM特点回顾

非标定制行业，一般认为，具有数量庞大、重复使用率低、典型的行业有，装备制造行业，如锅炉制造、风电设备制造、变压器制造等，行业分支很广。工程制造行业，如机电设备安装、幕墙、给排水等。在闲人的以往文章中也有所提及，对这些行业也概览介绍，BOM是体现行业特点的关键特征数据之一。BOM的应用和特点详细就不展开了，在后面几期文章再做详细探讨。

这里仅举一个工程制造企业例子来说明一下，某家企业做的建筑工程幕墙产品

我们看这个BOM，
第一层成品UN001、第二层半成品ASS001、第三层半成品JG001、JG002，这三层和很多制造企业的产品区别不大。但是从第四层原材料XC001、XC002就出现巨大的变化了。JG001的加工长度是2.5米，用原材料XC01（6米）切割而成。而在实际业务中，存在套裁，也就是考虑到材料利用率，需要选用哪种长度的原材料来切割，选用不同的原材料，则产生BOM组成的变化。这里我们可以总结为，相同的成品或半成品，相同的工艺下，材料利用率目标不同使得原材料组成和用量均不同。这个数据对企业具有重要意义，可以分析材料利用率，从而不断优化原材料的选择。

可以推演的此类业务造成系统处理的复杂度，计划部门下同样的成品计划，每一批的原材料组成和用量都可能存在不同，从而造成BOM的单位用量不一样。可以想象，
1、当一个产品在同一时间段内，需要根据生产批次产生不同的BOM版本
2、BOM发生变更，其中一个零部件变更，需要溯源到生产批次，并对目标生产批次的BOM做全量变更，否则，BOM的用量将出现差错。

以上这个场景，在项目制的生产制造中，非常常见，特别是有金属材料加工的行业。在10几年前，闲人所经历的项目，受限于当时的技术、认知，项目组对第四层原材料层，采取了不进入BOM管理策略，领料加工直接批量挂生产工单组件方式解决，标准成本估算缺失此部分材料成本，则通过分摊分配处理。应该说，当年的方案是务实的，虽然有一部分缺陷。

如今，系统架构和硬件性能都有的质的飞跃，在新的项目上，大部分都会把原材料放到BOM中管理，通过不同的版本来管理。

但新的问题也随之出现，数据传输问题。

数据源头

对于项目型制造企业来说，PLM、ERP、MOM三件套必备。PLM管理生成物料主数据和BOM。一般采用同步的方式传输BOM。但是如果一次传输过程，SAP处理时间过长，接口必然会断开，造成传输失败。上面的截图是闲人最近遇到的比较普遍的问题，通过很多方式去解决，但是效果都不好，用户一次发图的最大数量是一个变量，所以不能用无限调节接口等待时间的方式来解决。

此类场景，同步方式必然会遇到瓶颈，接口等待时间也不利于业务部门人员日常作业。因此，采用异步方式是相对比较合适的处理方法。

数据传输方式和处理机制

异步的方式，其本质是一个待处理消息队列。数据接收后放在队列里里，通过后台运作机制把数据捞出来，做后续的逻辑处理，这里有几个要点：
1、消息队列的底表设计，方便业务操作隔离、不遗漏数据
这里列举的表，框出来的2个字段，是业务部门业务上的操作颗粒度，专业术语叫施工批次和发图编号，表示发BOM的最小单位。这是一个典型的业务导向的设计。
在程序设计上，每次循环按主键作为一次循环

2、锁机制，防止重复运行
锁机制，则根据1 的数据表设计的主键

每次循环判断是否被锁，
LOOP AT LT_STBH INTO LS_STBH.
*

•  LS_GARG-MANDT = SY-MANDT.
  

•  LS_GARG-POTX1 = LS_STBH-POTX1.
  

•  LS_GARG-POTX2 = LS_STBH-POTX2.
  

•  LV_GARG = LS_GARG .
  
  CALL FUNCTION 'ENQUEUE_READ'
    EXPORTING
      GCLIENT = SY-MANDT
      GNAME   = 'ZTPP_BOM_QUEUE'
    TABLES
      ENQ     = LT_SEQG3.
  
  IF LT_SEQG3[] IS NOT INITIAL."有锁定条目
  
    LOOP AT LT_SEQG3 INTO LS_SEQG3 .
      IF  LS_SEQG3-GARG CS LS_STBH-POTX1 AND
          LS_SEQG3-GARG CS LS_STBH-POTX2.
        LV_PROCESS = ''.
        EXIT."存在锁定条目
  
      ENDIF.
      LV_PROCESS = 'X'.
    ENDLOOP.
  ELSE.
    LV_PROCESS = 'X'.
  ENDIF.
  
  IF LV_PROCESS = 'X'."可以执行
    CALL FUNCTION 'ENQUEUE_EZ_ZTPP_BOM_DATA'
      EXPORTING
        MODE_ZTPP_BOM_QUEUE = 'E'
        MANDT               = SY-MANDT
        ZPOTX1              = LS_STBH-POTX1
        ZPOTX2              = LS_STBH-POTX2
      EXCEPTIONS
        FOREIGN_LOCK        = 1
        SYSTEM_FAILURE      = 2
        OTHERS              = 3.
  
    LOOP AT LT_ITEMS INTO LS_ITEMS WHERE POTX1 = LS_STBH-POTX1
                                     AND POTX2 = LS_STBH-POTX2 .
      APPEND LS_ITEMS  TO LT_STPO.
      DELETE LT_ITEMS.
    ENDLOOP.
  
    LS_DEST-DEST_ID = 'PLM'.
    LS_DEST-BUSS_TP = 'ZPLM_IFS005'.
  
    LS_IN-DEST = LS_DEST.
    LS_IN-DATA-ITEMS = LT_STPO[].
  
    CALL FUNCTION 'ZFM_BOM_MAINTAIN'
      EXPORTING
        IS_INPUT  = LS_IN
      IMPORTING
        ES_OUTPUT = LS_OUT.
  
    LT_RETURN[] = LS_OUT-DATA-MSGER.
  
    READ TABLE LT_RETURN INTO LS_RETURN WITH KEY EXT01 = ''.
  
    IF SY-SUBRC = 0."处理结果存表
      CALL FUNCTION 'DEQUEUE_EZ_ZTPP_BOM_DATA'
        EXPORTING
          MODE_ZTPP_BOM_QUEUE = 'E'
          MANDT               = SY-MANDT
          ZPOTX1              = LS_STBH-POTX1
          ZPOTX2              = LS_STBH-POTX2.
  
      IF LS_RETURN-MSGTY = 'S'.
        LS_RETURN-MSGTY = 'C'.
      ENDIF.
  
      UPDATE ZTPP_BOM_QUEUE SET TYPE = LS_RETURN-MSGTY  ZMESSAGE = LS_RETURN-MSGTX
      WHERE ( ZPOTX1 = LS_STBH-POTX1
         AND  ZPOTX2 = LS_STBH-POTX2 ).
  
    ENDIF.
  
    IF LS_RETURN-MSGTY = 'C'.
      LV_COLOR = 'C510'.
    ELSE.
      LV_COLOR = 'C610'.
    ENDIF.
    LV_MSG = LS_RETURN-MSGTX.
  ELSE.
    UPDATE ZTPP_BOM_QUEUE SET TYPE = 'W'  ZMESSAGE = '锁定，请重新执行' WHERE ( ZPOTX1 = LS_STBH-POTX1 AND  ZPOTX2 = LS_STBH-POTX2 ).
    LV_COLOR = 'C610'.
    LV_MSG = '数据被锁定'.
  ENDIF.
  
  LOOP AT  GT_DATA INTO GS_DATA WHERE POTX1 = LS_STBH-POTX1 AND POTX2 = LS_STBH-POTX2.
    GS_DATA-ROWCOLOR  = LV_COLOR.
    GS_DATA-MESSAGE = LV_MSG.
  
    MODIFY GT_DATA FROM GS_DATA  TRANSPORTING ROWCOLOR MESSAGE.
  ENDLOOP.
  
  IF SY-BATCH <> 'X'.
    CALL METHOD GV_ALV->REFRESH_TABLE_DISPLAY.
    PERFORM FRM_REFURBISH_ALV.
  ENDIF.
  
  
  CLEAR:
   LV_COLOR,
   LV_MSG,
  LV_PROCESS,
  LV_GARG,
  LS_GARG,
  LS_DEST,
  LT_STPO[],
  LS_RETURN,
  LT_RETURN[].
  

  ENDLOOP.

3、日志和异常处理
在后台处理时候，对表中异常和待处理数据在索引条件上做处理。这里要对SAP点赞，在程序索引入口的功能上，非常强大，而且是封装的， SELECT-OPTIONS，大大提高了程序开发效率

SELECTION-SCREEN BEGIN OF BLOCK SCST WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS:S_POTX1 FOR ZTPP_BOM_QUEUE-ZPOTX1,
S_POTX2 FOR ZTPP_BOM_QUEUE-ZPOTX2,
S_ERDAT FOR ZTPP_BOM_QUEUE-ERDAT,
S_TYPE FOR ZTPP_BOM_QUEUE-TYPE DEFAULT ‘I’.

SELECTION-SCREEN END OF BLOCK SCST.

其中最重要的是，不重复。这是程序设计上的注意点，也是大部分异步程序的处理关键所在。

直观感受下，一次BOM发布复杂度。

运行效果检验

1、数据传输等待时间质的飞跃

改之前

改之后

2、后台处理监控
目前经历2次大的数据压力测试，结果都OK。

小结：BOM传输问题，在特定的行业企业，会成为一个突出的问题。根源是业务，BOM的传输带着强烈的生产批次性质，那么势必带来效率的问题。在开发阶段，一定要做好两手准备，一般来说，核心处理逻辑封装成函数是必要的手段。