SELECT T.DETECTION_NUM1,
T.DETECTION_NUM2,
T.SUSPECT_PRODUCT_NUM1,
T.SUSPECT_PRODUCT_NUM2,
T.NODE_FUR_FLAG1,
T.NODE_FUR_FLAG2,
T.SCRAP_NUM2,
T.QUALIFIED_NUM2,
T.REINSPECTION_NUM2,
T.REINSPECTION_QUALIFIED_NUM2,
T.SCRAP_NUM1,
T.QUALIFIED_NUM1,
T.REINSPECTION_NUM1,
T.REINSPECTION_QUALIFIED_NUM1,
T.PRODUCT_STANDARDS,
T.LO_SURFACE,
T.LI_SURFACE,
T.TO_SURFACE,
T.TI_SURFACE,
T.GROOVE_SHAPE,
T.INSPECTION_STANDARD,
T.LONGITUDINAL_CURRENT1,
T.TRANSVERSE_CURRENT1,
T.LONGITUDINAL_CURRENT2,
T.TRANSVERSE_CURRENT2,
T.SPEED1,
T.SPEED2,
T.DETECTION_SPEED1,
T.DETECTION_SPEED2,
T.DETECTION_NUM,
T.ALARM_NUM,
T.REINSPECTION_NUM,
T.REINSPECTION_QUALIFIED_NUM,
T.SCRAP_NUM,
T.QUALIFIED_NUM,
T.SIGNID,
TO_CHAR(T.START_TIME, 'YYYY-MM-DD HH24:MI:SS') START_TIME,
TO_CHAR(T.END_TIME, 'YYYY-MM-DD HH24:MI:SS') END_TIME,
T.EXECUTIVE_PRODUCER,
TO_CHAR(T.PRODUCER_TIME, 'YYYY-MM-DD HH24:MI:SS') PRODUCER_TIME,
T.REMARK,
T.REMARK1,
T.NODE_FUR_FLAG,
T.PLINE_CODE,
T.JUDGE_STOVE_NO,
T.LOT_NO,
T.RESULT_NO,
T.INSPECTIONED_OFFLINE_NUM,
T.SAMPLE_NUM,
--(SELECT T1.USER_NAME FROM MIL_SIGNATURE T1 WHERE T1.USER_ID = T.USERID1) USERID1,
--(SELECT T1.USER_NAME FROM MIL_SIGNATURE T1 WHERE T1.USER_ID = T.USERID2) USERID2,
t.USERID1,
t.USERID2,
T.USERID_GRADE1,
T.USERID_GRADE2,
t.USERID1jd,
t.USERID2jd,
T.USERID_GRADE1jd,
T.USERID_GRADE2jd,
T.STANDARDS_NO,
T.PRO_PLAN_ID,
T.GX_PLAN_NO,
T.NOTCH_INFO,
T.NOTCH_LENGTH,
T.NOTCH_WIDTH,
T.NOTCH_DEPTH,
T.COVERAGE
FROM MIL_MT_RESULT T
WHERE 1 = 1
AND T.judge_stove_no = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
--AND COL_SHIFT = ?
-- AND COL_GROUP = ?
SELECT
DETECTION_NUM1,
DETECTION_NUM2,
SUSPECT_PRODUCT_NUM1,
SUSPECT_PRODUCT_NUM2,
NODE_FUR_FLAG1,
NODE_FUR_FLAG2,
SCRAP_NUM2,
QUALIFIED_NUM2,
REINSPECTION_NUM2,
REINSPECTION_QUALIFIED_NUM2,
SCRAP_NUM1,
QUALIFIED_NUM1,
REINSPECTION_NUM1,
REINSPECTION_QUALIFIED_NUM1,
SIGNID,
TO_CHAR(START_TIME, 'YYYY-MM-DD HH24:MI:SS') START_TIME,
TO_CHAR(END_TIME, 'YYYY-MM-DD HH24:MI:SS') END_TIME,
EXECUTIVE_PRODUCER,
TO_CHAR(PRODUCER_TIME, 'YYYY-MM-DD HH24:MI:SS') PRODUCER_TIME,
REMARK,
PRODUCT_STANDARDS,
INSTRUMENT_TYPE,
PROBE_TYPE,
SENSTIVITY,
INHIBITION,
COUPLING_AGENT,
SURFACE_APPEARANCE,
LO_SURFACE,
LI_SURFACE,
TO_SURFACE,
TI_SURFACE,
DETECTION_NUM,
ALARM_NUM,
REINSPECTION_NUM,
REINSPECTION_QUALIFIED_NUM,
SCRAP_NUM,
QUALIFIED_NUM,
NODE_FUR_FLAG
FROM MIL_UL_RESUL
WHERE
1=1
AND judge_stove_no=?
AND NVL(PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(GX_PLAN_NO, '/') = NVL(?, '/')
SELECT
I.SCRAP_NUM AS SCRAP_STRAIGHT,
I.Qualified_Num AS QUALIFIED_STRAIGHT,
I.OFFLINE_NUM_TOTAL AS OFFLINE_STRAIGHT,
I.BACKLINE_NUM_TOTAL AS BACKLINE_STRAIGHT,
J.SCRAP_NUM AS SCRAP_TESTING,
J.QUALIFIED_NUM AS QUALIFIED_TESTING,
J.OFFLINE_NUM AS OFFLINE_TESTING,
J.BACKLINE_NUM AS BACKLINE_TESTING,
M.QUALIFIED_BRANCH AS QUALIFIED_BRANCH,
M.OFFLINE_QUANTITY AS OFFLINE_QUANTITY,
M.WASTE_QUANTITY AS WASTE_QUANTITY
FROM MIL_STRAIGHTENING_RESULT I
, MIL_ET_RESULT J
, MIL_SURFACE_RESULT M
WHERE I.JUDGE_STOVE_NO = J.JUDGE_STOVE_NO (+)
AND I.JUDGE_STOVE_NO = M.JUDGE_STOVE_NO (+)
AND I.JUDGE_STOVE_NO = ?
AND NVL(I.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(I.GX_PLAN_NO, '/') = NVL(?, '/')
INSERT INTO MIL_MT_RESULT
(RESULT_NO,
LOT_NO,
STOVE_NO,
JUDGE_STOVE_NO,
PLINE_CODE,
PRODUCT_STANDARDS,
LO_SURFACE,
LI_SURFACE,
TO_SURFACE,
TI_SURFACE,
GROOVE_SHAPE,
INSPECTION_STANDARD,
LONGITUDINAL_CURRENT1,
TRANSVERSE_CURRENT1,
LONGITUDINAL_CURRENT2,
TRANSVERSE_CURRENT2,
SPEED1,
SPEED2,
DETECTION_SPEED1,
DETECTION_SPEED2,
SIGNID,
START_TIME,
EXECUTIVE_PRODUCER,
PRODUCER_TIME,
COL_MODE,
COL_TIME,
COL_USER,
COL_SHIFT,
COL_GROUP,
PRO_PLAN_ID,
GX_PLAN_NO,
TESTING_POSITION)
VALUES
('#RESULT_NO#',
'#LOT_NO#',
'#STOVE_NO#',
'#JUDGE_STOVE_NO#',
'#PLINE_CODE#',
'#PRODUCT_STANDARDS#',
'#LO_SURFACE#',
'#LI_SURFACE#',
'#TO_SURFACE#',
'#TI_SURFACE#',
'#GROOVE_SHAPE#',
'#INSPECTION_STANDARD#',
'#LONGITUDINAL_CURRENT1#',
'#TRANSVERSE_CURRENT1#',
'#LONGITUDINAL_CURRENT2#',
'#TRANSVERSE_CURRENT2#',
'#SPEED1#',
'#SPEED2#',
'#DETECTION_SPEED1#',
'#DETECTION_SPEED2#',
'#SIGNID#',
SYSDATE,
'#EXECUTIVE_PRODUCER#',
SYSDATE,
'#COL_MODE#',
SYSDATE,
'#COL_USER#',
'#COL_SHIFT#',
'#COL_GROUP#',
'#PRO_PLAN_ID#',
'#GX_PLAN_NO#',
'#TESTING_POSITION#')
INSERT INTO MIL_UL_RESUL(
RESULT_NO,
SIGNID,
START_TIME,
EXECUTIVE_PRODUCER,
PRODUCER_TIME,
COL_MODE,
COL_TIME,
COL_USER,
COL_SHIFT,
COL_GROUP,
LOT_NO,
STOVE_NO,
JUDGE_STOVE_NO,
PLINE_CODE,
PRODUCT_STANDARDS,
INSTRUMENT_TYPE,
PROBE_TYPE,
SENSTIVITY,
INHIBITION,
COUPLING_AGENT,
SURFACE_APPEARANCE,
LO_SURFACE,
LI_SURFACE,
TO_SURFACE,
TI_SURFACE,
PRO_PLAN_ID,
GX_PLAN_NO)
VALUES(
'#RESULT_NO#',
'#SIGNID#',
SYSDATE,
'#EXECUTIVE_PRODUCER#',
SYSDATE,
'#COL_MODE#',
SYSDATE,
'#COL_USER#',
'#COL_SHIFT#',
'#COL_GROUP#',
'#LOT_NO#',
'#STOVE_NO#',
'#JUDGE_STOVE_NO#',
'#PLINE_CODE#',
'#PRODUCT_STANDARDS#',
'#INSTRUMENT_TYPE#',
'#PROBE_TYPE#',
'#SENSTIVITY#',
'#INHIBITION#',
'#COUPLING_AGENT#',
'#SURFACE_APPEARANCE#',
'#LO_SURFACE#',
'#LI_SURFACE#',
'#TO_SURFACE#',
'#TI_SURFACE#',
'#PRO_PLAN_ID#',
'#GX_PLAN_NO#')
SELECT * FROM MIL_TESTING_RACK
WHERE
1=1
AND JUDGE_STOVE_NO=?
AND COL_NO=?
ORDER BY SEQ ASC,STATUS ASC
UPDATE Mil_Testing_Rack T
SET
STATUS = '1',
SCRAP_REASON='#SCRAP_REASON#',
SCRAP_TIME=SYSDATE
WHERE
SEQ = '#SEQ#'
AND JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
UPDATE Mil_Et_Result SET
SCRAP_NUM1 = SCRAP_NUM1 + 1,
SCRAP_NUM = SCRAP_NUM+1,
QUALIFIED_NUM1= (case nvl(QUALIFIED_NUM1, 0) when 0 then 0 else QUALIFIED_NUM1- 1 end),
QUALIFIED_NUM= (case nvl(QUALIFIED_NUM, 0) when 0 then 0 else QUALIFIED_NUM - 1 end)
WHERE
JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
UPDATE Mil_Et_Result SET
SCRAP_NUM2 = SCRAP_NUM2 + 1,
SCRAP_NUM = SCRAP_NUM + 1,
QUALIFIED_NUM2= (case nvl(QUALIFIED_NUM2, 0) when 0 then 0 else QUALIFIED_NUM2- 1 end),
QUALIFIED_NUM= (case nvl(QUALIFIED_NUM, 0) when 0 then 0 else QUALIFIED_NUM- 1 end)
WHERE
JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
UPDATE Mil_Et_Result SET
SCRAP_NUM3 = SCRAP_NUM3 + 1,
SCRAP_NUM = SCRAP_NUM + 1,
QUALIFIED_NUM3= (case nvl(QUALIFIED_NUM3, 0) when 0 then 0 else QUALIFIED_NUM3- 1 end),
QUALIFIED_NUM= (case nvl(QUALIFIED_NUM, 0) when 0 then 0 else QUALIFIED_NUM- 1 end)
WHERE
JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
UPDATE Mil_Mt_Result SET
SCRAP_NUM1 = SCRAP_NUM1 + 1,
SCRAP_NUM = SCRAP_NUM + 1,
QUALIFIED_NUM1= (case nvl(QUALIFIED_NUM1, 0) when 0 then 0 else QUALIFIED_NUM1 - 1 end),
QUALIFIED_NUM= (case nvl(QUALIFIED_NUM, 0) when 0 then 0 else QUALIFIED_NUM - 1 end)
WHERE
JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
UPDATE Mil_Mt_Result SET
SCRAP_NUM2 = SCRAP_NUM2 + 1,
SCRAP_NUM = SCRAP_NUM + 1,
QUALIFIED_NUM2 = (case nvl(QUALIFIED_NUM2, 0) when 0 then 0 else QUALIFIED_NUM2 - 1 end),
QUALIFIED_NUM = (case nvl(QUALIFIED_NUM, 0) when 0 then 0 else QUALIFIED_NUM - 1 end)
WHERE
JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
UPDATE Mil_Ul_Resul SET
SCRAP_NUM1 =SCRAP_NUM1 + 1,
SCRAP_NUM = SCRAP_NUM + 1,
QUALIFIED_NUM1=(case nvl(QUALIFIED_NUM1, 0) when 0 then 0 else QUALIFIED_NUM1 - 1 end),
QUALIFIED_NUM= (case nvl(QUALIFIED_NUM, 0) when 0 then 0 else QUALIFIED_NUM - 1 end)
WHERE
JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
UPDATE Mil_Ul_Resul SET
SCRAP_NUM2 =SCRAP_NUM2 + 1,
SCRAP_NUM = SCRAP_NUM + 1,
QUALIFIED_NUM2=(case nvl(QUALIFIED_NUM2, 0) when 0 then 0 else QUALIFIED_NUM2 - 1 end),
QUALIFIED_NUM= (case nvl(QUALIFIED_NUM, 0) when 0 then 0 else QUALIFIED_NUM - 1 end)
WHERE
JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
update
MIL_TESTING_RACK t
set t.STATUS ='2',
t.RETEST_NUM=RETEST_NUM+1
where
t.JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
AND t.SEQ='#SEQ#'
update MIL_ET_RESULT t
set t.reinspection_num1=t.reinspection_num1+1,
t.reinspection_num=t.reinspection_num+1
where
t.JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
update MIL_ET_RESULT t
set t.reinspection_num2=t.reinspection_num2+1,
t.reinspection_num=t.reinspection_num+1
where
t.JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
update MIL_ET_RESULT t
set t.reinspection_num3=t.reinspection_num3+1,
t.reinspection_num=t.reinspection_num+1
where
t.JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
update MIL_MT_RESULT t
set
t.REINSPECTION_NUM=REINSPECTION_NUM+1,
t.reinspection_num1=t.reinspection_num1+1
where
t.JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
update MIL_MT_RESULT t
set
t.REINSPECTION_NUM=REINSPECTION_NUM+1,
t.reinspection_num2=t.reinspection_num2+1
where
t.JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
update Mil_Ul_Resul t
set
t.REINSPECTION_NUM=REINSPECTION_NUM+1,
t.reinspection_num1=t.reinspection_num1+1
where
t.JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
update Mil_Ul_Resul t
set
t.REINSPECTION_NUM=REINSPECTION_NUM+1,
t.reinspection_num2=t.reinspection_num2+1
where
t.JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
update
MIL_TESTING_RACK t
set t.STATUS ='0',
t.RETEST_NUM=0
where
t.JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
AND t.SEQ='#SEQ#'
update
MIL_TESTING_RACK t
set
t.RETEST_NUM=t.RETEST_NUM-1
where
t.JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
AND t.SEQ='#SEQ#'
update MIL_ET_RESULT t
set t.reinspection_num1=t.reinspection_num1-1,
t.reinspection_num=t.reinspection_num-1
where
t.JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
update MIL_ET_RESULT t
set t.reinspection_num2=t.reinspection_num2-1,
t.reinspection_num=t.reinspection_num-1
where
t.JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
update MIL_ET_RESULT t
set t.reinspection_num3=t.reinspection_num3-1,
t.reinspection_num=t.reinspection_num-1
where
t.JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
update MIL_MT_RESULT t
set
t.REINSPECTION_NUM=REINSPECTION_NUM-1,
t.reinspection_num1=t.reinspection_num1-1
where
t.JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
update MIL_MT_RESULT t
set
t.REINSPECTION_NUM=REINSPECTION_NUM-1,
t.reinspection_num2=t.reinspection_num2-1
where
t.JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
update Mil_Ul_Resul t
set
t.REINSPECTION_NUM=REINSPECTION_NUM-1,
t.reinspection_num1=t.reinspection_num1-1
where
t.JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
update Mil_Ul_Resul t
set
t.REINSPECTION_NUM=REINSPECTION_NUM-1,
t.reinspection_num2=t.reinspection_num2-1
where
t.JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
UPDATE MIL_ET_RESULT
SET PRODUCT_STANDARDS = '#PRODUCT_STANDARDS#',
INSPECTION_STANDARD = '#INSPECTION_STANDARD#',
TESTING_METHOD = '#TESTING_METHOD#',
CALIBRATION_METHOD = '#CALIBRATION_METHOD#',
ARTIFICIAL_DEFECT_SHAPE = '#ARTIFICIAL_DEFECT_SHAPE#',
EXCITATION_FREQUENCY1 = '#EXCITATION_FREQUENCY1#',
EXCITATION_FREQUENCY2 = '#EXCITATION_FREQUENCY2#',
EXCITATION_FREQUENCY3 = '#EXCITATION_FREQUENCY3#',
TESTING_SPEED1 = '#TESTING_SPEED1#',
TESTING_SPEED2 = '#TESTING_SPEED2#',
TESTING_SPEED3 = '#TESTING_SPEED3#',
EXECUTIVE_PRODUCER = '#EXECUTIVE_PRODUCER#',
PRODUCER_TIME = '#PRODUCER_TIME#',
PRODUCER_TEL = '#PRODUCER_TEL#',
REMARK = '#REMARK#',
USERID = '#USERID#',
SIGNID = '#SIGNID#',
TESTING_TIME = '#TESTING_TIME#',
REMARK2 = '#REMARK2#',
START_TIME = to_date('#START_TIME#',
'yyyy-mm-dd hh24:mi:ss')
WHERE JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
UPDATE MIL_ET_RESULT SET
NODE_FUR_FLAG1='#NODE_FUR_FLAG1#',
SCRAP_NUM1='#SCRAP_NUM1#',
QUALIFIED_NUM1='#QUALIFIED_NUM1#',
REINSPECTION_NUM1='#REINSPECTION_NUM1#',
REINSPECTION_QUALIFIED_NUM1='#REINSPECTION_QUALIFIED_NUM1#',
DETECTION_NUM1='#DETECTION_NUM1#',
SUSPECT_PRODUCT_NUM1='#SUSPECT_PRODUCT_NUM1#',
SCRAP_NUM='#SCRAP_NUM1#'+SCRAP_NUM2+SCRAP_NUM3,
QUALIFIED_NUM='#QUALIFIED_NUM1#'+QUALIFIED_NUM2+QUALIFIED_NUM3,
REINSPECTION_NUM='#REINSPECTION_NUM1#'+REINSPECTION_NUM2+REINSPECTION_NUM3,
REINSPECTION_QUALIFIED_NUM='#REINSPECTION_QUALIFIED_NUM1#'+REINSPECTION_QUALIFIED_NUM2+REINSPECTION_QUALIFIED_NUM3,
DETECTION_NUM='#DETECTION_NUM1#'+DETECTION_NUM2+DETECTION_NUM3,
SUSPECT_PRODUCT_NUM='#SUSPECT_PRODUCT_NUM1#'+SUSPECT_PRODUCT_NUM2+SUSPECT_PRODUCT_NUM3,
QA_TON=QA_TON+'#QA_TON#'
WHERE JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
UPDATE MIL_ET_RESULT SET
NODE_FUR_FLAG2='#NODE_FUR_FLAG2#',
SCRAP_NUM2='#SCRAP_NUM2#',
QUALIFIED_NUM2='#QUALIFIED_NUM2#',
REINSPECTION_NUM2='#REINSPECTION_NUM2#',
REINSPECTION_QUALIFIED_NUM2='#REINSPECTION_QUALIFIED_NUM2#',
DETECTION_NUM2='#DETECTION_NUM2#',
SUSPECT_PRODUCT_NUM2='#SUSPECT_PRODUCT_NUM2#',
SCRAP_NUM='#SCRAP_NUM2#'+SCRAP_NUM1+SCRAP_NUM3,
QUALIFIED_NUM='#QUALIFIED_NUM2#'+QUALIFIED_NUM1+QUALIFIED_NUM3,
REINSPECTION_NUM='#REINSPECTION_NUM2#'+REINSPECTION_NUM1+REINSPECTION_NUM3,
REINSPECTION_QUALIFIED_NUM='#REINSPECTION_QUALIFIED_NUM2#'+REINSPECTION_QUALIFIED_NUM1+REINSPECTION_QUALIFIED_NUM3,
DETECTION_NUM='#DETECTION_NUM2#'+DETECTION_NUM1+DETECTION_NUM3,
SUSPECT_PRODUCT_NUM='#SUSPECT_PRODUCT_NUM2#'+SUSPECT_PRODUCT_NUM1+SUSPECT_PRODUCT_NUM3,
QA_TON=QA_TON+'#QA_TON#'
WHERE JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
UPDATE MIL_ET_RESULT SET
NODE_FUR_FLAG3='#NODE_FUR_FLAG3#',
SCRAP_NUM3='#SCRAP_NUM3#',
QUALIFIED_NUM3='#QUALIFIED_NUM3#',
REINSPECTION_NUM3='#REINSPECTION_NUM3#',
REINSPECTION_QUALIFIED_NUM3='#REINSPECTION_QUALIFIED_NUM3#',
DETECTION_NUM3='#DETECTION_NUM3#',
SUSPECT_PRODUCT_NUM3='#SUSPECT_PRODUCT_NUM3#',
SCRAP_NUM='#SCRAP_NUM3#'+SCRAP_NUM1+SCRAP_NUM2,
QUALIFIED_NUM='#QUALIFIED_NUM3#'+QUALIFIED_NUM1+QUALIFIED_NUM2,
REINSPECTION_NUM='#REINSPECTION_NUM3#'+REINSPECTION_NUM1+REINSPECTION_NUM2,
REINSPECTION_QUALIFIED_NUM='#REINSPECTION_QUALIFIED_NUM3#'+REINSPECTION_QUALIFIED_NUM1+REINSPECTION_QUALIFIED_NUM2,
DETECTION_NUM='#DETECTION_NUM3#'+DETECTION_NUM1+DETECTION_NUM2,
SUSPECT_PRODUCT_NUM='#SUSPECT_PRODUCT_NUM3#'+SUSPECT_PRODUCT_NUM1+SUSPECT_PRODUCT_NUM2,
QA_TON=QA_TON+'#QA_TON#'
WHERE JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
UPDATE MIL_MT_RESULT
SET PRODUCT_STANDARDS = '#PRODUCT_STANDARDS#',
LO_SURFACE = '#LO_SURFACE#',
LI_SURFACE = '#LI_SURFACE#',
TO_SURFACE = '#TO_SURFACE#',
TI_SURFACE = '#TI_SURFACE#',
GROOVE_SHAPE = '#GROOVE_SHAPE#',
INSPECTION_STANDARD = '#INSPECTION_STANDARD#',
LONGITUDINAL_CURRENT1 = '#LONGITUDINAL_CURRENT1#',
TRANSVERSE_CURRENT1 = '#TRANSVERSE_CURRENT1#',
LONGITUDINAL_CURRENT2 = '#LONGITUDINAL_CURRENT2#',
TRANSVERSE_CURRENT2 = '#TRANSVERSE_CURRENT2#',
SPEED1 = '#SPEED1#',
SPEED2 = '#SPEED2#',
DETECTION_SPEED1 = '#DETECTION_SPEED1#',
DETECTION_SPEED2 = '#DETECTION_SPEED2#',
USERID = '#USERID#',
SIGNID = '#SIGNID#',
EXECUTIVE_PRODUCER = '#EXECUTIVE_PRODUCER#',
PRODUCER_TEL = '#PRODUCER_TEL#',
REMARK = '#REMARK#',
START_TIME = to_date('#START_TIME#',
'yyyy-mm-dd hh24:mi:ss')
WHERE JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
UPDATE MIL_MT_RESULT SET
NODE_FUR_FLAG1='#NODE_FUR_FLAG1#',
SCRAP_NUM1='#SCRAP_NUM1#',
QUALIFIED_NUM1='#QUALIFIED_NUM1#',
REINSPECTION_NUM1='#REINSPECTION_NUM1#',
REINSPECTION_QUALIFIED_NUM1='#REINSPECTION_QUALIFIED_NUM1#',
DETECTION_NUM1='#DETECTION_NUM1#',
SUSPECT_PRODUCT_NUM1='#SUSPECT_PRODUCT_NUM1#',
SCRAP_NUM='#SCRAP_NUM1#'+SCRAP_NUM2,
QUALIFIED_NUM='#QUALIFIED_NUM1#'+QUALIFIED_NUM2,
REINSPECTION_NUM='#REINSPECTION_NUM1#'+REINSPECTION_NUM2,
REINSPECTION_QUALIFIED_NUM='#REINSPECTION_QUALIFIED_NUM1#'+REINSPECTION_QUALIFIED_NUM2,
DETECTION_NUM='#DETECTION_NUM1#'+DETECTION_NUM2,
ALARM_NUM='#SUSPECT_PRODUCT_NUM1#'+SUSPECT_PRODUCT_NUM2,
QA_TON=QA_TON+'#QA_TON#'
WHERE JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
UPDATE MIL_MT_RESULT SET
NODE_FUR_FLAG2='#NODE_FUR_FLAG2#',
SCRAP_NUM2='#SCRAP_NUM2#',
QUALIFIED_NUM2='#QUALIFIED_NUM2#',
REINSPECTION_NUM2='#REINSPECTION_NUM2#',
REINSPECTION_QUALIFIED_NUM2='#REINSPECTION_QUALIFIED_NUM2#',
DETECTION_NUM2='#DETECTION_NUM2#',
SUSPECT_PRODUCT_NUM2='#SUSPECT_PRODUCT_NUM2#',
SCRAP_NUM='#SCRAP_NUM2#'+SCRAP_NUM1,
QUALIFIED_NUM='#QUALIFIED_NUM2#'+QUALIFIED_NUM1,
REINSPECTION_NUM='#REINSPECTION_NUM2#'+REINSPECTION_NUM1,
REINSPECTION_QUALIFIED_NUM='#REINSPECTION_QUALIFIED_NUM2#'+REINSPECTION_QUALIFIED_NUM1,
DETECTION_NUM='#DETECTION_NUM2#'+DETECTION_NUM1,
ALARM_NUM='#SUSPECT_PRODUCT_NUM2#'+SUSPECT_PRODUCT_NUM1,
QA_TON=QA_TON+'#QA_TON#'
WHERE JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
UPDATE MIL_UL_RESUL
SET PRODUCT_STANDARDS = '#PRODUCT_STANDARDS#',
INSTRUMENT_TYPE = '#INSTRUMENT_TYPE#',
PROBE_TYPE = '#PROBE_TYPE#',
SENSTIVITY = '#SENSTIVITY#',
INHIBITION = '#INHIBITION#',
COUPLING_AGENT = '#COUPLING_AGENT#',
SURFACE_APPEARANCE = '#SURFACE_APPEARANCE#',
LO_SURFACE = '#LO_SURFACE#',
LI_SURFACE = '#LI_SURFACE#',
TO_SURFACE = '#TO_SURFACE#',
TI_SURFACE = '#TI_SURFACE#',
USERID = '#USERID#',
SIGNID = '#SIGNID#',
EXECUTIVE_PRODUCER = '#EXECUTIVE_PRODUCER#',
PRODUCER_TIME = SYSDATE,
PRODUCER_TEL = '#PRODUCER_TEL#',
REMARK = '#REMARK#',
START_TIME = to_date('#START_TIME#', 'yyyy-mm-dd hh24:mi:ss')
WHERE JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
UPDATE MIL_UL_RESUL
SET NODE_FUR_FLAG1 = '#NODE_FUR_FLAG1#',
SCRAP_NUM1 = '#SCRAP_NUM1#',
QUALIFIED_NUM1 = '#QUALIFIED_NUM1#',
REINSPECTION_NUM1 = '#REINSPECTION_NUM1#',
REINSPECTION_QUALIFIED_NUM1 = '#REINSPECTION_QUALIFIED_NUM1#',
DETECTION_NUM1 = '#DETECTION_NUM1#',
SUSPECT_PRODUCT_NUM1 = '#SUSPECT_PRODUCT_NUM1#',
SCRAP_NUM = '#SCRAP_NUM1#' + SCRAP_NUM2,
QUALIFIED_NUM = '#QUALIFIED_NUM1#' + QUALIFIED_NUM2,
REINSPECTION_NUM = '#REINSPECTION_NUM1#' +
REINSPECTION_NUM2,
REINSPECTION_QUALIFIED_NUM = '#REINSPECTION_QUALIFIED_NUM1#' +
REINSPECTION_QUALIFIED_NUM2,
DETECTION_NUM = '#DETECTION_NUM1#' + DETECTION_NUM2,
ALARM_NUM = '#SUSPECT_PRODUCT_NUM1#' +
SUSPECT_PRODUCT_NUM2,
QA_TON = QA_TON + '#QA_TON#'
WHERE JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
UPDATE MIL_UL_RESUL
SET NODE_FUR_FLAG2 = '#NODE_FUR_FLAG2#',
SCRAP_NUM2 = '#SCRAP_NUM2#',
QUALIFIED_NUM2 = '#QUALIFIED_NUM2#',
REINSPECTION_NUM2 = '#REINSPECTION_NUM2#',
REINSPECTION_QUALIFIED_NUM2 = '#REINSPECTION_QUALIFIED_NUM2#',
DETECTION_NUM2 = '#DETECTION_NUM2#',
SUSPECT_PRODUCT_NUM2 = '#SUSPECT_PRODUCT_NUM2#',
SCRAP_NUM = '#SCRAP_NUM2#' + SCRAP_NUM1,
QUALIFIED_NUM = '#QUALIFIED_NUM2#' + QUALIFIED_NUM1,
REINSPECTION_NUM = '#REINSPECTION_NUM2#' +
REINSPECTION_NUM1,
REINSPECTION_QUALIFIED_NUM = '#REINSPECTION_QUALIFIED_NUM2#' +
REINSPECTION_QUALIFIED_NUM1,
DETECTION_NUM = '#DETECTION_NUM2#' + DETECTION_NUM1,
ALARM_NUM = '#SUSPECT_PRODUCT_NUM2#' +
SUSPECT_PRODUCT_NUM1,
QA_TON = QA_TON + '#QA_TON#'
WHERE JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
select t.Node_Fur_Flag, QUALIFIED_NUM
from Mil_Straightening_Result t
where t.judge_stove_no = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
UPDATE MIL_ET_RESULT
SET PRODUCT_STANDARDS = '#PRODUCT_STANDARDS#',
INSPECTION_STANDARD = '#INSPECTION_STANDARD#',
TESTING_METHOD = '#TESTING_METHOD#',
CALIBRATION_METHOD = '#CALIBRATION_METHOD#',
ARTIFICIAL_DEFECT_SHAPE = '#ARTIFICIAL_DEFECT_SHAPE#',
EXCITATION_FREQUENCY1 = '#EXCITATION_FREQUENCY1#',
EXCITATION_FREQUENCY2 = '#EXCITATION_FREQUENCY2#',
EXCITATION_FREQUENCY3 = '#EXCITATION_FREQUENCY3#',
TESTING_SPEED1 = '#TESTING_SPEED1#',
TESTING_SPEED2 = '#TESTING_SPEED2#',
TESTING_SPEED3 = '#TESTING_SPEED3#',
DETECTION_NUM = '#DETECTION_NUM#',
SUSPECT_PRODUCT_NUM = '#SUSPECT_PRODUCT_NUM#',
SUSPICIOUS_REASON = '#SUSPICIOUS_REASON#',
REINSPECTION_NUM = '#REINSPECTION_NUM#',
REINSPECTION_QUALIFIED_NUM = '#REINSPECTION_QUALIFIED_NUM#',
SCRAP_NUM = '#SCRAP_NUM#',
SCRAP_REASON = '#SCRAP_REASON#',
QUALIFIED_NUM = '#QUALIFIED_NUM#',
EXECUTIVE_PRODUCER = '#EXECUTIVE_PRODUCER#',
PRODUCER_TIME = '#PRODUCER_TIME#',
PRODUCER_TEL = '#PRODUCER_TEL#',
REMARK = '#REMARK#',
USERID = '#USERID#',
SIGNID = '#SIGNID#',
TESTING_TIME = '#TESTING_TIME#',
REMARK2 = '#REMARK2#',
END_TIME = SYSDATE,
NODE_FUR_FLAG = '1'
WHERE JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
update MIL_MT_RESULT t set
t.end_time=SYSDATE,
t.node_fur_flag='1'
where t.JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
update Mil_Ul_Resul t set
t.end_time=SYSDATE,
t.node_fur_flag='1'
where t.JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
update MIL_PLAN t set t.node_status='90'
WHERE JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
UPDATE MIL_TESTING_RACK T
SET
T.COL_USER = '#COL_USER#',
T.COL_SHIFT = '#COL_SHIFT#',
T.COL_GROUP = '#COL_GROUP#'
WHERE
T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.COL_USER is null
AND T.COL_SHIFT is null
AND T.COL_GROUP is null
AND T.MAT_NO is not null
UPDATE MIL_ET_RESULT T
SET T.COL_SHIFT = '#COL_SHIFT#',
T.COL_GROUP = '#COL_GROUP#',
T.COL_USER = '#COL_USER#'
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
UPDATE MIL_MT_RESULT T
SET T.COL_SHIFT = '#COL_SHIFT#',
T.COL_GROUP = '#COL_GROUP#',
T.COL_USER = '#COL_USER#'
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
UPDATE MIL_UL_RESUL T
SET T.COL_SHIFT = '#COL_SHIFT#',
T.COL_GROUP = '#COL_GROUP#',
T.COL_USER = '#COL_USER#'
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
= 1
AND ROWNUM <= #QUALIFIED_NUM# + #SCRAP_NUM# + #SAMPLE_NUM# +
V_OFFLINECOUNT - V_SEQ;
END;
]]>
SELECT
SCRAP_NUM1,
QUALIFIED_NUM1,
REINSPECTION_NUM1,
REINSPECTION_QUALIFIED_NUM1,
OFFLINE_NUM1,
BACKLINE_NUM1,
SCRAP_NUM2,
QUALIFIED_NUM2,
REINSPECTION_NUM2,
REINSPECTION_QUALIFIED_NUM2,
OFFLINE_NUM2,
BACKLINE_NUM2,
SCRAP_NUM3,
QUALIFIED_NUM3,
REINSPECTION_NUM3,
REINSPECTION_QUALIFIED_NUM3,
OFFLINE_NUM3,
BACKLINE_NUM3,
DETECTION_NUM1,
DETECTION_NUM2,
DETECTION_NUM3,
SUSPECT_PRODUCT_NUM1,
SUSPECT_PRODUCT_NUM2,
SUSPECT_PRODUCT_NUM3,
RESULT_NO,
LOT_NO,
STOVE_NO,
JUDGE_STOVE_NO,
PLINE_CODE,
BACKLINE_NUM,
OFFLINE_NUM,
PRODUCT_STANDARDS,
INSPECTION_STANDARD,
TESTING_METHOD,
CALIBRATION_METHOD,
ARTIFICIAL_DEFECT_SHAPE,
EXCITATION_FREQUENCY1,
EXCITATION_FREQUENCY2,
EXCITATION_FREQUENCY3,
TESTING_SPEED1,
TESTING_SPEED2,
TESTING_SPEED3,
DETECTION_NUM,
SUSPECT_PRODUCT_NUM,
REINSPECTION_NUM,
REINSPECTION_QUALIFIED_NUM,
SCRAP_NUM,
SCRAP_REASON,
QUALIFIED_NUM,
TO_CHAR(START_TIME, 'YYYY-MM-DD HH24:MI:SS') START_TIME,
TO_CHAR(END_TIME, 'YYYY-MM-DD HH24:MI:SS') END_TIME,
EXECUTIVE_PRODUCER,
TO_CHAR(PRODUCER_TIME, 'YYYY-MM-DD HH24:MI:SS') PRODUCER_TIME,
PRODUCER_TEL,
REMARK,
USERID,
SIGNID,
TO_CHAR(TESTING_TIME, 'YYYY-MM-DD HH24:MI:SS') TESTING_TIME,
DECODE(NODE_FUR_FLAG,'0','未结炉','1','结炉')NODE_FUR_FLAG,
REMARK2,
COL_MODE,
TO_CHAR(COL_TIME, 'YYYY-MM-DD HH24:MI:SS') COL_TIME,
COL_USER,
case COL_SHIFT
WHEN '0' THEN '常白班'
WHEN '1' THEN '早班'
WHEN '2' THEN '中班'
WHEN '3' THEN '晚班' end as COL_SHIFT,
case COL_GROUP
WHEN '1' THEN '甲'
WHEN '2' THEN '乙'
WHEN '3' THEN '丙'
WHEN '4' THEN '丁' end as COL_GROUP,
QA_TON,
CHANGE_NUM
FROM MIL_ET_RESULT
WHERE
1=1
AND PLINE_CODE=?
AND COL_SHIFT=?
AND COL_GROUP=?
AND END_TIME BETWEEN TO_DATE(?,'YYYY-MM-DD HH24:MI:SS') AND TO_DATE(?,'YYYY-MM-DD HH24:MI:SS')
AND NODE_FUR_FLAG='1'
SELECT
SCRAP_NUM2,
QUALIFIED_NUM2,
REINSPECTION_NUM2,
REINSPECTION_QUALIFIED_NUM2,
OFFLINE_NUM2,
BACKLINE_NUM2,
SCRAP_NUM1,
QUALIFIED_NUM1,
REINSPECTION_NUM1,
REINSPECTION_QUALIFIED_NUM1,
OFFLINE_NUM1,
BACKLINE_NUM1,
DETECTION_NUM1,
DETECTION_NUM2,
SUSPECT_PRODUCT_NUM1,
SUSPECT_PRODUCT_NUM2,
BACKLINE_NUM,
OFFLINE_NUM,
COL_NO,
RESULT_NO,
LOT_NO,
STOVE_NO,
JUDGE_STOVE_NO,
PLINE_CODE,
PRODUCT_STANDARDS,
LO_SURFACE,
LI_SURFACE,
TO_SURFACE,
TI_SURFACE,
GROOVE_SHAPE,
INSPECTION_STANDARD,
LONGITUDINAL_CURRENT1,
TRANSVERSE_CURRENT1,
LONGITUDINAL_CURRENT2,
TRANSVERSE_CURRENT2,
SPEED1,
SPEED2,
DETECTION_SPEED1,
DETECTION_SPEED2,
DETECTION_NUM,
ALARM_NUM,
SUSPICIOUS_REASON,
REINSPECTION_NUM,
REINSPECTION_QUALIFIED_NUM,
SCRAP_NUM,
SCRAP_REASON,
QUALIFIED_NUM,
USERID,
SIGNID,
TO_CHAR(START_TIME, 'YYYY-MM-DD HH24:MI:SS') START_TIME,
TO_CHAR(END_TIME, 'YYYY-MM-DD HH24:MI:SS') END_TIME,
EXECUTIVE_PRODUCER,
TO_CHAR(PRODUCER_TIME, 'YYYY-MM-DD HH24:MI:SS') PRODUCER_TIME,
PRODUCER_TEL,
DECODE(NODE_FUR_FLAG,'0','未结炉','1','结炉')NODE_FUR_FLAG,
REMARK,
COL_MODE,
TO_CHAR(COL_TIME, 'YYYY-MM-DD HH24:MI:SS') COL_TIME,
COL_USER,
case COL_SHIFT
WHEN '0' THEN '常白班'
WHEN '1' THEN '早班'
WHEN '2' THEN '中班'
WHEN '3' THEN '晚班' end as COL_SHIFT,
case COL_GROUP
WHEN '1' THEN '甲'
WHEN '2' THEN '乙'
WHEN '3' THEN '丙'
WHEN '4' THEN '丁' end as COL_GROUP,
QA_TON,
CHANGE_NUM
FROM MIL_MT_RESULT
WHERE
1=1
AND PLINE_CODE=?
AND COL_SHIFT=?
AND COL_GROUP=?
AND END_TIME BETWEEN TO_DATE(?,'YYYY-MM-DD HH24:MI:SS') AND TO_DATE(?,'YYYY-MM-DD HH24:MI:SS')
AND NODE_FUR_FLAG='1'
SELECT
SCRAP_NUM2,
QUALIFIED_NUM2,
REINSPECTION_NUM2,
REINSPECTION_QUALIFIED_NUM2,
OFFLINE_NUM2,
BACKLINE_NUM2,
SCRAP_NUM1,
QUALIFIED_NUM1,
REINSPECTION_NUM1,
REINSPECTION_QUALIFIED_NUM1,
OFFLINE_NUM1,
BACKLINE_NUM1,
DETECTION_NUM1,
DETECTION_NUM2,
SUSPECT_PRODUCT_NUM1,
SUSPECT_PRODUCT_NUM2,
BACKLINE_NUM,
OFFLINE_NUM,
COL_NO,
RESULT_NO,
LOT_NO,
STOVE_NO,
JUDGE_STOVE_NO,
PLINE_CODE,
PRODUCT_STANDARDS,
INSTRUMENT_TYPE,
PROBE_TYPE,
SENSTIVITY,
INHIBITION,
COUPLING_AGENT,
SURFACE_APPEARANCE,
LO_SURFACE,
LI_SURFACE,
TO_SURFACE,
TI_SURFACE,
DETECTION_NUM,
ALARM_NUM,
SUSPICIOUS_REASON,
REINSPECTION_NUM,
REINSPECTION_QUALIFIED_NUM,
SCRAP_NUM,
SCRAP_REASON,
QUALIFIED_NUM,
USERID,
SIGNID,
TO_CHAR(START_TIME, 'YYYY-MM-DD HH24:MI:SS') START_TIME,
TO_CHAR(END_TIME, 'YYYY-MM-DD HH24:MI:SS') END_TIME,
EXECUTIVE_PRODUCER,
TO_CHAR(PRODUCER_TIME, 'YYYY-MM-DD HH24:MI:SS') PRODUCER_TIME,
PRODUCER_TEL,
NODE_FUR_FLAG,
REMARK,
COL_MODE,
TO_CHAR(COL_TIME, 'YYYY-MM-DD HH24:MI:SS') COL_TIME,
COL_USER,
case COL_SHIFT
WHEN '0' THEN '常白班'
WHEN '1' THEN '早班'
WHEN '2' THEN '中班'
WHEN '3' THEN '晚班' end as COL_SHIFT,
case COL_GROUP
WHEN '1' THEN '甲'
WHEN '2' THEN '乙'
WHEN '3' THEN '丙'
WHEN '4' THEN '丁' end as COL_GROUP,
QA_TON,
CHANGE_NUM
FROM MIL_UL_RESUL
WHERE
1=1
AND PLINE_CODE=?
AND COL_SHIFT=?
AND COL_GROUP=?
AND END_TIME BETWEEN TO_DATE(?,'YYYY-MM-DD HH24:MI:SS') AND TO_DATE(?,'YYYY-MM-DD HH24:MI:SS')
AND NODE_FUR_FLAG='1'
UPDATE MIL_SAW_RACK T
SET
T.ORDER_LENGTH = '#ORDER_LENGTH#',
T.CUT_HEAD_LENGTH = '#CUT_HEAD_LENGTH#',
T.CUT_TRAIL_LENGTH = '#CUT_TRAIL_LENGTH#',
T.SAW_NO = '#SAW_NO#',
T.SAW_NO_N = '#SAW_NO_N#',
T.LAST_ORDER_LENGTH = '#LAST_ORDER_LENGTH#',
T.CUT_TYPE = '#CUT_TYPE#',
T.REAL_ROLL_LENGTH = '#REAL_ROLL_LENGTH#'
WHERE
T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.SEQ = '#SEQ#'
AND T.ROW_NO='#ROW_NO#'
UPDATE MIL_ET_RESULT T
SET
T.DETECTION_NUM = '#DETECTION_NUM1#'+DETECTION_NUM2+DETECTION_NUM3,
T.QUALIFIED_NUM = '#QUALIFIED_NUM1#'+QUALIFIED_NUM2+QUALIFIED_NUM3,
T.QUALIFIED_NUM1 = '#QUALIFIED_NUM1#',
T.DETECTION_NUM1 = '#DETECTION_NUM1#'
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
UPDATE MIL_ET_RESULT T
SET
T.DETECTION_NUM = '#DETECTION_NUM2#'+DETECTION_NUM1+DETECTION_NUM3,
T.QUALIFIED_NUM = '#QUALIFIED_NUM2#'+QUALIFIED_NUM1+QUALIFIED_NUM3,
T.QUALIFIED_NUM2 = '#QUALIFIED_NUM2#',
T.DETECTION_NUM2 = '#DETECTION_NUM2#'
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
UPDATE MIL_ET_RESULT T
SET
T.DETECTION_NUM = '#DETECTION_NUM3#'+DETECTION_NUM1+DETECTION_NUM2,
T.QUALIFIED_NUM = '#QUALIFIED_NUM3#'+QUALIFIED_NUM1+QUALIFIED_NUM2,
T.QUALIFIED_NUM3 = '#QUALIFIED_NUM3#',
T.DETECTION_NUM3 = '#DETECTION_NUM3#'
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
UPDATE MIL_MT_RESULT T
SET
T.DETECTION_NUM = '#DETECTION_NUM1#'+DETECTION_NUM2,
T.QUALIFIED_NUM = '#QUALIFIED_NUM1#'+QUALIFIED_NUM2,
T.QUALIFIED_NUM1 = '#QUALIFIED_NUM1#',
T.DETECTION_NUM1 = '#DETECTION_NUM1#'
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
UPDATE MIL_MT_RESULT T
SET
T.DETECTION_NUM = '#DETECTION_NUM2#'+DETECTION_NUM1,
T.QUALIFIED_NUM = '#QUALIFIED_NUM2#'+QUALIFIED_NUM1,
T.QUALIFIED_NUM2 = '#QUALIFIED_NUM2#',
T.DETECTION_NUM2 = '#DETECTION_NUM2#'
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
UPDATE MIL_UL_RESUL T
SET
T.DETECTION_NUM = '#DETECTION_NUM1#'+DETECTION_NUM2,
T.QUALIFIED_NUM = '#QUALIFIED_NUM1#'+QUALIFIED_NUM2,
T.QUALIFIED_NUM1 = '#QUALIFIED_NUM1#',
T.DETECTION_NUM1 = '#DETECTION_NUM1#'
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
UPDATE MIL_UL_RESUL T
SET
T.DETECTION_NUM = '#DETECTION_NUM2#'+DETECTION_NUM1,
T.QUALIFIED_NUM = '#QUALIFIED_NUM2#'+QUALIFIED_NUM1,
T.QUALIFIED_NUM2 = '#QUALIFIED_NUM2#',
T.DETECTION_NUM2 = '#DETECTION_NUM2#'
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
SELECT
T.IP_ADDRESS1,
T.IP_ADDRESS2,
T.PROCESS_NO,
T.OPERAT_CODE,
T.OPERAT_NAME,
T.PLINE_CODE,
T.REMARK,
T.IP_ADDRESS3,
T.IP_ADDRESS4
FROM MIL_BASE_ADDRESS T
WHERE
T.PROCESS_NO != '#PROCESS_NO#'
OR T.OPERAT_CODE != '#OPERAT_CODE#'
AND T.PLINE_CODE = '#PLINE_CODE#'
INSERT INTO MIL_TESTING_RESULT_DETAIL(
RESULT_NO,
LOT_NO,
STOVE_NO,
JUDGE_STOVE_NO,
PLINE_CODE,
START_TIME,
COL_USER,
COL_SHIFT,
COL_GROUP,
SCRAP_NUM1,
QUALIFIED_NUM1,
REINSPECTION_NUM1,
REINSPECTION_QUALIFIED_NUM1,
DETECTION_NUM1,
SUSPECT_PRODUCT_NUM1,
RECUT_NUM1,
SCRAP_NUM,
QUALIFIED_NUM,
REINSPECTION_NUM,
REINSPECTION_QUALIFIED_NUM,
DETECTION_NUM,
SUSPECT_PRODUCT_NUM,
RECUT_NUM)
VALUES(
'#RESULT_NO#',
'#LOT_NO#',
'#STOVE_NO#',
'#JUDGE_STOVE_NO#',
'#PLINE_CODE#',
SYSDATE,
'#COL_USER#',
'#COL_SHIFT#',
'#COL_GROUP#',
'#SCRAP_NUM1#',
'#QUALIFIED_NUM1#',
'#REINSPECTION_NUM1#',
'#REINSPECTION_QUALIFIED_NUM1#',
'#DETECTION_NUM1#',
'#SUSPECT_PRODUCT_NUM1#',
'#RECUT_NUM1#',
'#SCRAP_NUM1#',
'#QUALIFIED_NUM1#',
'#REINSPECTION_NUM1#',
'#REINSPECTION_QUALIFIED_NUM1#',
'#DETECTION_NUM1#',
'#SUSPECT_PRODUCT_NUM1#',
'#RECUT_NUM1#')
INSERT INTO MIL_TESTING_RESULT_DETAIL(
RESULT_NO,
LOT_NO,
STOVE_NO,
JUDGE_STOVE_NO,
PLINE_CODE,
START_TIME,
COL_USER,
COL_SHIFT,
COL_GROUP,
SCRAP_NUM2,
QUALIFIED_NUM2,
REINSPECTION_NUM2,
REINSPECTION_QUALIFIED_NUM2,
DETECTION_NUM2,
SUSPECT_PRODUCT_NUM2,
RECUT_NUM2,
SCRAP_NUM,
QUALIFIED_NUM,
REINSPECTION_NUM,
REINSPECTION_QUALIFIED_NUM,
DETECTION_NUM,
SUSPECT_PRODUCT_NUM,
RECUT_NUM)
VALUES(
'#RESULT_NO#',
'#LOT_NO#',
'#STOVE_NO#',
'#JUDGE_STOVE_NO#',
'#PLINE_CODE#',
SYSDATE,
'#COL_USER#',
'#COL_SHIFT#',
'#COL_GROUP#',
'#SCRAP_NUM2#',
'#QUALIFIED_NUM2#',
'#REINSPECTION_NUM2#',
'#REINSPECTION_QUALIFIED_NUM2#',
'#DETECTION_NUM2#',
'#SUSPECT_PRODUCT_NUM2#',
'#RECUT_NUM2#',
'#SCRAP_NUM2#',
'#QUALIFIED_NUM2#',
'#REINSPECTION_NUM2#',
'#REINSPECTION_QUALIFIED_NUM2#',
'#DETECTION_NUM2#',
'#SUSPECT_PRODUCT_NUM2#',
'#RECUT_NUM2#')
INSERT INTO MIL_TESTING_RESULT_DETAIL(
RESULT_NO,
LOT_NO,
STOVE_NO,
JUDGE_STOVE_NO,
PLINE_CODE,
START_TIME,
COL_USER,
COL_SHIFT,
COL_GROUP,
SCRAP_NUM3,
QUALIFIED_NUM3,
REINSPECTION_NUM3,
REINSPECTION_QUALIFIED_NUM3,
DETECTION_NUM3,
SUSPECT_PRODUCT_NUM3,
RECUT_NUM3,
SCRAP_NUM,
QUALIFIED_NUM,
REINSPECTION_NUM,
REINSPECTION_QUALIFIED_NUM,
DETECTION_NUM,
SUSPECT_PRODUCT_NUM,
RECUT_NUM)
VALUES(
'#RESULT_NO#',
'#LOT_NO#',
'#STOVE_NO#',
'#JUDGE_STOVE_NO#',
'#PLINE_CODE#',
SYSDATE,
'#COL_USER#',
'#COL_SHIFT#',
'#COL_GROUP#',
'#SCRAP_NUM3#',
'#QUALIFIED_NUM3#',
'#REINSPECTION_NUM3#',
'#REINSPECTION_QUALIFIED_NUM3#',
'#DETECTION_NUM3#',
'#SUSPECT_PRODUCT_NUM3#',
'#RECUT_NUM3#',
'#SCRAP_NUM3#',
'#QUALIFIED_NUM3#',
'#REINSPECTION_NUM3#',
'#REINSPECTION_QUALIFIED_NUM3#',
'#DETECTION_NUM3#',
'#SUSPECT_PRODUCT_NUM3#',
'#RECUT_NUM3#')
INSERT INTO MIL_TESTING_RESULT_DETAIL_DES(
RESULT_NO,
LOT_NO,
STOVE_NO,
JUDGE_STOVE_NO,
PLINE_CODE,
COL_USER,
COL_SHIFT,
COL_GROUP,
REASON,
REASON_NUMBER,
REASON_FLAG,
COL_NO)
VALUES(
'#RESULT_NO#',
'#LOT_NO#',
'#STOVE_NO#',
'#JUDGE_STOVE_NO#',
'#PLINE_CODE#',
'#COL_USER#',
'#COL_SHIFT#',
'#COL_GROUP#',
'#REASON#',
'#REASON_NUMBER#',
'#REASON_FLAG#',
'#COL_NO#')
SELECT T.JUDGE_STOVE_NO
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = ?
AND T.PLINE_CODE = ?
AND T.OFFLINE_FLAG = '1'
AND (T.OFFLINE_TYPE = '1' or T.OFFLINE_TYPE = '2')
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
SELECT T.QUALIFIED_NUM FROM MIL_STRAIGHTENING_RESULT T WHERE T.JUDGE_STOVE_NO = ?
SELECT
RECUT_LEN3,
TEST_NUM1,
TEST_NUM2,
TEST_NUM3,
REINSPECTION_NUM3,
REINSPECTION_QUALIFIED_NUM3,
OFFLINE_NUM3,
BACKLINE_NUM3,
DETECTION_NUM3,
SUSPECT_PRODUCT_NUM3,
RECUT_NUM3,
SCRAP_NUM,
QUALIFIED_NUM,
REINSPECTION_NUM,
REINSPECTION_QUALIFIED_NUM,
OFFLINE_NUM,
RECUT_LEN2,
DETECTION_NUM,
SUSPECT_PRODUCT_NUM,
RECUT_NUM,
REMARK,
COL_NO,
RECUT_LEN1,
RESULT_NO,
LOT_NO,
STOVE_NO,
JUDGE_STOVE_NO,
PLINE_CODE,
TO_CHAR(START_TIME, 'YYYY-MM-DD HH24:MI:SS') START_TIME,
TO_CHAR(END_TIME, 'YYYY-MM-DD HH24:MI:SS') END_TIME,
COL_USER,
COL_SHIFT,
COL_GROUP,
SCRAP_NUM1,
QUALIFIED_NUM1,
REINSPECTION_NUM1,
REINSPECTION_QUALIFIED_NUM1,
OFFLINE_NUM1,
BACKLINE_NUM1,
DETECTION_NUM1,
SUSPECT_PRODUCT_NUM1,
RECUT_NUM1,
SCRAP_NUM2,
QUALIFIED_NUM2,
REINSPECTION_NUM2,
REINSPECTION_QUALIFIED_NUM2,
OFFLINE_NUM2,
BACKLINE_NUM2,
DETECTION_NUM2,
SUSPECT_PRODUCT_NUM2,
RECUT_NUM2,
SCRAP_NUM3,
QUALIFIED_NUM3,
SAMPLE_NUM1,
SAMPLE_NUM2,
SAMPLE_NUM3
FROM MIL_TESTING_RESULT_DETAIL
WHERE JUDGE_STOVE_NO = ?
AND COL_SHIFT = ?
AND COL_GROUP = ?
AND NVL(PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(GX_PLAN_NO, '/') = NVL(?, '/')
SELECT T.REASON,T.REASON_NUMBER AS ACT_COUNT,'True' CHK
FROM MIL_TESTING_RESULT_DETAIL_DES T
WHERE T.RESULT_NO = ?
AND T.LOT_NO = ?
AND T.JUDGE_STOVE_NO = ?
AND T.COL_SHIFT = ?
AND T.COL_GROUP = ?
AND T.COL_NO = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
AND T.REASON_FLAG = '可疑'
SELECT T.REASON,T.REASON1,T.REASON_NUMBER AS ACT_COUNT,'True' CHK
FROM MIL_TESTING_RESULT_DETAIL_DES T
WHERE T.RESULT_NO = ?
AND T.LOT_NO = ?
AND T.JUDGE_STOVE_NO = ?
AND T.COL_SHIFT = ?
AND T.COL_GROUP = ?
AND T.COL_NO = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
AND T.REASON_FLAG = '剔除'
SELECT T.REASON,T.REASON_NUMBER AS ACT_COUNT,'True' CHK
FROM MIL_TESTING_RESULT_DETAIL_DES T
WHERE T.RESULT_NO = ?
AND T.LOT_NO = ?
AND T.JUDGE_STOVE_NO = ?
AND T.COL_SHIFT = ?
AND T.COL_GROUP = ?
AND T.COL_NO = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
AND T.REASON_FLAG = '下线'
0) THEN
SELECT NVL(SUM(T.REASON_NUMBER), 0)
INTO V_COUNT
FROM MIL_TESTING_RESULT_DETAIL_DES T
WHERE T.RESULT_NO = V_RESULT_NO
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.COL_SHIFT = V_COL_SHIFT
AND T.COL_GROUP = V_COL_GROUP
AND T.COL_NO = V_COL_NO
AND NVL(T.PRO_PLAN_ID, '/') = NVL(V_PRO_PLAN_ID, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(V_GX_PLAN_NO, '/')
AND T.REASON_FLAG = '下线';
END IF;
DELETE FROM MIL_SLAB_SCRAP_SEQ T
WHERE T.RESULT_NO = V_RESULT_NO
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.COL_SHIFT = V_COL_SHIFT
AND T.COL_GROUP = V_COL_GROUP
AND T.COL_NO = V_COL_NO
AND NVL(T.PRO_PLAN_ID, '/') = NVL(V_PRO_PLAN_ID, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(V_GX_PLAN_NO, '/')
AND T.PROCESS_NO = '10';
IF (V_COUNT > 0) THEN
UPDATE MIL_OFFLINE_RESLUT T
SET T.ZP_HEIGHT = TO_NUMBER(T.ZP_HEIGHT) -
TO_NUMBER(V_COUNT * T.ZP_HEIGHT / T.OFFLINE_NUM),
T.OFFLINE_NUM = TO_NUMBER(T.OFFLINE_NUM) - TO_NUMBER(V_COUNT)
WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND NVL(T.PRO_PLAN_ID, '/') = NVL(V_PRO_PLAN_ID, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(V_GX_PLAN_NO, '/')
AND T.OFFLINE_PRO = 'TS'
AND T.OFFLINE_TYPE = '2';
END IF;
UPDATE MIL_MT_RESULT T
SET T.INSPECTIONED_OFFLINE_NUM = TO_NUMBER(T.INSPECTIONED_OFFLINE_NUM) -
TO_NUMBER(V_COUNT)
WHERE T.RESULT_NO = V_RESULT_NO;
SELECT NVL(COUNT(1), 0)
INTO V_OFFOUT
FROM MIL_OFFLINE_RESLUT T
WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND NVL(T.PRO_PLAN_ID, '/') = NVL(V_PRO_PLAN_ID, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(V_GX_PLAN_NO, '/')
AND T.OFFLINE_PRO = 'TS'
AND T.OFFLINE_TYPE = '2';
IF (V_OFFOUT > 0) THEN
SELECT T.OFFLINE_NUM
INTO V_OFFLINECOUNT
FROM MIL_OFFLINE_RESLUT T
WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND NVL(T.PRO_PLAN_ID, '/') = NVL(V_PRO_PLAN_ID, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(V_GX_PLAN_NO, '/')
AND T.OFFLINE_PRO = 'TS'
AND T.OFFLINE_TYPE = '2';
END IF;
IF (V_OFFLINECOUNT = 0) THEN
DELETE FROM MIL_OFFLINE_RESLUT T
WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND NVL(T.PRO_PLAN_ID, '/') = NVL(V_PRO_PLAN_ID, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(V_GX_PLAN_NO, '/')
AND T.OFFLINE_PRO = 'TS'
AND T.OFFLINE_TYPE = '2';
END IF;
SELECT NVL(COUNT(1), 0)
INTO V_DETAILCOUNT
FROM MIL_TESTING_RESULT_DETAIL_DES T
WHERE T.RESULT_NO = V_RESULT_NO
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.COL_SHIFT = V_COL_SHIFT
AND T.COL_GROUP = V_COL_GROUP
AND T.COL_NO = V_COL_NO
AND NVL(T.PRO_PLAN_ID, '/') = NVL(V_PRO_PLAN_ID, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(V_GX_PLAN_NO, '/')
AND T.REASON_FLAG = '可疑';
IF (V_DETAILCOUNT > 0) THEN
SELECT NVL(SUM(T.REASON_NUMBER), 0)
INTO V_REASON_NUMBER
FROM MIL_TESTING_RESULT_DETAIL_DES T
WHERE T.RESULT_NO = V_RESULT_NO
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.COL_SHIFT = V_COL_SHIFT
AND T.COL_GROUP = V_COL_GROUP
AND T.COL_NO = V_COL_NO
AND NVL(T.PRO_PLAN_ID, '/') = NVL(V_PRO_PLAN_ID, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(V_GX_PLAN_NO, '/')
AND T.REASON_FLAG = '可疑';
UPDATE MIL_TESTING_RACK T
SET T.STATUS = '0',
T.COL_NO = '',
T.ALARM_REASON = '',
T.SCRAP_REASON = '',
T.SUSPECT_FLAG = '0',
T.OFFLINE_TYPE = '0',
T.OFFLINE_REASON = '',
T.RECUT_LENGTH = '',
T.RECUT_FLAG = '0',
T.OFFLINE_FLAG = '0',
T.SAMPLE_FLAG = '0'
WHERE T.RESULT_NO = V_RESULT_NO
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.COL_NO = V_COL_NO
AND NVL(T.PRO_PLAN_ID, '/') = NVL(V_PRO_PLAN_ID, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(V_GX_PLAN_NO, '/')
AND T.SUSPECT_FLAG = '1'
AND ROWNUM <= V_REASON_NUMBER;
FOR MYROW1 IN (SELECT *
FROM (SELECT T.MAT_NO
FROM MAT_BC_M T, YDM_BC_BUTTRESS S
WHERE T.MAT_NO = S.MAT_NO
AND T.ZG_STOVE_SQE = V_JUDGE_STOVE_NO
AND T.QCM_STAUS = '11'
AND T.PRODUCT_FLAG = '801401'
AND T.MAT_STATUS = '80150104'
ORDER BY T.MAT_NO DESC)
WHERE ROWNUM <= V_COUNT) LOOP
DELETE FROM MAT_BC_M T WHERE T.MAT_NO = MYROW1.MAT_NO;
DELETE FROM YDM_BC_BUTTRESS T WHERE T.MAT_NO = MYROW1.MAT_NO;
DELETE FROM YDM_BC_INLIST T WHERE T.MAT_NO = MYROW1.MAT_NO;
END LOOP;
END IF;
DELETE FROM MIL_TESTING_RESULT_DETAIL_DES T
WHERE T.RESULT_NO = V_RESULT_NO
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.COL_SHIFT = V_COL_SHIFT
AND T.COL_GROUP = V_COL_GROUP
AND T.COL_NO = V_COL_NO
AND NVL(T.PRO_PLAN_ID, '/') = NVL(V_PRO_PLAN_ID, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(V_GX_PLAN_NO, '/');
END;
]]>
DECLARE
V_COUNT MIL_TESTING_RESULT_DETAIL_DES.REASON_NUMBER%TYPE := 0;
V_PIPSIZE MIL_PLAN.PIPE_SIZE%TYPE := NULL;
V_TARGET_LENGTH MIL_PLAN.TARGET_LENGTH%TYPE := NULL;
V_ID MIL_PLAN.ID%TYPE := ?;
V_JUDGE_STOVE_NO MIL_OFFLINE_RESLUT.JUDGE_STOVE_NO%TYPE := ?;
V_PRO_PLAN_ID MIL_OFFLINE_RESLUT.PRO_PLAN_ID%TYPE := NULL;
V_GX_PLAN_NO MIL_OFFLINE_RESLUT.GX_PLAN_NO%TYPE := NULL;
V_OFFLINE_DOC MIL_OFFLINE_RESLUT.OFFLINE_DOC%TYPE := NULL;
BEGIN
SELECT T.PRO_PLAN_ID, T.GX_PLAN_NO
INTO V_PRO_PLAN_ID, V_GX_PLAN_NO
FROM MIL_PLAN T
WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.ID = V_ID;
SELECT T.PIPE_SIZE, T.TARGET_LENGTH
INTO V_PIPSIZE, V_TARGET_LENGTH
FROM MIL_PLAN T
WHERE T.ID = V_ID
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO;
SELECT NVL(COUNT(1), 0)
INTO V_COUNT
FROM MIL_OFFLINE_RESLUT T
WHERE T.JUDGE_STOVE_NO = ?
AND T.OFFLINE_PRO = 'TS'
AND T.OFFLINE_TYPE = '2';
SELECT 'D' || TO_CHAR(SYSDATE, 'YYYYMM') ||
LPAD(NVL(MAX(SUBSTR(T.OFFLINE_DOC, 8, 4)), 0) + 1, 4, 0)
INTO V_OFFLINE_DOC
FROM MIL_OFFLINE_RESLUT T
WHERE TO_CHAR(T.OFFLINE_TIME, 'YYYYMM') = TO_CHAR(SYSDATE, 'YYYYMM');
IF (V_COUNT > 0) THEN
UPDATE MIL_OFFLINE_RESLUT T
SET T.OFFLINE_NUM = TO_NUMBER(T.OFFLINE_NUM) + TO_NUMBER(?),
T.ZP_HEIGHT = TO_NUMBER(T.ZP_HEIGHT) +
to_number(substr(0.02466 *
SUBSTR(V_PIPSIZE,
INSTR(V_PIPSIZE, '*') + 1) *
(SUBSTR(V_PIPSIZE,
0,
INSTR(V_PIPSIZE, '*') - 1) -
SUBSTR(V_PIPSIZE,
INSTR(V_PIPSIZE, '*') + 1)) / 1000,
0,
instr(0.02466 *
SUBSTR(V_PIPSIZE,
INSTR(V_PIPSIZE, '*') + 1) *
(SUBSTR(V_PIPSIZE,
0,
INSTR(V_PIPSIZE, '*') - 1) -
SUBSTR(V_PIPSIZE,
INSTR(V_PIPSIZE, '*') + 1)) / 1000,
'.') + 3)) * to_number(?) *
to_number(V_TARGET_LENGTH)
WHERE T.JUDGE_STOVE_NO = ?
AND T.OFFLINE_PRO = 'TS'
AND T.OFFLINE_TYPE = '2';
ELSE
FOR MYROW IN (SELECT *
FROM MIL_PLAN T
WHERE T.ID = ?
AND T.JUDGE_STOVE_NO = ?) LOOP
INSERT INTO MIL_OFFLINE_RESLUT
(RECHECK_NUM,
PRODUCNAME,
STEELCODE,
STEELNAME,
GRADECODE,
GRADENAME,
SPEC_CODE,
SPEC_NAME,
MODEL_CODE,
MODEL_DESC,
STD_CODE,
STD_NAME,
STD_STYLE,
STD_STYLE_DESC,
ACT_LEN_RANGE,
CONTRACT_NO,
PRODUCCODE,
INSTORAGE_NUM,
QUALIFIED_NUM,
SCRAP_NUM,
ZP_M_LH,
LOT_NO,
STOVE_NO,
JUDGE_STOVE_NO,
DIAMETER,
THICKNESS,
LENGTH,
PLINE_CODE,
OFFLINE_PRO,
REAL_TIME_STATUS,
OFFLINE_NUM,
BACKLINE_NUM,
GROUP_NUM,
FINAL_NUM,
ZP_FLAG,
STATUS,
TYPE_FLAG,
OFFLINE_TIME,
REMARK,
COL_USER,
COL_SHIFT,
COL_GROUP,
ZP_HEIGHT,
OFFLINE_TYPE,
TARGET,
IMP_PROCESS,
PRO_PLAN_ID,
GX_PLAN_NO,
OFFLINE_DOC,
LOAD_JUDGE_STOVE_NO)
VALUES
('0',
MYROW.VARIETIES,
MYROW.STEELCODE,
MYROW.STEELNAME,
MYROW.GRADECODE,
MYROW.GRADENAME,
MYROW.PIPE_SIZE_CODE,
MYROW.PIPE_SIZE,
MYROW.BUCKLE_TYPE_CODE,
MYROW.BUCKLE_TYPE,
MYROW.ROLL_STANDRAD_CODE,
MYROW.ROLL_STANDRAD,
MYROW.STD_STYLE,
MYROW.STD_STYLE_DESC,
MYROW.LENGTH_RANGE,
MYROW.CONTRACT_NO,
MYROW.VARIETIES_CODE,
'0',
'0',
'0',
'',
MYROW.LOT_NO,
MYROW.STOVE_NO,
MYROW.JUDGE_STOVE_NO,
SUBSTR(MYROW.PIPE_SIZE, 0, INSTR(MYROW.PIPE_SIZE, '*') - 1),
SUBSTR(MYROW.PIPE_SIZE, INSTR(MYROW.PIPE_SIZE, '*') + 1),
MYROW.TARGET_LENGTH,
MYROW.PLINE_CODE,
'TS',
'0',
?,
'0',
'0',
'',
'0',
'0',
'0',
SYSDATE,
'',
?,
?,
?,
to_number(substr(0.02466 *
SUBSTR(MYROW.PIPE_SIZE,
INSTR(MYROW.PIPE_SIZE, '*') + 1) *
(SUBSTR(MYROW.PIPE_SIZE,
0,
INSTR(MYROW.PIPE_SIZE, '*') - 1) -
SUBSTR(MYROW.PIPE_SIZE,
INSTR(MYROW.PIPE_SIZE, '*') + 1)) / 1000,
0,
instr(0.02466 *
SUBSTR(MYROW.PIPE_SIZE,
INSTR(MYROW.PIPE_SIZE, '*') + 1) *
(SUBSTR(MYROW.PIPE_SIZE,
0,
INSTR(MYROW.PIPE_SIZE, '*') - 1) -
SUBSTR(MYROW.PIPE_SIZE,
INSTR(MYROW.PIPE_SIZE, '*') + 1)) / 1000,
'.') + 3)) * to_number(?) *
to_number(MYROW.TARGET_LENGTH),
'2',
MYROW.TARGET,
MYROW.IMP_PROCESS,
V_PRO_PLAN_ID,
V_GX_PLAN_NO,
?,
MYROW.FEED_HEAT_NO);
END LOOP;
END IF;
END;
0) THEN
--存在看是哪个操作台
IF ('#COL_NO#' = '1') THEN
SELECT T.DETECTION_NUM1,
T.SCRAP_NUM1,
T.QUALIFIED_NUM1,
T.REINSPECTION_NUM1,
T.SUSPECT_PRODUCT_NUM1,
T.RECUT_NUM1,
T.REINSPECTION_QUALIFIED_NUM1,
T.SAMPLE_NUM1
INTO V_DETECTION_NUM1,
V_SCRAP_NUM1,
V_QUALIFIED_NUM1,
V_REINSPECTION_NUM1,
V_SUSPECT_PRODUCT_NUM1,
V_RECUT_NUM1,
V_REINSPECTION_QUALIFIED_NUM1,
V_SAMPLE_NUM1
FROM MIL_TESTING_RESULT_DETAIL T
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.COL_SHIFT = '#COL_SHIFT#'
AND T.COL_GROUP = '#COL_GROUP#';
--把该班次班组原支数在实绩主表减去
IF (V_QUALIFIED_NUM > 0) THEN
UPDATE MIL_MT_RESULT T
SET T.DETECTION_NUM = TO_NUMBER(T.DETECTION_NUM) -
TO_NUMBER(V_DETECTION_NUM1),
T.SCRAP_NUM = TO_NUMBER(T.SCRAP_NUM) -
TO_NUMBER(V_SCRAP_NUM1),
T.QUALIFIED_NUM = TO_NUMBER(T.QUALIFIED_NUM) -
TO_NUMBER(V_QUALIFIED_NUM1),
T.REINSPECTION_NUM = TO_NUMBER(T.REINSPECTION_NUM) -
TO_NUMBER(V_REINSPECTION_NUM1),
T.ALARM_NUM = TO_NUMBER(T.ALARM_NUM) -
TO_NUMBER(V_SUSPECT_PRODUCT_NUM1),
T.RECUT_NUM = TO_NUMBER(T.RECUT_NUM) -
TO_NUMBER(V_RECUT_NUM1),
T.QA_TON = TO_NUMBER(T.QA_TON) -
TO_NUMBER(T.QA_TON /
QUALIFIED_NUM) *
TO_NUMBER(V_QUALIFIED_NUM1),
T.REINSPECTION_QUALIFIED_NUM = TO_NUMBER(T.REINSPECTION_QUALIFIED_NUM) -
TO_NUMBER(V_REINSPECTION_QUALIFIED_NUM1),
T.SAMPLE_NUM = TO_NUMBER(T.SAMPLE_NUM) -
TO_NUMBER(V_SAMPLE_NUM1)
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/');
ELSIF (V_QUALIFIED_NUM = 0) THEN
UPDATE MIL_MT_RESULT T
SET T.DETECTION_NUM = TO_NUMBER(T.DETECTION_NUM) -
TO_NUMBER(V_DETECTION_NUM1),
T.SCRAP_NUM = TO_NUMBER(T.SCRAP_NUM) -
TO_NUMBER(V_SCRAP_NUM1),
T.QUALIFIED_NUM = TO_NUMBER(T.QUALIFIED_NUM) -
TO_NUMBER(V_QUALIFIED_NUM1),
T.REINSPECTION_NUM = TO_NUMBER(T.REINSPECTION_NUM) -
TO_NUMBER(V_REINSPECTION_NUM1),
T.ALARM_NUM = TO_NUMBER(T.ALARM_NUM) -
TO_NUMBER(V_SUSPECT_PRODUCT_NUM1),
T.RECUT_NUM = TO_NUMBER(T.RECUT_NUM) -
TO_NUMBER(V_RECUT_NUM1),
T.REINSPECTION_QUALIFIED_NUM = TO_NUMBER(T.REINSPECTION_QUALIFIED_NUM) -
TO_NUMBER(V_REINSPECTION_QUALIFIED_NUM1),
T.SAMPLE_NUM = TO_NUMBER(T.SAMPLE_NUM) -
TO_NUMBER(V_SAMPLE_NUM1)
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/');
END IF;
--把实绩主表的支数增加
UPDATE MIL_MT_RESULT T
SET T.DETECTION_NUM = TO_NUMBER(T.DETECTION_NUM) +
TO_NUMBER('#DETECTION_NUM1#'),
T.SCRAP_NUM = TO_NUMBER(T.SCRAP_NUM) +
TO_NUMBER('#SCRAP_NUM1#'),
T.QUALIFIED_NUM = TO_NUMBER(T.QUALIFIED_NUM) +
TO_NUMBER('#QUALIFIED_NUM1#'),
T.REINSPECTION_NUM = TO_NUMBER(T.REINSPECTION_NUM) +
TO_NUMBER('#REINSPECTION_NUM1#'),
T.ALARM_NUM = TO_NUMBER(T.ALARM_NUM) +
TO_NUMBER('#SUSPECT_PRODUCT_NUM1#'),
T.RECUT_NUM = TO_NUMBER(T.RECUT_NUM) +
TO_NUMBER('#RECUT_NUM1#'),
T.QA_TON = TO_NUMBER(T.QA_TON) +
TO_NUMBER('#QA_TON#'),
T.REINSPECTION_QUALIFIED_NUM = TO_NUMBER(T.REINSPECTION_QUALIFIED_NUM) +
TO_NUMBER('#REINSPECTION_QUALIFIED_NUM1#'),
T.SAMPLE_NUM = TO_NUMBER(T.SAMPLE_NUM) +
TO_NUMBER('#SAMPLE_NUM1#'),
T.PRODUCT_STANDARDS = '#PRODUCT_STANDARDS#',
T.LO_SURFACE = '#LO_SURFACE#',
T.LI_SURFACE = '#LI_SURFACE#',
T.TO_SURFACE = '#TO_SURFACE#',
T.TI_SURFACE = '#TI_SURFACE#',
T.GROOVE_SHAPE = '#GROOVE_SHAPE#',
T.INSPECTION_STANDARD = '#INSPECTION_STANDARD#',
T.LONGITUDINAL_CURRENT1 = '#LONGITUDINAL_CURRENT1#',
T.TRANSVERSE_CURRENT1 = '#TRANSVERSE_CURRENT1#',
T.LONGITUDINAL_CURRENT2 = '#LONGITUDINAL_CURRENT2#',
T.TRANSVERSE_CURRENT2 = '#TRANSVERSE_CURRENT2#',
T.SPEED1 = '#SPEED1#',
T.SPEED2 = '#SPEED2#',
T.DETECTION_SPEED1 = '#DETECTION_SPEED1#',
T.DETECTION_SPEED2 = '#DETECTION_SPEED2#',
T.REMARK = '#REMARK#',
T.REMARK1 = '#REMARK1#',
T.NOTCH_INFO = '#NOTCH_INFO#',
T.NOTCH_LENGTH = '#NOTCH_LENGTH#',
T.NOTCH_WIDTH = '#NOTCH_WIDTH#',
T.NOTCH_DEPTH = '#NOTCH_DEPTH#',
T.NOTCH_FX = '#NOTCH_FX#',
T.COVERAGE = '#COVERAGE#',
T.SAMPLE_NO = '#SAMPLE_NO#',
T.SIGNID = '#SIGNID#',
T.SIGNID_GRADE = '2',
T.USERID1 = '#USERID1#',
T.USERID2 = '#USERID2#',
T.USERID_GRADE1 = '#USERID_GRADE1#',
T.USERID_GRADE2 = '#USERID_GRADE2#',
T.USERID1JD = '#USERID1JD#',
T.USERID2JD = '#USERID2JD#',
T.USERID_GRADE1JD = '#USERID_GRADE1JD#',
T.USERID_GRADE2JD = '#USERID_GRADE2JD#',
T.STANDARDS_NO = '#STANDARDS_NO#'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/');
--修改实绩子表
UPDATE MIL_TESTING_RESULT_DETAIL T
SET T.DETECTION_NUM1 = '#DETECTION_NUM1#',
T.SCRAP_NUM1 = '#SCRAP_NUM1#',
T.QUALIFIED_NUM1 = '#QUALIFIED_NUM1#',
T.REINSPECTION_NUM1 = '#REINSPECTION_NUM1#',
T.REINSPECTION_QUALIFIED_NUM1 = '#REINSPECTION_QUALIFIED_NUM1#',
T.SUSPECT_PRODUCT_NUM1 = '#SUSPECT_PRODUCT_NUM1#',
T.RECUT_NUM1 = '#RECUT_NUM1#',
T.RECUT_LEN1 = '#RECUT_LEN1#',
T.TEST_NUM1 = '#TEST_NUM1#',
T.SAMPLE_NUM1 = '#SAMPLE_NUM1#',
T.COL_USER = '#COL_USER#'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.COL_SHIFT = '#COL_SHIFT#'
AND T.COL_GROUP = '#COL_GROUP#';
--处理1号台管号队列
SELECT NVL(COUNT(1), 0)
INTO V_RACKCOUNT
FROM MIL_TESTING_RACK T
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL;
IF (V_RACKCOUNT > 0) THEN
UPDATE MIL_TESTING_RACK T
SET T.RETEST_NUM = '0',
T.RECUT_LENGTH = '',
T.RECUT_FLAG = '0',
T.SAMPLE_FLAG = '0'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL;
FOR MYROW IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '1'
AND T.RETEST_NUM = '0'
AND T.OFFLINE_FLAG = '0'
AND T.COL_NO = '#COL_NO#'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #REINSPECTION_NUM1#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.RETEST_NUM = '#TEST_NUM1#'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW.SEQ;
END LOOP;
FOR MYROW1 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '1'
AND T.OFFLINE_FLAG = '0'
AND T.RECUT_FLAG = '0'
AND T.COL_NO = '#COL_NO#'
AND T.STATUS = '2'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #RECUT_NUM1#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.RECUT_LENGTH = '#RECUT_LEN1#', T.RECUT_FLAG = '1'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW1.SEQ;
END LOOP;
FOR MYROW4 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '0'
AND T.OFFLINE_FLAG = '0'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #SAMPLE_NUM1#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.SAMPLE_FLAG = '1'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW4.SEQ;
END LOOP;
ELSE
FOR MYROW2 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '1'
AND T.RETEST_NUM = '0'
AND T.OFFLINE_FLAG = '0'
AND T.COL_NO = '#COL_NO#'
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #REINSPECTION_NUM1#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.RETEST_NUM = '#TEST_NUM1#'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW2.SEQ;
END LOOP;
FOR MYROW3 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '1'
AND T.RECUT_FLAG = '0'
AND T.OFFLINE_FLAG = '0'
AND T.STATUS = '2'
AND T.COL_NO = '#COL_NO#'
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #RECUT_NUM1#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.RECUT_LENGTH = '#RECUT_LEN1#', T.RECUT_FLAG = '1'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW3.SEQ;
END LOOP;
FOR MYROW5 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '0'
AND T.OFFLINE_FLAG = '0'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #SAMPLE_NUM1#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.SAMPLE_FLAG = '1'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW5.SEQ;
END LOOP;
END IF;
ELSE
--258二号操作台
SELECT T.DETECTION_NUM2,
T.SCRAP_NUM2,
T.QUALIFIED_NUM2,
T.REINSPECTION_NUM2,
T.SUSPECT_PRODUCT_NUM2,
T.RECUT_NUM2,
T.REINSPECTION_QUALIFIED_NUM2,
T.SAMPLE_NUM2
INTO V_DETECTION_NUM2,
V_SCRAP_NUM2,
V_QUALIFIED_NUM2,
V_REINSPECTION_NUM2,
V_SUSPECT_PRODUCT_NUM2,
V_RECUT_NUM2,
V_REINSPECTION_QUALIFIED_NUM2,
V_SAMPLE_NUM2
FROM MIL_TESTING_RESULT_DETAIL T
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.COL_SHIFT = '#COL_SHIFT#'
AND T.COL_GROUP = '#COL_GROUP#';
IF (V_QUALIFIED_NUM > 0) THEN
UPDATE MIL_MT_RESULT T
SET T.DETECTION_NUM = TO_NUMBER(T.DETECTION_NUM) -
TO_NUMBER(V_DETECTION_NUM2),
T.SCRAP_NUM = TO_NUMBER(T.SCRAP_NUM) -
TO_NUMBER(V_SCRAP_NUM2),
T.QUALIFIED_NUM = TO_NUMBER(T.QUALIFIED_NUM) -
TO_NUMBER(V_QUALIFIED_NUM2),
T.REINSPECTION_NUM = TO_NUMBER(T.REINSPECTION_NUM) -
TO_NUMBER(V_REINSPECTION_NUM2),
T.ALARM_NUM = TO_NUMBER(T.ALARM_NUM) -
TO_NUMBER(V_SUSPECT_PRODUCT_NUM2),
T.RECUT_NUM = TO_NUMBER(T.RECUT_NUM) -
TO_NUMBER(V_RECUT_NUM2),
T.QA_TON = TO_NUMBER(T.QA_TON) -
TO_NUMBER(T.QA_TON /
QUALIFIED_NUM) *
TO_NUMBER(V_QUALIFIED_NUM2),
T.REINSPECTION_QUALIFIED_NUM = TO_NUMBER(T.REINSPECTION_QUALIFIED_NUM) -
TO_NUMBER(V_REINSPECTION_QUALIFIED_NUM2),
T.SAMPLE_NUM = TO_NUMBER(T.SAMPLE_NUM) -
TO_NUMBER(V_SAMPLE_NUM2)
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/');
END IF;
UPDATE MIL_MT_RESULT T
SET T.DETECTION_NUM = TO_NUMBER(T.DETECTION_NUM) +
TO_NUMBER('#DETECTION_NUM2#'),
T.SCRAP_NUM = TO_NUMBER(T.SCRAP_NUM) +
TO_NUMBER('#SCRAP_NUM2#'),
T.QUALIFIED_NUM = TO_NUMBER(T.QUALIFIED_NUM) +
TO_NUMBER('#QUALIFIED_NUM2#'),
T.REINSPECTION_NUM = TO_NUMBER(T.REINSPECTION_NUM) +
TO_NUMBER('#REINSPECTION_NUM2#'),
T.ALARM_NUM = TO_NUMBER(T.ALARM_NUM) +
TO_NUMBER('#SUSPECT_PRODUCT_NUM2#'),
T.RECUT_NUM = TO_NUMBER(T.RECUT_NUM) +
TO_NUMBER('#RECUT_NUM2#'),
T.QA_TON = TO_NUMBER(T.QA_TON) +
TO_NUMBER('#QA_TON#'),
T.REINSPECTION_QUALIFIED_NUM = TO_NUMBER(T.REINSPECTION_QUALIFIED_NUM) +
TO_NUMBER('#REINSPECTION_QUALIFIED_NUM2#'),
T.SAMPLE_NUM = TO_NUMBER(T.SAMPLE_NUM) +
TO_NUMBER('#SAMPLE_NUM2#'),
T.PRODUCT_STANDARDS = '#PRODUCT_STANDARDS#',
T.LO_SURFACE = '#LO_SURFACE#',
T.LI_SURFACE = '#LI_SURFACE#',
T.TO_SURFACE = '#TO_SURFACE#',
T.TI_SURFACE = '#TI_SURFACE#',
T.GROOVE_SHAPE = '#GROOVE_SHAPE#',
T.INSPECTION_STANDARD = '#INSPECTION_STANDARD#',
T.LONGITUDINAL_CURRENT1 = '#LONGITUDINAL_CURRENT1#',
T.TRANSVERSE_CURRENT1 = '#TRANSVERSE_CURRENT1#',
T.LONGITUDINAL_CURRENT2 = '#LONGITUDINAL_CURRENT2#',
T.TRANSVERSE_CURRENT2 = '#TRANSVERSE_CURRENT2#',
T.SPEED1 = '#SPEED1#',
T.SPEED2 = '#SPEED2#',
T.DETECTION_SPEED1 = '#DETECTION_SPEED1#',
T.DETECTION_SPEED2 = '#DETECTION_SPEED2#',
T.REMARK = '#REMARK#',
T.REMARK1 = '#REMARK1#',
T.NOTCH_INFO = '#NOTCH_INFO#',
T.NOTCH_LENGTH = '#NOTCH_LENGTH#',
T.NOTCH_WIDTH = '#NOTCH_WIDTH#',
T.NOTCH_DEPTH = '#NOTCH_DEPTH#',
T.NOTCH_FX = '#NOTCH_FX#',
T.COVERAGE = '#COVERAGE#',
T.SAMPLE_NO = '#SAMPLE_NO#',
T.SIGNID = '#SIGNID#',
T.SIGNID_GRADE = '2',
T.USERID1 = '#USERID1#',
T.USERID2 = '#USERID2#',
T.USERID_GRADE1 = '#USERID_GRADE1#',
T.USERID_GRADE2 = '#USERID_GRADE2#',
T.USERID1JD = '#USERID1JD#',
T.USERID2JD = '#USERID2JD#',
T.USERID_GRADE1JD = '#USERID_GRADE1JD#',
T.USERID_GRADE2JD = '#USERID_GRADE2JD#',
T.STANDARDS_NO = '#STANDARDS_NO#'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/');
UPDATE MIL_TESTING_RESULT_DETAIL T
SET T.DETECTION_NUM2 = '#DETECTION_NUM2#',
T.SCRAP_NUM2 = '#SCRAP_NUM2#',
T.QUALIFIED_NUM2 = '#QUALIFIED_NUM2#',
T.REINSPECTION_NUM2 = '#REINSPECTION_NUM2#',
T.REINSPECTION_QUALIFIED_NUM2 = '#REINSPECTION_QUALIFIED_NUM2#',
T.SUSPECT_PRODUCT_NUM2 = '#SUSPECT_PRODUCT_NUM2#',
T.RECUT_NUM2 = '#RECUT_NUM2#',
T.RECUT_LEN2 = '#RECUT_LEN2#',
T.TEST_NUM2 = '#TEST_NUM2#',
T.SAMPLE_NUM2 = '#SAMPLE_NUM2#',
T.COL_USER = '#COL_USER#'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.COL_SHIFT = '#COL_SHIFT#'
AND T.COL_GROUP = '#COL_GROUP#';
--处理二号台管号队列
SELECT NVL(COUNT(1), 0)
INTO V_RACKCOUNT
FROM MIL_TESTING_RACK T
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.COL_SHIFT = '#COL_SHIFT#'
AND T.COL_GROUP = '#COL_GROUP#';
IF (V_RACKCOUNT > 0) THEN
UPDATE MIL_TESTING_RACK T
SET T.RETEST_NUM = '0',
T.RECUT_LENGTH = '',
T.RECUT_FLAG = '0',
T.SAMPLE_FLAG = '0'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.COL_SHIFT = '#COL_SHIFT#'
AND T.COL_GROUP = '#COL_GROUP#';
FOR MYROW IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '1'
AND T.RETEST_NUM = '0'
AND T.OFFLINE_FLAG = '0'
AND T.COL_NO = '#COL_NO#'
AND T.COL_SHIFT = '#COL_SHIFT#'
AND T.COL_GROUP = '#COL_GROUP#'
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #REINSPECTION_NUM2#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.RETEST_NUM = '#TEST_NUM2#'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW.SEQ;
END LOOP;
FOR MYROW1 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.STATUS = '0'
AND T.RECUT_FLAG = '0'
AND T.OFFLINE_FLAG = '0'
AND T.STATUS = '2'
AND T.COL_NO = '#COL_NO#'
AND T.COL_SHIFT = '#COL_SHIFT#'
AND T.COL_GROUP = '#COL_GROUP#'
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #RECUT_NUM2#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.RECUT_LENGTH = '#RECUT_LEN2#', T.RECUT_FLAG = '1'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW1.SEQ;
END LOOP;
FOR MYROW4 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '0'
AND T.OFFLINE_FLAG = '0'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #SAMPLE_NUM2#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.SAMPLE_FLAG = '1'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW4.SEQ;
END LOOP;
ELSE
FOR MYROW2 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '1'
AND T.RETEST_NUM = '0'
AND T.OFFLINE_FLAG = '0'
AND T.COL_NO = '#COL_NO#'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #REINSPECTION_NUM2#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.RETEST_NUM = '#TEST_NUM2#'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW2.SEQ;
END LOOP;
FOR MYROW3 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '1'
AND T.RECUT_FLAG = '0'
AND T.OFFLINE_FLAG = '0'
AND T.STATUS = '2'
AND T.COL_NO = '#COL_NO#'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #RECUT_NUM2#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.RECUT_LENGTH = '#RECUT_LEN2#', T.RECUT_FLAG = '1'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW3.SEQ;
END LOOP;
FOR MYROW4 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '0'
AND T.OFFLINE_FLAG = '0'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #SAMPLE_NUM2#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.SAMPLE_FLAG = '1'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW4.SEQ;
END LOOP;
END IF;
END IF;
ELSE
IF ('#COL_NO#' = '1') THEN
INSERT INTO MIL_TESTING_RESULT_DETAIL
(TEST_NUM1,
RECUT_LEN1,
RESULT_NO,
LOT_NO,
JUDGE_STOVE_NO,
PLINE_CODE,
START_TIME,
END_TIME,
COL_USER,
COL_SHIFT,
COL_GROUP,
SCRAP_NUM1,
QUALIFIED_NUM1,
REINSPECTION_NUM1,
REINSPECTION_QUALIFIED_NUM1,
OFFLINE_NUM1,
BACKLINE_NUM1,
DETECTION_NUM1,
SUSPECT_PRODUCT_NUM1,
RECUT_NUM1,
SAMPLE_NUM1,
PRO_PLAN_ID,
GX_PLAN_NO)
VALUES
('#TEST_NUM1#',
'#RECUT_LEN1#',
'#RESULT_NO#',
'#LOT_NO#',
'#JUDGE_STOVE_NO#',
'#PLINE_CODE#',
SYSDATE,
SYSDATE,
'#COL_USER#',
'#COL_SHIFT#',
'#COL_GROUP#',
'#SCRAP_NUM1#',
'#QUALIFIED_NUM1#',
'#REINSPECTION_NUM1#',
'#REINSPECTION_QUALIFIED_NUM1#',
'#OFFLINE_NUM1#',
'#BACKLINE_NUM1#',
'#DETECTION_NUM1#',
'#SUSPECT_PRODUCT_NUM1#',
'#RECUT_NUM1#',
'#SAMPLE_NUM1#',
'#PRO_PLAN_ID#',
'#GX_PLAN_NO#');
UPDATE MIL_MT_RESULT T
SET T.DETECTION_NUM = TO_NUMBER(T.DETECTION_NUM) +
TO_NUMBER('#DETECTION_NUM1#'),
T.SCRAP_NUM = TO_NUMBER(T.SCRAP_NUM) +
TO_NUMBER('#SCRAP_NUM1#'),
T.QUALIFIED_NUM = TO_NUMBER(T.QUALIFIED_NUM) +
TO_NUMBER('#QUALIFIED_NUM1#'),
T.REINSPECTION_NUM = TO_NUMBER(T.REINSPECTION_NUM) +
TO_NUMBER('#REINSPECTION_NUM1#'),
T.ALARM_NUM = TO_NUMBER(T.ALARM_NUM) +
TO_NUMBER('#SUSPECT_PRODUCT_NUM1#'),
T.RECUT_NUM = TO_NUMBER(T.RECUT_NUM) +
TO_NUMBER('#RECUT_NUM1#'),
T.QA_TON = TO_NUMBER(T.QA_TON) +
TO_NUMBER('#QA_TON#'),
T.REINSPECTION_QUALIFIED_NUM = TO_NUMBER(T.REINSPECTION_QUALIFIED_NUM) +
TO_NUMBER('#REINSPECTION_QUALIFIED_NUM1#'),
T.SAMPLE_NUM = TO_NUMBER(T.SAMPLE_NUM) +
TO_NUMBER('#SAMPLE_NUM1#'),
T.PRODUCT_STANDARDS = '#PRODUCT_STANDARDS#',
T.LO_SURFACE = '#LO_SURFACE#',
T.LI_SURFACE = '#LI_SURFACE#',
T.TO_SURFACE = '#TO_SURFACE#',
T.TI_SURFACE = '#TI_SURFACE#',
T.GROOVE_SHAPE = '#GROOVE_SHAPE#',
T.INSPECTION_STANDARD = '#INSPECTION_STANDARD#',
T.LONGITUDINAL_CURRENT1 = '#LONGITUDINAL_CURRENT1#',
T.TRANSVERSE_CURRENT1 = '#TRANSVERSE_CURRENT1#',
T.LONGITUDINAL_CURRENT2 = '#LONGITUDINAL_CURRENT2#',
T.TRANSVERSE_CURRENT2 = '#TRANSVERSE_CURRENT2#',
T.SPEED1 = '#SPEED1#',
T.SPEED2 = '#SPEED2#',
T.DETECTION_SPEED1 = '#DETECTION_SPEED1#',
T.DETECTION_SPEED2 = '#DETECTION_SPEED2#',
T.REMARK = '#REMARK#',
T.REMARK1 = '#REMARK1#',
T.NOTCH_INFO = '#NOTCH_INFO#',
T.NOTCH_LENGTH = '#NOTCH_LENGTH#',
T.NOTCH_WIDTH = '#NOTCH_WIDTH#',
T.NOTCH_DEPTH = '#NOTCH_DEPTH#',
T.NOTCH_FX = '#NOTCH_FX#',
T.COVERAGE = '#COVERAGE#',
T.SAMPLE_NO = '#SAMPLE_NO#',
T.SIGNID = '#SIGNID#',
T.SIGNID_GRADE = '2',
T.USERID1 = '#USERID1#',
T.USERID2 = '#USERID2#',
T.USERID_GRADE1 = '#USERID_GRADE1#',
T.USERID_GRADE2 = '#USERID_GRADE2#',
T.USERID1JD = '#USERID1JD#',
T.USERID2JD = '#USERID2JD#',
T.USERID_GRADE1JD = '#USERID_GRADE1JD#',
T.USERID_GRADE2JD = '#USERID_GRADE2JD#',
T.STANDARDS_NO = '#STANDARDS_NO#'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/');
FOR MYROW IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '1'
AND T.RETEST_NUM = '0'
AND T.OFFLINE_FLAG = '0'
AND T.COL_NO = '#COL_NO#'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #REINSPECTION_NUM1#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.RETEST_NUM = '#TEST_NUM1#'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW.SEQ;
END LOOP;
FOR MYROW1 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '1'
AND T.STATUS = '2'
AND T.RECUT_FLAG = '0'
AND T.OFFLINE_FLAG = '0'
AND T.COL_NO = '#COL_NO#'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #RECUT_NUM1#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.RECUT_LENGTH = '#RECUT_LEN1#', T.RECUT_FLAG = '1'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW1.SEQ;
END LOOP;
FOR MYROW4 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '0'
AND T.OFFLINE_FLAG = '0'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #SAMPLE_NUM1#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.SAMPLE_FLAG = '1'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW4.SEQ;
END LOOP;
ELSE
INSERT INTO MIL_TESTING_RESULT_DETAIL
(TEST_NUM2,
RECUT_LEN2,
RESULT_NO,
LOT_NO,
STOVE_NO,
JUDGE_STOVE_NO,
PLINE_CODE,
START_TIME,
END_TIME,
COL_USER,
COL_SHIFT,
COL_GROUP,
SCRAP_NUM2,
QUALIFIED_NUM2,
REINSPECTION_NUM2,
REINSPECTION_QUALIFIED_NUM2,
OFFLINE_NUM2,
BACKLINE_NUM2,
DETECTION_NUM2,
SUSPECT_PRODUCT_NUM2,
RECUT_NUM2,
SAMPLE_NUM2,
PRO_PLAN_ID,
GX_PLAN_NO)
VALUES
('#TEST_NUM2#',
'#RECUT_LEN2#',
'#RESULT_NO#',
'#LOT_NO#',
'#STOVE_NO#',
'#JUDGE_STOVE_NO#',
'#PLINE_CODE#',
SYSDATE,
SYSDATE,
'#COL_USER#',
'#COL_SHIFT#',
'#COL_GROUP#',
'#SCRAP_NUM2#',
'#QUALIFIED_NUM2#',
'#REINSPECTION_NUM2#',
'#REINSPECTION_QUALIFIED_NUM2#',
'#OFFLINE_NUM2#',
'#BACKLINE_NUM2#',
'#DETECTION_NUM2#',
'#SUSPECT_PRODUCT_NUM2#',
'#RECUT_NUM2#',
'#SAMPLE_NUM2#',
'#PRO_PLAN_ID#',
'#GX_PLAN_NO#');
UPDATE MIL_MT_RESULT T
SET T.DETECTION_NUM = TO_NUMBER(T.DETECTION_NUM) +
TO_NUMBER('#DETECTION_NUM2#'),
T.SCRAP_NUM = TO_NUMBER(T.SCRAP_NUM) +
TO_NUMBER('#SCRAP_NUM2#'),
T.QUALIFIED_NUM = TO_NUMBER(T.QUALIFIED_NUM) +
TO_NUMBER('#QUALIFIED_NUM2#'),
T.REINSPECTION_NUM = TO_NUMBER(T.REINSPECTION_NUM) +
TO_NUMBER('#REINSPECTION_NUM2#'),
T.ALARM_NUM = TO_NUMBER(T.ALARM_NUM) +
TO_NUMBER('#SUSPECT_PRODUCT_NUM2#'),
T.RECUT_NUM = TO_NUMBER(T.RECUT_NUM) +
TO_NUMBER('#RECUT_NUM2#'),
T.QA_TON = TO_NUMBER(T.QA_TON) +
TO_NUMBER('#QA_TON#'),
T.REINSPECTION_QUALIFIED_NUM = TO_NUMBER(T.REINSPECTION_QUALIFIED_NUM) +
TO_NUMBER('#REINSPECTION_QUALIFIED_NUM2#'),
T.SAMPLE_NUM = TO_NUMBER(T.SAMPLE_NUM) +
TO_NUMBER('#SAMPLE_NUM2#'),
T.PRODUCT_STANDARDS = '#PRODUCT_STANDARDS#',
T.LO_SURFACE = '#LO_SURFACE#',
T.LI_SURFACE = '#LI_SURFACE#',
T.TO_SURFACE = '#TO_SURFACE#',
T.TI_SURFACE = '#TI_SURFACE#',
T.GROOVE_SHAPE = '#GROOVE_SHAPE#',
T.INSPECTION_STANDARD = '#INSPECTION_STANDARD#',
T.LONGITUDINAL_CURRENT1 = '#LONGITUDINAL_CURRENT1#',
T.TRANSVERSE_CURRENT1 = '#TRANSVERSE_CURRENT1#',
T.LONGITUDINAL_CURRENT2 = '#LONGITUDINAL_CURRENT2#',
T.TRANSVERSE_CURRENT2 = '#TRANSVERSE_CURRENT2#',
T.SPEED1 = '#SPEED1#',
T.SPEED2 = '#SPEED2#',
T.DETECTION_SPEED1 = '#DETECTION_SPEED1#',
T.DETECTION_SPEED2 = '#DETECTION_SPEED2#',
T.REMARK = '#REMARK#',
T.REMARK1 = '#REMARK1#',
T.NOTCH_INFO = '#NOTCH_INFO#',
T.NOTCH_LENGTH = '#NOTCH_LENGTH#',
T.NOTCH_WIDTH = '#NOTCH_WIDTH#',
T.NOTCH_DEPTH = '#NOTCH_DEPTH#',
T.NOTCH_FX = '#NOTCH_FX#',
T.COVERAGE = '#COVERAGE#',
T.SAMPLE_NO = '#SAMPLE_NO#',
T.SIGNID = '#SIGNID#',
T.SIGNID_GRADE = '2',
T.USERID1 = '#USERID1#',
T.USERID2 = '#USERID2#',
T.USERID_GRADE1 = '#USERID_GRADE1#',
T.USERID_GRADE2 = '#USERID_GRADE2#',
T.USERID1JD = '#USERID1JD#',
T.USERID2JD = '#USERID2JD#',
T.USERID_GRADE1JD = '#USERID_GRADE1JD#',
T.USERID_GRADE2JD = '#USERID_GRADE2JD#',
T.STANDARDS_NO = '#STANDARDS_NO#'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/');
FOR MYROW IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '1'
AND T.RETEST_NUM = '0'
AND T.COL_NO = '#COL_NO#'
AND T.OFFLINE_FLAG = '0'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #REINSPECTION_NUM2#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.RETEST_NUM = '#TEST_NUM2#'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW.SEQ;
END LOOP;
FOR MYROW1 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '1'
AND T.RECUT_FLAG = '0'
AND T.OFFLINE_FLAG = '0'
AND T.STATUS = '2'
AND T.COL_NO = '#COL_NO#'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #RECUT_NUM2#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.RECUT_LENGTH = '#RECUT_LEN2#', T.RECUT_FLAG = '1'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW1.SEQ;
END LOOP;
FOR MYROW4 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '0'
AND T.OFFLINE_FLAG = '0'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #SAMPLE_NUM2#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.SAMPLE_FLAG = '1'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW4.SEQ;
END LOOP;
END IF;
END IF;
END;
]]>
0) THEN
--存在看是哪个操作台
IF ('#COL_NO#' = '1') THEN
SELECT T.DETECTION_NUM1,
T.SCRAP_NUM1,
T.QUALIFIED_NUM1,
T.REINSPECTION_NUM1,
T.SUSPECT_PRODUCT_NUM1,
T.REINSPECTION_QUALIFIED_NUM1,
T.SAMPLE_NUM1
INTO V_DETECTION_NUM1,
V_SCRAP_NUM1,
V_QUALIFIED_NUM1,
V_REINSPECTION_NUM1,
V_SUSPECT_PRODUCT_NUM1,
V_REINSPECTION_QUALIFIED_NUM1,
V_SAMPLE_NUM1
FROM MIL_TESTING_RESULT_DETAIL T
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.COL_SHIFT = '#COL_SHIFT#'
AND T.COL_GROUP = '#COL_GROUP#';
--把该班次班组原支数在实绩主表减去
IF (V_QUALIFIED_NUM > 0) THEN
UPDATE MIL_ET_RESULT T
SET T.DETECTION_NUM = TO_NUMBER(T.DETECTION_NUM) -
TO_NUMBER(V_DETECTION_NUM1),
T.SCRAP_NUM = TO_NUMBER(T.SCRAP_NUM) -
TO_NUMBER(V_SCRAP_NUM1),
T.QUALIFIED_NUM = TO_NUMBER(T.QUALIFIED_NUM) -
TO_NUMBER(V_QUALIFIED_NUM1),
T.REINSPECTION_NUM = TO_NUMBER(T.REINSPECTION_NUM) -
TO_NUMBER(V_REINSPECTION_NUM1),
T.SUSPECT_PRODUCT_NUM = TO_NUMBER(T.SUSPECT_PRODUCT_NUM) -
TO_NUMBER(V_SUSPECT_PRODUCT_NUM1),
T.QA_TON = TO_NUMBER(T.QA_TON) -
TO_NUMBER(T.QA_TON /
QUALIFIED_NUM) *
TO_NUMBER(V_QUALIFIED_NUM1),
T.REINSPECTION_QUALIFIED_NUM = TO_NUMBER(T.REINSPECTION_QUALIFIED_NUM) -
TO_NUMBER(V_REINSPECTION_QUALIFIED_NUM1),
T.SAMPLE_NUM = TO_NUMBER(T.SAMPLE_NUM) -
TO_NUMBER(V_SAMPLE_NUM1)
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/');
ELSIF (V_QUALIFIED_NUM = 0) THEN
UPDATE MIL_ET_RESULT T
SET T.DETECTION_NUM = TO_NUMBER(T.DETECTION_NUM) -
TO_NUMBER(V_DETECTION_NUM1),
T.SCRAP_NUM = TO_NUMBER(T.SCRAP_NUM) -
TO_NUMBER(V_SCRAP_NUM1),
T.QUALIFIED_NUM = TO_NUMBER(T.QUALIFIED_NUM) -
TO_NUMBER(V_QUALIFIED_NUM1),
T.REINSPECTION_NUM = TO_NUMBER(T.REINSPECTION_NUM) -
TO_NUMBER(V_REINSPECTION_NUM1),
T.SUSPECT_PRODUCT_NUM = TO_NUMBER(T.SUSPECT_PRODUCT_NUM) -
TO_NUMBER(V_SUSPECT_PRODUCT_NUM1),
T.REINSPECTION_QUALIFIED_NUM = TO_NUMBER(T.REINSPECTION_QUALIFIED_NUM) -
TO_NUMBER(V_REINSPECTION_QUALIFIED_NUM1),
T.SAMPLE_NUM = TO_NUMBER(T.SAMPLE_NUM) -
TO_NUMBER(V_SAMPLE_NUM1)
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/');
END IF;
--把实绩主表的支数增加
UPDATE MIL_ET_RESULT T
SET T.DETECTION_NUM = TO_NUMBER(T.DETECTION_NUM) +
TO_NUMBER('#DETECTION_NUM1#'),
T.SCRAP_NUM = TO_NUMBER(T.SCRAP_NUM) +
TO_NUMBER('#SCRAP_NUM1#'),
T.QUALIFIED_NUM = TO_NUMBER(T.QUALIFIED_NUM) +
TO_NUMBER('#QUALIFIED_NUM1#'),
T.REINSPECTION_NUM = TO_NUMBER(T.REINSPECTION_NUM) +
TO_NUMBER('#REINSPECTION_NUM1#'),
T.SUSPECT_PRODUCT_NUM = TO_NUMBER(T.SUSPECT_PRODUCT_NUM) +
TO_NUMBER('#SUSPECT_PRODUCT_NUM1#'),
T.QA_TON = TO_NUMBER(T.QA_TON) +
TO_NUMBER('#QA_TON#'),
T.REINSPECTION_QUALIFIED_NUM = TO_NUMBER(T.REINSPECTION_QUALIFIED_NUM) +
TO_NUMBER('#REINSPECTION_QUALIFIED_NUM1#'),
T.SAMPLE_NUM = TO_NUMBER(T.SAMPLE_NUM) +
TO_NUMBER('#SAMPLE_NUM1#'),
T.PRODUCT_STANDARDS = '#PRODUCT_STANDARDS#',
T.INSPECTION_STANDARD = '#INSPECTION_STANDARD#',
T.TESTING_METHOD = '#TESTING_METHOD#',
T.CALIBRATION_METHOD = '#CALIBRATION_METHOD#',
T.ARTIFICIAL_DEFECT_SHAPE = '#ARTIFICIAL_DEFECT_SHAPE#',
T.EXCITATION_FREQUENCY1 = '#EXCITATION_FREQUENCY1#',
T.EXCITATION_FREQUENCY2 = '#EXCITATION_FREQUENCY2#',
T.EXCITATION_FREQUENCY3 = '#EXCITATION_FREQUENCY3#',
T.TESTING_SPEED1 = '#TESTING_SPEED1#',
T.TESTING_SPEED2 = '#TESTING_SPEED2#',
T.TESTING_SPEED3 = '#TESTING_SPEED3#',
T.USERID = '#USERID#',
T.SIGNID = '#SIGNID#',
T.ACCEPTANCE_GRADE = '#ACCEPTANCE_GRADE#',
T.USERID1 = '#USERID1#',
T.USERID2 = '#USERID2#',
T.USERID_GRADE1 = '#USERID_GRADE1#',
T.USERID_GRADE2 = '#USERID_GRADE2#',
T.USERID1JD = '#USERID1JD#',
T.USERID2JD = '#USERID2JD#',
T.USERID_GRADE1JD = '#USERID_GRADE1JD#',
T.USERID_GRADE2JD = '#USERID_GRADE2JD#',
T.REMARK = '#REMARK#',
T.NOTCH_INFO = '#NOTCH_INFO#',
T.NOTCH_LENGTH = '#NOTCH_LENGTH#',
T.NOTCH_WIDTH = '#NOTCH_WIDTH#',
T.NOTCH_DEPTH = '#NOTCH_DEPTH#',
T.SAMPLE_NEWS = '#SAMPLE_NEWS#'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/');
--修改实绩子表
UPDATE MIL_TESTING_RESULT_DETAIL T
SET T.DETECTION_NUM1 = '#DETECTION_NUM1#',
T.SCRAP_NUM1 = '#SCRAP_NUM1#',
T.QUALIFIED_NUM1 = '#QUALIFIED_NUM1#',
T.REINSPECTION_NUM1 = '#REINSPECTION_NUM1#',
T.REINSPECTION_QUALIFIED_NUM1 = '#REINSPECTION_QUALIFIED_NUM1#',
T.SUSPECT_PRODUCT_NUM1 = '#SUSPECT_PRODUCT_NUM1#',
T.SAMPLE_NUM1 = '#SAMPLE_NUM1#',
T.COL_USER = '#COL_USER#'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.COL_SHIFT = '#COL_SHIFT#'
AND T.COL_GROUP = '#COL_GROUP#';
--处理1号台管号队列
SELECT NVL(COUNT(1), 0)
INTO V_RACKCOUNT
FROM MIL_TESTING_RACK T
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL;
IF (V_RACKCOUNT > 0) THEN
UPDATE MIL_TESTING_RACK T
SET T.RETEST_NUM = '0',
T.RECUT_LENGTH = '',
T.RECUT_FLAG = '0',
T.SAMPLE_FLAG = '0'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL;
--留样支数
FOR MYROW4 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.RESULT_NO = '#RESULT_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.SUSPECT_FLAG = '0'
AND T.OFFLINE_FLAG = '0'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #SAMPLE_NUM1#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.SAMPLE_FLAG = '1'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW4.SEQ;
END LOOP;
ELSE
FOR MYROW5 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.RESULT_NO = '#RESULT_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.SUSPECT_FLAG = '0'
AND T.OFFLINE_FLAG = '0'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #SAMPLE_NUM1#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.SAMPLE_FLAG = '1'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW5.SEQ;
END LOOP;
END IF;
ELSIF ('#COL_NO#' = '2') THEN
--168二号操作台
SELECT T.DETECTION_NUM2,
T.SCRAP_NUM2,
T.QUALIFIED_NUM2,
T.REINSPECTION_NUM2,
T.SUSPECT_PRODUCT_NUM2,
T.REINSPECTION_QUALIFIED_NUM2,
T.SAMPLE_NUM2
INTO V_DETECTION_NUM2,
V_SCRAP_NUM2,
V_QUALIFIED_NUM2,
V_REINSPECTION_NUM2,
V_SUSPECT_PRODUCT_NUM2,
V_REINSPECTION_QUALIFIED_NUM2,
V_SAMPLE_NUM2
FROM MIL_TESTING_RESULT_DETAIL T
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.COL_SHIFT = '#COL_SHIFT#'
AND T.COL_GROUP = '#COL_GROUP#';
IF (V_QUALIFIED_NUM > 0) THEN
UPDATE MIL_ET_RESULT T
SET T.DETECTION_NUM = TO_NUMBER(T.DETECTION_NUM) -
TO_NUMBER(V_DETECTION_NUM2),
T.SCRAP_NUM = TO_NUMBER(T.SCRAP_NUM) -
TO_NUMBER(V_SCRAP_NUM2),
T.QUALIFIED_NUM = TO_NUMBER(T.QUALIFIED_NUM) -
TO_NUMBER(V_QUALIFIED_NUM2),
T.REINSPECTION_NUM = TO_NUMBER(T.REINSPECTION_NUM) -
TO_NUMBER(V_REINSPECTION_NUM2),
T.SUSPECT_PRODUCT_NUM = TO_NUMBER(T.SUSPECT_PRODUCT_NUM) -
TO_NUMBER(V_SUSPECT_PRODUCT_NUM2),
T.QA_TON = TO_NUMBER(T.QA_TON) -
TO_NUMBER(T.QA_TON /
QUALIFIED_NUM) *
TO_NUMBER(V_QUALIFIED_NUM2),
T.REINSPECTION_QUALIFIED_NUM = TO_NUMBER(T.REINSPECTION_QUALIFIED_NUM) -
TO_NUMBER(V_REINSPECTION_QUALIFIED_NUM2),
T.SAMPLE_NUM = TO_NUMBER(T.SAMPLE_NUM) -
TO_NUMBER(V_SAMPLE_NUM2)
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/');
END IF;
UPDATE MIL_ET_RESULT T
SET T.DETECTION_NUM = TO_NUMBER(T.DETECTION_NUM) +
TO_NUMBER('#DETECTION_NUM2#'),
T.SCRAP_NUM = TO_NUMBER(T.SCRAP_NUM) +
TO_NUMBER('#SCRAP_NUM2#'),
T.QUALIFIED_NUM = TO_NUMBER(T.QUALIFIED_NUM) +
TO_NUMBER('#QUALIFIED_NUM2#'),
T.REINSPECTION_NUM = TO_NUMBER(T.REINSPECTION_NUM) +
TO_NUMBER('#REINSPECTION_NUM2#'),
T.SUSPECT_PRODUCT_NUM = TO_NUMBER(T.SUSPECT_PRODUCT_NUM) +
TO_NUMBER('#SUSPECT_PRODUCT_NUM2#'),
T.QA_TON = TO_NUMBER(T.QA_TON) +
TO_NUMBER('#QA_TON#'),
T.REINSPECTION_QUALIFIED_NUM = TO_NUMBER(T.REINSPECTION_QUALIFIED_NUM) +
TO_NUMBER('#REINSPECTION_QUALIFIED_NUM2#'),
T.SAMPLE_NUM = TO_NUMBER(T.SAMPLE_NUM) +
TO_NUMBER('#SAMPLE_NUM2#'),
T.PRODUCT_STANDARDS = '#PRODUCT_STANDARDS#',
T.INSPECTION_STANDARD = '#INSPECTION_STANDARD#',
T.TESTING_METHOD = '#TESTING_METHOD#',
T.CALIBRATION_METHOD = '#CALIBRATION_METHOD#',
T.ARTIFICIAL_DEFECT_SHAPE = '#ARTIFICIAL_DEFECT_SHAPE#',
T.EXCITATION_FREQUENCY1 = '#EXCITATION_FREQUENCY1#',
T.EXCITATION_FREQUENCY2 = '#EXCITATION_FREQUENCY2#',
T.EXCITATION_FREQUENCY3 = '#EXCITATION_FREQUENCY3#',
T.TESTING_SPEED1 = '#TESTING_SPEED1#',
T.TESTING_SPEED2 = '#TESTING_SPEED2#',
T.TESTING_SPEED3 = '#TESTING_SPEED3#',
T.USERID = '#USERID#',
T.SIGNID = '#SIGNID#',
T.ACCEPTANCE_GRADE = '#ACCEPTANCE_GRADE#',
T.USERID1 = '#USERID1#',
T.USERID2 = '#USERID2#',
T.USERID_GRADE1 = '#USERID_GRADE1#',
T.USERID_GRADE2 = '#USERID_GRADE2#',
T.USERID1JD = '#USERID1JD#',
T.USERID2JD = '#USERID2JD#',
T.USERID_GRADE1JD = '#USERID_GRADE1JD#',
T.USERID_GRADE2JD = '#USERID_GRADE2JD#',
T.REMARK = '#REMARK#',
T.NOTCH_INFO = '#NOTCH_INFO#',
T.NOTCH_LENGTH = '#NOTCH_LENGTH#',
T.NOTCH_WIDTH = '#NOTCH_WIDTH#',
T.NOTCH_DEPTH = '#NOTCH_DEPTH#',
T.SAMPLE_NEWS = '#SAMPLE_NEWS#'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/');
UPDATE MIL_TESTING_RESULT_DETAIL T
SET T.DETECTION_NUM2 = '#DETECTION_NUM2#',
T.SCRAP_NUM2 = '#SCRAP_NUM2#',
T.QUALIFIED_NUM2 = '#QUALIFIED_NUM2#',
T.REINSPECTION_NUM2 = '#REINSPECTION_NUM2#',
T.REINSPECTION_QUALIFIED_NUM2 = '#REINSPECTION_QUALIFIED_NUM2#',
T.SUSPECT_PRODUCT_NUM2 = '#SUSPECT_PRODUCT_NUM2#',
T.SAMPLE_NUM2 = '#SAMPLE_NUM2#',
T.COL_USER = '#COL_USER#'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.COL_SHIFT = '#COL_SHIFT#'
AND T.COL_GROUP = '#COL_GROUP#';
--处理二号台管号队列
SELECT NVL(COUNT(1), 0)
INTO V_RACKCOUNT
FROM MIL_TESTING_RACK T
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.COL_SHIFT = '#COL_SHIFT#'
AND T.COL_GROUP = '#COL_GROUP#';
IF (V_RACKCOUNT > 0) THEN
UPDATE MIL_TESTING_RACK T
SET T.RETEST_NUM = '0',
T.RECUT_LENGTH = '',
T.RECUT_FLAG = '0',
T.SAMPLE_FLAG = '0'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.COL_SHIFT = '#COL_SHIFT#'
AND T.COL_GROUP = '#COL_GROUP#';
FOR MYROW4 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '0'
AND T.OFFLINE_FLAG = '0'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #SAMPLE_NUM2#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.SAMPLE_FLAG = '1'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW4.SEQ;
END LOOP;
ELSE
FOR MYROW4 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '0'
AND T.OFFLINE_FLAG = '0'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #SAMPLE_NUM2#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.SAMPLE_FLAG = '1'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW4.SEQ;
END LOOP;
END IF;
ELSE
SELECT T.DETECTION_NUM3,
T.SCRAP_NUM3,
T.QUALIFIED_NUM3,
T.REINSPECTION_NUM3,
T.SUSPECT_PRODUCT_NUM3,
T.REINSPECTION_QUALIFIED_NUM3,
T.SAMPLE_NUM3
INTO V_DETECTION_NUM3,
V_SCRAP_NUM3,
V_QUALIFIED_NUM3,
V_REINSPECTION_NUM3,
V_SUSPECT_PRODUCT_NUM3,
V_REINSPECTION_QUALIFIED_NUM3,
V_SAMPLE_NUM3
FROM MIL_TESTING_RESULT_DETAIL T
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.COL_SHIFT = '#COL_SHIFT#'
AND T.COL_GROUP = '#COL_GROUP#';
IF (V_QUALIFIED_NUM > 0) THEN
UPDATE MIL_ET_RESULT T
SET T.DETECTION_NUM = TO_NUMBER(T.DETECTION_NUM) -
TO_NUMBER(V_DETECTION_NUM3),
T.SCRAP_NUM = TO_NUMBER(T.SCRAP_NUM) -
TO_NUMBER(V_SCRAP_NUM3),
T.QUALIFIED_NUM = TO_NUMBER(T.QUALIFIED_NUM) -
TO_NUMBER(V_QUALIFIED_NUM3),
T.REINSPECTION_NUM = TO_NUMBER(T.REINSPECTION_NUM) -
TO_NUMBER(V_REINSPECTION_NUM3),
T.SUSPECT_PRODUCT_NUM = TO_NUMBER(T.SUSPECT_PRODUCT_NUM) -
TO_NUMBER(V_SUSPECT_PRODUCT_NUM3),
T.QA_TON = TO_NUMBER(T.QA_TON) -
TO_NUMBER(T.QA_TON /
QUALIFIED_NUM) *
TO_NUMBER(V_QUALIFIED_NUM3),
T.REINSPECTION_QUALIFIED_NUM = TO_NUMBER(T.REINSPECTION_QUALIFIED_NUM) -
TO_NUMBER(V_REINSPECTION_QUALIFIED_NUM3),
T.SAMPLE_NUM = TO_NUMBER(T.SAMPLE_NUM) -
TO_NUMBER(V_SAMPLE_NUM3)
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/');
END IF;
UPDATE MIL_ET_RESULT T
SET T.DETECTION_NUM = TO_NUMBER(T.DETECTION_NUM) +
TO_NUMBER('#DETECTION_NUM3#'),
T.SCRAP_NUM = TO_NUMBER(T.SCRAP_NUM) +
TO_NUMBER('#SCRAP_NUM3#'),
T.QUALIFIED_NUM = TO_NUMBER(T.QUALIFIED_NUM) +
TO_NUMBER('#QUALIFIED_NUM3#'),
T.REINSPECTION_NUM = TO_NUMBER(T.REINSPECTION_NUM) +
TO_NUMBER('#REINSPECTION_NUM3#'),
T.SUSPECT_PRODUCT_NUM = TO_NUMBER(T.SUSPECT_PRODUCT_NUM) +
TO_NUMBER('#SUSPECT_PRODUCT_NUM3#'),
T.QA_TON = TO_NUMBER(T.QA_TON) +
TO_NUMBER('#QA_TON#'),
T.REINSPECTION_QUALIFIED_NUM = TO_NUMBER(T.REINSPECTION_QUALIFIED_NUM) +
TO_NUMBER('#REINSPECTION_QUALIFIED_NUM3#'),
T.SAMPLE_NUM = TO_NUMBER(T.SAMPLE_NUM) +
TO_NUMBER('#SAMPLE_NUM3#'),
T.PRODUCT_STANDARDS = '#PRODUCT_STANDARDS#',
T.INSPECTION_STANDARD = '#INSPECTION_STANDARD#',
T.TESTING_METHOD = '#TESTING_METHOD#',
T.CALIBRATION_METHOD = '#CALIBRATION_METHOD#',
T.ARTIFICIAL_DEFECT_SHAPE = '#ARTIFICIAL_DEFECT_SHAPE#',
T.EXCITATION_FREQUENCY1 = '#EXCITATION_FREQUENCY1#',
T.EXCITATION_FREQUENCY2 = '#EXCITATION_FREQUENCY2#',
T.EXCITATION_FREQUENCY3 = '#EXCITATION_FREQUENCY3#',
T.TESTING_SPEED1 = '#TESTING_SPEED1#',
T.TESTING_SPEED2 = '#TESTING_SPEED2#',
T.TESTING_SPEED3 = '#TESTING_SPEED3#',
T.USERID = '#USERID#',
T.SIGNID = '#SIGNID#',
T.ACCEPTANCE_GRADE = '#ACCEPTANCE_GRADE#',
T.USERID1 = '#USERID1#',
T.USERID2 = '#USERID2#',
T.USERID_GRADE1 = '#USERID_GRADE1#',
T.USERID_GRADE2 = '#USERID_GRADE2#',
T.USERID1JD = '#USERID1JD#',
T.USERID2JD = '#USERID2JD#',
T.USERID_GRADE1JD = '#USERID_GRADE1JD#',
T.USERID_GRADE2JD = '#USERID_GRADE2JD#',
T.REMARK = '#REMARK#',
T.NOTCH_INFO = '#NOTCH_INFO#',
T.NOTCH_LENGTH = '#NOTCH_LENGTH#',
T.NOTCH_WIDTH = '#NOTCH_WIDTH#',
T.NOTCH_DEPTH = '#NOTCH_DEPTH#',
T.SAMPLE_NEWS = '#SAMPLE_NEWS#'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/');
UPDATE MIL_TESTING_RESULT_DETAIL T
SET T.DETECTION_NUM3 = '#DETECTION_NUM3#',
T.SCRAP_NUM3 = '#SCRAP_NUM3#',
T.QUALIFIED_NUM3 = '#QUALIFIED_NUM3#',
T.REINSPECTION_NUM3 = '#REINSPECTION_NUM3#',
T.REINSPECTION_QUALIFIED_NUM3 = '#REINSPECTION_QUALIFIED_NUM3#',
T.SUSPECT_PRODUCT_NUM3 = '#SUSPECT_PRODUCT_NUM3#',
T.SAMPLE_NUM3 = '#SAMPLE_NUM3#',
T.COL_USER = '#COL_USER#'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.COL_SHIFT = '#COL_SHIFT#'
AND T.COL_GROUP = '#COL_GROUP#';
--处理三号台管号队列
SELECT NVL(COUNT(1), 0)
INTO V_RACKCOUNT
FROM MIL_TESTING_RACK T
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.COL_SHIFT = '#COL_SHIFT#'
AND T.COL_GROUP = '#COL_GROUP#';
IF (V_RACKCOUNT > 0) THEN
UPDATE MIL_TESTING_RACK T
SET T.RETEST_NUM = '0',
T.RECUT_LENGTH = '',
T.RECUT_FLAG = '0',
T.SAMPLE_FLAG = '0'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.COL_SHIFT = '#COL_SHIFT#'
AND T.COL_GROUP = '#COL_GROUP#';
FOR MYROW4 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '0'
AND T.OFFLINE_FLAG = '0'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #SAMPLE_NUM3#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.SAMPLE_FLAG = '1'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW4.SEQ;
END LOOP;
ELSE
FOR MYROW4 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '0'
AND T.OFFLINE_FLAG = '0'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #SAMPLE_NUM3#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.SAMPLE_FLAG = '1'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW4.SEQ;
END LOOP;
END IF;
END IF;
ELSE
IF ('#COL_NO#' = '1') THEN
INSERT INTO MIL_TESTING_RESULT_DETAIL
(RESULT_NO,
LOT_NO,
JUDGE_STOVE_NO,
PLINE_CODE,
START_TIME,
END_TIME,
COL_USER,
COL_SHIFT,
COL_GROUP,
SCRAP_NUM1,
QUALIFIED_NUM1,
REINSPECTION_NUM1,
REINSPECTION_QUALIFIED_NUM1,
OFFLINE_NUM1,
BACKLINE_NUM1,
DETECTION_NUM1,
SUSPECT_PRODUCT_NUM1,
SAMPLE_NUM1,
PRO_PLAN_ID,
GX_PLAN_NO)
VALUES
('#RESULT_NO#',
'#LOT_NO#',
'#JUDGE_STOVE_NO#',
'#PLINE_CODE#',
SYSDATE,
SYSDATE,
'#COL_USER#',
'#COL_SHIFT#',
'#COL_GROUP#',
'#SCRAP_NUM1#',
'#QUALIFIED_NUM1#',
'#REINSPECTION_NUM1#',
'#REINSPECTION_QUALIFIED_NUM1#',
'#OFFLINE_NUM1#',
'#BACKLINE_NUM1#',
'#DETECTION_NUM1#',
'#SUSPECT_PRODUCT_NUM1#',
'#SAMPLE_NUM1#',
'#PRO_PLAN_ID#',
'#GX_PLAN_NO#');
UPDATE MIL_ET_RESULT T
SET T.DETECTION_NUM = TO_NUMBER(T.DETECTION_NUM) +
TO_NUMBER('#DETECTION_NUM1#'),
T.SCRAP_NUM = TO_NUMBER(T.SCRAP_NUM) +
TO_NUMBER('#SCRAP_NUM1#'),
T.QUALIFIED_NUM = TO_NUMBER(T.QUALIFIED_NUM) +
TO_NUMBER('#QUALIFIED_NUM1#'),
T.REINSPECTION_NUM = TO_NUMBER(T.REINSPECTION_NUM) +
TO_NUMBER('#REINSPECTION_NUM1#'),
T.SUSPECT_PRODUCT_NUM = TO_NUMBER(T.SUSPECT_PRODUCT_NUM) +
TO_NUMBER('#SUSPECT_PRODUCT_NUM1#'),
T.QA_TON = TO_NUMBER(T.QA_TON) +
TO_NUMBER('#QA_TON#'),
T.REINSPECTION_QUALIFIED_NUM = TO_NUMBER(T.REINSPECTION_QUALIFIED_NUM) +
TO_NUMBER('#REINSPECTION_QUALIFIED_NUM1#'),
T.SAMPLE_NUM = TO_NUMBER(T.SAMPLE_NUM) +
TO_NUMBER('#SAMPLE_NUM1#'),
T.PRODUCT_STANDARDS = '#PRODUCT_STANDARDS#',
T.INSPECTION_STANDARD = '#INSPECTION_STANDARD#',
T.TESTING_METHOD = '#TESTING_METHOD#',
T.CALIBRATION_METHOD = '#CALIBRATION_METHOD#',
T.ARTIFICIAL_DEFECT_SHAPE = '#ARTIFICIAL_DEFECT_SHAPE#',
T.EXCITATION_FREQUENCY1 = '#EXCITATION_FREQUENCY1#',
T.EXCITATION_FREQUENCY2 = '#EXCITATION_FREQUENCY2#',
T.EXCITATION_FREQUENCY3 = '#EXCITATION_FREQUENCY3#',
T.TESTING_SPEED1 = '#TESTING_SPEED1#',
T.TESTING_SPEED2 = '#TESTING_SPEED2#',
T.TESTING_SPEED3 = '#TESTING_SPEED3#',
T.USERID = '#USERID#',
T.SIGNID = '#SIGNID#',
T.ACCEPTANCE_GRADE = '#ACCEPTANCE_GRADE#',
T.USERID1 = '#USERID1#',
T.USERID2 = '#USERID2#',
T.USERID_GRADE1 = '#USERID_GRADE1#',
T.USERID_GRADE2 = '#USERID_GRADE2#',
T.USERID1JD = '#USERID1JD#',
T.USERID2JD = '#USERID2JD#',
T.USERID_GRADE1JD = '#USERID_GRADE1JD#',
T.USERID_GRADE2JD = '#USERID_GRADE2JD#',
T.REMARK = '#REMARK#',
T.NOTCH_INFO = '#NOTCH_INFO#',
T.NOTCH_LENGTH = '#NOTCH_LENGTH#',
T.NOTCH_WIDTH = '#NOTCH_WIDTH#',
T.NOTCH_DEPTH = '#NOTCH_DEPTH#',
T.SAMPLE_NEWS = '#SAMPLE_NEWS#'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/');
FOR MYROW4 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '0'
AND T.OFFLINE_FLAG = '0'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #SAMPLE_NUM1#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.SAMPLE_FLAG = '1'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW4.SEQ;
END LOOP;
ELSIF ('#COL_NO#' = '2') THEN
INSERT INTO MIL_TESTING_RESULT_DETAIL
(RESULT_NO,
LOT_NO,
STOVE_NO,
JUDGE_STOVE_NO,
PLINE_CODE,
START_TIME,
END_TIME,
COL_USER,
COL_SHIFT,
COL_GROUP,
SCRAP_NUM2,
QUALIFIED_NUM2,
REINSPECTION_NUM2,
REINSPECTION_QUALIFIED_NUM2,
OFFLINE_NUM2,
BACKLINE_NUM2,
DETECTION_NUM2,
SUSPECT_PRODUCT_NUM2,
SAMPLE_NUM2,
PRO_PLAN_ID,
GX_PLAN_NO)
VALUES
('#RESULT_NO#',
'#LOT_NO#',
'#STOVE_NO#',
'#JUDGE_STOVE_NO#',
'#PLINE_CODE#',
SYSDATE,
SYSDATE,
'#COL_USER#',
'#COL_SHIFT#',
'#COL_GROUP#',
'#SCRAP_NUM2#',
'#QUALIFIED_NUM2#',
'#REINSPECTION_NUM2#',
'#REINSPECTION_QUALIFIED_NUM2#',
'#OFFLINE_NUM2#',
'#BACKLINE_NUM2#',
'#DETECTION_NUM2#',
'#SUSPECT_PRODUCT_NUM2#',
'#SAMPLE_NUM2#',
'#PRO_PLAN_ID#',
'#GX_PLAN_NO#');
UPDATE MIL_ET_RESULT T
SET T.DETECTION_NUM = TO_NUMBER(T.DETECTION_NUM) +
TO_NUMBER('#DETECTION_NUM2#'),
T.SCRAP_NUM = TO_NUMBER(T.SCRAP_NUM) +
TO_NUMBER('#SCRAP_NUM2#'),
T.QUALIFIED_NUM = TO_NUMBER(T.QUALIFIED_NUM) +
TO_NUMBER('#QUALIFIED_NUM2#'),
T.REINSPECTION_NUM = TO_NUMBER(T.REINSPECTION_NUM) +
TO_NUMBER('#REINSPECTION_NUM2#'),
T.SUSPECT_PRODUCT_NUM = TO_NUMBER(T.SUSPECT_PRODUCT_NUM) +
TO_NUMBER('#SUSPECT_PRODUCT_NUM2#'),
T.QA_TON = TO_NUMBER(T.QA_TON) +
TO_NUMBER('#QA_TON#'),
T.REINSPECTION_QUALIFIED_NUM = TO_NUMBER(T.REINSPECTION_QUALIFIED_NUM) +
TO_NUMBER('#REINSPECTION_QUALIFIED_NUM2#'),
T.SAMPLE_NUM = TO_NUMBER(T.SAMPLE_NUM) +
TO_NUMBER('#SAMPLE_NUM2#'),
T.PRODUCT_STANDARDS = '#PRODUCT_STANDARDS#',
T.INSPECTION_STANDARD = '#INSPECTION_STANDARD#',
T.TESTING_METHOD = '#TESTING_METHOD#',
T.CALIBRATION_METHOD = '#CALIBRATION_METHOD#',
T.ARTIFICIAL_DEFECT_SHAPE = '#ARTIFICIAL_DEFECT_SHAPE#',
T.EXCITATION_FREQUENCY1 = '#EXCITATION_FREQUENCY1#',
T.EXCITATION_FREQUENCY2 = '#EXCITATION_FREQUENCY2#',
T.EXCITATION_FREQUENCY3 = '#EXCITATION_FREQUENCY3#',
T.TESTING_SPEED1 = '#TESTING_SPEED1#',
T.TESTING_SPEED2 = '#TESTING_SPEED2#',
T.TESTING_SPEED3 = '#TESTING_SPEED3#',
T.USERID = '#USERID#',
T.SIGNID = '#SIGNID#',
T.ACCEPTANCE_GRADE = '#ACCEPTANCE_GRADE#',
T.USERID1 = '#USERID1#',
T.USERID2 = '#USERID2#',
T.USERID_GRADE1 = '#USERID_GRADE1#',
T.USERID_GRADE2 = '#USERID_GRADE2#',
T.USERID1JD = '#USERID1JD#',
T.USERID2JD = '#USERID2JD#',
T.USERID_GRADE1JD = '#USERID_GRADE1JD#',
T.USERID_GRADE2JD = '#USERID_GRADE2JD#',
T.REMARK = '#REMARK#',
T.NOTCH_INFO = '#NOTCH_INFO#',
T.NOTCH_LENGTH = '#NOTCH_LENGTH#',
T.NOTCH_WIDTH = '#NOTCH_WIDTH#',
T.NOTCH_DEPTH = '#NOTCH_DEPTH#',
T.SAMPLE_NEWS = '#SAMPLE_NEWS#'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/');
FOR MYROW4 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '0'
AND T.OFFLINE_FLAG = '0'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #SAMPLE_NUM2#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.SAMPLE_FLAG = '1'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW4.SEQ;
END LOOP;
ELSE
INSERT INTO MIL_TESTING_RESULT_DETAIL
(RESULT_NO,
LOT_NO,
STOVE_NO,
JUDGE_STOVE_NO,
PLINE_CODE,
START_TIME,
END_TIME,
COL_USER,
COL_SHIFT,
COL_GROUP,
SCRAP_NUM3,
QUALIFIED_NUM3,
REINSPECTION_NUM3,
REINSPECTION_QUALIFIED_NUM3,
OFFLINE_NUM3,
BACKLINE_NUM3,
DETECTION_NUM3,
SUSPECT_PRODUCT_NUM3,
SAMPLE_NUM3,
PRO_PLAN_ID,
GX_PLAN_NO)
VALUES
('#RESULT_NO#',
'#LOT_NO#',
'#STOVE_NO#',
'#JUDGE_STOVE_NO#',
'#PLINE_CODE#',
SYSDATE,
SYSDATE,
'#COL_USER#',
'#COL_SHIFT#',
'#COL_GROUP#',
'#SCRAP_NUM3#',
'#QUALIFIED_NUM3#',
'#REINSPECTION_NUM3#',
'#REINSPECTION_QUALIFIED_NUM3#',
'#OFFLINE_NUM3#',
'#BACKLINE_NUM3#',
'#DETECTION_NUM3#',
'#SUSPECT_PRODUCT_NUM3#',
'#SAMPLE_NUM3#',
'#PRO_PLAN_ID#',
'#GX_PLAN_NO#');
UPDATE MIL_ET_RESULT T
SET T.DETECTION_NUM = TO_NUMBER(T.DETECTION_NUM) +
TO_NUMBER('#DETECTION_NUM3#'),
T.SCRAP_NUM = TO_NUMBER(T.SCRAP_NUM) +
TO_NUMBER('#SCRAP_NUM3#'),
T.QUALIFIED_NUM = TO_NUMBER(T.QUALIFIED_NUM) +
TO_NUMBER('#QUALIFIED_NUM3#'),
T.REINSPECTION_NUM = TO_NUMBER(T.REINSPECTION_NUM) +
TO_NUMBER('#REINSPECTION_NUM3#'),
T.SUSPECT_PRODUCT_NUM = TO_NUMBER(T.SUSPECT_PRODUCT_NUM) +
TO_NUMBER('#SUSPECT_PRODUCT_NUM3#'),
T.QA_TON = TO_NUMBER(T.QA_TON) +
TO_NUMBER('#QA_TON#'),
T.REINSPECTION_QUALIFIED_NUM = TO_NUMBER(T.REINSPECTION_QUALIFIED_NUM) +
TO_NUMBER('#REINSPECTION_QUALIFIED_NUM3#'),
T.SAMPLE_NUM = TO_NUMBER(T.SAMPLE_NUM) +
TO_NUMBER('#SAMPLE_NUM3#'),
T.PRODUCT_STANDARDS = '#PRODUCT_STANDARDS#',
T.INSPECTION_STANDARD = '#INSPECTION_STANDARD#',
T.TESTING_METHOD = '#TESTING_METHOD#',
T.CALIBRATION_METHOD = '#CALIBRATION_METHOD#',
T.ARTIFICIAL_DEFECT_SHAPE = '#ARTIFICIAL_DEFECT_SHAPE#',
T.EXCITATION_FREQUENCY1 = '#EXCITATION_FREQUENCY1#',
T.EXCITATION_FREQUENCY2 = '#EXCITATION_FREQUENCY2#',
T.EXCITATION_FREQUENCY3 = '#EXCITATION_FREQUENCY3#',
T.TESTING_SPEED1 = '#TESTING_SPEED1#',
T.TESTING_SPEED2 = '#TESTING_SPEED2#',
T.TESTING_SPEED3 = '#TESTING_SPEED3#',
T.USERID = '#USERID#',
T.SIGNID = '#SIGNID#',
T.ACCEPTANCE_GRADE = '#ACCEPTANCE_GRADE#',
T.USERID1 = '#USERID1#',
T.USERID2 = '#USERID2#',
T.USERID_GRADE1 = '#USERID_GRADE1#',
T.USERID_GRADE2 = '#USERID_GRADE2#',
T.USERID1JD = '#USERID1JD#',
T.USERID2JD = '#USERID2JD#',
T.USERID_GRADE1JD = '#USERID_GRADE1JD#',
T.USERID_GRADE2JD = '#USERID_GRADE2JD#',
T.REMARK = '#REMARK#',
T.NOTCH_INFO = '#NOTCH_INFO#',
T.NOTCH_LENGTH = '#NOTCH_LENGTH#',
T.NOTCH_WIDTH = '#NOTCH_WIDTH#',
T.NOTCH_DEPTH = '#NOTCH_DEPTH#',
T.SAMPLE_NEWS = '#SAMPLE_NEWS#'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/');
FOR MYROW4 IN (SELECT SEQ
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') =
NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') =
NVL('#GX_PLAN_NO#', '/')
AND T.RESULT_NO = '#RESULT_NO#'
AND T.SUSPECT_FLAG = '0'
AND T.OFFLINE_FLAG = '0'
AND T.COL_SHIFT IS NULL
AND T.COL_GROUP IS NULL
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= #SAMPLE_NUM3#) LOOP
UPDATE MIL_TESTING_RACK T
SET T.SAMPLE_FLAG = '1'
WHERE T.RESULT_NO = '#RESULT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
AND T.SEQ = MYROW4.SEQ;
END LOOP;
END IF;
END IF;
END;
]]>
SELECT SUM(T.ALARM_NUM) ALARM_NUM, SUM(S.REASON_NUMBER) REASON_NUMBER
FROM MIL_MT_RESULT T
LEFT JOIN (SELECT JUDGE_STOVE_NO,
RESULT_NO,
REASON_FLAG,
NVL(SUM(REASON_NUMBER), 0) REASON_NUMBER
FROM MIL_TESTING_RESULT_DETAIL_DES
GROUP BY JUDGE_STOVE_NO, RESULT_NO, REASON_FLAG) S
ON T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO
AND T.RESULT_NO = S.RESULT_NO
WHERE T.JUDGE_STOVE_NO = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
AND S.REASON_FLAG = '可疑'
SELECT SUM(T.SUSPECT_PRODUCT_NUM) ALARM_NUM,
SUM(S.REASON_NUMBER) REASON_NUMBER
FROM MIL_ET_RESULT T
LEFT JOIN (SELECT JUDGE_STOVE_NO,
RESULT_NO,
REASON_FLAG,
NVL(SUM(REASON_NUMBER), 0) REASON_NUMBER
FROM MIL_TESTING_RESULT_DETAIL_DES
GROUP BY JUDGE_STOVE_NO, RESULT_NO, REASON_FLAG) S
ON T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO
AND T.RESULT_NO = S.RESULT_NO
WHERE T.JUDGE_STOVE_NO = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
AND S.REASON_FLAG = '可疑'
SELECT SUM(T.SCRAP_NUM) SCRAP_NUM,
SUM(S.REASON_NUMBER) REASON_NUMBER,
SUM(P.ACT_COUNT) ACT_COUNT
FROM MIL_MT_RESULT T
LEFT JOIN (SELECT JUDGE_STOVE_NO,
RESULT_NO,
REASON_FLAG,
NVL(SUM(REASON_NUMBER), 0) REASON_NUMBER
FROM MIL_TESTING_RESULT_DETAIL_DES
GROUP BY JUDGE_STOVE_NO, RESULT_NO, REASON_FLAG) S
ON T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO
AND T.RESULT_NO = S.RESULT_NO
LEFT JOIN (SELECT P.JUDGE_STOVE_NO, P.PLAN_ID, SUM(P.ACT_COUNT) ACT_COUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT P
WHERE P.STATUS = '2'
AND P.OP_PROCESS = '10'
GROUP BY P.JUDGE_STOVE_NO, P.PLAN_ID) P
ON T.JUDGE_STOVE_NO = P.JUDGE_STOVE_NO
AND T.RESULT_NO = P.PLAN_ID
WHERE T.JUDGE_STOVE_NO = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
AND S.REASON_FLAG = '剔除'
SELECT SUM(T.SCRAP_NUM) SCRAP_NUM,
SUM(S.REASON_NUMBER) REASON_NUMBER,
SUM(P.ACT_COUNT) ACT_COUNT
FROM MIL_ET_RESULT T
LEFT JOIN (SELECT JUDGE_STOVE_NO,
RESULT_NO,
REASON_FLAG,
NVL(SUM(REASON_NUMBER), 0) REASON_NUMBER
FROM MIL_TESTING_RESULT_DETAIL_DES
GROUP BY JUDGE_STOVE_NO, RESULT_NO, REASON_FLAG) S
ON T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO
AND T.RESULT_NO = S.RESULT_NO
LEFT JOIN (SELECT P.JUDGE_STOVE_NO, P.PLAN_ID, SUM(P.ACT_COUNT) ACT_COUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT P
WHERE P.STATUS = '2'
AND P.OP_PROCESS = '10'
GROUP BY P.JUDGE_STOVE_NO, P.PLAN_ID) P
ON T.JUDGE_STOVE_NO = P.JUDGE_STOVE_NO
AND T.RESULT_NO = P.PLAN_ID
WHERE T.JUDGE_STOVE_NO = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
AND S.REASON_FLAG = '剔除'
SELECT (T.QUALIFIED_NUM + T.SCRAP_NUM + T.OFFLINE_NUM + T.SAMPLE_NUM +
T.INSPECTIONED_OFFLINE_NUM) AS TOTALCOUNT
FROM MIL_MT_RESULT T
WHERE T.JUDGE_STOVE_NO = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
SELECT (T.QUALIFIED_NUM + T.SCRAP_NUM + T.OFFLINE_NUM + T.SAMPLE_NUM +
T.INSPECTIONED_OFFLINE_NUM) AS TOTALCOUNT
FROM MIL_ET_RESULT T
WHERE T.JUDGE_STOVE_NO = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
DECLARE
V_SEQ MIL_TESTING_RACK.SEQ%TYPE := 0;
BEGIN
SELECT NVL(MAX(T.SEQ),0)INTO V_SEQ FROM MIL_TESTING_RACK T WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.RESULT_NO = '#RESULT_NO#' AND T.CHANGE_FLAG = '1';
IF(V_SEQ = 0)THEN
UPDATE MIL_TESTING_RACK T SET T.COL_SHIFT = '',T.COL_GROUP = '' WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.RESULT_NO = '#RESULT_NO#';
ELSE
UPDATE MIL_TESTING_RACK T SET T.COL_SHIFT = '',T.COL_GROUP = '' WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.RESULT_NO = '#RESULT_NO#' AND T.SEQ > V_SEQ;
END IF;
END;
SELECT T.JUDGE_STOVE_NO
FROM MIL_TESTING_RACK T
WHERE T.RESULT_NO = ?
AND T.JUDGE_STOVE_NO = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
AND T.OFFLINE_FLAG = '2'
SELECT T.DETECTION_NUM,
T.ALARM_NUM,
T.SCRAP_NUM,
T.INSPECTIONED_OFFLINE_NUM,
T.SAMPLE_NUM
FROM MIL_MT_RESULT T
WHERE T.RESULT_NO = ?
AND T.JUDGE_STOVE_NO = ?
SELECT T.DETECTION_NUM,
T.SUSPECT_PRODUCT_NUM,
T.SCRAP_NUM,
T.INSPECTIONED_OFFLINE_NUM,
T.SAMPLE_NUM
FROM MIL_ET_RESULT T
WHERE T.RESULT_NO = ?
SELECT NVL(T.REASON_NUMBER, 0) REASON_NUMBER
FROM MIL_TESTING_RESULT_DETAIL_DES T
WHERE T.RESULT_NO = ?
AND T.COL_SHIFT = ?
AND T.COL_GROUP = ?
AND T.COL_NO = ?
AND T.REASON_FLAG = '下线'
SELECT T.REASON_NUMBER
FROM MIL_TESTING_RESULT_DETAIL_DES T
WHERE T.RESULT_NO = ?
AND T.COL_SHIFT = ?
AND T.COL_GROUP = ?
AND T.COL_NO = ?
AND T.REASON_FLAG = '下线'
SELECT ROWNUM SEQ, T.ORDER_LENGTH
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE T.PLAN_ID = ?
AND T.JUDGE_STOVE_NO = ?
AND T.STATUS = '0'
ORDER BY T.MAT_NO ASC
SELECT NVL(SUM(T.GROUP_NUM), 0)
FROM MIL_OFFLINE_RESLUT T
WHERE T.JUDGE_STOVE_NO = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
AND T.OFFLINE_PRO = 'TS'
SELECT T.USER_NAME, T.USERID_GRADE,T.USER_ID
FROM MIL_SIGNATURE T
WHERE T.COL_GROUP = ?
AND T.PROCESS_NO = ?
AND T.PLINE_CODE = ?
SELECT T.USER_NAME, T.USERID_GRADE,T.USER_ID
FROM MIL_SIGNATURE T
WHERE T.PROCESS_NO = ?
AND T.PLINE_CODE = ?
AND T.USERID_GRADE like '%2%'
SELECT T.USER_NAME, T.USERID_GRADE,T.USER_ID
FROM MIL_SIGNATURE T
WHERE T.PROCESS_NO = ?
AND T.PLINE_CODE = ?
AND T.USERID_GRADE like '%2%'
SELECT T.USERID_GRADE
FROM MIL_SIGNATURE T
WHERE T.USER_ID = ?
SELECT T.* FROM MIL_PLAN T WHERE T.JUDGE_STOVE_NO = ?
SELECT T.OFFLINE_DOC
FROM MIL_OFFLINE_RESLUT T
WHERE T.JUDGE_STOVE_NO = ?
AND T.PRO_PLAN_ID = ?
AND T.GX_PLAN_NO = ?
AND T.OFFLINE_PRO = 'TS'