惯例闲话：上个月，集团公司组织了一次信息化大会，邀请国内外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处理时间过长，接口必然会断开，造成传输失败。上面的截图是闲人最近遇到的比较普遍的问题，通过很多方式去解决，但是效果都不好，用户一次发图的最大数量是一个变量，所以不能用无限调节接口等待时间的方式来解决。
此类场景，同步方式必然会遇到瓶颈，接口等待时间也不利于业务部门人员日常作业。
按照SAP官方提供的方法，对PO的接口时间做了处理
并按照notes 3230465更改sap设置
有改善，但是超过10分钟以上等待，还是会出问题
因此，采用异步方式是相对比较合适的处理方法。
数据传输方式和处理机制
异步的方式，其本质是一个待处理消息队列。数据接收后放在队列里里，通过后台运作机制把数据捞出来，做后续的逻辑处理，这里有几个要点：
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. -
ENDLOOP.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[].
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的传输带着强烈的生产批次性质，那么势必带来效率的问题。在开发阶段，一定要做好两手准备，一般来说，核心处理逻辑封装成函数是必要的手段。
