ABAP 隔离单WCA,WCD相关

隔离单WCA,WCD相关

*带出是否包含隔离申请单
  SELECT wcaap~WAPINR                 " 取隔离申请号
    FROM  wcaap
    INNER JOIN     wcala ON  wcala~childobj = wcaap~objnr   
“WCALA是订单号和隔离单的对照关系表，这里是取隔离单，也可以用隔离单去找订单”
    INNER JOIN     aufk  ON  aufk~objnr      = wcala~FATHEROBJ
    INTO CORRESPONDING FIELDS OF TABLE LT_WACCP
    WHERE   aufk~AUFNR = os_a-workno
     AND    aufk~objnr = ls_aufk-objnr.

“这里有一个WCD隔离操作单，自开发了表跟隔离申请做对照关系，没找到标准的关系，前人栽树，后人乘凉！”
  IF LT_WACCP IS NOT INITIAL .
    SELECT  WCD                           " 取隔离操作单
    FROM Z06PMT0153
    INTO CORRESPONDING FIELDS OF TABLE LT_0153
    FOR ALL ENTRIES IN LT_WACCP
    WHERE WCA = LT_WACCP-WAPINR.

    IF LT_0153  is  NOT INITIAL.
      SELECT  OBJNR TGTYP                       " 取隔离牌类型
        FROM   WCACI
        INTO CORRESPONDING FIELDS OF TABLE LT_WCACI
      FOR ALL ENTRIES IN  LT_0153
        WHERE WCNR = LT_0153-WCD.
* 判断隔离牌类型是否有 NT RT
      LOOP AT LT_WCACI INTO LS_WCACI WHERE TGTYP = 'NT' OR TGTYP = 'RT' .
        os_230-SFBHGL  = 'Y'.
        EXIT.
      ENDLOOP.
      IF SY-SUBRC <> 0.
        os_230-SFBHGL  = 'N'.
      ENDIF.

    ENDIF.
  ENDIF.