SELECT COUNT(1)ACOUNT
FROM MIL_SAW_RESULT T
WHERE T.RESULT_NO = ?
AND T.JUDGE_STOVE_NO = ?
SELECT COUNT(1) ACOUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE T.IS_SAMPLE_PIPE = '1'
AND T.PLAN_ID = ?
AND T.JUDGE_STOVE_NO = ?
DECLARE
BEGIN
UPDATE MIL_PLAN T
SET T.SAW_NUM = ?
WHERE T.ID = ?
AND T.JUDGE_STOVE_NO = ?;
DELETE FROM PORT_MIL_BATCH_SAMPLE_RESULT T WHERE T.PLAN_ID = ? AND T.JUDGE_STOVE_NO = ?;
END;
SELECT T.FEED_NUM,T.DB_NUM,S.SAW_NUM,S.PIPE_SIZE,S.TARGET_LENGTH
FROM MIL_FEED_PLAN T,
MIL_PLAN S
WHERE T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO
AND T.LOT_NO = S.LOT_NO
AND S.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND S.LOT_NO = '#LOT_NO#'
AND S.ID = '#ID#'
ORDER BY T.FEED_ROW_NO ASC
INSERT INTO PORT_MIL_BATCH_SAMPLE_RESULT(
PLAN_ID,
LOT_NO,
STOVE_NO,
JUDGE_STOVE_NO,
GROUP_NO,
PLINE_CODE,
BATCH_NO,
SEQ,
MAT_NO,
IS_SAMPLE_PIPE,
IS_VALID,
REMARK,
SAMPLE_PIPE_LEN,
GET_SAMPLE_NAME,
GET_SAMPLE_TIME,
GET_SAMPLE_SHIFT,
GET_SAMPLE_CLASS,
ORDER_LENGTH,
REAL_BATCH_NO,
ACT_THEORY_WEIGHT,
ACT_COUNT,
CRATE_TIME,
STATUS,
M_MAT_NO,
GROUP_FLAG,
OP_PROCESS,
BACK_PROCESS,
M_M_MAT_NO)
VALUES(
?,
?,
?,
?,
'',
?,
'',
?,
?,
'0',
'1',
'',
'',
'',
'',
'',
'',
?,
'',
?,
'1',
TO_DATE(?,'YYYY-MM-DD HH24:MI:SS'),
'0',
?,
'0',
'',
'',
?)
SELECT T.NODE_FUR_FLAG FROM #RESULT# T WHERE T.JUDGE_STOVE_NO = ?
DECLARE
BEGIN
IF(?=0)THEN
FOR MYROW IN (SELECT M_M_MAT_NO
FROM (SELECT ROWNUM SEQ, M_M_MAT_NO
FROM (SELECT T.M_M_MAT_NO,
T.IS_SAMPLE_PIPE,
T.INSTORE_FLAG,
ROW_NUMBER() OVER(PARTITION BY M_M_MAT_NO ORDER BY IS_SAMPLE_PIPE DESC,INSTORE_FLAG DESC) RN
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE T.JUDGE_STOVE_NO = ?
AND T.Status = '0'
)
WHERE RN = '1'
AND IS_SAMPLE_PIPE = '0'
AND INSTORE_FLAG = '0')
WHERE SEQ = ?) LOOP
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T SET T.STATUS = '1',T.OP_PROCESS = ? WHERE T.JUDGE_STOVE_NO = ? AND T.M_M_MAT_NO = MYROW.M_M_MAT_NO;
END LOOP;
ELSIF(?=1)THEN
FOR MYROW1 IN (SELECT M_MAT_NO
FROM (SELECT ROWNUM SEQ, M_MAT_NO
FROM (SELECT T.M_MAT_NO,
T.IS_SAMPLE_PIPE,
T.INSTORE_FLAG,
ROW_NUMBER() OVER(PARTITION BY M_MAT_NO ORDER BY IS_SAMPLE_PIPE DESC,INSTORE_FLAG DESC) RN
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE T.JUDGE_STOVE_NO = ?
AND T.Status in ('0','1')
)
WHERE RN = '1'
AND IS_SAMPLE_PIPE = '0'
AND INSTORE_FLAG = '0')
WHERE SEQ = ?) LOOP
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T SET T.STATUS = '1',T.OP_PROCESS = ? WHERE T.JUDGE_STOVE_NO = ? AND T.M_MAT_NO = MYROW1.M_MAT_NO;
END LOOP;
END IF;
END;
DECLARE
BEGIN
FOR MYROW1 IN (SELECT M_MAT_NO
FROM (SELECT ROWNUM SEQ, M_MAT_NO
FROM (SELECT T.M_MAT_NO,
T.IS_SAMPLE_PIPE,
T.INSTORE_FLAG,
ROW_NUMBER() OVER(PARTITION BY M_MAT_NO ORDER BY IS_SAMPLE_PIPE DESC,INSTORE_FLAG DESC) RN
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND (T.OP_PROCESS IS NULL OR
T.OP_PROCESS = '#OP_PROCESS#')
)
WHERE RN = '1'
AND IS_SAMPLE_PIPE = '0'
AND INSTORE_FLAG = '0')
WHERE SEQ = '#SEQ#') LOOP
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T SET T.STATUS = '1',T.OP_PROCESS = '#OP_PROCESS#' WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.M_MAT_NO = MYROW1.M_MAT_NO;
END LOOP;
END;
0 THEN
1.005
WHEN INSTR(MAX(T1.VARIETIES), '油管') > 0 THEN
1.005
ELSE
1
END) - (MAX(T1.CONTROL_THICKP) / 1000 * 1.02)) *
SUM(B.FEED_NUM_PLAN * B.DB_NUM))) YJD
from MIL_FEEDSAW_RESULT T, MIL_FEED_PLAN B, MIL_PLAN T1
WHERE T.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO
AND NVL(T.PRO_PLAN_ID, '/') = NVL(T1.PRO_PLAN_ID, '/')
AND T.JUDGE_STOVE_NO = B.JUDGE_STOVE_NO
AND NVL(T.PRO_PLAN_ID, '/') = NVL(B.PRO_PLAN_ID, '/')
AND T.JUDGE_STOVE_NO = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
GROUP BY T.JUDGE_STOVE_NO, T.PRO_PLAN_ID, T.GX_PLAN_NO) LOOP
UPDATE MIL_PLAN M
SET M.PREDICT_PIECE = MYROW.YJZ, M.PREDICT_TON = MYROW.YJD
WHERE M.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND NVL(M.PRO_PLAN_ID, '/') = NVL(MYROW.PRO_PLAN_ID, '/')
AND NVL(M.GX_PLAN_NO, '/') = NVL(MYROW.GX_PLAN_NO, '/');
END LOOP;
END;
]]>