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

本文主要是介绍闲人闲谈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处理时间过长，接口必然会断开，造成传输失败。上面的截图是闲人最近遇到的比较普遍的问题，通过很多方式去解决，但是效果都不好，用户一次发图的最大数量是一个变量，所以不能用无限调节接口等待时间的方式来解决。
在这里插入图片描述
此类场景，同步方式必然会遇到瓶颈，接口等待时间也不利于业务部门人员日常作业。
按照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.
```

 LV_GARG = LS_GARG .CALL FUNCTION 'ENQUEUE_READ'EXPORTINGGCLIENT = SY-MANDTGNAME   = 'ZTPP_BOM_QUEUE'TABLESENQ     = LT_SEQG3.IF LT_SEQG3[] IS NOT INITIAL."有锁定条目LOOP AT LT_SEQG3 INTO LS_SEQG3 .IF  LS_SEQG3-GARG CS LS_STBH-POTX1 ANDLS_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'EXPORTINGMODE_ZTPP_BOM_QUEUE = 'E'MANDT               = SY-MANDTZPOTX1              = LS_STBH-POTX1ZPOTX2              = LS_STBH-POTX2EXCEPTIONSFOREIGN_LOCK        = 1SYSTEM_FAILURE      = 2OTHERS              = 3.LOOP AT LT_ITEMS INTO LS_ITEMS WHERE POTX1 = LS_STBH-POTX1AND 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'EXPORTINGIS_INPUT  = LS_INIMPORTINGES_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'EXPORTINGMODE_ZTPP_BOM_QUEUE = 'E'MANDT               = SY-MANDTZPOTX1              = LS_STBH-POTX1ZPOTX2              = 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-MSGTXWHERE ( ZPOTX1 = LS_STBH-POTX1AND  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发布复杂度。
在这里插入图片描述