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

2023-12-14 15:32:13

惯例闲话:上个月,集团公司组织了一次信息化大会,邀请国内外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的传输带着强烈的生产批次性质,那么势必带来效率的问题。在开发阶段,一定要做好两手准备,一般来说,核心处理逻辑封装成函数是必要的手段。

文章来源:https://blog.csdn.net/weixin_47375646/article/details/134986704
本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。