生产工单收货控制增强

偏执的太偏执、 2022-03-22 02:25 273阅读 0赞

原

# 生产工单收货控制增强 #

2017年06月16日 22:13:28 [kidy\_zhang][kidy_zhang] 阅读数：689

对于生产工单完工收货（migo+101），我作为ABAP人员通过对日常业务了解。总结以下几种情况可以通过增强方式进行控制。

１、收货时未报工。

２、未投料就有产出。

３、在全部收货时判断贵重Ａ类物料是否按工单组件要求进行投料(A类物料需要在主数据ＭＲＰ视图中设置）。

具体开发部署如下：

１、通过[ＣＭＯ][Link 1]Ｄ事务代码，引入出口增强。增强点如下。

![Center][]

２、收货时未报工的代码。

DATA:TMPOBJNR TYPE aufk-objnr.

DATA:i\_jest LIKE jest OCCURS  0 WITH HEADER LINE .

IF  i\_mseg-aufnr IS NOT INITIAL AND  i\_mseg-bwart = '101' AND i\_mseg-ebeln IS INITIAL .

SELECT SINGLE  
         aufk~objnr  
        INTO TMPOBJNR  
        FROM AUFK  
        WHERE AUFK~AUFNR = i\_mseg-AUFNR AND AUFK~WERKS = i\_mseg-WERKS.

SELECT \*  FROM jest  
            INTO CORRESPONDING FIELDS OF TABLE i\_jest  
            WHERE objnr = TMPOBJNR.  
            SORT i\_jest .  
            DELETE i\_jest WHERE  ( stat <> 'I0009' AND inact = space ) or inact = 'X'.  
            IF i\_jest\[\] is INITIAL.  
                  MESSAGE '报工未完成，无法收最后一次货!' TYPE 'I'.  
            ENDIF.

ENDIF

３、未投料就有产出

IF  i\_mseg-aufnr IS NOT INITIAL AND  i\_mseg-bwart = '101' AND i\_mseg-ebeln IS INITIAL .

SELECT  AUFNR MBLNR BUDAT BWART RSNUM RSPOS  MATNR WERKS LGORT ERFME SHKZG  ERFMG  EBELP EBELN  
      INTO  CORRESPONDING FIELDS OF TABLE LTD\_AUFM  
      FROM AUFM  
      WHERE AUFNR = i\_mseg-aufnr AND BWART  in ('261','262').  
    IF SY-SUBRC = 0.  
  
    ELSE.  
        MESSAGE '生产订单没有投料' TYPE 'E'.  
    ENDIF.

ENDIF

4、工单收货时对贵重物料投料控制

DATA: BEGIN OF PRODNO\_COLUMN,  
    AUFNR LIKE RESB-AUFNR,  
    RSNUM LIKE RESB-RSNUM,  
    RSPOS LIKE RESB-RSPOS,  
    WERKS LIKE RESB-WERKS,  
    MATNR LIKE RESB-MATNR,  
    BDMNG LIKE RESB-BDMNG,  
    MAABC LIKE MARC-MAABC,  
END OF PRODNO\_COLUMN.  
DATA:TAB\_PRODPOCOLUMN LIKE PRODNO\_COLUMN OCCURS 0 WITH HEADER LINE.  
  
DATA: BEGIN OF PRODNO\_COLUMNTOT,  
    AUFNR LIKE RESB-AUFNR,  
    WERKS LIKE RESB-WERKS,  
    MATNR LIKE RESB-MATNR,  
    BDMNG LIKE RESB-BDMNG,  
    MAABC LIKE MARC-MAABC,  
    ERFMG LIKE AUFM-ERFMG,  
END OF PRODNO\_COLUMNTOT.  
DATA:TAB\_PRODPOCOLUMNTOT LIKE PRODNO\_COLUMNTOT OCCURS 0 WITH HEADER LINE.  
  
DATA: BEGIN OF AUFMDTL,  
    AUFNR LIKE AUFM-AUFNR,  
    WERKS LIKE AUFM-WERKS,  
    MATNR LIKE AUFM-MATNR,  
    RSPOS LIKE AUFM-RSPOS,  
    RSNUM LIKE AUFM-RSNUM,  
    MAABC LIKE MARC-MAABC,  
    ERFMG LIKE AUFM-ERFMG,  
    SHKZG LIKE AUFM-SHKZG,  
END OF AUFMDTL.  
DATA:TAB\_AUFMDTL LIKE AUFMDTL OCCURS 0 WITH HEADER LINE.  
DATA: BEGIN OF AUFMTOT,  
    AUFNR LIKE AUFM-AUFNR,  
    WERKS LIKE AUFM-WERKS,  
    MATNR LIKE AUFM-MATNR,  
    MAABC LIKE MARC-MAABC,  
    ERFMG LIKE AUFM-ERFMG,  
END OF AUFMTOT.  
DATA:TAB\_AUFMTOT LIKE AUFMTOT OCCURS 0 WITH HEADER LINE.  
  
DATA:L\_ERFMGSTR TYPE CHAR20,  
     L\_BDMNGSTR TYPE CHAR20.

IF  i\_mseg-aufnr IS NOT INITIAL AND  i\_mseg-bwart = '101' AND i\_mseg-ebeln IS INITIAL .

SELECT resb~aufnr resb~werks resb~matnr resb~BDMNG marc~maabc resb~rsnum resb~RSPOS  
              into CORRESPONDING FIELDS OF TABLE TAB\_PRODPOCOLUMN  
              FROM resb INNER JOIN marc on resb~werks = marc~werks AND resb~matnr = marc~matnr  
              WHERE AUFNR = i\_mseg-aufnr AND MARC~MAABC = 'A'.  
           IF SY-SUBRC = 0 .   "求出组件是否有A类物料  
                LOOP AT TAB\_PRODPOCOLUMN.  
                      MOVE-CORRESPONDING TAB\_PRODPOCOLUMN TO TAB\_PRODPOCOLUMNTOT.  
                      COLLECT TAB\_PRODPOCOLUMNTOT.  
                ENDLOOP.  
              "物料移动记录  
                 SELECT AUFM~WERKS AUFM~MATNR AUFM~ERFMG AUFM~SHKZG AUFM~RSPOS AUFM~RSNUM AUFM~AUFNR  
                   INTO CORRESPONDING FIELDS OF TABLE TAB\_AUFMDTL  
                   FROM AUFM  
                   FOR ALL ENTRIES IN TAB\_PRODPOCOLUMNTOT  
                   WHERE AUFNR = TAB\_PRODPOCOLUMNTOT-aufnr AND WERKS = TAB\_PRODPOCOLUMNTOT-WERKS AND MATNR = TAB\_PRODPOCOLUMNTOT-MATNR.  
                  IF SY-SUBRC = 0.  
                      LOOP AT TAB\_AUFMDTL.  
                            IF TAB\_AUFMDTL-SHKZG = 'H'.  
                                TAB\_AUFMDTL-ERFMG = 0 - TAB\_AUFMDTL-ERFMG.  
                            ENDIF.  
                            MOVE-CORRESPONDING TAB\_AUFMDTL TO TAB\_AUFMTOT.  
                            COLLECT TAB\_AUFMTOT.  
                      ENDLOOP.  
                  ENDIF.  
                  LOOP AT TAB\_PRODPOCOLUMNTOT.  
                      READ TABLE TAB\_AUFMTOT WITH  KEY  WERKS = TAB\_PRODPOCOLUMNTOT-WERKS MATNR = TAB\_PRODPOCOLUMNTOT-MATNR AUFNR = TAB\_PRODPOCOLUMNTOT-AUFNR .  
                      IF SY-SUBRC = 0 .  
                      IF TAB\_PRODPOCOLUMNTOT-BDMNG <> 0 - TAB\_AUFMTOT-ERFMG.  
                            L\_BDMNGSTR =  TAB\_PRODPOCOLUMNTOT-BDMNG.  
                            L\_ERFMGSTR =   0 - TAB\_AUFMTOT-ERFMG.  
                            CONDENSE L\_BDMNGSTR NO-GAPS .  
                            CONDENSE L\_ERFMGSTR NO-GAPS .  
                            CONCATENATE 'A类物料编码：' TAB\_PRODPOCOLUMNTOT-MATNR '投料异常！需求总量【' L\_BDMNGSTR '】，但实际领用【' L\_ERFMGSTR '】' INTO i\_message.  
                            MESSAGE i\_message TYPE 'E'.  
                      ENDIF.  
                      ENDIF.  
                  ENDLOOP.  
            ELSE.  "没有A类物料的情况。  
            endif.

ENDIF.

最后，在作增强控制时。需要作好测试，并激活相应的改动。还有一点，在作一些组件的计算及投料判断时，可能带来过帐保存时间的消耗等等。当然学习还在继续、问题肯定不断。在战争中学习战争，慢慢找出道路，我一直在路上。

[kidy_zhang]: https://me.csdn.net/kidy_zhang
[Link 1]: https://www.baidu.com/s?wd=%EF%BC%A3%EF%BC%AD%EF%BC%AF&tn=24004469_oem_dg
[Center]: /images/20220322/5d2add76a31f4f04be214768e973df00.png