用户出口:保存生产订单的时候根据条件检查BOM

偏执的太偏执、 2022-08-18 03:13 150阅读 0赞

用户出口:PPCO0007 保存生产订单时退出

需求:如果成品的主数据mara-normt 字段等于ROHS,则展开BOM到最底层,检查每一个原材料是否有ROHS的标识,只要有一个原材料没有,就不让保存.  
\*&---------------------------------------------------------------------\*  
\*&  包括                ZXCO1U06  
\*&---------------------------------------------------------------------\*  
DATA : wa\_mara TYPE mara .  
DATA : BEGIN OF it\_mara OCCURS 0 .  
        INCLUDE STRUCTURE mara .  
DATA : END OF it\_mara .

DATA :  BEGIN OF it\_resb OCCURS 0.  
        INCLUDE STRUCTURE stpox.  
DATA:   END OF it\_resb.

DATA: "存储索引  
  BEGIN OF i\_mat OCCURS 0.  
        INCLUDE STRUCTURE cscmat.  
DATA: END OF i\_mat.

SELECT SINGLE normt FROM mara  
  INTO CORRESPONDING FIELDS OF wa\_mara  
      WHERE matnr = header\_imp-plnbez.

IF wa\_mara-normt = 'ROHS'.  
  REFRESH :it\_resb,it\_mara.  
  CALL FUNCTION 'CS\_BOM\_EXPL\_MAT\_V2'  
    EXPORTING  
      capid                 = 'PP01'  
      datuv                 = sy-datum  
      mtnrv                 = header\_imp-plnbez        "产品物料信息  
      mehrs                 = 'X'            "完全展开  
      stlan                 = '1'  
      stlal                 = ''             "可选BOM信息,如果可选BOM为空,那么系统指定

为最小值  
      werks                 = header\_imp-WERKS         "工厂信息  
    TABLES  
      stb                   = it\_resb          "最终输出的物料信息  
      matcat                = i\_mat          "物料索引信息  
    EXCEPTIONS  
      alt\_not\_found         = 1  
      call\_invalid          = 2  
      material\_not\_found    = 3  
      missing\_authorization = 4  
      no\_bom\_found          = 5  
      no\_plant\_data         = 6  
      no\_suitable\_bom\_found = 7  
      conversion\_error      = 8  
      OTHERS                = 9.

IF NOT it\_resb\[\] IS INITIAL.  
    SELECT normt matnr FROM mara  
      INTO CORRESPONDING FIELDS OF TABLE it\_mara  
       FOR ALL ENTRIES IN it\_resb  
       WHERE matnr = it\_resb-idnrk  .  
  ENDIF .

LOOP AT it\_mara.  
    IF it\_mara-normt <> 'ROHS'.  
      MESSAGE e001(zpp) WITH it\_mara-matnr.  
\*        EXIT.  
    ENDIF.  
  ENDLOOP.  
ELSE.  
ENDIF.