SELECT
T.INSPECTION_NO,
T.INSPECTION_NUM,
T.HEAT_PLAN_NO,
T.ZY_BATCH_ID,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
DECODE(T.INSPECTION_FLAG,'0','待抽','1','待检','2','已检','3','免检') INSPECTION_FLAG,
T.INSPECTION_RESULT,
T.PRODUCCODE,
T.PRODUCNAME,
T.STEELCODE,
T.STEELNAME,
T.GRADECODE,
T.GRADENAME,
T.SPEC_CODE,
T.SPEC_NAME,
T.MODEL_CODE,
T.MODEL_DESC,
T.STD_CODE,
T.STD_NAME,
T.STD_STYLE,
T.STD_STYLE_DESC,
T.CRAFT_FILE_NO,
T.CUSTOMER_NM,
T.ACT_COUNT,
T.ACT_WEIGHT,
TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS') CREATE_TIME,
TO_CHAR(T.LOAD_TIME, 'YYYY-MM-DD HH24:MI:SS') LOAD_TIME,
TO_CHAR(T.INSPECTION_TIME, 'YYYY-MM-DD HH24:MI:SS') INSPECTION_TIME,
T.INSPECTION_NAME,
DECODE(T.APPLY_FLAG,'0','待送判','1','已送判') APPLY_FLAG,
T.PROCESS_CODE,
T.UNQUALIFIED_REASONS,
T.DISPOSAL_METHOD,
DECODE(T.DISPOSAL_FLAG,'0','待完成','1','已完成') DISPOSAL_FLAG,
T.PLINE_CODE,
T.PLINE_NAME,
T.DISPOSAL_TIME,
T.DISPOSAL_NAME,
T.IDCODE,
DECODE(T.VALIDFLAG,'1','有效','0','无效') VALIDFLAG,
DECODE(T.RECHECK,'0','不需要','1','需要','2','已重检') RECHECK,
T.ORDER_NO,
T.ORDER_SEQ,
T.SCRAP_NUM,
T.PROC_DATE,
T.SEQ,
T.SCRAP_WT,
T.CREATE_NAME,
(SELECT MAX(C.CRAFT_PATH) FROM CRAFT_ORD_DESIGN C WHERE C.CRAFT_NO = T.CRAFT_FILE_NO) CRAFT_PATH,
(SELECT MAX(T2.STORAGE_NAME)
FROM YDM_BC_BUTTRESS T1, YDM_BS_STORAGE T2
WHERE T1.JUDGE_STOVE_NO = T.JUDGE_STOVE_NO
AND T1.BATCH_NO = T.BATCH_NO
AND T1.PLINE_CODE = T.PLINE_CODE
AND T1.STORAGE_NO = T2.STORAGE_NO)STORAGE_NAME,
(SELECT MAX(T2.LOCATION_NAME)
FROM YDM_BC_BUTTRESS T1,YDM_BS_LOCATION T2
WHERE T1.JUDGE_STOVE_NO = T.JUDGE_STOVE_NO
AND T1.BATCH_NO = T.BATCH_NO
AND T1.PLINE_CODE = T.PLINE_CODE
AND T1.LOCATION_NO = T2.LOCATION_NO)LOCATION_NAME
FROM MIL_INSPECTION T
WHERE
1 = 1
SELECT
T.INSPECTION_NO,
T.INSPECTION_NUM,
DECODE(T.PROJECT_CATEGORY,'1','表面质量','2','外包装质量','3','几何尺寸')PROJECT_CATEGORY,
T.PROJECT_NAME,
T.RESULT,
T.REASONS,
T.MOME,
T.GUID,
T.DETECTION_CODE
FROM
(SELECT
T1 .INSPECTION_NO,
T1 .INSPECTION_NUM,
DECODE(T1 .PROJECT_CATEGORY,'表面质量','1','外包装质量','2','几何尺寸','3') PROJECT_CATEGORY,
T1 .PROJECT_NAME,
T1.RESULT,
T1.REASONS,
T1.MOME,
T1.GUID,
T1.DETECTION_CODE
FROM
MIL_INSPECTION_DETAIL T1
ORDER BY
PROJECT_CATEGORY) T
WHERE
1 = 1
UPDATE MIL_INSPECTION_DETAIL T
SET
T.RESULT = ?,
T.REASONS = ?,
T.MOME = ?,
T.DETECTION_CODE = ?
WHERE
1 = 1
UPDATE MIL_INSPECTION T
SET
T.INSPECTION_RESULT = ?,
T.UNQUALIFIED_REASONS = ?,
T.DISPOSAL_FLAG = ?,
T.INSPECTION_TIME = TO_DATE(?,'yyyy-mm-dd hh24:mi:ss'),
T.INSPECTION_NAME = ?,
T.RECHECK = ?,
T.INSPECTION_FLAG = 2
WHERE
1 = 1
UPDATE MIL_INSPECTION T
SET
T.DISPOSAL_METHOD = ?,
T.DISPOSAL_FLAG = ?,
T.DISPOSAL_TIME = TO_DATE(?,'yyyy-mm-dd hh24:mi:ss'),
T.DISPOSAL_NAME = ?
WHERE
1 = 1
UPDATE MIL_INSPECTION T
SET
T.DISPOSAL_METHOD = ?,
T.DISPOSAL_FLAG = ?,
T.DISPOSAL_TIME = TO_DATE(?,'yyyy-mm-dd hh24:mi:ss'),
T.DISPOSAL_NAME = ?,
T.RECHECK = 0
WHERE
1 = 1
UPDATE MIL_INSPECTION T
SET
T.INSPECTION_FLAG = ?
WHERE
1 = 1
UPDATE MIL_INSPECTION T
SET
T.APPLY_FLAG = ?
WHERE
1 = 1
UPDATE MIL_INSPECTION T
SET
T.ACT_COUNT = ?,
T.ACT_WEIGHT = ?,
T.SCRAP_NUM = ?,
T.SCRAP_WT = ?
WHERE
1 = 1
SELECT
T.PLINE_CODE
FROM
COM_BASE_PLINE T
WHERE 1 = 1
UPDATE MIL_INSPECTION T
SET
T.INSPECTION_FLAG = ?
WHERE
T.INSPECTION_NO = ? AND INSPECTION_NUM = ?
UPDATE MIL_INSPECTION T
SET
T.INSPECTION_FLAG = ?,
T.APPLY_FLAG = ?
WHERE
T.INSPECTION_NO = ? AND INSPECTION_NUM = ?
'D') LOOP
FOR MYROW2 IN (SELECT *
FROM (SELECT T.*
FROM MIL_INSPECTION T
WHERE T.INSPECTION_FLAG = '0'
AND T.PROCESS_CODE <> 'D'
AND T.JUDGE_STOVE_NO = MYROW1.JUDGE_STOVE_NO
order by DBMS_RANDOM.random)
WHERE ROWNUM <=
CEIL((SELECT COUNT(1)
FROM MIL_INSPECTION T
WHERE T.INSPECTION_FLAG = '0'
AND T.JUDGE_STOVE_NO =
MYROW1.JUDGE_STOVE_NO
AND T.PROCESS_CODE <> 'D') / 10)) LOOP
UPDATE MIL_INSPECTION T
SET T.INSPECTION_FLAG = '1'
WHERE T.IDCODE = MYROW2.IDCODE
AND T.JUDGE_STOVE_NO = MYROW1.JUDGE_STOVE_NO;
END LOOP;
UPDATE MIL_INSPECTION T
SET T.INSPECTION_FLAG = '3'
WHERE T.INSPECTION_FLAG = '0'
AND T.JUDGE_STOVE_NO = MYROW1.JUDGE_STOVE_NO
AND T.PROCESS_CODE <> 'D';
END LOOP;
END;
]]>