'1'
AND a.JUDGE_STOVE_NO || '&' LIKE '%' || ? || '%'
AND a.PLINE_CODE = ?
AND a.PRO_PLAN_ID || '&' LIKE '%' || ? || '%'
AND a.GX_PLAN_NO || '&' LIKE '%' || ? || '%'
]]>
'1'
AND a.JUDGE_STOVE_NO || '&' LIKE '%' || ? || '%'
AND a.PLINE_CODE = ?
AND a.PRO_PLAN_ID || '&' LIKE '%' || ? || '%'
AND a.GX_PLAN_NO || '&' LIKE '%' || ? || '%'
]]>
'1'
AND a.JUDGE_STOVE_NO || '&' LIKE '%' || ? || '%'
AND a.PLINE_CODE = ?
AND a.PRO_PLAN_ID || '&' LIKE '%' || ? || '%'
AND a.GX_PLAN_NO || '&' LIKE '%' || ? || '%'
]]>
'1'
AND a.JUDGE_STOVE_NO || '&' LIKE '%' || ? || '%'
AND a.PLINE_CODE = ?
AND a.PRO_PLAN_ID || '&' LIKE '%' || ? || '%'
AND a.GX_PLAN_NO || '&' LIKE '%' || ? || '%'
]]>
'1'
AND a.judge_stove_no = ?
]]>
'1'
AND a.judge_stove_no = ?
]]>
'1'
AND a.judge_stove_no = ?
]]>
1
AND a.judge_stove_no = ?
AND a.col_no=?
AND a.mat_no is not null
order by a.seq desc )
WHERE rownum between 1 and ?)
]]>
1
AND a.offline_flag <> 1
AND a.judge_stove_no = ?
AND a.col_no=?
order by a.seq desc )
WHERE rownum between 1 and ?)
]]>
UPDATE
MIL_STRAIGHTENING_RESULT a
SET a.OFFLINE_NUM1= a.OFFLINE_NUM1+?,
a.OFFLINE_NUM_TOTAL=?+a.OFFLINE_NUM1
+a.OFFLINE_NUM2+a.OFFLINE_NUM3
WHERE a.JUDGE_STOVE_NO=?
UPDATE
MIL_STRAIGHTENING_RESULT a
SET a.OFFLINE_NUM2= a.OFFLINE_NUM2+?,
a.OFFLINE_NUM_TOTAL=OFFLINE_NUM2+
?+a.OFFLINE_NUM1+a.OFFLINE_NUM3
WHERE a.JUDGE_STOVE_NO=?
UPDATE MIL_STRAIGHTENING_RESULT a
SET a.OFFLINE_NUM3=a.OFFLINE_NUM3+?,
a.OFFLINE_NUM_TOTAL=OFFLINE_NUM3+ ?+a.OFFLINE_NUM1+a.OFFLINE_NUM2
WHERE a.JUDGE_STOVE_NO=?
1
AND a.offline_flag <> 1
AND a.judge_stove_no = ?
AND (a.col_no='' OR a.col_no is null)
--AND a.mat_no is not null
order by a.seq desc)
WHERE rownum between 1 and ?)
]]>
1
AND a.judge_stove_no = ?
order by a.seq desc)
WHERE rownum between 1 and ?)
]]>
UPDATE MIL_ET_RESULT t
SET
t.OFFLINE_NUM1=t.OFFLINE_NUM1+?,
t.OFFLINE_NUM=t.OFFLINE_NUM1+?+t.OFFLINE_NUM2+t.OFFLINE_NUM3
WHERE
t.Judge_Stove_No=?
UPDATE MIL_ET_RESULT t
SET
t.OFFLINE_NUM2=t.OFFLINE_NUM2+?,
t.OFFLINE_NUM=t.OFFLINE_NUM1+?+t.OFFLINE_NUM2+t.OFFLINE_NUM3
WHERE
t.Judge_Stove_No=?
UPDATE MIL_ET_RESULT t
SET
t.OFFLINE_NUM3=t.OFFLINE_NUM3+?,
t.OFFLINE_NUM=t.OFFLINE_NUM1+?+t.OFFLINE_NUM2+t.OFFLINE_NUM3
WHERE
t.Judge_Stove_No=?
UPDATE MIL_MT_RESULT t
SET
t.OFFLINE_NUM=t.OFFLINE_NUM1+to_number(?)+t.OFFLINE_NUM2,
t.OFFLINE_NUM1=t.OFFLINE_NUM1+to_number(?)
WHERE
t.Judge_Stove_No=?
UPDATE MIL_MT_RESULT t
SET
t.OFFLINE_NUM=t.OFFLINE_NUM1+?+t.OFFLINE_NUM2,
t.OFFLINE_NUM2=t.OFFLINE_NUM2+?
WHERE
t.Judge_Stove_No=?
UPDATE MIL_UL_RESUL t
SET
t.OFFLINE_NUM=t.OFFLINE_NUM1+?+t.OFFLINE_NUM2,
t.OFFLINE_NUM1=t.OFFLINE_NUM1+?
WHERE
t.Judge_Stove_No=?
UPDATE MIL_UL_RESUL t
SET
t.OFFLINE_NUM=t.OFFLINE_NUM1+?+t.OFFLINE_NUM2,
t.OFFLINE_NUM2=t.OFFLINE_NUM2+?
WHERE
t.Judge_Stove_No=?
UPDATE MIL_PLAN t SET
t.OFFLINE_DATE=SYSDATE,
t.OFFLINE_FLAG='1'
WHERE
t.JUDGE_STOVE_NO=?
INSERT INTO MIL_OFFLINE_RESLUT(
LOT_NO,
STOVE_NO,
JUDGE_STOVE_NO,
DIAMETER,
THICKNESS,
LENGTH,
PLINE_CODE,
OFFLINE_PRO,
OFFLINE_NUM,
STATUS,
TYPE_FLAG,
OFFLINE_TIME,
COL_USER,
COL_SHIFT,
COL_GROUP)
VALUES(
'#LOT_NO#',
'#STOVE_NO#',
'#JUDGE_STOVE_NO#',
'#DIAMETER#',
'#THICKNESS#',
'#LENGTH#',
'#PLINE_CODE#',
'#OFFLINE_PRO#',
'#OFFLINE_NUM#',
'#STATUS#',
'#TYPE_FLAG#',
SYSDATE,
'#COL_USER#',
'#COL_SHIFT#',
'#COL_GROUP#')
UPDATE MIL_OFFLINE_RESLUT
SET
OFFLINE_NUM = '#OFFLINE_NUM1#'+OFFLINE_NUM
WHERE
1=1
AND JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
AND OFFLINE_PRO='#OFFLINE_PRO#'
UPDATE MIL_OFFLINE_RESLUT
SET
OFFLINE_NUM = '#OFFLINE_NUM2#'+OFFLINE_NUM
WHERE
1=1
AND JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
AND OFFLINE_PRO='#OFFLINE_PRO#'
UPDATE MIL_OFFLINE_RESLUT
SET
OFFLINE_NUM = '#OFFLINE_NUM3#'+OFFLINE_NUM
WHERE
1=1
AND JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
AND OFFLINE_PRO='#OFFLINE_PRO#'
UPDATE MIL_OFFLINE_RESLUT
SET
LOT_NO = '#LOT_NO#',
STOVE_NO = '#STOVE_NO#',
DIAMETER = '#DIAMETER#',
THICKNESS = '#THICKNESS#',
LENGTH = '#LENGTH#',
PLINE_CODE = '#PLINE_CODE#',
OFFLINE_PRO = '#OFFLINE_PRO#',
OFF_LEVEL = '#OFF_LEVEL#',
STATUS = '#STATUS#',
TYPE_FLAG = '#TYPE_FLAG#',
REMARK = '#REMARK#',
COL_USER = '#COL_USER#',
COL_SHIFT = '#COL_SHIFT#',
COL_GROUP = '#COL_GROUP#'
WHERE
1=1
AND JUDGE_STOVE_NO='#JUDGE_STOVE_NO#'
AND OFFLINE_PRO='#OFFLINE_PRO#'
1
AND a.offline_flag = 1
AND a.judge_stove_no = ?
AND a.col_no=?
--AND a.mat_no is not null
order by a.seq desc)
WHERE rownum between 1 and ?)
]]>
UPDATE MIL_ET_RESULT t
SET
t.OFFLINE_NUM1=t.OFFLINE_NUM1-?,
t.OFFLINE_NUM=t.OFFLINE_NUM1-?+t.OFFLINE_NUM2+t.OFFLINE_NUM3
WHERE
t.Judge_Stove_No=?
UPDATE MIL_ET_RESULT t
SET
t.OFFLINE_NUM2=t.OFFLINE_NUM2-?,
t.OFFLINE_NUM=t.OFFLINE_NUM1-?+t.OFFLINE_NUM2+t.OFFLINE_NUM3
WHERE
t.Judge_Stove_No=?
UPDATE MIL_ET_RESULT t
SET
t.OFFLINE_NUM3=t.OFFLINE_NUM3-?,
t.OFFLINE_NUM=t.OFFLINE_NUM1-?+t.OFFLINE_NUM2+t.OFFLINE_NUM3
WHERE
t.Judge_Stove_No=?
UPDATE MIL_MT_RESULT t
SET
t.OFFLINE_NUM=t.OFFLINE_NUM1-?+t.OFFLINE_NUM2,
t.OFFLINE_NUM1=t.OFFLINE_NUM1-?
WHERE
t.Judge_Stove_No=?
UPDATE MIL_MT_RESULT t
SET
t.OFFLINE_NUM=t.OFFLINE_NUM1-?+t.OFFLINE_NUM2,
t.OFFLINE_NUM2=t.OFFLINE_NUM2-?
WHERE
t.Judge_Stove_No=?
UPDATE MIL_UL_RESUL t
SET
t.OFFLINE_NUM=t.OFFLINE_NUM1-?+t.OFFLINE_NUM2,
t.OFFLINE_NUM1=t.OFFLINE_NUM1-?
WHERE
t.Judge_Stove_No=?
UPDATE MIL_UL_RESUL t
SET
t.OFFLINE_NUM=t.OFFLINE_NUM1-?+t.OFFLINE_NUM2,
t.OFFLINE_NUM2=t.OFFLINE_NUM2-?
WHERE
t.Judge_Stove_No=?
SELECT (T.QUALIFIED_NUM - S.QUALIFIED_NUM-S.SCRAP_NUM-S.INSPECTIONED_OFFLINE_NUM-S.OFFLINE_NUM-S.SAMPLE_NUM)AS OFFLINE_COUNT
FROM MIL_STRAIGHTENING_RESULT T
LEFT JOIN #TABLENAME# 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(?, '/')
SELECT (T.CUT_DBNUM - nvl(S.SCRAP_NUM,0) -
nvl(S.OFFLINE_NUM_TOTAL,0)) AS OFFLINE_COUNT
FROM MIL_SAW_RESULT T
LEFT JOIN MIL_STRAIGHTENING_RESULT S ON T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO
AND T.RESULT_NO = S.RESULT_NO
WHERE T.JUDGE_STOVE_NO = ?
AND T.PLINE_CODE = ?
SELECT NVL(T.OFFLINE_NUM, 0) OFFLINE_NUM
FROM MIL_OFFLINE_RESLUT T
WHERE T.JUDGE_STOVE_NO = ?
AND T.OFFLINE_PRO = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
AND T.OFFLINE_TYPE = '1'
SELECT NVL(T.OFFLINE_NUM,0)OFFLINE_NUM FROM MIL_OFFLINE_RESLUT T WHERE T.JUDGE_STOVE_NO = ? AND T.OFFLINE_PRO = ?
0) THEN
UPDATE MIL_OFFLINE_RESLUT T
SET T.OFFLINE_NUM = TO_NUMBER(T.OFFLINE_NUM) + TO_NUMBER(?)
WHERE T.JUDGE_STOVE_NO = ?
AND T.PRO_PLAN_ID = V_PRO_PLAN_ID
AND T.GX_PLAN_NO = V_GX_PLAN_NO
AND T.OFFLINE_PRO = 'TS'
AND T.STATUS = '0'
AND T.OFFLINE_TYPE = '1';
ELSE
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,
OFFLINE_TYPE,
ZP_HEIGHT,
TARGET,
IMP_PROCESS,
PRO_PLAN_ID,
GX_PLAN_NO,
OFFLINE_DOC)
VALUES
('0',
?,
?,
?,
?,
?,
?,
REPLACE(?,'*','x'),
?,
?,
?,
?,
?,
?,
?,
?,
?,
'0',
'0',
'0',
'',
?,
'',
?,
?,
?,
?,
?,
'TS',
'0',
?,
'0',
'0',
'0',
'0',
'0',
?,
TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'),
'',
?,
?,
?,
'1',
?,
?,
?,
V_PRO_PLAN_ID,
V_GX_PLAN_NO,
V_OFFLINE_DOC);
END IF;
IF (? = 'C009' OR ? = 'C008' OR ? = 'C017') THEN
UPDATE MIL_MT_RESULT T
SET T.OFFLINE_NUM = TO_NUMBER(T.OFFLINE_NUM) + TO_NUMBER(?)
WHERE T.JUDGE_STOVE_NO = ?
AND T.PRO_PLAN_ID = V_PRO_PLAN_ID
AND T.GX_PLAN_NO = V_GX_PLAN_NO
AND T.PLINE_CODE = ?;
ELSIF (? = 'C010') THEN
UPDATE MIL_ET_RESULT T
SET T.OFFLINE_NUM = TO_NUMBER(T.OFFLINE_NUM) + TO_NUMBER(?)
WHERE T.JUDGE_STOVE_NO = ?
AND T.PRO_PLAN_ID = V_PRO_PLAN_ID
AND T.GX_PLAN_NO = V_GX_PLAN_NO
AND T.PLINE_CODE = ?;
END IF;
FOR MYROW IN (SELECT *
FROM (SELECT T.SEQ
FROM MIL_TESTING_RACK T
WHERE T.JUDGE_STOVE_NO = ?
AND T.PLINE_CODE = ?
AND T.PRO_PLAN_ID = V_PRO_PLAN_ID
AND T.GX_PLAN_NO = V_GX_PLAN_NO
--AND T.COL_SHIFT IS NULL
--AND T.COL_GROUP IS NULL
AND T.OFFLINE_FLAG = '0'
AND T.STATUS = '0'
AND T.SUSPECT_FLAG = '0'
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= ?) LOOP
UPDATE MIL_TESTING_RACK T
SET T.OFFLINE_FLAG = '1',
T.OFFLINE_TYPE = '1',
T.OFFLINE_TIME = TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS')
WHERE T.JUDGE_STOVE_NO = ?
AND T.PRO_PLAN_ID = V_PRO_PLAN_ID
AND T.GX_PLAN_NO = V_GX_PLAN_NO
AND T.PLINE_CODE = ?
AND T.SEQ = MYROW.SEQ;
END LOOP;
IF (? = 1) THEN
SELECT SUM(QUALIFIED_NUM)
INTO V_QUALIFIED_NUM
FROM (SELECT T.QUALIFIED_NUM
FROM MIL_MT_RESULT T
WHERE T.JUDGE_STOVE_NO = ?
AND T.PRO_PLAN_ID = V_PRO_PLAN_ID
AND T.GX_PLAN_NO = V_GX_PLAN_NO
UNION ALL
SELECT T.QUALIFIED_NUM
FROM MIL_ET_RESULT T
WHERE T.JUDGE_STOVE_NO = ?
AND T.PRO_PLAN_ID = V_PRO_PLAN_ID
AND T.GX_PLAN_NO = V_GX_PLAN_NO
UNION ALL
SELECT T.QUALIFIED_NUM
FROM MIL_UL_RESUL T
WHERE T.JUDGE_STOVE_NO = ?
AND T.PRO_PLAN_ID = V_PRO_PLAN_ID
AND T.GX_PLAN_NO = V_GX_PLAN_NO);
IF (V_QUALIFIED_NUM = 0) THEN
UPDATE MIL_PLAN T
SET T.ROLLING_STATUS = '1'
WHERE JUDGE_STOVE_NO = ?
AND T.PRO_PLAN_ID = V_PRO_PLAN_ID
AND T.GX_PLAN_NO = V_GX_PLAN_NO;
END IF;
END IF;
END;
]]>
0) THEN
UPDATE MIL_OFFLINE_RESLUT T
SET T.OFFLINE_NUM = TO_NUMBER(T.OFFLINE_NUM) + TO_NUMBER(?)
WHERE T.JUDGE_STOVE_NO = ?
AND T.OFFLINE_PRO = 'JZ';
ELSE
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,
OFFLINE_TYPE,
ZP_HEIGHT,
TARGET,
IMP_PROCESS,
PRO_PLAN_ID,
GX_PLAN_NO)
VALUES
('0',
?,
?,
?,
?,
?,
?,
REPLACE(?,'*','x'),
?,
?,
?,
?,
?,
?,
?,
?,
?,
'0',
'0',
'0',
'',
?,
'',
?,
?,
?,
?,
?,
'JZ',
'0',
?,
'0',
'0',
'0',
'0',
'0',
?,
TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'),
'',
?,
?,
?,
'3',
?,
?,
?,
V_PRO_PLAN_ID,
V_GX_PLAN_NO);
END IF;
UPDATE MIL_STRAIGHTENING_RESULT T
SET T.OFFLINE_NUM_TOTAL = TO_NUMBER(T.OFFLINE_NUM_TOTAL) + TO_NUMBER(?),
T.QUALIFIED_NUM = TO_NUMBER(T.QUALIFIED_NUM) - TO_NUMBER(?)
WHERE T.JUDGE_STOVE_NO = ?
AND T.PLINE_CODE = ?;
FOR MYROW IN (SELECT *
FROM (SELECT T.SEQ
FROM MIL_STRAIGH_RACK T
WHERE T.JUDGE_STOVE_NO = ?
AND T.PLINE_CODE = ?
--AND T.COL_SHIFT IS NULL
--AND T.COL_GROUP IS NULL
AND T.OFFLINE_FLAG = '0'
AND T.STATUS = '0'
ORDER BY T.SEQ ASC)
WHERE ROWNUM <= ?) LOOP
UPDATE MIL_STRAIGH_RACK T
SET T.OFFLINE_FLAG = '1',
T.STATUS = '3',
T.OFFLINE_TIME = TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS')
WHERE T.JUDGE_STOVE_NO = ?
AND T.PLINE_CODE = ?
AND T.SEQ = MYROW.SEQ;
END LOOP;
IF (? = 1) THEN
SELECT SUM(QUALIFIED_NUM)
INTO V_QUALIFIED_NUM
FROM (SELECT T.QUALIFIED_NUM
FROM MIL_STRAIGHTENING_RESULT T
WHERE T.JUDGE_STOVE_NO = ?);
IF (V_QUALIFIED_NUM = 0) THEN
UPDATE MIL_PLAN T
SET T.ROLLING_STATUS = '1'
WHERE JUDGE_STOVE_NO = ?;
END IF;
END IF;
END;
]]>
0) THEN
UPDATE MIL_OFFLINE_RESLUT T
SET T.OFFLINE_NUM = TO_NUMBER(T.OFFLINE_NUM) + TO_NUMBER(?)
WHERE T.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 = 'XX';
ELSE
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,
OFFLINE_TYPE,
ZP_HEIGHT,
TARGET,
IMP_PROCESS,
PRO_PLAN_ID,
GX_PLAN_NO,
OFFLINE_DOC,
LOAD_JUDGE_STOVE_NO)
VALUES
('0',
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
'0',
'0',
'0',
'',
?,
'',
?,
?,
?,
?,
?,
'XX',
'0',
?,
'0',
'0',
'0',
'0',
'0',
?,
TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'),
'',
?,
?,
?,
'0',
?,
?,
?,
V_PRO_PLAN_ID,
V_GX_PLAN_NO,
?,
V_LOAD_JUDGE_STOVE_NO);
END IF;
END;
]]>
DECLARE
V_TIME MIL_OFFLINE_RESLUT.OFFLINE_TIME%TYPE := SYSDATE;
V_JUDGE_STOVE_NO MIL_PLAN.JUDGE_STOVE_NO%TYPE := ?;
V_BATCH_NO PORT_MIL_BATCH_SAMPLE_RESULT.BATCH_NO%TYPE := ?;
V_JUDGE_STOVE_NO_ZP MIL_PLAN.JUDGE_STOVE_NO%TYPE := NULL; --组炉炉号
V_COUNT MIL_PLAN.CRAFT_SEQ%TYPE := 0;
BEGIN
select COUNT(1)
INTO V_COUNT
from MIL_OFFLINE_GROUP t
WHERE REGEXP_REPLACE(T.ZP_JUDGE_STOVE_NO, '-.*', '') = V_JUDGE_STOVE_NO;
IF (V_COUNT > 0) THEN
select REGEXP_REPLACE(T.ZP_M_LH, '-.*', '')
INTO V_JUDGE_STOVE_NO_ZP
from MIL_OFFLINE_GROUP t
WHERE REGEXP_REPLACE(T.ZP_JUDGE_STOVE_NO, '-.*', '') =
V_JUDGE_STOVE_NO
AND ROWNUM = 1;
END IF;
INSERT INTO YDM_BC_BUTTRESS
(JUDGE_STOVE_NO,
BATCH_NO,
BATCH_GROUD_NO,
STORAGE_NO,
LOCATION_NO,
STORAGE_TYPE_NO,
STORAGE_TYPE_NAME,
CREATE_NAME,
MAT_NO,
CREATE_TIME,
MANAGEMENT_NO,
MANAGEMENT_NAME,
DEPARTMENT_CODE,
DEPARTMENT_DESC)
VALUES
(V_JUDGE_STOVE_NO, V_BATCH_NO, ?, ?, ?, ?, ?, ?, ?, V_TIME, ?, ?, ?, ?);
FOR MYROW IN (SELECT A.*,
B.ORD_PK,
B.ORD_LN_PK,
(SELECT MAX(M.PIPE_SIZE_CODE)
FROM MIL_PLAN M
WHERE M.JUDGE_STOVE_NO LIKE A.FEED_HEAT_NO || '-%') SPEC_CODE,
(SELECT MAX(M.ROLL_STANDRAD_CODE)
FROM MIL_PLAN M
WHERE M.JUDGE_STOVE_NO LIKE A.FEED_HEAT_NO || '-%') STD_CODE,
(SELECT MAX(M.STD_STYLE)
FROM MIL_PLAN M
WHERE M.JUDGE_STOVE_NO LIKE A.FEED_HEAT_NO || '-%') STD_STYLE,
(SELECT DECODE(H.ORDER_TYP,
'120108',
'1',
'120107',
'2',
'0')
FROM SLM_ORDER_HEAD H
WHERE H.ORD_PK = B.ORD_PK) ORDER_TYP
FROM PLN_ZY_ZG_M A, SLM_ORDER_LINE_DELIVERY B
WHERE A.ORD_LN_DLY_PK = B.ORD_LN_DLY_PK(+)
AND A.IF_FLAG = '0'
AND A.PLANSTATUS > '00'
AND A.FEED_HEAT_NO =
NVL(V_JUDGE_STOVE_NO_ZP, V_JUDGE_STOVE_NO)) LOOP
INSERT INTO MAT_BC_M
(JUDGE_STOVE_NO,
BATCH_NO,
BATCH_GROUD_NO,
ACT_COUNT,
ACT_WEIGHT,
CREATE_TIME,
MAT_NO,
PRODUCT_FLAG,
MAT_STATUS,
PLINE_CODE,
PLINE_NAME,
QCM_STAUS,
HEAT_PLAN_NO,
ZG_STOVE_SQE,
PRODUCCODE,
PRODUCNAME,
STEELCODE,
STEELNAME,
SPEC_CODE,
SPEC_NAME,
GRADECODE,
GRADENAME,
MODEL_CODE,
MODEL_DESC,
STD_CODE,
STD_NAME,
BELONG_CODE,
BELONG_NAME,
STD_STYLE,
STD_STYLE_DESC,
ACT_DIMATER,
ACT_HEIGHT,
ACT_LEN_MIN,
ACT_LEN_MAX,
LOT_NO,
PRO_ORDER_NO,
ACT_LEN,
TARGET,
PROCESS_STATUS,
FLAG_STOVE_NO_ZG,
INSTOCK_TIME,
STOVE_NO,
MATERIAL_NO,
MATERIAL_NAME,
INPUT_MATERIAL_NO,
INPUT_MATERIAL_NAME,
CIC,
JUDGE_STD_DES,
CRAFT_SEQ,
PRO_ORDER_ID,
GX_PLAN_NO,
PROCESS_CDOE,
PROCESS_DESC,
ORDER_NO,
ORDER_SEQ,
ORDER_SEQ_NO,
ORD_PK,
ORD_LN_PK,
ORD_LN_DLY_PK,
OFFLINE_DOC,
IS_DEALER,
MAT_GOWHERE_CODE,
MAT_GOWHERE_NAME,
BELONG_CODE_RESPONSE,
BELONG_NAME_RESPONSE)
VALUES
(?,
?,
?,
?,
?,
TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'),
?,
?,
?,
?,
(SELECT P.PLINE_NAME FROM COM_BASE_PLINE P WHERE P.PLINE_CODE = ?),
?,
?,
?,
NVL(?, MYROW.PRODUCCODE),
?,
NVL(?, MYROW.STEELCODE),
?,
NVL(?, MYROW.SPEC_CODE),
?,
NVL(?, MYROW.GRADECODE),
?,
NVL(?, MYROW.MODEL_CODE),
?,
NVL(?, MYROW.STD_CODE),
?,
?,
?,
NVL(?, MYROW.STD_STYLE),
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
SYSDATE,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
'D',
'轧制',
MYROW.ORDER_NO,
MYROW.ORDER_SEQ,
MYROW.DELIVERY_NO,
MYROW.ORD_PK,
MYROW.ORD_LN_PK,
MYROW.ORD_LN_DLY_PK,
?,
MYROW.ORDER_TYP,
NVL(MYROW.GOWHERE_CODE, '/'),
NVL(MYROW.GOWHERE_NAME, '/'),
MYROW.PLINE_CODE,
MYROW.PLINE_NAME);
END LOOP;
END;
SELECT SUM(ACOUNT)ACOUNT FROM (
SELECT COUNT(1)ACOUNT FROM MIL_MT_RESULT T WHERE T.Judge_Stove_No = ?
UNION ALL
SELECT COUNT(1)ACOUNT FROM MIL_ET_RESULT T WHERE T.Judge_Stove_No = ?
UNION ALL
SELECT COUNT(1)ACOUNT FROM MIL_UL_RESUL T WHERE T.Judge_Stove_No = ?
)
select t.*, t.rowid from COM_BASE_PLINE t WHERE T.PLINE_CODE = ?
SELECT T.NODE_FUR_FLAG
FROM MIL_MT_RESULT T
WHERE T.JUDGE_STOVE_NO = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
UNION ALL
SELECT T.NODE_FUR_FLAG
FROM MIL_ET_RESULT T
WHERE T.JUDGE_STOVE_NO = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
UNION ALL
SELECT T.NODE_FUR_FLAG
FROM MIL_UL_RESUL T
WHERE T.JUDGE_STOVE_NO = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
SELECT T.NODE_FUR_FLAG FROM MIL_STRAIGHTENING_RESULT T WHERE T.JUDGE_STOVE_NO = ?
SELECT T.NODE_STATUS FROM MIL_PLAN T WHERE T.JUDGE_STOVE_NO = ?
'0'
OR T.BACKLINE_NUM <>'0'
OR T.SUBCONTRACT_NUM <> '0')
]]>
SELECT NVL(SUM(T.ACT_COUNT),0)QUALIFIEDNUM
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE T.JUDGE_STOVE_NO = ?
AND T.STATUS = '0'
AND T.INSTORE_FLAG = '0'
SELECT NVL(SUM(T.ACT_COUNT),0)OFFLINE_COUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE T.JUDGE_STOVE_NO = ?
AND T.STATUS = '3'
AND T.OP_PROCESS = '12'
select T.JUDGE_STOVE_NO,
(NVL(T.QUALIFIED_NUM, 0) + NVL(T.OFFLINE_NUM, 0)) OFFLINE_NUM
from MIL_INSTORE_RESULT t
WHERE T.JUDGE_STOVE_NO = ?
AND T.PLINE_CODE = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
select COUNT(1) ACOUNT
from PORT_MIL_BATCH_SAMPLE_RESULT t
WHERE T.STATUS = '0'
AND T.JUDGE_STOVE_NO = ?
AND T.PLINE_CODE = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
SELECT (T1.QUALIFIEDNUM - NVL(S.QUALIFIED_NUM, 0) - NVL(S.OFFLINE_NUM, 0) -
NVL(S.SCRAP_NUM, 0)) QUALIFIEDNUM
FROM (SELECT NVL(SUM(T.ACT_COUNT), 0) QUALIFIEDNUM,
T.PLAN_ID,
T.JUDGE_STOVE_NO,
T.PRO_PLAN_ID,
T.GX_PLAN_NO
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE T.JUDGE_STOVE_NO = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
AND T.PLINE_CODE = ?
AND T.STATUS = '0'
GROUP BY T.PLAN_ID, T.JUDGE_STOVE_NO, T.PRO_PLAN_ID, T.GX_PLAN_NO) T1
LEFT JOIN MIL_INSTORE_RESULT S
ON T1.PLAN_ID = S.RESULT_NO
AND T1.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO
AND NVL(T1.PRO_PLAN_ID, '/') = NVL(S.PRO_PLAN_ID, '/')
AND NVL(T1.GX_PLAN_NO, '/') = NVL(S.GX_PLAN_NO, '/')
SELECT NVL(T.OFFLINE_NUM, 0) OFFLINE_COUNT
FROM MIL_INSTORE_RESULT T
WHERE T.JUDGE_STOVE_NO = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
DECLARE
V_COUNT MIL_INSTORE_RESULT.QUALIFIED_NUM%TYPE := NULL;
BEGIN
SELECT COUNT(1)
INTO V_COUNT
FROM MIL_INSTORE_RESULT 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 = '#ID#';
IF (V_COUNT > 0) THEN
UPDATE MIL_INSTORE_RESULT T
SET T.OFFLINE_NUM = TO_NUMBER(NVL(OFFLINE_NUM, 0)) + TO_NUMBER(?)
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 = '#ID#';
ELSE
INSERT INTO MIL_INSTORE_RESULT
(RESULT_NO,
JUDGE_STOVE_NO,
LOT_NO,
PLINE_CODE,
TYPE,
TARGET_DIAMETER,
TARGET_THICKNESS,
TARGET_LENGTH,
QUALIFIED_NUM,
QUALIFIED_TONS,
SCRAP_NUM,
SCRAP_TONS,
OFFLINE_NUM,
OFFLINE_TONS,
PRO_PLAN_ID,
GX_PLAN_NO)
VALUES
('#ID#',
'#JUDGE_STOVE_NO#',
'#LOT_NO#',
'#PLINE_CODE#',
'#GRADENAME#',
'',
'',
'#TARGET_LENGTH#',
'',
'',
'',
'',
?,
'',
'#PRO_PLAN_ID#',
'#GX_PLAN_NO#');
END IF;
END;
UPDATE MIL_INSTORE_RESULT T
SET T.OFFLINE_NUM = TO_NUMBER(T.OFFLINE_NUM) - TO_NUMBER(?)
WHERE T.RESULT_NO = ?
AND T.JUDGE_STOVE_NO = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
INSERT INTO YDM_BC_INLIST
(MANAGEMENT_NO,
MANAGEMENT_NAME,
INSTOCK_SQE,
INSTOCK_DOC,
INSTOCK_TYPE_CODE,
INSTOCK_TYPE_NAME,
MAT_NO,
LOT_NO,
STOVE_NO,
JUDGE_STOVE_NO,
BATCH_NO,
BATCH_GROUD_NO,
PRODUCCODE,
PRODUCNAME,
STD_CODE,
STD_NAME,
STEELCODE,
STEELNAME,
STD_STYLE,
STD_STYLE_DESC,
SPEC_CODE,
SPEC_NAME,
MODEL_CODE,
MODEL_DESC,
ACT_DIMATER,
ACT_HEIGHT,
ACT_LEN_MIN,
ACT_LEN_MAX,
ACT_COUNT,
ACT_WEIGHT,
ACT_THEORY_WEIGHT,
BELONG_CODE,
BELONG_NAME,
STORAGE_NO,
MEMO,
VALIDFLAG,
CREATE_NAME,
CREATE_TIME,
ORDER_NO,
ORDER_SEQ,
DELIVERY_NO,
ORD_PK,
ORD_LN_PK,
ORD_LN_DLY_PK,
PRODUCT_FLAG,
MAT_STATUS,
INSTOCK_TIME,
ZB_RCDID,
ACT_LEN,
DEPARTMENT_CODE,
DEPARTMENT_DESC,
JUDGE_STD_NAME,
PLINE_CODE,
PLINE_NAME,
GRADECODE,
GRADENAME,
BAL_YEAR_MONTH,
IN_TIME_F,
PIPMEMO,
MAT_ORIGIN_CODE,
MAT_ORIGIN_NAME,
SOURE_CODE,
SOURE_NAME,
MATERIAL_NO,
MATERIAL_NAME,
PRO_ORDER_NO,
QCM_STAUS,
ZG_STOVE_SQE,
IN_BC,
IN_BZ)
VALUES
(?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
TO_DATE(?,'YYYY-MM-DD HH24:MI:SS'),
?,
?,
?,
?,
?,
?,
?,
?,
TO_DATE(?,'YYYY-MM-DD HH24:MI:SS'),
'',
?,
?,
?,
?,
?,
?,
?,
?,
?,
TO_DATE(?,'YYYY-MM-DD HH24:MI:SS'),
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?)
0) THEN
UPDATE MAT_BC_M T
SET T.SCRAP_REASON = MYROW2.REASON,
T.SOURE_CODE = '501011',
T.SOURE_NAME = '探伤实绩'
WHERE T.PROCESS_CDOE = 'D'
AND T.BATCH_NO = 'F'
AND T.SCRAP_REASON IS NULL
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO_6
AND T.PLINE_CODE = V_PLINE_CODE
AND ROWNUM <= MYROW2.REASON_NUMBER;
END IF;
END LOOP;
--表检废品原因
FOR MYROW3 IN (select T.DEFECT_ITEM, SUM(T.WASTE_BRANCH) WASTE_BRANCH
from MIL_CHECK_DEATIL_SIMPLE t
WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
GROUP BY T.DEFECT_ITEM) LOOP
IF (MYROW3.WASTE_BRANCH > 0) THEN
UPDATE MAT_BC_M T
SET T.SCRAP_REASON = MYROW3.DEFECT_ITEM,
T.SOURE_CODE = '501012',
T.SOURE_NAME = '表检实绩'
WHERE T.PROCESS_CDOE = 'D'
AND T.BATCH_NO = 'F'
AND T.SCRAP_REASON IS NULL
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO_6
AND T.PLINE_CODE = V_PLINE_CODE
AND ROWNUM <= MYROW3.WASTE_BRANCH;
END IF;
END LOOP;
END;
]]>
SELECT COUNT(1) ACOUNT
FROM MAT_BC_M T, YDM_BC_BUTTRESS S, PORT_MIL_BATCH_SAMPLE_RESULT M
WHERE T.MAT_NO = S.MAT_NO
AND T.ZG_MAT_NO = M.MAT_NO
AND T.ZG_STOVE_SQE = M.JUDGE_STOVE_NO
AND M.JUDGE_STOVE_NO = ?
AND M.PRO_PLAN_ID = ?
AND M.GX_PLAN_NO = ?
AND M.PLINE_CODE = ?
AND T.OUTSTOCK_DOC IS NOT NULL
AND T.BATCH_NO = 'F'
AND T.QCM_STAUS = '22'
select DECODE(TRIM(T.IF_PRODUCT), '0', '', '1', T.CIC || '+') || T.PIC || '+' ||
T.SIC || '+' || T.DIC judgeStdDes,
T.CIC,
T.INWL_ID,
T.INWL_DESC,
T.OUTWL_ID,
T.OUTWL_DESC,
T.CRAFT_SEQ,
T.GOWHERE_CODE,
T.GOWHERE_NAME
from pln_zy_zg_m t
where t.pro_plan_id = ?
and t.gx_plan_no = ?
group by T.IF_PRODUCT,
T.CIC,
T.PIC,
T.SIC,
T.DIC,
T.INWL_ID,
T.INWL_DESC,
T.OUTWL_ID,
T.OUTWL_DESC,
T.CRAFT_SEQ,
T.GOWHERE_CODE,
T.GOWHERE_NAME
select DECODE(TRIM(T.IF_PRODUCT), '0', '', '1', T.CIC || '+') || T.PIC || '+' ||
T.SIC || '+' || T.DIC judgeStdDes,
T.CIC,
T.INWL_ID,
T.INWL_DESC,
T.OUTWL_ID,
T.OUTWL_DESC,
T.CRAFT_SEQ,
T.PRO_PLAN_ID,
T.GX_PLAN_NO,
T.GOWHERE_CODE,
T.GOWHERE_NAME
from pln_zy_zg_m t
where t.HEAT_PLAN_NO = ?
group by T.IF_PRODUCT,
T.CIC,
T.PIC,
T.SIC,
T.DIC,
T.INWL_ID,
T.INWL_DESC,
T.OUTWL_ID,
T.OUTWL_DESC,
T.CRAFT_SEQ,
T.PRO_PLAN_ID,
T.GX_PLAN_NO,
T.GOWHERE_CODE,
T.GOWHERE_NAME
SELECT 'D' || TO_CHAR(SYSDATE, 'YYYYMM') ||
LPAD(NVL(MAX(SUBSTR(T.OFFLINE_DOC, 8, 4)), 0) + 1, 4, 0) OFFLINE_DOC
FROM MIL_OFFLINE_RESLUT T
WHERE TO_CHAR(T.OFFLINE_TIME, 'YYYYMM') = TO_CHAR(SYSDATE, 'YYYYMM')
SELECT T.*
FROM MIL_OFFLINE_RESLUT T
WHERE T.JUDGE_STOVE_NO = ?
AND T.PLINE_CODE = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
AND T.OFFLINE_PRO = ?