*带出是否包含隔离申请单
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.