= 12)) PLAN_COUNT
FROM MIL_PLAN T,MIL_SURFACE_RESULT S
WHERE T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO(+)
AND T.BACK_SLAB_FLAG <> '2'
AND T.ROLLING_STATUS IN('0','1')
]]>
= 8 THEN
COUNT(1)
ELSE
COUNT(1) * S.SAW_NUM
END) PENDINGCOUNT
FROM MIL_SLAB_SCRAP_SEQ T2, MIL_PLAN S
WHERE T2.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO
AND T2.PROCESS_NO < 8
AND T2.FLAG = '0'
OR (T2.FLAG = '1' AND T2.HANDLE_RESULT <> '500201')
GROUP BY T2.JUDGE_STOVE_NO,
S.LOT_NO,
S.SAW_NUM,
T2.PROCESS_NO)
GROUP BY JUDGE_STOVE_NO, JUDGE_NO, LOT_NO) T,
(SELECT t3.OUTWL_ID,
t3.OUTWL_DESC,
t3.ORDER_NO,
t3.ORDER_SEQ,
S.Judge_Stove_No,
S.Lot_No,
S.Pline_Code,
S.Node_Status,
S.START_TIME
FROM MIL_PLAN S
LEFT JOIN (SELECT OUTWL_ID, OUTWL_DESC, ORDER_NO, ORDER_SEQ
FROM PLN_ORDER_ZG
GROUP BY OUTWL_ID, OUTWL_DESC, ORDER_NO, ORDER_SEQ) T3 on S.CONTRACT_NO =
T3.ORDER_NO || '/' ||
T3.ORDER_SEQ) S
WHERE T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO
--REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = REGEXP_REPLACE(S.JUDGE_STOVE_NO, '-.*', '')
AND T.LOT_NO = S.LOT_NO
#condtions1#
AND S.PLINE_CODE = ?
AND S.JUDGE_STOVE_NO || '&' LIKE '%' || ? || '%'
AND S.LOT_NO || '&' LIKE '%' || ? || '%'
#condtions#
UNION ALL
SELECT REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') JUDGE_STOVE_NO,
T.JUDGE_NO,
T.LOT_NO,
T1.OUTWL_ID,
T1.OUTWL_DESC,
T1.ORDER_NO || '/' || T1.ORDER_SEQ AS ORDER_NO,
0 AS INCOUNT,
0 AS INWEIGHT,
PENGDINGCOUNT AS PENDINGCOUNT,
(S.DB_NUM / S.SAW_NUM * T.PENGDINGCOUNT) AS PENDINGWEIGHT,
0 AS SCRAPCOUNT,
0 AS SCRAPWEIGHT,
0 AS OUTCOUNT,
0 AS OUTWEIGHT,
0 AS SOUTCOUNT,
0 AS SOUTWEIGHT
FROM (SELECT REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') JUDGE_STOVE_NO,
T.JUDGE_STOVE_NO AS JUDGE_NO,
T.LOT_NO,
SUM(T.OFFLINE_NUM) PENGDINGCOUNT
FROM MIL_OFFLINE_RESLUT T
GROUP BY T.JUDGE_STOVE_NO, T.LOT_NO) T,
MIL_PLAN S,
(SELECT OUTWL_ID, OUTWL_DESC, ORDER_NO, ORDER_SEQ
FROM PLN_ORDER_ZG
GROUP BY OUTWL_ID, OUTWL_DESC, ORDER_NO, ORDER_SEQ) T1
WHERE T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO
--REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = REGEXP_REPLACE(S.JUDGE_STOVE_NO, '-.*', '')
AND S.CONTRACT_NO = T1.ORDER_NO || '/' || T1.ORDER_SEQ
AND T.LOT_NO = S.LOT_NO
#condtions1#
AND S.PLINE_CODE = ?
AND S.JUDGE_STOVE_NO || '&' LIKE '%' || ? || '%'
AND S.LOT_NO || '&' LIKE '%' || ? || '%'
#condtions#
)
UNION ALL
SELECT REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') JUDGE_STOVE_NO,
T.JUDGE_NO,
T.LOT_NO,
T1.OUTWL_ID,
T1.OUTWL_DESC,
T1.ORDER_NO || '/' || T1.ORDER_SEQ AS ORDER_NO,
0 AS INCOUNT,
0 AS INWEIGHT,
0 AS PENDINGCOUNT,
0 AS PENDINGWEIGHT,
SCRAPCOUNT,
(S.DB_NUM / S.SAW_NUM * T.SCRAPCOUNT) AS SCRAPWEIGHT,
0 AS OUTCOUNT,
0 AS OUTWEIGHT,
0 AS SOUTCOUNT,
0 AS SOUTWEIGHT
FROM (SELECT REGEXP_REPLACE(JUDGE_STOVE_NO, '-.*', '') JUDGE_STOVE_NO,
JUDGE_STOVE_NO AS JUDGE_NO,
LOT_NO,
COUNT(1) SCRAPCOUNT
FROM MIL_SLAB_SCRAP D
WHERE D.FLAG = '1'
AND D.HANDLE_RESULT = '500201'
AND D.PROCESS_NO <8
GROUP BY JUDGE_STOVE_NO,LOT_NO
UNION ALL
SELECT REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') JUDGE_STOVE_NO,
T.JUDGE_STOVE_NO AS JUDGE_NO,
S.LOT_NO,
COUNT(1) SCRAPCOUNT FROM MIL_SLAB_SCRAP_SEQ T,MIL_PLAN S
WHERE T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO AND T.PROCESS_NO >=8
AND T.COL_TYPE = '0'
GROUP BY T.JUDGE_STOVE_NO,S.LOT_NO) T,
MIL_PLAN S,
(SELECT OUTWL_ID,OUTWL_DESC, ORDER_NO, ORDER_SEQ
FROM PLN_ORDER_ZG
GROUP BY OUTWL_ID,OUTWL_DESC, ORDER_NO, ORDER_SEQ) T1
WHERE T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO
--REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = REGEXP_REPLACE(S.JUDGE_STOVE_NO, '-.*', '')
AND S.CONTRACT_NO = T1.ORDER_NO || '/' || T1.ORDER_SEQ
#condtions1#
AND S.PLINE_CODE = ?
AND S.JUDGE_STOVE_NO || '&' LIKE '%' || ? || '%'
AND S.LOT_NO || '&' LIKE '%' || ? || '%'
#condtions#
GROUP BY T.JUDGE_STOVE_NO,
T.JUDGE_NO,
S.DB_NUM,
S.SAW_NUM,
T.SCRAPCOUNT,
T.LOT_NO,
T1.OUTWL_ID,
T1.OUTWL_DESC,
T1.ORDER_NO,
T1.ORDER_SEQ
UNION ALL
SELECT REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') JUDGE_STOVE_NO,
T.Judge_No,
T.LOT_NO,
T1.OUTWL_ID,
T1.OUTWL_DESC,
T1.ORDER_NO || '/' || T1.ORDER_SEQ AS ORDER_NO,
0 AS INCOUNT,
0 AS INWEIGHT,
0 AS PENDINGCOUNT,
0 AS PENDINGWEIGHT,
0 AS SCRAPCOUNT,
0 AS SCRAPWEIGHT,
COUNT(1) AS OUTCOUNT,
S.DB_NUM / S.SAW_NUM * T.OUTCOUNT AS OUTWEIGHT,
0 AS SOUTCOUNT,
0 AS SOUTWEIGHT
FROM (SELECT REGEXP_REPLACE(JUDGE_STOVE_NO, '-.*', '') JUDGE_STOVE_NO,
JUDGE_STOVE_NO AS JUDGE_NO,
LOT_NO,
COUNT(1) OUTCOUNT
FROM MIL_SURFACE_RESULT D
GROUP BY JUDGE_STOVE_NO, LOT_NO) T,
MIL_PLAN S,
(SELECT OUTWL_ID,OUTWL_DESC, ORDER_NO, ORDER_SEQ
FROM PLN_ORDER_ZG
GROUP BY OUTWL_ID,OUTWL_DESC, ORDER_NO, ORDER_SEQ) T1
WHERE T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO
AND S.CONTRACT_NO = T1.ORDER_NO || '/' || T1.ORDER_SEQ
AND T.LOT_NO = S.LOT_NO
#condtions1#
AND S.PLINE_CODE = ?
AND S.JUDGE_STOVE_NO || '&' LIKE '%' || ? || '%'
AND S.LOT_NO || '&' LIKE '%' || ? || '%'
#condtions#
GROUP BY T.JUDGE_STOVE_NO,
T.JUDGE_NO,
S.DB_NUM,
S.SAW_NUM,
T.OUTCOUNT,
T.LOT_NO,
T1.OUTWL_ID,
T1.OUTWL_DESC,
T1.ORDER_NO,
T1.ORDER_SEQ
UNION ALL
SELECT
REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') JUDGE_STOVE_NO,
T.JUDGE_STOVE_NO AS JUDGE_NO,
T.LOT_NO,
T1.OUTWL_ID,
T1.OUTWL_DESC,
T1.ORDER_NO || '/' || T1.ORDER_SEQ AS ORDER_NO,
0 AS INCOUNT,
0 AS INWEIGHT,
0 AS PENDINGCOUNT,
0 AS PENDINGWEIGHT,
0 AS SCRAPCOUNT,
0 AS SCRAPWEIGHT,
0 AS OUTCOUNT,
0 AS OUTWEIGHT,
T.QUALIFIED_BRANCH AS SOUTCOUNT,
T.QUALIFIED_TONS AS SOUTWEIGHT
FROM MIL_SURFACE_RESULT T,MIL_PLAN S,
(SELECT OUTWL_ID,OUTWL_DESC, ORDER_NO, ORDER_SEQ
FROM PLN_ORDER_ZG
GROUP BY OUTWL_ID,OUTWL_DESC, ORDER_NO, ORDER_SEQ) T1
WHERE T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO
AND S.CONTRACT_NO = T1.ORDER_NO || '/' || T1.ORDER_SEQ
AND T.LOT_NO = S.LOT_NO
#condtions1#
AND S.PLINE_CODE = ?
AND S.JUDGE_STOVE_NO || '&' LIKE '%' || ? || '%'
AND S.LOT_NO || '&' LIKE '%' || ? || '%'
#condtions#
)
GROUP BY JUDGE_STOVE_NO,
JUDGE_NO,
LOT_NO,
OUTWL_ID,
OUTWL_DESC,
ORDER_NO
]]>
'2'
AND T.PLINE_CODE = '#PLINE_CODE#' #condtions1# #condtions#
UNION ALL
SELECT REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') JUDGE_STOVE_NO,
T.JUDGE_STOVE_NO AS JUDGE_NO,
T.CONTRACT_NO AS ORDER_NO,
T.LOT_NO,
T.TARGET_LIABRARY,
--T1.OUTWL_ID,
--REGEXP_SUBSTR(GET_WL_CODE(SUBSTR(T.Ord_Ln_Dly_Pk,0,LENGTH(T.Ord_Ln_Dly_Pk)-3)),'[^#]+',1,1)OUTWL_ID,
--T.VARIETIES||','||T.STEELNAME||','||T.PIPE_SIZE||','||T.BUCKLE_TYPE OUTWL_DESC,
--REGEXP_SUBSTR(GET_WL_CODE(SUBSTR(T.Ord_Ln_Dly_Pk,0,LENGTH(T.Ord_Ln_Dly_Pk)-3)),'[^#]+',1,2) OUTWL_DESC,
CASE SUBSTR(T.JUDGE_STOVE_NO, -1)
WHEN '1' THEN
REGEXP_SUBSTR(GET_WL_CODE(SUBSTR(T.Ord_Ln_Dly_Pk,
0,
LENGTH(T.Ord_Ln_Dly_Pk) - 3)),
'[^#]+',
1,
1)
ELSE
REGEXP_SUBSTR(GET_WL_CODE2(T.CONTRACT_NO), '[^#]+', 1, 1)
END OUTWL_ID,
CASE SUBSTR(T.JUDGE_STOVE_NO, -1)
WHEN '1' THEN
REGEXP_SUBSTR(GET_WL_CODE(SUBSTR(T.Ord_Ln_Dly_Pk,
0,
LENGTH(T.Ord_Ln_Dly_Pk) - 3)),
'[^#]+',
1,
2)
ELSE
REGEXP_SUBSTR(GET_WL_CODE2(T.CONTRACT_NO), '[^#]+', 1, 2)
END OUTWL_DESC,
0 AS INCOUNT,
0 AS INWEIGHT,
--(NVL(t2.ACT_COUNT,0) + NVL(t4.offline_num,0)) AS PENDINGCOUNT,
NVL(t2.ACT_COUNT, 0) AS PENDINGCOUNT,
0 AS PENDINGWEIGHT,
0 AS SCRAPCOUNT,
0 AS SCRAPWEIGHT,
0 AS SOUTCOUNT,
0 AS SOUTWEIGHT
FROM MIL_PLAN T
LEFT JOIN (SELECT T3.JUDGE_STOVE_NO,
T3.PLAN_ID,
T3.STATUS,
NVL(SUM(T3.ACT_COUNT), 0) ACT_COUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT T3
WHERE T3.STATUS IN ('1', '3')
GROUP BY T3.JUDGE_STOVE_NO, T3.PLAN_ID, T3.STATUS) T2
ON T.ID = T2.PLAN_ID
AND T.JUDGE_STOVE_NO = T2.JUDGE_STOVE_NO
LEFT JOIN MIL_INSTORE_RESULT T4
ON T.ID = T4.RESULT_NO
AND T.JUDGE_STOVE_NO = T4.JUDGE_STOVE_NO
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.LOT_NO = '#LOT_NO#'
AND T.BACK_SLAB_FLAG <> '2'
AND T.PLINE_CODE = '#PLINE_CODE#' #condtions1# #condtions#
union all
SELECT REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') JUDGE_STOVE_NO,
T.JUDGE_STOVE_NO AS JUDGE_NO,
T.CONTRACT_NO AS ORDER_NO,
T.LOT_NO,
T.TARGET_LIABRARY,
--T1.OUTWL_ID,
--REGEXP_SUBSTR(GET_WL_CODE(SUBSTR(T.Ord_Ln_Dly_Pk,0,LENGTH(T.Ord_Ln_Dly_Pk)-3)),'[^#]+',1,1)OUTWL_ID,
--T.VARIETIES||','||T.STEELNAME||','||T.PIPE_SIZE||','||T.BUCKLE_TYPE OUTWL_DESC,
--REGEXP_SUBSTR(GET_WL_CODE(SUBSTR(T.Ord_Ln_Dly_Pk,0,LENGTH(T.Ord_Ln_Dly_Pk)-3)),'[^#]+',1,2) OUTWL_DESC,
CASE SUBSTR(T.JUDGE_STOVE_NO, -1)
WHEN '1' THEN
REGEXP_SUBSTR(GET_WL_CODE(SUBSTR(T.Ord_Ln_Dly_Pk,
0,
LENGTH(T.Ord_Ln_Dly_Pk) - 3)),
'[^#]+',
1,
1)
ELSE
REGEXP_SUBSTR(GET_WL_CODE2(T.CONTRACT_NO), '[^#]+', 1, 1)
END OUTWL_ID,
CASE SUBSTR(T.JUDGE_STOVE_NO, -1)
WHEN '1' THEN
REGEXP_SUBSTR(GET_WL_CODE(SUBSTR(T.Ord_Ln_Dly_Pk,
0,
LENGTH(T.Ord_Ln_Dly_Pk) - 3)),
'[^#]+',
1,
2)
ELSE
REGEXP_SUBSTR(GET_WL_CODE2(T.CONTRACT_NO), '[^#]+', 1, 2)
END OUTWL_DESC,
0 AS INCOUNT,
0 AS INWEIGHT,
0 AS PENDINGCOUNT,
0 AS PENDINGWEIGHT,
t2.ACT_COUNT AS SCRAPCOUNT,
0 AS SCRAPWEIGHT,
0 AS SOUTCOUNT,
0 AS SOUTWEIGHT
FROM MIL_PLAN T
LEFT JOIN (SELECT T3.JUDGE_STOVE_NO,
T3.PLAN_ID,
T3.STATUS,
SUM(T3.ACT_COUNT) ACT_COUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT T3
WHERE T3.STATUS IN ('2', '5', '6')
GROUP BY T3.JUDGE_STOVE_NO, T3.PLAN_ID, T3.STATUS) T2
ON T.ID = T2.PLAN_ID
AND T.JUDGE_STOVE_NO = T2.JUDGE_STOVE_NO
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.LOT_NO = '#LOT_NO#'
AND T.BACK_SLAB_FLAG <> '2'
AND T.PLINE_CODE = '#PLINE_CODE#' #condtions1# #condtions#
UNION ALL
SELECT REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') JUDGE_STOVE_NO,
T.JUDGE_STOVE_NO AS JUDGE_NO,
T.CONTRACT_NO AS ORDER_NO,
T.LOT_NO,
T.TARGET_LIABRARY,
--T1.OUTWL_ID,
--REGEXP_SUBSTR(GET_WL_CODE(SUBSTR(T.Ord_Ln_Dly_Pk,0,LENGTH(T.Ord_Ln_Dly_Pk)-3)),'[^#]+',1,1)OUTWL_ID,
--T.VARIETIES||','||T.STEELNAME||','||T.PIPE_SIZE||','||T.BUCKLE_TYPE OUTWL_DESC,
--REGEXP_SUBSTR(GET_WL_CODE(SUBSTR(T.Ord_Ln_Dly_Pk,0,LENGTH(T.Ord_Ln_Dly_Pk)-3)),'[^#]+',1,2) OUTWL_DESC,
CASE SUBSTR(T.JUDGE_STOVE_NO, -1)
WHEN '1' THEN
REGEXP_SUBSTR(GET_WL_CODE(SUBSTR(T.Ord_Ln_Dly_Pk,
0,
LENGTH(T.Ord_Ln_Dly_Pk) - 3)),
'[^#]+',
1,
1)
ELSE
REGEXP_SUBSTR(GET_WL_CODE2(T.CONTRACT_NO), '[^#]+', 1, 1)
END OUTWL_ID,
CASE SUBSTR(T.JUDGE_STOVE_NO, -1)
WHEN '1' THEN
REGEXP_SUBSTR(GET_WL_CODE(SUBSTR(T.Ord_Ln_Dly_Pk,
0,
LENGTH(T.Ord_Ln_Dly_Pk) - 3)),
'[^#]+',
1,
2)
ELSE
REGEXP_SUBSTR(GET_WL_CODE2(T.CONTRACT_NO), '[^#]+', 1, 2)
END OUTWL_DESC,
0 AS INCOUNT,
0 AS INWEIGHT,
0 AS PENDINGCOUNT,
0 AS PENDINGWEIGHT,
0 AS SCRAPCOUNT,
0 AS SCRAPWEIGHT,
T2.ACT_COUNT AS SOUTCOUNT,
0 AS SOUTWEIGHT
FROM MIL_PLAN T
LEFT JOIN (SELECT T3.JUDGE_STOVE_NO,
T3.PLAN_ID,
T3.STATUS,
SUM(T3.ACT_COUNT) ACT_COUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT T3
WHERE T3.STATUS = '0'
GROUP BY T3.JUDGE_STOVE_NO, T3.PLAN_ID, T3.STATUS) T2
ON T.id = T2.PLAN_ID
AND T.JUDGE_STOVE_NO = T2.JUDGE_STOVE_NO
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.LOT_NO = '#LOT_NO#'
AND T.BACK_SLAB_FLAG <> '2'
AND T.PLINE_CODE = '#PLINE_CODE#' #condtions1# #condtions#)
GROUP BY JUDGE_STOVE_NO, JUDGE_NO, ORDER_NO, OUTWL_DESC, LOT_NO,TARGET_LIABRARY
]]>
SELECT T.JUDGE_STOVE_NO, T.LOT_NO
FROM MIL_SURFACE_RESULT T
WHERE T.JUDGE_STOVE_NO = ?
AND T.PLINE_CODE = ?
GROUP BY T.JUDGE_STOVE_NO, T.LOT_NO
0 THEN
SUBSTR(T.PIPE_SIZE, INSTR(T.PIPE_SIZE, '*', -1, 1) + 1)
ELSE
SUBSTR(T.PIPE_SIZE, INSTR(T.PIPE_SIZE, 'x', -1, 1) + 1)
END HEIGHT,
CASE
WHEN INSTR(T.PIPE_SIZE, '*', -1, 1) > 0 THEN
SUBSTR(T.PIPE_SIZE, 0, INSTR(T.PIPE_SIZE, '*', -1, 1) - 1)
ELSE
SUBSTR(T.PIPE_SIZE, 0, INSTR(T.PIPE_SIZE, 'x', -1, 1) - 1)
END DIMATER,
T.GRADECODE,
T.GRADENAME,
T.ROLL_STANDRAD_CODE,
T.ROLL_STANDRAD,
T.CONTRACT_NO,
T.IMP_PROCESS,
T.PRODUCE_STANDRAD,
T3.PLINE_CODE,
T3.PLINE_NAME,
REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') JUDGE_STOVE_NO,
T.JUDGE_STOVE_NO AS JUDGE_NO,
T.LOT_NO,
SUBSTR(T.LENGTH_RANGE, INSTR(T.LENGTH_RANGE, '-', -1, 1) + 1) LENGTHMAX,
SUBSTR(T.LENGTH_RANGE, 0, INSTR(T.LENGTH_RANGE, '-', -1, 1) - 1) LENGTHMIN,
T.TARGET,
DECODE(T.TARGET, 'A', '成品', 'B', '半成品', 'C', '镦拔扩及热处理') GO_TYPE,
T.PROCESS_STATUS,
'合格' ASTATUS,
T.ID,
(SELECT T.NEXT_GX
FROM PLN_ORDER_ZG T
WHERE T.PRO_ORDER_NO = T3.PRO_ORDER_NO) NEXT_GX,
T.PRO_PLAN_ID,
T.GX_PLAN_NO,
T.ORD_LN_DLY_PK,
T.STOVE_NO
FROM MIL_PLAN T
LEFT JOIN (SELECT T2.PLINE_CODE,
T2.PLINE_NAME,
T2.ORD_LN_DLY_PK,
T2.ORDER_NO || '/' || T2.ORDER_SEQ AS ORDERNO,
T2.PRO_PLAN_ID,
T4.MATERIAL_NO,
T4.MATERIAL_DESC,
T4.PRODUCCODE,
T4.PRODUCNAME,
T4.STD_STYLE,
T4.STD_STYLE_DESC,
T4.STEELCODE,
T4.STEELNAME,
T4.GRADECODE,
T4.GRADENAME,
T4.DIMATER,
T4.HEIGHT,
T4.SPEC_CODE,
T4.SPEC_NAME,
T4.MODEL_CODE,
T4.MODEL_DESC,
T2.PRO_ORDER_NO
FROM PLN_ORDER_ZG_S T2, SLM_BASE_MATERIAL T4
WHERE T2.OUTWL_ID = T4.MATERIAL_NO(+)
GROUP BY T2.PLINE_CODE,
T2.PLINE_NAME,
T2.ORD_LN_DLY_PK,
T2.ORDER_NO || '/' || T2.ORDER_SEQ,
T2.PRO_PLAN_ID,
T2.PRO_ORDER_NO,
T4.MATERIAL_NO,
T4.MATERIAL_DESC,
T4.PRODUCCODE,
T4.PRODUCNAME,
T4.STD_STYLE,
T4.STD_STYLE_DESC,
T4.STEELCODE,
T4.STEELNAME,
T4.GRADECODE,
T4.GRADENAME,
T4.DIMATER,
T4.HEIGHT,
T4.SPEC_CODE,
T4.SPEC_NAME,
T4.MODEL_CODE,
T4.MODEL_DESC) T3
ON T.CONTRACT_NO = T3.ORDERNO
WHERE T.JUDGE_STOVE_NO = ?
--T.JUDGE_STOVE_NO || '&' LIKE '%' || ? || '%'
--AND T.LOT_NO || '&' LIKE '%' || ? || '%'
AND T.LOT_NO = ?
AND T.PLINE_CODE = ?
AND ROWNUM = 1
UNION ALL
SELECT T3.MATERIAL_NO,
T3.MATERIAL_DESC,
T.VARIETIES_CODE PRODUCCODE,
T.VARIETIES PRODUCNAME,
T.STEELCODE STEELCODE,
T.STEELNAME STEELNAME,
T.STD_STYLE STD_STYLE,
T.STD_STYLE_DESC STD_STYLE_DESC,
T.PIPE_SIZE_CODE SPEC_CODE,
T.PIPE_SIZE SPEC_NAME,
T.BUCKLE_TYPE_CODE MODEL_CODE,
T.BUCKLE_TYPE MODEL_DESC,
--SUBSTR(T.PIPE_SIZE, INSTR(T.PIPE_SIZE, '*', -1, 1) + 1) HEIGHT,
--SUBSTR(T.PIPE_SIZE, 0, INSTR(T.PIPE_SIZE, '*', -1, 1) - 1) DIMATER,
CASE
WHEN INSTR(T.PIPE_SIZE, '*', -1, 1) > 0 THEN
SUBSTR(T.PIPE_SIZE, INSTR(T.PIPE_SIZE, '*', -1, 1) + 1)
ELSE
SUBSTR(T.PIPE_SIZE, INSTR(T.PIPE_SIZE, 'x', -1, 1) + 1)
END HEIGHT,
CASE
WHEN INSTR(T.PIPE_SIZE, '*', -1, 1) > 0 THEN
SUBSTR(T.PIPE_SIZE, 0, INSTR(T.PIPE_SIZE, '*', -1, 1) - 1)
ELSE
SUBSTR(T.PIPE_SIZE, 0, INSTR(T.PIPE_SIZE, 'x', -1, 1) - 1)
END DIMATER,
T.GRADECODE,
T.GRADENAME,
T.ROLL_STANDRAD_CODE,
T.ROLL_STANDRAD,
T.CONTRACT_NO,
T.IMP_PROCESS,
T.PRODUCE_STANDRAD,
T3.PLINE_CODE,
T3.PLINE_NAME,
REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') JUDGE_STOVE_NO,
T.JUDGE_STOVE_NO AS JUDGE_NO,
T.LOT_NO,
SUBSTR(T.LENGTH_RANGE, INSTR(T.LENGTH_RANGE, '-', -1, 1) + 1) LENGTHMAX,
SUBSTR(T.LENGTH_RANGE, 0, INSTR(T.LENGTH_RANGE, '-', -1, 1) - 1) LENGTHMIN,
T.TARGET,
DECODE(T.TARGET, 'A', '成品', 'B', '半成品', 'C', '镦拔扩及热处理') GO_TYPE,
T.PROCESS_STATUS,
'判废' ASTATUS,
T.ID,
(SELECT T.NEXT_GX
FROM PLN_ORDER_ZG T
WHERE T.PRO_ORDER_NO = T3.PRO_ORDER_NO) NEXT_GX,
T.PRO_PLAN_ID,
T.GX_PLAN_NO,
T.ORD_LN_DLY_PK,
T.STOVE_NO
FROM MIL_PLAN T
LEFT JOIN (SELECT T2.PLINE_CODE,
T2.PLINE_NAME,
T2.ORD_LN_DLY_PK,
T2.ORDER_NO || '/' || T2.ORDER_SEQ AS ORDERNO,
T2.PRO_PLAN_ID,
T4.MATERIAL_NO,
T4.MATERIAL_DESC,
T4.PRODUCCODE,
T4.PRODUCNAME,
T4.STD_STYLE,
T4.STD_STYLE_DESC,
T4.STEELCODE,
T4.STEELNAME,
T4.GRADECODE,
T4.GRADENAME,
T4.DIMATER,
T4.HEIGHT,
T4.SPEC_CODE,
T4.SPEC_NAME,
T4.MODEL_CODE,
T4.MODEL_DESC,
T2.PRO_ORDER_NO
FROM PLN_ORDER_ZG_S T2, SLM_BASE_MATERIAL T4
WHERE T2.OUTWL_ID = T4.MATERIAL_NO(+)
GROUP BY T2.PLINE_CODE,
T2.PLINE_NAME,
T2.ORD_LN_DLY_PK,
T2.ORDER_NO || '/' || T2.ORDER_SEQ,
T2.PRO_PLAN_ID,
T2.PRO_ORDER_NO,
T4.MATERIAL_NO,
T4.MATERIAL_DESC,
T4.PRODUCCODE,
T4.PRODUCNAME,
T4.STD_STYLE,
T4.STD_STYLE_DESC,
T4.STEELCODE,
T4.STEELNAME,
T4.GRADECODE,
T4.GRADENAME,
T4.DIMATER,
T4.HEIGHT,
T4.SPEC_CODE,
T4.SPEC_NAME,
T4.MODEL_CODE,
T4.MODEL_DESC) T3
ON T.CONTRACT_NO = T3.ORDERNO
WHERE T.JUDGE_STOVE_NO = ?
--T.JUDGE_STOVE_NO || '&' LIKE '%' || ? || '%'
--AND T.LOT_NO || '&' LIKE '%' || ? || '%'
AND T.LOT_NO = ?
AND T.PLINE_CODE = ?
AND ROWNUM = 1
UNION ALL
SELECT T3.MATERIAL_NO,
T3.MATERIAL_DESC,
T.VARIETIES_CODE PRODUCCODE,
T.VARIETIES PRODUCNAME,
T.STEELCODE STEELCODE,
T.STEELNAME STEELNAME,
T.STD_STYLE STD_STYLE,
T.STD_STYLE_DESC STD_STYLE_DESC,
T.PIPE_SIZE_CODE SPEC_CODE,
T.PIPE_SIZE SPEC_NAME,
T.BUCKLE_TYPE_CODE MODEL_CODE,
T.BUCKLE_TYPE MODEL_DESC,
--SUBSTR(T.PIPE_SIZE, INSTR(T.PIPE_SIZE, '*', -1, 1) + 1) HEIGHT,
--SUBSTR(T.PIPE_SIZE, 0, INSTR(T.PIPE_SIZE, '*', -1, 1) - 1) DIMATER,
CASE
WHEN INSTR(T.PIPE_SIZE, '*', -1, 1) > 0 THEN
SUBSTR(T.PIPE_SIZE, INSTR(T.PIPE_SIZE, '*', -1, 1) + 1)
ELSE
SUBSTR(T.PIPE_SIZE, INSTR(T.PIPE_SIZE, 'x', -1, 1) + 1)
END HEIGHT,
CASE
WHEN INSTR(T.PIPE_SIZE, '*', -1, 1) > 0 THEN
SUBSTR(T.PIPE_SIZE, 0, INSTR(T.PIPE_SIZE, '*', -1, 1) - 1)
ELSE
SUBSTR(T.PIPE_SIZE, 0, INSTR(T.PIPE_SIZE, 'x', -1, 1) - 1)
END DIMATER,
T.GRADECODE,
T.GRADENAME,
T.ROLL_STANDRAD_CODE,
T.ROLL_STANDRAD,
T.CONTRACT_NO,
T.IMP_PROCESS,
T.PRODUCE_STANDRAD,
T3.PLINE_CODE,
T3.PLINE_NAME,
REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') JUDGE_STOVE_NO,
T.JUDGE_STOVE_NO AS JUDGE_NO,
T.LOT_NO,
SUBSTR(T.LENGTH_RANGE, INSTR(T.LENGTH_RANGE, '-', -1, 1) + 1) LENGTHMAX,
SUBSTR(T.LENGTH_RANGE, 0, INSTR(T.LENGTH_RANGE, '-', -1, 1) - 1) LENGTHMIN,
T.TARGET,
DECODE(T.TARGET, 'A', '成品', 'B', '半成品', 'C', '镦拔扩及热处理') GO_TYPE,
T.PROCESS_STATUS,
'样管' ASTATUS,
T.ID,
(SELECT T.NEXT_GX
FROM PLN_ORDER_ZG T
WHERE T.PRO_ORDER_NO = T3.PRO_ORDER_NO) NEXT_GX,
T.PRO_PLAN_ID,
T.GX_PLAN_NO,
T.ORD_LN_DLY_PK,
T.STOVE_NO
FROM (SELECT T1.JUDGE_STOVE_NO, T1.LOT_NO, T1.PLINE_CODE, T1.PLAN_ID
FROM PORT_MIL_BATCH_SAMPLE_RESULT T1
WHERE T1.IS_SAMPLE_PIPE = '1'
GROUP BY T1.JUDGE_STOVE_NO, T1.LOT_NO, T1.PLINE_CODE, T1.PLAN_ID) S
LEFT JOIN MIL_PLAN T
ON T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO
AND T.ID = S.PLAN_ID
LEFT JOIN (SELECT T2.PLINE_CODE,
T2.PLINE_NAME,
T2.ORD_LN_DLY_PK,
T2.ORDER_NO || '/' || T2.ORDER_SEQ AS ORDERNO,
T2.PRO_PLAN_ID,
T4.MATERIAL_NO,
T4.MATERIAL_DESC,
T4.PRODUCCODE,
T4.PRODUCNAME,
T4.STD_STYLE,
T4.STD_STYLE_DESC,
T4.STEELCODE,
T4.STEELNAME,
T4.GRADECODE,
T4.GRADENAME,
T4.DIMATER,
T4.HEIGHT,
T4.SPEC_CODE,
T4.SPEC_NAME,
T4.MODEL_CODE,
T4.MODEL_DESC,
T2.PRO_ORDER_NO
FROM PLN_ORDER_ZG_S T2, SLM_BASE_MATERIAL T4
WHERE T2.OUTWL_ID = T4.MATERIAL_NO(+)
GROUP BY T2.PLINE_CODE,
T2.PLINE_NAME,
T2.ORD_LN_DLY_PK,
T2.ORDER_NO || '/' || T2.ORDER_SEQ,
T2.PRO_PLAN_ID,
T2.PRO_ORDER_NO,
T4.MATERIAL_NO,
T4.MATERIAL_DESC,
T4.PRODUCCODE,
T4.PRODUCNAME,
T4.STD_STYLE,
T4.STD_STYLE_DESC,
T4.STEELCODE,
T4.STEELNAME,
T4.GRADECODE,
T4.GRADENAME,
T4.DIMATER,
T4.HEIGHT,
T4.SPEC_CODE,
T4.SPEC_NAME,
T4.MODEL_CODE,
T4.MODEL_DESC) T3
ON T.CONTRACT_NO = T3.ORDERNO
WHERE S.JUDGE_STOVE_NO = ?
--S.JUDGE_STOVE_NO || '&' LIKE '%' || ? || '%'
--AND S.LOT_NO || '&' LIKE '%' || ? || '%'
AND S.LOT_NO = ?
AND S.PLINE_CODE = ?
AND ROWNUM = 1
]]>
0 THEN
SUBSTR(T.PIPE_SIZE, 0, INSTR(T.PIPE_SIZE, '*', -1, 1) - 1)
ELSE
SUBSTR(T.PIPE_SIZE, 0, INSTR(T.PIPE_SIZE, 'x', -1, 1) - 1)
END DIMATER,
CASE
WHEN INSTR(T.PIPE_SIZE, '*', -1, 1) > 0 THEN
SUBSTR(T.PIPE_SIZE, INSTR(T.PIPE_SIZE, '*', -1, 1) + 1)
ELSE
SUBSTR(T.PIPE_SIZE, INSTR(T.PIPE_SIZE, 'x', -1, 1) + 1)
END HEIGHT,
--T2.OUTDIAMETER DIMATER,
--T2.WALLTHICK HEIGHT,
--SUBSTR(T2.OUTWL_ID, 3, INSTR(T2.OUTWL_ID, ',', 1, 1) - 3) SPEC_CODE,
--(SELECT F.SPEC_NAME
-- FROM COM_BASE_SPEC F
-- WHERE F.SPEC_CODE =
-- SUBSTR(T2.OUTWL_ID, 3, INSTR(T2.OUTWL_ID, ',', 1, 1) - 3)) SPEC_NAME,
--SUBSTR(T2.OUTWL_ID, INSTR(T2.OUTWL_ID, ',', 1, 1) + 1) GRADECODE,
--(SELECT F1.GRADENAME
-- FROM COM_BASE_GRADE F1
-- WHERE F1.GRADECODE =
-- SUBSTR(T2.OUTWL_ID, INSTR(T2.OUTWL_ID, ',', 1, 1) + 1)) GRADENAME,
T.TARGET,
DECODE(T.TARGET, 'A', '成品', 'B', '半成品', 'C', '镦拔扩及热处理') GO_TYPE,
T.PROCESS_STATUS,
'合格' ASTATUS,
T.ID,
(SELECT T.NEXT_GX
FROM PLN_ORDER_ZG T
WHERE T.PRO_ORDER_NO = T2.PRO_ORDER_NO) NEXT_GX,
T.PRO_PLAN_ID,
T.GX_PLAN_NO,
T.VARIETIES_CODE,
T.VARIETIES,
T.STD_STYLE,
T.Std_Style_Desc,
T.STEELCODE,
T.STEELNAME,
T.PIPE_SIZE_code,
T.Pipe_Size,
T.BUCKLE_TYPE_CODE,
T.Buckle_Type,
T.Gradecode,
T.Gradename,
T.Roll_Standrad_Code,
T.Roll_Standrad,
T.ORD_LN_DLY_PK,
T.STOVE_NO
FROM MIL_PLAN T
LEFT JOIN (SELECT PLINE_CODE,
PLINE_NAME,
OUTDIAMETER,
WALLTHICK,
OUTWL_ID,
PRO_PLAN_ID,
ORDER_NO,
ORDER_SEQ,
ORD_LN_DLY_PK,
PRO_ORDER_NO
FROM PLN_ORDER_ZG_S
GROUP BY PLINE_CODE,
PLINE_NAME,
OUTDIAMETER,
WALLTHICK,
OUTWL_ID,
PRO_PLAN_ID,
ORDER_NO,
ORDER_SEQ,
ORD_LN_DLY_PK,
PRO_ORDER_NO) T2
ON T.CONTRACT_NO = T2.ORDER_NO || '/' || T2.ORDER_SEQ
WHERE T.JUDGE_STOVE_NO = ?
AND T.LOT_NO = ?
AND T.PLINE_CODE = ?
AND ROWNUM = 1
UNION ALL
SELECT T.CONTRACT_NO,
T.IMP_PROCESS,
T.PRODUCE_STANDRAD,
T.PLINE_CODE,
REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') JUDGE_STOVE_NO,
T.JUDGE_STOVE_NO AS JUDGE_NO,
T.LOT_NO,
SUBSTR(T.LENGTH_RANGE, INSTR(T.LENGTH_RANGE, '-', -1, 1) + 1) LENGTHMAX,
SUBSTR(T.LENGTH_RANGE, 0, INSTR(T.LENGTH_RANGE, '-', -1, 1) - 1) LENGTHMIN,
--SUBSTR(T.PIPE_SIZE, 0, INSTR(T.PIPE_SIZE, '*', -1, 1) - 1) DIMATER,
--SUBSTR(T.PIPE_SIZE, INSTR(T.PIPE_SIZE, '*', -1, 1) + 1) HEIGHT,
CASE
WHEN INSTR(T.PIPE_SIZE, '*', -1, 1) > 0 THEN
SUBSTR(T.PIPE_SIZE, 0, INSTR(T.PIPE_SIZE, '*', -1, 1) - 1)
ELSE
SUBSTR(T.PIPE_SIZE, 0, INSTR(T.PIPE_SIZE, 'x', -1, 1) - 1)
END DIMATER,
CASE
WHEN INSTR(T.PIPE_SIZE, '*', -1, 1) > 0 THEN
SUBSTR(T.PIPE_SIZE, INSTR(T.PIPE_SIZE, '*', -1, 1) + 1)
ELSE
SUBSTR(T.PIPE_SIZE, INSTR(T.PIPE_SIZE, 'x', -1, 1) + 1)
END HEIGHT,
--T2.OUTDIAMETER DIMATER,
--T2.WALLTHICK HEIGHT,
--SUBSTR(T2.OUTWL_ID, 3, INSTR(T2.OUTWL_ID, ',', 1, 1) - 3) SPEC_CODE,
--(SELECT F.SPEC_NAME
-- FROM COM_BASE_SPEC F
-- WHERE F.SPEC_CODE =
-- SUBSTR(T2.OUTWL_ID, 3, INSTR(T2.OUTWL_ID, ',', 1, 1) - 3)) SPEC_NAME,
--SUBSTR(T2.OUTWL_ID, INSTR(T2.OUTWL_ID, ',', 1, 1) + 1) GRADECODE,
--(SELECT F1.GRADENAME
-- FROM COM_BASE_GRADE F1
-- WHERE F1.GRADECODE =
-- SUBSTR(T2.OUTWL_ID, INSTR(T2.OUTWL_ID, ',', 1, 1) + 1)) GRADENAME,
T.TARGET,
DECODE(T.TARGET, 'A', '成品', 'B', '半成品', 'C', '镦拔扩及热处理') GO_TYPE,
T.PROCESS_STATUS,
'判废' ASTATUS,
T.ID,
(SELECT T.NEXT_GX
FROM PLN_ORDER_ZG T
WHERE T.PRO_ORDER_NO = T2.PRO_ORDER_NO) NEXT_GX,
T.PRO_PLAN_ID,
T.GX_PLAN_NO,
T.VARIETIES_CODE,
T.VARIETIES,
T.STD_STYLE,
T.Std_Style_Desc,
T.STEELCODE,
T.STEELNAME,
T.PIPE_SIZE_code,
T.Pipe_Size,
T.BUCKLE_TYPE_CODE,
T.Buckle_Type,
T.Gradecode,
T.Gradename,
T.Roll_Standrad_Code,
T.Roll_Standrad,
T.ORD_LN_DLY_PK,
T.STOVE_NO
FROM MIL_PLAN T
LEFT JOIN (SELECT PLINE_CODE,
PLINE_NAME,
OUTDIAMETER,
WALLTHICK,
OUTWL_ID,
PRO_PLAN_ID,
ORDER_NO,
ORDER_SEQ,
ORD_LN_DLY_PK,
PRO_ORDER_NO
FROM PLN_ORDER_ZG_S
GROUP BY PLINE_CODE,
PLINE_NAME,
OUTDIAMETER,
WALLTHICK,
OUTWL_ID,
PRO_PLAN_ID,
ORDER_NO,
ORDER_SEQ,
ORD_LN_DLY_PK,
PRO_ORDER_NO) T2
ON T.CONTRACT_NO = T2.ORDER_NO || '/' || T2.ORDER_SEQ
WHERE T.JUDGE_STOVE_NO = ?
AND T.LOT_NO = ?
AND T.PLINE_CODE = ?
AND ROWNUM = 1
UNION ALL
SELECT T.CONTRACT_NO,
T.IMP_PROCESS,
T.PRODUCE_STANDRAD,
T.PLINE_CODE,
REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') JUDGE_STOVE_NO,
T.JUDGE_STOVE_NO AS JUDGE_NO,
T.LOT_NO,
SUBSTR(T.LENGTH_RANGE, INSTR(T.LENGTH_RANGE, '-', -1, 1) + 1) LENGTHMAX,
SUBSTR(T.LENGTH_RANGE, 0, INSTR(T.LENGTH_RANGE, '-', -1, 1) - 1) LENGTHMIN,
--SUBSTR(T.PIPE_SIZE, 0, INSTR(T.PIPE_SIZE, '*', -1, 1) - 1) DIMATER,
--SUBSTR(T.PIPE_SIZE, INSTR(T.PIPE_SIZE, '*', -1, 1) + 1) HEIGHT,
CASE
WHEN INSTR(T.PIPE_SIZE, '*', -1, 1) > 0 THEN
SUBSTR(T.PIPE_SIZE, 0, INSTR(T.PIPE_SIZE, '*', -1, 1) - 1)
ELSE
SUBSTR(T.PIPE_SIZE, 0, INSTR(T.PIPE_SIZE, 'x', -1, 1) - 1)
END DIMATER,
CASE
WHEN INSTR(T.PIPE_SIZE, '*', -1, 1) > 0 THEN
SUBSTR(T.PIPE_SIZE, INSTR(T.PIPE_SIZE, '*', -1, 1) + 1)
ELSE
SUBSTR(T.PIPE_SIZE, INSTR(T.PIPE_SIZE, 'x', -1, 1) + 1)
END HEIGHT,
--T2.OUTDIAMETER DIMATER,
--T2.WALLTHICK HEIGHT,
--SUBSTR(T2.OUTWL_ID, 3, INSTR(T2.OUTWL_ID, ',', 1, 1) - 3) SPEC_CODE,
--(SELECT F.SPEC_NAME
-- FROM COM_BASE_SPEC F
-- WHERE F.SPEC_CODE =
-- SUBSTR(T2.OUTWL_ID, 3, INSTR(T2.OUTWL_ID, ',', 1, 1) - 3)) SPEC_NAME,
--SUBSTR(T2.OUTWL_ID, INSTR(T2.OUTWL_ID, ',', 1, 1) + 1) GRADECODE,
--(SELECT F1.GRADENAME
-- FROM COM_BASE_GRADE F1
-- WHERE F1.GRADECODE =
-- SUBSTR(T2.OUTWL_ID, INSTR(T2.OUTWL_ID, ',', 1, 1) + 1)) GRADENAME,
T.TARGET,
DECODE(T.TARGET, 'A', '成品', 'B', '半成品', 'C', '镦拔扩及热处理') GO_TYPE,
T.PROCESS_STATUS,
'样管' ASTATUS,
T.ID,
(SELECT T.NEXT_GX
FROM PLN_ORDER_ZG T
WHERE T.PRO_ORDER_NO = T2.PRO_ORDER_NO) NEXT_GX,
T.PRO_PLAN_ID,
T.GX_PLAN_NO,
T.VARIETIES_CODE,
T.VARIETIES,
T.STD_STYLE,
T.Std_Style_Desc,
T.STEELCODE,
T.STEELNAME,
T.PIPE_SIZE_code,
T.Pipe_Size,
T.BUCKLE_TYPE_CODE,
T.Buckle_Type,
T.Gradecode,
T.Gradename,
T.Roll_Standrad_Code,
T.Roll_Standrad,
T.ORD_LN_DLY_PK,
T.STOVE_NO
FROM (SELECT T1.JUDGE_STOVE_NO, T1.LOT_NO, T1.PLINE_CODE
FROM PORT_MIL_BATCH_SAMPLE_RESULT T1
WHERE T1.IS_SAMPLE_PIPE = '1'
GROUP BY T1.JUDGE_STOVE_NO, T1.LOT_NO, T1.PLINE_CODE) S
LEFT JOIN MIL_PLAN T
ON T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO
AND T.LOT_NO = S.LOT_NO
LEFT JOIN (SELECT PLINE_CODE,
PLINE_NAME,
OUTDIAMETER,
WALLTHICK,
OUTWL_ID,
PRO_PLAN_ID,
ORDER_NO,
ORDER_SEQ,
ORD_LN_DLY_PK,
PRO_ORDER_NO
FROM PLN_ORDER_ZG_S
GROUP BY PLINE_CODE,
PLINE_NAME,
OUTDIAMETER,
WALLTHICK,
OUTWL_ID,
PRO_PLAN_ID,
ORDER_NO,
ORDER_SEQ,
ORD_LN_DLY_PK,
PRO_ORDER_NO) T2
ON T.CONTRACT_NO = T2.ORDER_NO || '/' || T2.ORDER_SEQ
WHERE S.JUDGE_STOVE_NO = ?
AND S.LOT_NO = ?
AND S.PLINE_CODE = ?
AND ROWNUM = 1
]]>
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,
PLINE_CODE)
VALUES
(?,
?,
?,
?,
?,
?,
?,
?,
?,
TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'),
?,
?,
?,
?,
?)
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
(?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
round(?, 3),
round(?, 3),
?,
?,
?,
?,
?,
?,
TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'),
?,
?,
?,
?,
?,
?,
?,
?,
TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'),
'',
?,
?,
?,
?,
?,
?,
?,
?,
?,
TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'),
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?)
INSERT INTO YDM_BC_INLIST_B
(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)
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'),
?,
?,
?,
?,
?,
?,
?,
?,
?)
INSERT INTO MAT_BC_M
(JUDGE_STOVE_NO,
BATCH_NO,
BATCH_GROUD_NO,
PRODUCCODE,
PRODUCNAME,
STEELCODE,
STEELNAME,
SPEC_CODE,
SPEC_NAME,
MODEL_CODE,
MODEL_DESC,
STD_CODE,
STD_NAME,
BELONG_CODE,
BELONG_NAME,
STD_STYLE,
STD_STYLE_DESC,
ORDER_NO,
ORDER_SEQ,
ORDER_SEQ_NO,
ORD_PK,
ORD_LN_PK,
ORD_LN_DLY_PK,
ACT_DIMATER,
ACT_HEIGHT,
/* LEN_NO,
LEN_DESC,
LEN_UNIT,*/
ACT_LEN_MIN,
ACT_LEN_MAX,
CREATE_NAME,
ACT_COUNT,
ACT_WEIGHT,
CREATE_TIME,
INSTOCK_TIME,
MAT_NO,
JUGDE_APPLY_FLAG,
INSTOCK_FLAG,
PRODUCT_FLAG,
MAT_STATUS,
ACT_LEN,
JUDGE_STD_NAME,
BAL_YEAR_MONTH,
PLINE_CODE,
PLINE_NAME,
GRADECODE,
GRADENAME,
PIPMEMO,
-- OLD_ORDER_NO,
JUDGE_RESULT_TIME,
MAT_ORIGIN_CODE,
MAT_ORIGIN_NAME,
SOURE_CODE,
SOURE_NAME,
MATERIAL_NO,
MATERIAL_NAME,
/*PLN_GRADECODE,
PLN_GRADENAME,
PLN_STEELCODE,
PLN_STEELNAME,*/
PRO_ORDER_NO,
DETECT_RESULT_CODE,
FACE_RESULT_CODE,
QCM_STAUS,
SAMPLE_FLAG,
HEAT_PLAN_NO,
ZG_STOVE_SQE,
PRO_ORDER_ID,
ZG_MAT_NO,
MAT_GOWHERE_CODE,
MAT_GOWHERE_NAME,
TARGET,
PROCESS_STATUS,
PROCESS_CDOE,
PROCESS_DESC,
LOT_NO,
FIXTYPE_CODE,
FLAG_STOVE_NO_ZG,
CRAF_NO,
PACK_FLAG,
MAT_RETURN_FLAG,
CHEM_RESULT_CODE,
PHY_RESULT_CODE,
TESTING_TYPE1,
TESTING_GRADE1,
--ZG_PLINE_CODE,
--ZG_PLINE_NAME,
GX_PLAN_NO,
STOVE_NO,
--NEXT_PROCESS_CDOE,
--NEXT_PROCESS_DESC,
--PRO_PLAN_ID_NEXT,
--GX_PLAN_NO_NEXT,
JUDGE_STD_DES,
CUT_NUM,
ACT_THEORY_WEIGHT,
INPUT_MATERIAL_NO,
INPUT_MATERIAL_NAME,
CRAFT_SEQ,
CIC,
HEAT_PLAN_NO_OLD,
IS_DEALER,
PONDER_GROSS_WT,
MEMO)
VALUES
(?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
round(?, 3),
TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'),
TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'),
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
'D',
'轧制',
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
--?,
--?,
--?,
--?,
?,
?,
?,
?,
?,
?,
?,
?,
round(?, 3),
?)
DECLARE
V_GROUP_NO PORT_MIL_BATCH_SAMPLE_RESULT.GROUP_NO%type := ?;
V_MAT_NO PORT_MIL_BATCH_SAMPLE_RESULT.MAT_NO%type := ?;
V_JUDGE_STOVE_NO PORT_MIL_BATCH_SAMPLE_RESULT.JUDGE_STOVE_NO%type := ?;
BEGIN
FOR MYROW IN (SELECT *
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE T.MAT_NO = V_MAT_NO
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO) LOOP
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T
SET /*T.INSTORE_FLAG = '1',*/ T.GROUP_NO = V_GROUP_NO
WHERE T.MAT_NO = V_MAT_NO
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO;
UPDATE MAT_BC_M T1
SET T1.ZG_MAT_NO = V_MAT_NO
WHERE T1.ZG_STOVE_SQE = V_JUDGE_STOVE_NO
AND T1.ZG_MAT_NO IS NULL
AND T1.QCM_STAUS = '00'
AND T1.PROCESS_CDOE = 'D'
AND ROWNUM = 1;
END LOOP;
END;
UPDATE MIL_PLAN T SET T.STATUS = '99' WHERE T.ID = ?
DECLARE
V_INSTOCK_DOC YDM_BC_INLIST.INSTOCK_DOC%TYPE := NULL; --入库单号
V_INSTOCK_SQE YDM_BC_INLIST.INSTOCK_SQE%TYPE := NULL; --入库流水
V_IMEMO COM_BASE_INFO.MEMO%TYPE := NULL;
V_BASENAME COM_BASE_INFO.BASENAME%TYPE := NULL;
V_ICOUNT NUMBER := 1;
V_TIME YDM_BC_INLIST.CREATE_TIME%TYPE := SYSDATE;
V_BATHYEAR YDM_BC_INLIST.BAL_YEAR_MONTH%TYPE := TO_CHAR(SYSDATE,
'YYYYMM');
V_BATCH_GROUD_NO MAT_BC_M.BATCH_GROUD_NO%TYPE := NULL;
BEGIN
--生成入库单号
SELECT LPAD(NVL(MAX(SUBSTR(T.BATCH_GROUD_NO, 3)), 0) + 1, 3, 0)
INTO V_BATCH_GROUD_NO
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = ?
AND T.BATCH_NO = ?;
SELECT MEMO, BASENAME
INTO V_IMEMO, V_BASENAME
FROM COM_BASE_INFO
WHERE BASECODE = ?;
SELECT 'ZG' || ? || V_IMEMO || TO_CHAR(SYSDATE, 'YYMMDD') ||
LPAD(NVL(MAX(SUBSTR(T.INSTOCK_DOC, 15)), 0) + 1, 5, 0) INSTOCK_DOC
INTO V_INSTOCK_DOC
FROM YDM_BC_INLIST T
WHERE T.INSTOCK_TYPE_CODE = ?
AND T.PLINE_CODE = ?
AND TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD') =
TO_CHAR(SYSDATE, 'YYYY-MM-DD');
FOR MYROW IN (SELECT SUBSTR(T2.OUTWL_ID,
3,
INSTR(T2.OUTWL_ID, ',', 1, 1) - 3) SPEC_CODE,
(SELECT F.SPEC_NAME
FROM COM_BASE_SPEC F
WHERE F.SPEC_CODE =
SUBSTR(T2.OUTWL_ID,
3,
INSTR(T2.OUTWL_ID, ',', 1, 1) - 3)) SPEC_NAME,
SUBSTR(T2.OUTWL_ID, INSTR(T2.OUTWL_ID, ',', 1, 1) + 1) GRADECODE,
(SELECT F1.GRADENAME
FROM COM_BASE_GRADE F1
WHERE F1.GRADECODE =
SUBSTR(T2.OUTWL_ID,
INSTR(T2.OUTWL_ID, ',', 1, 1) + 1)) GRADENAME,
T2.LENGTHMIN,
T2.LENGTHMAX,
T2.PLINE_CODE,
T2.PLINE_NAME,
T1.ROLL_STANDRAD,
T2.OUTDIAMETER DIMATER,
T2.WALLTHICK HEIGHT,
T1.CONTRACT_NO,
T2.OUTWL_ID MATERIAL_NO,
T2.OUT_MATERIAL_DESC MATERIAL_DESC,
T1.MAT_NO,
TO_CHAR(0.02466 * T2.WALLTHICK *
(T2.OUTDIAMETER - T2.WALLTHICK) *
S.PIPE_LENGTH,
'FM999990.000') ZP_HEIGHT
FROM (SELECT T.CONTRACT_NO,
T.JUDGE_STOVE_NO,
T.LOT_NO,
T.ROLL_STANDRAD,
S.PIPE_LENGTH,
S.MAT_NO
FROM MIL_PLAN T, MIL_QA_RACK S
WHERE T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO
AND T.LOT_NO = S.LOT_NO
AND T.JUDGE_STOVE_NO = ?
AND T.LOT_NO = ?
AND T.PLINE_CODE = ?) T1,
(SELECT T3.*, T4.OUT_MATERIAL_DESC
FROM PLN_ORDER_ZG T3, SLM_ORD_DESIGN_BOM_D T4
WHERE T3.BOM = T4.BOM
AND T3.OUTWL_ID = T4.OUT_MATERIAL_NO
AND T3.INWL_GP = T4.IN_MATERIAL_NO
AND T3.ORDER_NO||'/'||T3.ORDER_SEQ = ?) T2
WHERE T1.CONTRACT_NO = T2.ORDER_NO || '/' || T2.ORDER_SEQ) LOOP
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
(MYROW.JUDGE_STOVE_NO,
MYROW.LOT_NO,
V_BATCH_GROUD_NO,
?,
?,
?,
?,
?,
MYROW.MAT_NO,
V_TIME,
?,
?,
?,
?);
V_INSTOCK_SQE := V_INSTOCK_DOC || LPAD(V_ICOUNT, 4, 0);
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)
VALUES
(?,
?,
V_INSTOCK_SQE,
V_INSTOCK_DOC,
?,
?,
MYROW.MAT_NO,
MYROW.LOT_NO,
'',
MYROW.JUDGE_STOVE_NO,
MYROW.LOT_NO,
V_BATCH_GROUD_NO,
'',
'',
'',
'',
'',
'',
'',
'',
MYROW.SPEC_CODE,
MYROW.SPEC_NAME,
'',
'',
MYROW.DIMATER,
MYROW.HEIGHT,
MYROW.LENGTHMIN,
MYROW.LENGTHMAX,
'1',
MYROW.ZP_HEIGHT,
'',
?,
?,
?,
'',
'1',
?,
V_TIME,
'',
'',
'',
'',
'',
'',
?,
?,
V_TIME,
'',
'',
?,
?,
?,
MYROW.PLINE_CODE,
MYROW.PLINE_NAME,
MYROW.GRADECODE,
MYROW.GRADENAME,
V_BATHYEAR,
V_TIME,
'',
'801302',
'机组',
MYROW.PLINE_CODE,
MYROW.PLINE_NAME,
MYROW.MATERIAL_NO,
MYROW.MATERIAL_DESC,
MYROW.CONTRACT_NO);
INSERT INTO MAT_BC_M
(JUDGE_STOVE_NO,
BATCH_NO,
BATCH_GROUD_NO,
PRODUCCODE,
PRODUCNAME,
STEELCODE,
STEELNAME,
SPEC_CODE,
SPEC_NAME,
MODEL_CODE,
MODEL_DESC,
STD_CODE,
STD_NAME,
BELONG_CODE,
BELONG_NAME,
STD_STYLE,
STD_STYLE_DESC,
ORDER_NO,
ORDER_SEQ,
ORDER_SEQ_NO,
ORD_PK,
ORD_LN_PK,
ORD_LN_DLY_PK,
ACT_DIMATER,
ACT_HEIGHT,
LEN_NO,
LEN_DESC,
LEN_UNIT,
ACT_LEN_MIN,
ACT_LEN_MAX,
CREATE_NAME,
ACT_COUNT,
ACT_WEIGHT,
CREATE_TIME,
INSTOCK_TIME,
MAT_NO,
MEMO,
JUGDE_APPLY_FLAG,
INSTOCK_FLAG,
PRODUCT_FLAG,
MAT_STATUS,
ACT_LEN,
JUDGE_STD_NAME,
BAL_YEAR_MONTH,
PLINE_CODE,
PLINE_NAME,
GRADECODE,
GRADENAME,
PIPMEMO,
OLD_ORDER_NO,
JUDGE_RESULT_TIME,
MAT_ORIGIN_CODE,
MAT_ORIGIN_NAME,
SOURE_CODE,
SOURE_NAME,
MATERIAL_NO,
MATERIAL_NAME,
PLN_GRADECODE,
PLN_GRADENAME,
PLN_STEELCODE,
PLN_STEELNAME,
PRO_ORDER_NO)
VALUES
(MYROW.JUDGE_STOVE_NO,
MYROW.LOT_NO,
V_BATCH_GROUD_NO,
'',
'',
'',
'',
MYROW.SPEC_CODE,
MYROW.SPEC_NAME,
'',
'',
'',
'',
?,
?,
'',
'',
'',
'',
'',
'',
'',
'',
MYROW.DIMATER,
MYROW.HEIGHT,
'',
'',
'',
MYROW.LENGTHMIN,
MYROW.LENGTHMAX,
?,
'1',
MYROW.ZP_HEIGHT,
V_TIME,
V_TIME,
MYROW.MAT_NO,
'',
'1',
'1',
?,
?,
'',
?,
V_BATHYEAR,
MYROW.PLINE_CODE,
MYROW.PLINE_NAME,
MYROW.GRADECODE,
MYROW.GRADENAME,
'',
'',
'',
'801302',
'机组',
MYROW.PLINE_CODE,
MYROW.PLINE_NAME,
MYROW.MATERIAL_NO,
MYROW.MATERIAL_DESC,
MYROW.GRADECODE,
MYROW.GRADENAME,
'',
'',
MYROW.CONTRACT_NO);
V_ICOUNT := V_ICOUNT + 1;
END LOOP;
END;
DECLARE
V_INSTOCK_DOC YDM_BC_INLIST.INSTOCK_DOC%TYPE := NULL; --入库单号
V_INSTOCK_SQE YDM_BC_INLIST.INSTOCK_SQE%TYPE := NULL; --入库流水
V_IMEMO COM_BASE_INFO.MEMO%TYPE := NULL;
V_BASENAME COM_BASE_INFO.BASENAME%TYPE := NULL;
V_ICOUNT NUMBER := 1;
V_TIME YDM_BC_INLIST.CREATE_TIME%TYPE := SYSDATE;
V_BATHYEAR YDM_BC_INLIST.BAL_YEAR_MONTH%TYPE := TO_CHAR(SYSDATE,
'YYYYMM');
V_BATCH_GROUD_NO MAT_BC_M.BATCH_GROUD_NO%TYPE := NULL;
BEGIN
--生成入库单号
SELECT LPAD(NVL(MAX(SUBSTR(T.BATCH_GROUD_NO, 3)), 0) + 1, 3, 0)
INTO V_BATCH_GROUD_NO
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = ?
AND T.BATCH_NO = ?;
SELECT MEMO, BASENAME
INTO V_IMEMO, V_BASENAME
FROM COM_BASE_INFO
WHERE BASECODE = ?;
SELECT 'ZG' || ? || V_IMEMO || TO_CHAR(SYSDATE, 'YYMMDD') ||
LPAD(NVL(MAX(SUBSTR(T.INSTOCK_DOC, 15)), 0) + 1, 5, 0) INSTOCK_DOC
INTO V_INSTOCK_DOC
FROM YDM_BC_INLIST T
WHERE T.INSTOCK_TYPE_CODE = ?
AND T.PLINE_CODE = ?
AND TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD') =
TO_CHAR(SYSDATE, 'YYYY-MM-DD');
FOR MYROW IN (SELECT SUBSTR(T2.OUTWL_ID,
3,
INSTR(T2.OUTWL_ID, ',', 1, 1) - 3) SPEC_CODE,
(SELECT F.SPEC_NAME
FROM COM_BASE_SPEC F
WHERE F.SPEC_CODE =
SUBSTR(T2.OUTWL_ID,
3,
INSTR(T2.OUTWL_ID, ',', 1, 1) - 3)) SPEC_NAME,
SUBSTR(T2.OUTWL_ID, INSTR(T2.OUTWL_ID, ',', 1, 1) + 1) GRADECODE,
(SELECT F1.GRADENAME
FROM COM_BASE_GRADE F1
WHERE F1.GRADECODE =
SUBSTR(T2.OUTWL_ID,
INSTR(T2.OUTWL_ID, ',', 1, 1) + 1)) GRADENAME,
T2.LENGTHMIN,
T2.LENGTHMAX,
T2.PLINE_CODE,
T2.PLINE_NAME,
T1.ROLL_STANDRAD,
T2.OUTDIAMETER DIMATER,
T2.WALLTHICK HEIGHT,
T1.CONTRACT_NO,
T2.OUTWL_ID MATERIAL_NO,
T2.OUT_MATERIAL_DESC MATERIAL_DESC,
T1.MAT_NO,
TO_CHAR(0.02466 * T2.WALLTHICK *
(T2.OUTDIAMETER - T2.WALLTHICK) *
S.PIPE_LENGTH,
'FM999990.000') ZP_HEIGHT
FROM (SELECT T.CONTRACT_NO,
T.JUDGE_STOVE_NO,
T.LOT_NO,
T.ROLL_STANDRAD,
S.PIPE_LENGTH,
S.MAT_NO
FROM MIL_PLAN T, MIL_SLAB_SCRAP S
WHERE T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO
AND T.LOT_NO = S.LOT_NO
AND S.FLAG = '1'
AND S.HANDLE_RESULT = '500201'
AND T.JUDGE_STOVE_NO = ?
AND T.LOT_NO = ?
AND T.PLINE_CODE = ?) T1,
(SELECT T3.*, T4.OUT_MATERIAL_DESC
FROM PLN_ORDER_ZG T3, SLM_ORD_DESIGN_BOM_D T4
WHERE T3.BOM = T4.BOM
AND T3.OUTWL_ID = T4.OUT_MATERIAL_NO
AND T3.INWL_GP = T4.IN_MATERIAL_NO
AND T3.ORDER_NO||'/'||T3.ORDER_SEQ = ?) T2
WHERE T1.CONTRACT_NO = T2.ORDER_NO || '/' || T2.ORDER_SEQ) LOOP
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
(MYROW.JUDGE_STOVE_NO,
MYROW.LOT_NO,
V_BATCH_GROUD_NO,
?,
?,
?,
?,
?,
MYROW.MAT_NO,
V_TIME,
?,
?,
?,
?);
V_INSTOCK_SQE := V_INSTOCK_DOC || LPAD(V_ICOUNT, 4, 0);
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)
VALUES
(?,
?,
V_INSTOCK_SQE,
V_INSTOCK_DOC,
?,
?,
MYROW.MAT_NO,
MYROW.LOT_NO,
'',
MYROW.JUDGE_STOVE_NO,
MYROW.LOT_NO,
V_BATCH_GROUD_NO,
'',
'',
'',
'',
'',
'',
'',
'',
MYROW.SPEC_CODE,
MYROW.SPEC_NAME,
'',
'',
MYROW.DIMATER,
MYROW.HEIGHT,
MYROW.LENGTHMIN,
MYROW.LENGTHMAX,
'1',
MYROW.ZP_HEIGHT,
'',
?,
?,
?,
'',
'1',
?,
V_TIME,
'',
'',
'',
'',
'',
'',
?,
?,
V_TIME,
'',
'',
?,
?,
?,
MYROW.PLINE_CODE,
MYROW.PLINE_NAME,
MYROW.GRADECODE,
MYROW.GRADENAME,
V_BATHYEAR,
V_TIME,
'',
'801302',
'机组',
MYROW.PLINE_CODE,
MYROW.PLINE_NAME,
MYROW.MATERIAL_NO,
MYROW.MATERIAL_DESC,
MYROW.CONTRACT_NO);
INSERT INTO MAT_BC_M
(JUDGE_STOVE_NO,
BATCH_NO,
BATCH_GROUD_NO,
PRODUCCODE,
PRODUCNAME,
STEELCODE,
STEELNAME,
SPEC_CODE,
SPEC_NAME,
MODEL_CODE,
MODEL_DESC,
STD_CODE,
STD_NAME,
BELONG_CODE,
BELONG_NAME,
STD_STYLE,
STD_STYLE_DESC,
ORDER_NO,
ORDER_SEQ,
ORDER_SEQ_NO,
ORD_PK,
ORD_LN_PK,
ORD_LN_DLY_PK,
ACT_DIMATER,
ACT_HEIGHT,
LEN_NO,
LEN_DESC,
LEN_UNIT,
ACT_LEN_MIN,
ACT_LEN_MAX,
CREATE_NAME,
ACT_COUNT,
ACT_WEIGHT,
CREATE_TIME,
INSTOCK_TIME,
MAT_NO,
MEMO,
JUGDE_APPLY_FLAG,
INSTOCK_FLAG,
PRODUCT_FLAG,
MAT_STATUS,
ACT_LEN,
JUDGE_STD_NAME,
BAL_YEAR_MONTH,
PLINE_CODE,
PLINE_NAME,
GRADECODE,
GRADENAME,
PIPMEMO,
OLD_ORDER_NO,
JUDGE_RESULT_TIME,
MAT_ORIGIN_CODE,
MAT_ORIGIN_NAME,
SOURE_CODE,
SOURE_NAME,
MATERIAL_NO,
MATERIAL_NAME,
PLN_GRADECODE,
PLN_GRADENAME,
PLN_STEELCODE,
PLN_STEELNAME,
PRO_ORDER_NO)
VALUES
(MYROW.JUDGE_STOVE_NO,
MYROW.LOT_NO,
V_BATCH_GROUD_NO,
'',
'',
'',
'',
MYROW.SPEC_CODE,
MYROW.SPEC_NAME,
'',
'',
'',
'',
?,
?,
'',
'',
'',
'',
'',
'',
'',
'',
MYROW.DIMATER,
MYROW.HEIGHT,
'',
'',
'',
MYROW.LENGTHMIN,
MYROW.LENGTHMAX,
?,
'1',
MYROW.ZP_HEIGHT,
V_TIME,
V_TIME,
MYROW.MAT_NO,
'',
'1',
'1',
?,
?,
'',
?,
V_BATHYEAR,
MYROW.PLINE_CODE,
MYROW.PLINE_NAME,
MYROW.GRADECODE,
MYROW.GRADENAME,
'',
'',
'',
'801302',
'机组',
MYROW.PLINE_CODE,
MYROW.PLINE_NAME,
MYROW.MATERIAL_NO,
MYROW.MATERIAL_DESC,
MYROW.GRADECODE,
MYROW.GRADENAME,
'',
'',
MYROW.CONTRACT_NO);
V_ICOUNT := V_ICOUNT + 1;
END LOOP;
END;
1) YJZ,
(SELECT SUM(M.ACT_COUNT)
FROM MIL_INSPECTION M
WHERE M.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO
AND M.PLINE_CODE = T1.PLINE_CODE
AND M.HEAT_PLAN_NO = T1.HEAT_PLAN_NO
AND M.VALIDFLAG = '1'
AND M.RECHECK = '1') XCJZ,
(SELECT SUM(M.ACT_COUNT)
FROM MIL_INSPECTION M
WHERE M.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO
AND M.PLINE_CODE = T1.PLINE_CODE
AND M.HEAT_PLAN_NO = T1.HEAT_PLAN_NO
AND M.VALIDFLAG = '1'
AND M.RECHECK = '2') YCJZ,
(SELECT DECODE(MIN(M.INSPECTION_FLAG),
'0',
'待抽',
'1',
'待检',
'2',
'已检',
'3',
'免检')
FROM MIL_INSPECTION M
WHERE M.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO
AND M.PLINE_CODE = T1.PLINE_CODE
AND M.HEAT_PLAN_NO = T1.HEAT_PLAN_NO
AND M.VALIDFLAG = '1') INSPECTION_FLAG,
(SELECT SUBSTR(L.STD_NAME, 1, 70) ||
decode(L.USE_DESC, '/', '', '', '', ',' || L.USE_DESC)
FROM SLM_ORDER_LINE L
WHERE L.ORD_LN_PK = T1.ORD_LN_PK
AND L.VALIDFLAG = '1') STD_NAME,
T1.ACT_DIMATER,
T1.ACT_HEIGHT,
T1.BELONG_CODE,
T1.BELONG_NAME,
T1.STD_STYLE,
T1.STD_STYLE_DESC,
T1.GRADECODE,
T1.GRADENAME,
sum(T1.ACT_COUNT) ACT_COUNT,
to_char(sum(T1.Act_Weight), 'FM999999990.000') Act_Weight,
to_char(sum(T1.ACT_THEORY_WEIGHT), 'FM999999990.000') ACT_THEORY_WEIGHT,
sum(nvl(T1.ACT_LEN, 0)) as ACT_LEN,
sum(NVL(T1.PONDER_GROSS_WT, 0)) PONDER_GROSS_WT,
SUM(CASE
WHEN T1.PONDER_GROSS_WT > 0 THEN
1
ELSE
0
END) PONDER_GROSS_COUNT,
/*T1.LEN_DESC,
T1.LEN_UNIT,*/
to_char(T1.ACT_LEN_MIN, 'FM999990.00') AS ACT_LEN_MIN,
to_char(T1.ACT_LEN_MAX, 'FM999990.00') AS ACT_LEN_MAX,
to_char(T1.ACT_LEN_MIN, 'FM999990.00') || '-' ||
to_char(T1.ACT_LEN_MAX, 'FM999990.00') as LEN,
T1.MATERIAL_NO,
T1.MATERIAL_NAME,
MAX(T1.MEMO) MEMO,
MAX(T1.PIPMEMO) PIPMEMO,
T1.JUDGE_STD_NAME,
T1.PLINE_CODE,
T1.PLINE_NAME,
T1.MAT_STATUS,
(SELECT MAX(E.DETECT_RESULT_PATH)
FROM QCM_INSPECTION_REPORT E
WHERE E.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO
AND E.LOT_NO = T1.LOT_NO
AND E.PLINE_CODE = T1.PLINE_CODE) DETECT_RESULT_PATH,
(SELECT MAX(F.FACE_RESULT_PATH)
FROM QCM_SURFACE_REPORT F
WHERE F.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO
AND F.LOT_NO = T1.LOT_NO
AND F.PLINE_CODE = T1.PLINE_CODE) FACE_RESULT_PATH,
T1.PRODUCT_FLAG,
MAX(T1.CHEM_RESULT_CODE) CHEM_RESULT_CODE,
T1.TARGET,
DECODE(T1.PACK_FLAG, '0', '否', '1', '是') PACK_FLAG,
T1.PRO_ORDER_ID,
MAX(T1.GX_PLAN_NO) GX_PLAN_NO,
MAX(Q.MCH_DIMENSIONS_RESULT) MCH_DIMENSIONS_RESULT,
MAX(Q.MCH_VISUAL_RESULT) MCH_VISUAL_RESULT
FROM MAT_BC_M T1
left join (SELECT T.MAT_NO, S.STORAGE_NO, S.STORAGE_NAME, T.LOCATION_NO
FROM YDM_BC_BUTTRESS T, YDM_BS_STORAGE S
WHERE T.STORAGE_NO = S.STORAGE_NO) T2
on T1.MAT_NO = T2.MAT_NO
LEFT JOIN (SELECT MAX(Q.MCH_DIMENSIONS_RESULT) MCH_DIMENSIONS_RESULT,
MAX(Q.MCH_VISUAL_RESULT) MCH_VISUAL_RESULT,
JUGDE_APPLY_CODE
FROM QCM_ZG_JUGDE_APPLY Q
GROUP BY JUGDE_APPLY_CODE) Q
ON T1.JUGDE_APPLY_CODE = Q.JUGDE_APPLY_CODE
where T1.QCM_STAUS = '00'
AND T1.PROCESS_CDOE = 'D'
AND T1.OFFLINE_DOC IS NULL
--AND (T1.PRO_ORDER_ID IS NOT NULL OR T1.LOT_NO = '试轧料')
#someThing#
GROUP BY T1.JUDGE_STOVE_NO,
T1.PRODUCCODE,
T1.PRODUCNAME,
T1.STEELCODE,
T1.STEELNAME,
T1.SPEC_CODE,
T1.SPEC_NAME,
T1.MODEL_CODE,
T1.GRADECODE,
T1.GRADENAME,
T1.STD_STYLE,
T1.STD_STYLE_DESC,
T1.HEAT_PLAN_NO,
--T1.PIPMEMO,
T1.MAT_STATUS,
T1.MODEL_DESC,
T1.STD_CODE,
T1.STD_NAME,
T1.ACT_DIMATER,
T1.ACT_HEIGHT,
T1.BELONG_CODE,
T1.BELONG_NAME,
T1.PLINE_CODE,
T1.PLINE_NAME,
T1.MATERIAL_NO,
T1.MATERIAL_NAME,
T1.ACT_LEN_MIN,
T1.ACT_LEN_MAX,
--T1.MEMO,
T1.PRODUCT_FLAG,
T1.JUDGE_STD_NAME,
--T1.CHEM_RESULT_CODE,
T1.TARGET,
T1.PACK_FLAG,
T1.LOT_NO,
T1.ORD_LN_PK,
T1.PRO_ORDER_ID
]]>
0 THEN
1
ELSE
0
END) PONDER_GROSS_COUNT,
--T1.LEN_DESC,
--T1.LEN_UNIT,
to_char(T1.ACT_LEN_MIN,'FM999990.00') AS ACT_LEN_MIN,
to_char(T1.ACT_LEN_MAX,'FM999990.00') AS ACT_LEN_MAX,
to_char(T1.ACT_LEN_MIN,'FM999990.00')||'-'||to_char(T1.ACT_LEN_MAX,'FM999990.00') as LEN,
--max(TO_CHAR(T1.CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS')) CREATE_TIME,
--max(to_char(T1.INSTOCK_TIME,'YYYY-MM-DD')) INSTOCK_TIME,
T1.MATERIAL_NO,
T1.MATERIAL_NAME,
T1.MEMO,
T1.PIPMEMO,
T1.JUDGE_STD_DES,
T1.JUDGE_STD_NAME,
T1.PLINE_CODE,
T1.PLINE_NAME,
--T1.OLD_ORDER_NO,
T1.MAT_STATUS,
--T2.STORAGE_NO,
--T2.STORAGE_NAME,
--T2.LOCATION_NO,
--T1.OUTSTOCK_DOC,
T1.PRODUCT_FLAG,
--T1.Heat_Plan_No,
T1.CHEM_RESULT_CODE,
T1.TARGET,
DECODE(T1.PACK_FLAG,'0','否','1','是')PACK_FLAG
FROM MAT_BC_M T1
left join (SELECT T.MAT_NO,S.STORAGE_NO,S.STORAGE_NAME,T.LOCATION_NO FROM YDM_BC_BUTTRESS T,YDM_BS_STORAGE S WHERE T.STORAGE_NO = S.STORAGE_NO)T2
on T1.MAT_NO = T2.MAT_NO
where T1.JUDGE_STOVE_NO || '&' LIKE ('%' || upper(?) || '%')
AND T1.QCM_STAUS = '00'
AND T1.OFFLINE_DOC IS NULL
AND T1.PLINE_CODE IN('C065','C066','C098','C099')
]]>
120501
THEN '801703'
WHEN MAX(T6.CUSTOMER_NM) IN('天津腾飞钢管有限公司','沈阳腾飞钢铁经销有限公司','天津宝仓物流有限公司','天津市安利金属制造有限公司')
THEN '801703'
WHEN MAX(T6.STLMT_UNIT_NM) IN('天津腾飞钢管有限公司','沈阳腾飞钢铁经销有限公司','天津宝仓物流有限公司','天津市安利金属制造有限公司')
THEN '801703'
WHEN (select MAX(t9.PORDERSTATUS) from pln_saleord t9 where t9.ord_ln_dly_pk =T1.ord_ln_dly_pk)>=5
THEN '801701'
WHEN MAX(NVL(T6.SHORTEST,0))>0 AND MAX(T1.ACT_LEN_MIN) < MAX(NVL(T6.SHORTEST,0))
THEN '801701'
WHEN MAX(NVL(T6.LONGEST,0))>0 AND MAX(T1.ACT_LEN_MAX) > MAX(NVL(T6.LONGEST,0))
THEN '801701'
ELSE
CASE WHEN MAX(T6.ORDER_UNIT) = '吨' THEN
CASE
--缴库量上限 < 累计送判吨（按计划入）+ 单支重量
WHEN MAX(T6.PAYDOWN_WT_MAX) < MAX(T6.ACT_WEIGHT2) + ROUND(ROUND(SUM(T1.ACT_WEIGHT), 3)/SUM(T1.ACT_COUNT),3）
THEN '801701'
WHEN T1.LENGTH_TYPE = '1' AND MAX(T6.ORDER_WT_MAX_LONG) < MAX(T6.ACT_WEIGHT_L) + ROUND(ROUND(SUM(T1.ACT_WEIGHT), 3)/SUM(T1.ACT_COUNT),3）
THEN '801701'
WHEN T1.LENGTH_TYPE = '2' AND MAX(T6.ORDER_WT_MAX_SHORT) < MAX(T6.ACT_WEIGHT_S) + ROUND(ROUND(SUM(T1.ACT_WEIGHT), 3)/SUM(T1.ACT_COUNT),3）
THEN '801701'
ELSE
'801703'
END
WHEN MAX(T6.ORDER_UNIT) IN( '米' ,'英尺') THEN
CASE
--缴库量上限 < 累计送判吨（按计划入）+ 单支重量
WHEN MAX(T6.PAYDOWN_WT_MAX) < MAX(T6.ACT_LEN2) + ROUND(ROUND(SUM(T1.ACT_LEN), 3)/SUM(T1.ACT_COUNT),3）
THEN '801701'
WHEN T1.LENGTH_TYPE = '1' AND MAX(T6.ORDER_WT_MAX_LONG) < MAX(T6.ACT_LEN_L) + ROUND(ROUND(SUM(T1.ACT_LEN), 3)/SUM(T1.ACT_COUNT),3）
THEN '801701'
WHEN T1.LENGTH_TYPE = '2' AND MAX(T6.ORDER_WT_MAX_SHORT) < MAX(T6.ACT_LEN_S) + ROUND(ROUND(SUM(T1.ACT_LEN), 3)/SUM(T1.ACT_COUNT),3）
THEN '801701'
ELSE
'801703'
END
END
END IN_MOLD,
CASE WHEN MAX(T6.RECEIV_NM) IN('天津腾飞钢管有限公司','沈阳腾飞钢铁经销有限公司','天津宝仓物流有限公司','天津市安利金属制造有限公司') OR MAX(T6.SUPPLY_UNIT)> 120501
THEN SUM(T1.ACT_COUNT)
WHEN MAX(T6.CUSTOMER_NM) IN('天津腾飞钢管有限公司','沈阳腾飞钢铁经销有限公司','天津宝仓物流有限公司','天津市安利金属制造有限公司')
THEN SUM(T1.ACT_COUNT)
WHEN MAX(T6.STLMT_UNIT_NM) IN('天津腾飞钢管有限公司','沈阳腾飞钢铁经销有限公司','天津宝仓物流有限公司','天津市安利金属制造有限公司')
THEN SUM(T1.ACT_COUNT)
ELSE
CASE WHEN MAX(T6.ORDER_UNIT) = '吨' THEN
CASE WHEN T1.LENGTH_TYPE = '0' AND MAX(T6.PAYDOWN_WT_MAX) - MAX(T6.ACT_WEIGHT2) > 0 THEN
FLOOR((MAX(T6.PAYDOWN_WT_MAX) - MAX(T6.ACT_WEIGHT2))/(ROUND(SUM(T1.ACT_WEIGHT), 3)/SUM(T1.ACT_COUNT)))
WHEN T1.LENGTH_TYPE = '1' AND MAX(T6.ORDER_WT_MAX_LONG) - MAX(T6.ACT_WEIGHT_L) > 0 THEN
FLOOR(LEAST((MAX(T6.ORDER_WT_MAX_LONG) - MAX(T6.ACT_WEIGHT_L)),(MAX(T6.PAYDOWN_WT_MAX) - MAX(T6.ACT_WEIGHT2)))/(ROUND(SUM(T1.ACT_WEIGHT), 3)/SUM(T1.ACT_COUNT)))
WHEN T1.LENGTH_TYPE = '2' AND MAX(T6.ORDER_WT_MAX_SHORT) - MAX(T6.ACT_WEIGHT_S) > 0 THEN
FLOOR(LEAST((MAX(T6.ORDER_WT_MAX_SHORT) - MAX(T6.ACT_WEIGHT_S)),(MAX(T6.PAYDOWN_WT_MAX) - MAX(T6.ACT_WEIGHT2)))/(ROUND(SUM(T1.ACT_WEIGHT), 3)/SUM(T1.ACT_COUNT)))
END
WHEN MAX(T6.ORDER_UNIT) IN( '米' ,'英尺') THEN
CASE WHEN T1.LENGTH_TYPE = '0' AND MAX(T6.PAYDOWN_WT_MAX) - MAX(T6.ACT_LEN2) > 0 THEN
FLOOR((MAX(T6.PAYDOWN_WT_MAX) - MAX(T6.ACT_LEN2))/(ROUND(SUM(T1.ACT_LEN), 3)/SUM(T1.ACT_COUNT)))
WHEN T1.LENGTH_TYPE = '1' AND MAX(T6.ORDER_WT_MAX_LONG) - MAX(T6.ACT_LEN_L) > 0 THEN
FLOOR(LEAST((MAX(T6.ORDER_WT_MAX_LONG) - MAX(T6.ACT_LEN_L)),(MAX(T6.PAYDOWN_WT_MAX) - MAX(T6.ACT_LEN2)))/(ROUND(SUM(T1.ACT_LEN), 3)/SUM(T1.ACT_COUNT)))
WHEN T1.LENGTH_TYPE = '2' AND MAX(T6.ORDER_WT_MAX_SHORT) - MAX(T6.ACT_WEIGHT_S) > 0 THEN
FLOOR(LEAST((MAX(T6.ORDER_WT_MAX_SHORT) - MAX(T6.ACT_LEN_S)),(MAX(T6.PAYDOWN_WT_MAX) - MAX(T6.ACT_LEN2)))/(ROUND(SUM(T1.ACT_LEN), 3)/SUM(T1.ACT_COUNT)))
END
END
END KSPZ
FROM MAT_BC_M T1
LEFT JOIN QCM_ZC_APPLY T6
ON SUBSTR(T1.ORD_LN_DLY_PK,1,38) = T6.ORD_LN_DLY_PK
LEFT JOIN (SELECT T.MAT_NO,
S.STORAGE_NO,
S.STORAGE_NAME,
T.LOCATION_NO
FROM YDM_BC_BUTTRESS T, YDM_BS_STORAGE S
WHERE T.STORAGE_NO = S.STORAGE_NO) T2
ON T1.MAT_NO = T2.MAT_NO
WHERE T1.JUDGE_STOVE_NO = ?
AND T1.QCM_STAUS = '00'
AND T1.OFFLINE_DOC IS NULL
--AND (T1.PRO_ORDER_ID IS NOT NULL OR T1.LOT_NO = '试轧料')
AND (T1.BELONG_CODE = '002001016003' OR
T1.BELONG_CODE = '002001017003' OR
T1.BELONG_CODE = '002001016002' OR
T1.BELONG_CODE = '002023018001' OR
T1.BELONG_CODE = '002001018003')
GROUP BY T1.JUDGE_STOVE_NO,
T1.BATCH_NO,
T1.LOT_NO,
T1.BATCH_GROUD_NO,
T1.PRODUCCODE,
T1.PRODUCNAME,
T1.STEELCODE,
T1.STEELNAME,
T1.SPEC_CODE,
T1.SPEC_NAME,
T1.MODEL_CODE,
T1.GRADECODE,
T1.GRADENAME,
T1.STD_STYLE,
T1.STD_STYLE_DESC,
T1.MAT_STATUS,
T1.HEAT_PLAN_NO,
T1.JUGDE_APPLY_CODE,
T1.QCM_STAUS,
T1.MODEL_DESC,
T1.STD_CODE,
T1.STD_NAME,
T1.ACT_DIMATER,
T1.ACT_HEIGHT,
T1.BELONG_CODE,
T1.BELONG_NAME,
T1.PLINE_CODE,
T1.PLINE_NAME,
T1.MATERIAL_NO,
T1.MATERIAL_NAME,
t1.LENGTH_TYPE,
T1.JUDGE_RESULT_CODE,
T1.JUDGE_RESULT,
T1.ACT_LEN_MIN,
T1.ACT_LEN_MAX,
T1.PRODUCT_FLAG,
T1.JUDGE_STD_NAME,
T1.PRO_ORDER_ID,
T1.ORD_LN_PK,
T1.ORD_LN_DLY_PK,
T1.PRO_PLAN_ID_NEXT,
T1.ORDER_NO,
T1.ORDER_SEQ_NO,
T1.PRO_ORDER_NO) T2
LEFT JOIN (SELECT T3.JUGDE_APPLY_CODE, T3.APPLY_FLAG, T3.BACK_JUGDE_MEMO
FROM QCM_ZG_JUGDE_APPLY T3
WHERE T3.IS_FLAG = '0'
GROUP BY T3.JUGDE_APPLY_CODE,
T3.APPLY_FLAG,
T3.BACK_JUGDE_MEMO) T4
ON T2.JUGDE_APPLY_CODE = T4.JUGDE_APPLY_CODE
]]>
0) THEN
SELECT S.SUPPLY_UNIT, C.BASENAME
INTO V_SUPPLY_UNIT, V_SUPPLY_UNIT_DESC
FROM SLM_ORDER_HEAD S, SLM_ORDER_LINE S1, MAT_BC_M T, COM_BASE_INFO C
WHERE S.ORD_PK = S1.ORD_PK
AND S.ORDER_NO || '/' || S1.ORDER_SEQ = T.PRO_ORDER_NO
AND S.SUPPLY_UNIT = C.BASECODE
AND T.PROCESS_CDOE = 'D'
AND T.QCM_STAUS = '00'
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.BATCH_NO = V_BATCH_NO
AND ROWNUM = 1;
END IF;*/
--按产线区分制造商
SELECT C.SUPPLY_UNIT_CODE, C.SUPPLY_UNIT
INTO V_SUPPLY_UNIT, V_SUPPLY_UNIT_DESC
FROM COM_BASE_PLINE C
WHERE C.PLINE_CODE = V_PLINE_CODE;
--生成申请判定顺序号
SELECT COUNT(1) + 1
INTO V_JUGDE_APPLY_SEQUENO
FROM QCM_ZG_JUGDE_APPLY T
WHERE T.JUGDE_APPLY_CODE = V_JUGDE_APPLY_CODE
AND T.VALIDFLAG IN ('00', '15', '20')
AND T.PROCESS_CODE = 'D';
FOR MYROW IN (SELECT SUM(T.ACT_COUNT) ACT_COUNT,
SUM(T.ACT_THEORY_WEIGHT) ACT_THEORY_WEIGHT,
SUM(NVL(T.PONDER_GROSS_WT, T.ACT_WEIGHT)) ACT_WEIGHT,
SUM(T.ACT_LEN) ACT_LEN,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.BATCH_GROUD_NO,
MAX(T.FACE_RESULT_CODE) FACE_RESULT_CODE,
MAX(T.SPEC_RESULT_CODE) SPEC_RESULT_CODE,
MAX(T.CHEM_RESULT_CODE) CHEM_RESULT_CODE,
MAX(T.PHY_RESULT_CODE) PHY_RESULT_CODE,
MAX(T.DETECT_RESULT_CODE) DETECT_RESULT_CODE,
MAX(T.WPRESSURE_RESULT_CODE) WPRESSURE_RESULT_CODE,
T.PLINE_CODE,
MAX(T.PRO_ORDER_ID) PRO_ORDER_ID,
MAX(T.GX_PLAN_NO) GX_PLAN_NO,
T.LOT_NO,
T.PLINE_NAME,
MAX(T.PRO_ORDER_NO) PRO_ORDER_NO,
T.TARGET,
T.PROCESS_STATUS,
T.ACT_DIMATER,
T.Act_Height,
T.ACT_LEN_MIN,
T.ACT_LEN_MAX,
MAX(T.CRAF_NO) CRAF_NO,
T.MATERIAL_NO,
T.MATERIAL_NAME,
MAX(T.MEMO) MEMO,
MAX(T.PIPMEMO) PIPMEMO,
T.PRODUCCODE,
T.PRODUCNAME,
T.SPEC_CODE,
T.SPEC_NAME,
T.STEELCODE,
T.STEELNAME,
T.MODEL_CODE,
T.MODEL_DESC,
T.STD_CODE,
T.STD_NAME,
T.STD_STYLE,
T.STD_STYLE_DESC,
T.GRADECODE,
T.GRADENAME,
T.CRAFT_SEQ,
T.CIC,
T.ORD_LN_DLY_PK,
T.BELONG_CODE,
T.BELONG_NAME,
MAX(T.STOVE_NO) STOVE_NO,
DECODE(MAX(T.judge_std_des),
'',
MAX(T.JUDGE_STD_NAME),
MAX(T.judge_std_des)) STEEL_STANDRAD,
T.PRO_PLAN_ID_NEXT,
MAX(T.GX_PLAN_NO_NEXT) GX_PLAN_NO_NEXT,
T.HEAT_PLAN_NO_NEXT,
T.HEAT_PLAN_NO,
T.lock_liku LK_FLAG,
MAX(T.NEXT_PROCESS_CDOE) NEXT_PROCESS_CDOE,
MAX(T.ZZB_FLAG) ZZB_FLAG
FROM (SELECT *
FROM (SELECT *
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.BATCH_NO = V_BATCH_NO
AND T.BATCH_GROUD_NO = V_BATCH_GROUD_NO
AND T.PLINE_CODE = V_PLINE_CODE
AND T.JUGDE_APPLY_CODE IS NULL
AND T.QCM_STAUS = '00'
AND T.PROCESS_CDOE = 'D'
ORDER BY MAT_NO ASC)
WHERE ROWNUM <= v_ACT_COUNT6
ORDER BY MAT_NO ASC) T
GROUP BY T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.BATCH_GROUD_NO,
T.PLINE_CODE,
T.LOT_NO,
T.PLINE_NAME,
T.TARGET,
T.PROCESS_STATUS,
T.ACT_DIMATER,
T.Act_Height,
T.ACT_LEN_MIN,
T.ACT_LEN_MAX,
T.MATERIAL_NO,
T.MATERIAL_NAME,
T.PRODUCCODE,
T.PRODUCNAME,
T.SPEC_CODE,
T.SPEC_NAME,
T.STEELCODE,
T.STEELNAME,
T.MODEL_CODE,
T.MODEL_DESC,
T.STD_CODE,
T.STD_NAME,
T.STD_STYLE,
T.STD_STYLE_DESC,
T.GRADECODE,
T.GRADENAME,
T.CRAFT_SEQ,
T.CIC,
T.ORD_LN_DLY_PK,
T.BELONG_CODE,
T.PRO_PLAN_ID_NEXT,
--T.GX_PLAN_NO_NEXT,
T.HEAT_PLAN_NO_NEXT,
T.HEAT_PLAN_NO,
T.lock_liku,
T.BELONG_NAME) LOOP
INSERT INTO QCM_ZG_JUGDE_APPLY
(JUGDE_APPLY_CODE,
JUDGE_STOVE_NO,
BATCH_NO,
BATCH_GROUD_NO,
PROCESS_CODE,
PLINE_CODE,
ACT_COUNT,
ACT_WEIGHT,
ACT_THEORY_WEIGHT,
PRO_ORDER_ID,
FACE_RESULT_CODE,
SPEC_RESULT_CODE,
CHEM_RESULT_CODE,
PHY_RESULT_CODE,
DETECT_RESULT_CODE,
WPRESSURE_RESULT_CODE,
--PROCESS_RESULT_CODE,
APPLY_NAME,
APPLY_TIME,
MEMO,
QUALITY_GROUP,
LOT_NO,
PLINE_NAME,
PRO_ORDER_NO,
TARGET,
PROCESS_STATUS,
MAT_GOWHERE_CODE,
MAT_GOWHERE_NAME,
ACT_DIMATER,
Act_Height,
ACT_LEN_MIN,
ACT_LEN_MAX,
Craf_No,
MATERIAL_NO,
MATERIAL_NAME,
PRODUCCODE,
PRODUCNAME,
SPEC_CODE,
SPEC_NAME,
STEELCODE,
STEELNAME,
MODEL_CODE,
MODEL_DESC,
STD_CODE,
STD_NAME,
STD_STYLE,
STD_STYLE_DESC,
GRADECODE,
GRADENAME,
TESTING_GRADE,
TESTING_TYPE,
TESTING_GRADE1,
TESTING_TYPE1,
ORD_LN_DLY_PK,
BELONG_CODE,
BELONG_NAME,
EXIT_TEMP,
SAMPLE_NEWS,
ACT_LEN,
GX_PLAN_NO,
BELONG_CODE_JUGDE,
BELONG_NAME_JUGDE,
INPUT_COUNT,
INPUT_WEIGHT,
OUTPUT_COUNT,
OUTPUT_WEIGHT,
STOVE_NO,
STEEL_STANDRAD,
PRO_PLAN_ID_NEXT,
GX_PLAN_NO_NEXT,
HEAT_PLAN_NO_NEXT,
LK_FLAG,
NEXT_PROCESS_CDOE,
JUGDE_APPLY_SEQUENO,
HEAT_PLAN_NO,
DELIVERY_STATE_CODE,
DELIVERY_STATE_NAME,
LOAD_JUDGE_STOVE_NO,
CHECK_NO,
ZP_M_LH,
ZP_COLL,
CRAFT_SEQ,
CIC,
MCH_VISUAL_RESULT,
MCH_DIMENSIONS_RESULT,
TESTING_STANDAR,
NOTCH_INFO,
NOTCH_LENGTH,
NOTCH_WIDTH,
NOTCH_DEPTH,
FACE_RESULT_PATH,
DETECT_RESULT_PATH,
ZZB_FLAG,
TEST_PRESSURE,
HOLDTIME_TIME,
TEST_PRESSURE_Y,
SUPPLY_UNIT,
SUPPLY_UNIT_DESC,
IN_MOLD)
VALUES
(V_JUGDE_APPLY_CODE,
MYROW.JUDGE_STOVE_NO,
MYROW.BATCH_NO,
MYROW.BATCH_GROUD_NO,
'D',
MYROW.PLINE_CODE,
MYROW.ACT_COUNT,
MYROW.ACT_WEIGHT,
MYROW.ACT_THEORY_WEIGHT,
MYROW.PRO_ORDER_ID,
MYROW.FACE_RESULT_CODE,
MYROW.SPEC_RESULT_CODE,
MYROW.CHEM_RESULT_CODE,
MYROW.PHY_RESULT_CODE,
?,
MYROW.WPRESSURE_RESULT_CODE,
--?,
?,
V_SYSDATE,
NVL(?, MYROW.PIPMEMO),
'1',
MYROW.LOT_NO,
MYROW.PLINE_NAME,
MYROW.PRO_ORDER_NO,
MYROW.TARGET,
MYROW.PROCESS_STATUS,
v_MAT_GOWHERE_CODE,
v_MAT_GOWHERE_NAME,
MYROW.ACT_DIMATER,
MYROW.Act_Height,
MYROW.ACT_LEN_MIN,
MYROW.ACT_LEN_MAX,
MYROW.Craf_No,
MYROW.MATERIAL_NO,
MYROW.MATERIAL_NAME,
MYROW.PRODUCCODE,
MYROW.PRODUCNAME,
MYROW.SPEC_CODE,
MYROW.SPEC_NAME,
MYROW.STEELCODE,
MYROW.STEELNAME,
MYROW.MODEL_CODE,
MYROW.MODEL_DESC,
MYROW.STD_CODE,
MYROW.STD_NAME,
MYROW.STD_STYLE,
MYROW.STD_STYLE_DESC,
MYROW.GRADECODE,
MYROW.GRADENAME,
?,
?,
?,
?,
CASE WHEN INSTR(MYROW.ORD_LN_DLY_PK, '-', 10, 1) > 0 THEN
SUBSTR(MYROW.ORD_LN_DLY_PK,
0,
INSTR(MYROW.ORD_LN_DLY_PK, '-', 10, 1) - 1) ELSE
MYROW.ORD_LN_DLY_PK END,
MYROW.BELONG_CODE,
MYROW.BELONG_NAME,
?,
?,
MYROW.ACT_LEN,
MYROW.GX_PLAN_NO,
?,
?,
?,
?,
?,
?,
MYROW.STOVE_NO,
MYROW.STEEL_STANDRAD,
MYROW.PRO_PLAN_ID_NEXT,
MYROW.GX_PLAN_NO_NEXT,
MYROW.HEAT_PLAN_NO_NEXT,
MYROW.LK_FLAG,
MYROW.NEXT_PROCESS_CDOE,
V_JUGDE_APPLY_SEQUENO,
MYROW.HEAT_PLAN_NO,
?,
?,
?,
?,
?,
?,
MYROW.CRAFT_SEQ,
MYROW.CIC,
?,
?,
?,
?,
?,
?,
?,
(SELECT MAX(R.FACE_RESULT_PATH)
FROM QCM_SURFACE_REPORT R
WHERE R.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND R.PLINE_CODE = V_PLINE_CODE),
(SELECT MAX(R.DETECT_RESULT_PATH)
FROM QCM_INSPECTION_REPORT R
WHERE R.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND R.PLINE_CODE = V_PLINE_CODE),
MYROW.ZZB_FLAG,
?,
?,
?,
V_SUPPLY_UNIT,
V_SUPPLY_UNIT_DESC,
?);
V_PRO_PLAN_ID := MYROW.PRO_ORDER_ID;
V_GX_PLAN_NO := MYROW.GX_PLAN_NO;
FOR MYROW1 IN (SELECT *
FROM (SELECT T.MAT_NO,
T.PROCESS_CDOE,
T.STOVE_NO,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.GRADECODE,
T.GRADENAME,
T.MATERIAL_NO,
T.MATERIAL_NAME
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND T.BATCH_NO = MYROW.BATCH_NO
AND T.BATCH_GROUD_NO = MYROW.BATCH_GROUD_NO
AND T.JUGDE_APPLY_CODE IS NULL
AND NVL(T.HEAT_PLAN_NO_NEXT, '/') =
NVL(MYROW.HEAT_PLAN_NO_NEXT, '/')
AND NVL(T.FACE_RESULT_CODE, '/') =
NVL(MYROW.FACE_RESULT_CODE, '/')
AND NVL(T.DETECT_RESULT_CODE, '/') =
NVL(MYROW.DETECT_RESULT_CODE, '/')
AND NVL(T.SPEC_RESULT_CODE, '/') =
NVL(MYROW.SPEC_RESULT_CODE, '/')
AND NVL(T.CHEM_RESULT_CODE, '/') =
NVL(MYROW.CHEM_RESULT_CODE, '/')
AND NVL(T.PHY_RESULT_CODE, '/') =
NVL(MYROW.PHY_RESULT_CODE, '/')
AND NVL(T.WPRESSURE_RESULT_CODE, '/') =
NVL(MYROW.WPRESSURE_RESULT_CODE, '/')
AND T.BELONG_CODE NOT IN
('100101', '100102', '100103')
AND T.QCM_STAUS = '00'
AND T.PROCESS_CDOE = 'D'
ORDER BY T.MAT_NO ASC)
WHERE ROWNUM <= MYROW.ACT_COUNT) LOOP
UPDATE MAT_BC_M T
SET /*T.QUALITY_GROUP_ZG = v_COUNT,*/ T.TESTING_GRADE = ?,
T.TESTING_TYPE = ?,
T.TESTING_GRADE1 = ?,
T.TESTING_TYPE1 = ?,
T.JUGDE_APPLY_SEQUENO = V_JUGDE_APPLY_SEQUENO,
T.JUGDE_APPLY_CODE = V_JUGDE_APPLY_CODE,
T.JUGDE_APPLY_TIME = SYSDATE
WHERE T.MAT_NO = MYROW1.MAT_NO
AND T.PROCESS_CDOE = 'D';
select count(1)
into v_ACT_COUNT
from MAT_BC_QCMTRACK
where mat_no = MYROW1.MAT_NO
and PROCESS_CDOE = MYROW1.PROCESS_CDOE;
if (v_ACT_COUNT = 0) then
INSERT INTO MAT_BC_QCMTRACK
(MAT_NO,
PROCESS_CDOE,
STOVE_NO,
JUDGE_STOVE_NO,
BATCH_NO,
GRADECODE,
GRADENAME,
MATERIAL_NO,
MATERIAL_NAME,
JUGDE_APPLY_CODE,
JUGDE_APPLY_TIME,
JUGDE_APPLY_MAKER)
VALUES
(MYROW1.MAT_NO,
MYROW1.PROCESS_CDOE,
MYROW1.STOVE_NO,
MYROW1.JUDGE_STOVE_NO,
MYROW1.BATCH_NO,
MYROW1.GRADECODE,
MYROW1.GRADENAME,
MYROW1.MATERIAL_NO,
MYROW1.MATERIAL_NAME,
?,
V_SYSDATE,
?);
end if;
END LOOP;
V_JUGDE_APPLY_SEQUENO := V_JUGDE_APPLY_SEQUENO + 1;
/*v_COUNT := v_COUNT + 1;*/
END LOOP;
--判定表加判定要的字段(精整利库,材料表没有字段，取订单表)
FOR MYROW3 IN (select T.PRO_PLAN_ID,
T.GX_PLAN_NO,
T.CRAFT_SEQ,
T.INDEX_SEQ,
T.CIC_GP CIC,
T.PIC PIC,
T.SIC SIC,
T.DIC DIC
from PLN_ORDER_ZG_S t
WHERE T.PRO_PLAN_ID = V_PRO_PLAN_ID
AND T.GX_PLAN_NO = V_GX_PLAN_NO
GROUP BY T.PRO_PLAN_ID,
T.GX_PLAN_NO,
T.CRAFT_SEQ,
T.INDEX_SEQ,
T.CIC_GP,
T.PIC,
T.SIC,
T.DIC) LOOP
UPDATE QCM_ZG_JUGDE_APPLY T
SET T.INDEX_SEQ = NVL(T.INDEX_SEQ,MYROW3.INDEX_SEQ),
T.CIC = NVL(T.CIC,MYROW3.CIC),
T.PIC = NVL(T.PIC,MYROW3.PIC),
T.SIC = NVL(T.SIC,MYROW3.SIC),
T.DIC = NVL(T.DIC,MYROW3.DIC)
WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.PLINE_CODE = V_PLINE_CODE
AND T.JUGDE_APPLY_CODE = V_JUGDE_APPLY_CODE;
END LOOP;
END;
]]>
SELECT T.UL_TESTING FROM MIL_ENTRUSTED_BILL T WHERE T.JUDGE_STOVE_NO LIKE ?||'%'
select t.*
from HTT_ENTRUST_RESULT t, HTT_ENTRUST T1
WHERE T.SUBCONTRACT_NO = T1.SUBCONTRACT_NO
AND T.SUBCONTRACT_NO_SEQ = T1.SUBCONTRACT_NO_SEQ
AND T.JUDGE_STOVE_NO = ?
AND T1.PLINE_CODE = ?
'11'
AND T.MAT_NO = T2.MAT_NO #SOMETHING#
group by t.JUDGE_STOVE_NO,
t.BATCH_NO,
t.INSTOCK_DOC,
t.PRODUCCODE,
t.PRODUCNAME,
t.STD_CODE,
t.STD_NAME,
t.STEELCODE,
t.STEELNAME,
t.STD_STYLE,
t.STD_STYLE_DESC,
t.SPEC_CODE,
t.SPEC_NAME,
t.JUDGE_STD_CODE,
t.JUDGE_STD_NAME,
t.GRADECODE,
t.GRADENAME,
t.BAL_YEAR_MONTH,
t.PIPMEMO,
t.BATCH_GROUD_NO,
t.MATERIAL_NO,
t.MATERIAL_NAME,
t.MAT_STATUS,
t.qcm_staus,
t1.sample_flag,
t.MODEL_DESC,
t.ACT_DIMATER,
t.ACT_HEIGHT,
t.ACT_LEN_MIN,
t.ACT_LEN_MAX,
t.BELONG_CODE,
t.BELONG_NAME,
s.STORAGE_NAME,
t.MEMO,
t.CREATE_NAME,
t.ORDER_NO,
t.ORDER_SEQ,
t.DELIVERY_NO,
t.MODEL_CODE,
t.PRODUCT_FLAG,
t.ZB_RCDID,
t.PLINE_CODE,
t.PLINE_NAME,
m.basename,
t.ACT_LEN,
t.ZG_STOVE_SQE
order by t.instock_doc desc
]]>
SELECT T.TARGET AS GO_TYPE FROM MIL_PLAN T WHERE T.JUDGE_STOVE_NO = ?
SELECT T.OUT_REPOSITORY STORAGE_NO, S.STORAGE_TYPE_NO, S.STORAGE_TYPE_NAME
FROM COM_BASE_PLINE T, YDM_BS_STORAGE S
WHERE T.OUT_REPOSITORY = S.STORAGE_NO
AND T.PLINE_CODE = ?
select T.STORAGE_NO, T.STORAGE_TYPE_NO, T.STORAGE_TYPE_NAME
from YDM_BC_BUTTRESS_BACK T
WHERE T.PLINE_CODE = ?
AND T.JUDGE_STOVE_NO = REGEXP_REPLACE(?, '-.*', '')
select t.* from COM_BASE_PLINE t WHERE T.PLINE_CODE = ?
SELECT LPAD(NVL(MAX(T.BATCH_GROUD_NO), 0)+1,3,0)BATCH_GROUD_NO FROM MAT_BC_M T WHERE T.JUDGE_STOVE_NO = ? AND T.BATCH_NO = ?
SELECT T.ORDER_LENGTH - S.SAMPLE_LEN AS ACT_LEN
FROM MIL_SAW_RACK T,
(SELECT SUM(SAMPLE_LEN) SAMPLE_LEN, JUDGE_STOVE_NO, LOT_NO, SEQ
FROM PORT_MIL_GET_SAMPLE_RESULT
GROUP BY JUDGE_STOVE_NO, LOT_NO, SEQ) S
WHERE T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO
AND T.LOT_NO = S.LOT_NO
AND T.JUDGE_STOVE_NO = ?
AND T.LOT_NO = ?
SELECT ACT_LEN,
BATCH_NO,
THACT_COUNT,
NVL(ACT_WEIGHT, '0') ACT_WEIGHT,
(THACT_COUNT - INSTORECOUNT) ACT_COUNT,
--'0.000' AS ACT_WEIGHT,
--'0' AS ACT_COUNT,
INSTORECOUNT
FROM (SELECT (CASE
WHEN S.RECUT_LENGTH IS NULL THEN
S.ORDER_LENGTH - S.SAMPLE_PIPE_LEN / 1000
ELSE
S.RECUT_LENGTH - S.SAMPLE_PIPE_LEN / 1000
END) AS ACT_LEN,
S.BATCH_NO,
SUM(S.ACT_COUNT) AS THACT_COUNT,
S1.ACT_WEIGHT,
NVL(T1.INACT_COUNT, 0) AS INSTORECOUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT S
left join (SELECT SUM(T.ACT_COUNT) INACT_COUNT,
T.PLAN_ID,
T.BATCH_NO,
T.ORDER_LENGTH,
T.RECUT_LENGTH,
T.SAMPLE_PIPE_LEN,
T.judge_stove_no
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE T.PLAN_ID = ?
And T.JUDGE_STOVE_NO = ?
AND T.IS_SAMPLE_PIPE = '1'
AND T.STATUS = '0'
AND T.INSTORE_FLAG = '1'
GROUP BY T.PLAN_ID,
T.BATCH_NO,
T.ORDER_LENGTH,
T.RECUT_LENGTH,
T.SAMPLE_PIPE_LEN,
T.judge_stove_no) T1 on S.PLAN_ID =
T1.PLAN_ID
and NVL(S.BATCH_NO,'/') =
NVL(T1.BATCH_NO,'/')
and S.ORDER_LENGTH =
T1.ORDER_LENGTH
and NVL(S.RECUT_LENGTH,
'0') =
NVL(T1.RECUT_LENGTH,
'0')
and S.SAMPLE_PIPE_LEN =
T1.Sample_Pipe_Len
left join (SELECT S2.JUDGE_STOVE_NO,
S2.PLAN_ID,
SUM((CASE
WHEN S2.RECUT_LENGTH IS NULL THEN
S2.ACT_THEORY_WEIGHT
ELSE
S2.CUT_ACT_THEORY_WEIGHT
END)) AS ACT_WEIGHT,
(CASE
WHEN S2.RECUT_LENGTH IS NULL THEN
S2.ORDER_LENGTH
ELSE
S2.Recut_Length
END) ORDER_LENGTH,
S2.BATCH_NO
FROM PORT_MIL_BATCH_SAMPLE_RESULT S2
WHERE S2.INSTORE_FLAG = '0'
AND S2.STATUS = '0'
AND S2.IS_SAMPLE_PIPE = '1'
AND S2.JUDGE_STOVE_NO = ?
GROUP BY S2.JUDGE_STOVE_NO,
S2.PLAN_ID,
S2.ORDER_LENGTH,
S2.RECUT_LENGTH,
S2.BATCH_NO) S1 on S.plan_id = s1.plan_id
and S.judge_stove_no =
s1.JUDGE_STOVE_NO
and NVL(S.Batch_No,'/') = NVL(s1.BATCH_NO,'/')
and S.order_length =
s1.ORDER_LENGTH
WHERE S.JUDGE_STOVE_NO = ?
AND S.LOT_NO = ?
AND S.PLAN_ID = ?
AND S.IS_SAMPLE_PIPE = ?
AND S.STATUS = '0'
GROUP BY S.ORDER_LENGTH,
S.BATCH_NO,
S.SAMPLE_PIPE_LEN,
S.RECUT_LENGTH,
T1.INACT_COUNT,
S1.ACT_WEIGHT)
SELECT ACT_LEN,
BATCH_NO,
THACT_COUNT,
NVL(ACT_WEIGHT,'0')ACT_WEIGHT,
(ACT_COUNT - INSTORECOUNT) ACT_COUNT,
-- '0.000' AS ACT_WEIGHT,
--'0' AS ACT_COUNT,
INSTORECOUNT
FROM (SELECT (CASE
WHEN S.RECUT_LENGTH IS NULL THEN
S.ORDER_LENGTH
ELSE
S.RECUT_LENGTH
END) AS ACT_LEN,
S.BATCH_NO,
SUM(S.ACT_COUNT) AS ACT_COUNT,
SUM(S.ACT_COUNT) AS THACT_COUNT,
--SUM(S.ACT_THEORY_WEIGHT) AS ACT_WEIGHT,
MAX(S1.ACT_WEIGHT) ACT_WEIGHT,
MAX(NVL(T1.INACT_COUNT, 0)) AS INSTORECOUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT S
left join (SELECT SUM(T.ACT_COUNT) INACT_COUNT,
T.PLAN_ID,
T.BATCH_NO,
T.ORDER_LENGTH,
T.RECUT_LENGTH
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE T.PLAN_ID = ?
And T.JUDGE_STOVE_NO = ?
AND T.IS_SAMPLE_PIPE = '1'
AND T.STATUS = '0'
AND T.INSTORE_FLAG = '1'
GROUP BY T.PLAN_ID,
T.BATCH_NO,
T.ORDER_LENGTH,
T.RECUT_LENGTH
) T1 on S.PLAN_ID =
T1.PLAN_ID
and NVL(S.BATCH_NO,'/') =
NVL(T1.BATCH_NO,'/')
and S.ORDER_LENGTH =
T1.ORDER_LENGTH
and NVL(S.RECUT_LENGTH,
'0') =
NVL(T1.RECUT_LENGTH,
'0')
left join (SELECT S2.JUDGE_STOVE_NO,
S2.PLAN_ID,
SUM((CASE
WHEN S2.RECUT_LENGTH IS NULL THEN
S2.ACT_THEORY_WEIGHT
ELSE
S2.CUT_ACT_THEORY_WEIGHT
END)) AS ACT_WEIGHT,
S2.BATCH_NO
FROM PORT_MIL_BATCH_SAMPLE_RESULT S2
WHERE S2.INSTORE_FLAG = '0'
AND S2.STATUS = '0'
AND S2.IS_SAMPLE_PIPE = '1'
AND S2.JUDGE_STOVE_NO = ?
GROUP BY S2.JUDGE_STOVE_NO, S2.PLAN_ID,
S2.BATCH_NO) S1 on s.plan_id =
s1.plan_id
and NVL(S.Batch_No,'/') = NVL(s1.BATCH_NO,'/')
and s.judge_stove_no =
s1.JUDGE_STOVE_NO
WHERE S.JUDGE_STOVE_NO = ?
AND S.LOT_NO = ?
AND S.PLAN_ID = ?
AND S.IS_SAMPLE_PIPE = ?
AND S.STATUS = '0'
GROUP BY S.ORDER_LENGTH,
S.BATCH_NO,
S.RECUT_LENGTH)
SELECT ACT_LEN,
BATCH_NO,
THACT_COUNT,
--NVL(ACT_WEIGHT, '0') ACT_WEIGHT,
--(THACT_COUNT - INSTORECOUNT) ACT_COUNT,
'0.000' AS ACT_WEIGHT,
'0' AS ACT_COUNT,
INSTORECOUNT
FROM (SELECT (CASE
WHEN S.RECUT_LENGTH IS NULL THEN
S.ORDER_LENGTH
ELSE
S.RECUT_LENGTH
END) ACT_LEN,
S.BATCH_NO,
SUM(S.ACT_COUNT) AS THACT_COUNT,
S1.ACT_WEIGHT,
NVL(T1.INACT_COUNT, 0) AS INSTORECOUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT S
LEFT JOIN (SELECT SUM(T.ACT_COUNT) INACT_COUNT,
T.PLAN_ID,
T.BATCH_NO,
T.ORDER_LENGTH,
T.RECUT_LENGTH,
T.JUDGE_STOVE_NO
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE T.PLAN_ID = ?
And T.JUDGE_STOVE_NO = ?
AND T.IS_SAMPLE_PIPE = '0'
AND T.STATUS = '0'
AND T.INSTORE_FLAG = '1'
GROUP BY T.PLAN_ID,
T.BATCH_NO,
T.ORDER_LENGTH,
T.RECUT_LENGTH,
T.JUDGE_STOVE_NO) T1 on S.PLAN_ID = T1.PLAN_ID
and S.JUDGE_STOVE_NO =
T1.JUDGE_STOVE_NO
and NVL(S.BATCH_NO,'/') =
NVL(T1.BATCH_NO,'/')
and S.ORDER_LENGTH =
T1.ORDER_LENGTH
and NVL(S.RECUT_LENGTH,
'0') =
NVL(T1.RECUT_LENGTH,
'0')
left join (SELECT S2.JUDGE_STOVE_NO,
S2.PLAN_ID,
SUM((CASE
WHEN S2.RECUT_LENGTH IS NULL THEN
S2.ACT_THEORY_WEIGHT
ELSE
S2.CUT_ACT_THEORY_WEIGHT
END)) AS ACT_WEIGHT,
(CASE
WHEN S2.RECUT_LENGTH IS NULL THEN
S2.ORDER_LENGTH
ELSE
S2.Recut_Length
END) ORDER_LENGTH,
S2.BATCH_NO
FROM PORT_MIL_BATCH_SAMPLE_RESULT S2
WHERE S2.INSTORE_FLAG = '0'
AND S2.STATUS = '0'
AND S2.IS_SAMPLE_PIPE = '0'
AND S2.JUDGE_STOVE_NO = ?
GROUP BY S2.JUDGE_STOVE_NO,
S2.PLAN_ID,
S2.ORDER_LENGTH,
S2.RECUT_LENGTH,
S2.BATCH_NO) S1 on S.plan_id = s1.plan_id
and S.judge_stove_no =
S1.JUDGE_STOVE_NO
and NVL(S.Batch_No,'/') = NVL(s1.BATCH_NO,'/')
and S.order_length =
s1.ORDER_LENGTH
WHERE S.JUDGE_STOVE_NO = ?
AND S.LOT_NO = ?
AND S.PLAN_ID = ?
AND S.IS_SAMPLE_PIPE = ?
AND S.STATUS = '0'
GROUP BY S.ORDER_LENGTH,
S.BATCH_NO,
S.RECUT_LENGTH,
S1.ACT_WEIGHT,
T1.INACT_COUNT)
SELECT ACT_LEN,BATCH_NO,THACT_COUNT,NVL(ACT_WEIGHT,'0')ACT_WEIGHT,(ACT_COUNT - INSTORECOUNT) ACT_COUNT,INSTORECOUNT
FROM (
SELECT S.ORDER_LENGTH AS ACT_LEN,
S.BATCH_NO,
SUM(S.ACT_COUNT) AS ACT_COUNT,
SUM(S.ACT_COUNT) AS THACT_COUNT,
--SUM(S.ACT_THEORY_WEIGHT) AS ACT_WEIGHT,
MAX(S1.ACT_WEIGHT) ACT_WEIGHT,
MAX(NVL(T1.INACT_COUNT, 0)) AS INSTORECOUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT S
left join (SELECT SUM(T.ACT_COUNT)INACT_COUNT,T.PLAN_ID,T.BATCH_NO,T.ORDER_LENGTH
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE T.PLAN_ID = ? And T.JUDGE_STOVE_NO = ?
AND T.STATUS = '2'
AND T.INSTORE_FLAG = '1'
GROUP BY T.PLAN_ID,T.BATCH_NO,T.ORDER_LENGTH)T1
on S.PLAN_ID = T1.PLAN_ID
and NVL(S.BATCH_NO,'/') = NVL(T1.BATCH_NO,'/')
and S.ORDER_LENGTH = T1.ORDER_LENGTH
left join (SELECT S2.JUDGE_STOVE_NO,
S2.PLAN_ID,
SUM((CASE
WHEN S2.RECUT_LENGTH IS NULL THEN
S2.ACT_THEORY_WEIGHT
ELSE
S2.CUT_ACT_THEORY_WEIGHT
END)) AS ACT_WEIGHT,
S2.BATCH_NO
FROM PORT_MIL_BATCH_SAMPLE_RESULT S2
WHERE S2.INSTORE_FLAG = '0'
AND S2.STATUS ='2'
GROUP BY S2.JUDGE_STOVE_NO, S2.PLAN_ID,S2.BATCH_NO) S1 on s.plan_id =
s1.plan_id
and NVL(S.Batch_No,'/') = NVL(s1.BATCH_NO,'/')
and s.judge_stove_no =
s1.JUDGE_STOVE_NO
WHERE S.JUDGE_STOVE_NO = ?
AND S.LOT_NO = ?
AND S.PLAN_ID = ?
AND S.STATUS = '2'
GROUP BY S.ORDER_LENGTH, S.BATCH_NO)
SELECT COUNT(1) ACT_COUNT,
T1.JUDGE_STOVE_NO,
T1.LOT_NO,
T1.PIPE_LENGTH AS ACT_LEN,
0.02466 * T4.WALLTHICK *(T4.OUTDIAMETER - T4.WALLTHICK)*T1.PIPE_LENGTH AS ACT_WEIGHT
FROM MIL_SLAB_SCRAP T1,
(SELECT T3.OUTDIAMETER,T3.WALLTHICK,T2.JUDGE_STOVE_NO,T2.LOT_NO
FROM MIL_PLAN T2, PLN_ORDER_ZG T3
WHERE T2.CONTRACT_NO = T3.ORDER_NO || '/' || T3.ORDER_SEQ)T4
WHERE T1.JUDGE_STOVE_NO = T4.JUDGE_STOVE_NO
AND T1.LOT_NO = T4.LOT_NO
AND T1.JUDGE_STOVE_NO = ?
AND T1.LOT_NO = ?
AND NVL(T1.PIPE_LENGTH,'/') = NVL(?,'/')
AND T1.FLAG = '1'
AND T1.HANDLE_RESULT = '500201'
GROUP BY T1.JUDGE_STOVE_NO, T1.LOT_NO,T1.PIPE_LENGTH,T4.OUTDIAMETER,T4.WALLTHICK
SELECT DISTINCT COUNT(1) ACT_COUNT,
T1.JUDGE_STOVE_NO,
T1.LOT_NO,
T1.Pipe_Length,
0.02466 * T4.WALLTHICK *(T4.OUTDIAMETER - T4.WALLTHICK)*T1.PIPE_LENGTH AS ACT_WEIGHT
FROM PORT_MIL_GET_SAMPLE_RESULT T1,
(SELECT T3.OUTDIAMETER,T3.WALLTHICK,T2.JUDGE_STOVE_NO,T2.LOT_NO
FROM MIL_PLAN T2, PLN_ORDER_ZG T3
WHERE T2.CONTRACT_NO = T3.ORDER_NO || '/' || T3.ORDER_SEQ)T4
WHERE T1.JUDGE_STOVE_NO = T4.JUDGE_STOVE_NO
AND T1.LOT_NO = T4.LOT_NO
AND T1.JUDGE_STOVE_NO = ?
AND T1.LOT_NO = ?
AND NVL(T1.PIPE_LENGTH,'/') = NVL(?,'/')
GROUP BY T1.JUDGE_STOVE_NO, T1.LOT_NO,T1.Pipe_Length,T4.OUTDIAMETER,T4.WALLTHICK
SELECT T.BASENAME,T.BASECODE
FROM COM_BASE_INFO T
WHERE T.SORTCODE = '407404'
SELECT T.BASENAME,T.BASECODE
FROM COM_BASE_INFO T
WHERE T.SORTCODE = '407406'
DECLARE
V_JUGDE_APPLY_CODE MAT_BC_M.JUGDE_APPLY_CODE%TYPE := NULL;
BEGIN
--SELECT ? || ? || TO_CHAR(SYSDATE, 'YYYYMMDD') ||
-- LPAD(NVL(MAX(SUBSTR(T.JUGDE_APPLY_CODE, 19)), 0) + 1, 5, 0)
-- INTO V_JUGDE_APPLY_CODE
-- FROM MAT_BC_M T
--WHERE T.PLINE_CODE = ?
-- AND T.PRODUCT_FLAG = ?;
FOR MYROW IN (SELECT T.MAT_NO
FROM MAT_BC_M T
LEFT JOIN YDM_BC_BUTTRESS S ON T.MAT_NO = S.MAT_NO
WHERE T.JUDGE_STOVE_NO = ?
AND T.BATCH_NO = ?
AND T.BATCH_GROUD_NO = ?
--AND NVL(S.STORAGE_NO,'/') = NVL(?,'/')
--AND NVL(S.LOCATION_NO,'/') = NVL(?,'/')
AND T.PRODUCT_FLAG = ?
AND T.MAT_STATUS = ?
AND T.JUGDE_APPLY_CODE IS NULL
ORDER BY T.MAT_NO ASC) LOOP
UPDATE MAT_BC_M T
SET T.JUGDE_APPLY_CODE = ?,
T.JUGDE_APPLY_SEQUENO = '1',
T.JUGDE_APPLY_TIME = SYSDATE
WHERE T.MAT_NO = MYROW.MAT_NO;
END LOOP;
END;
'X'
AND T.QCM_STAUS = '00'
]]>
UPDATE MIL_PLAN T
SET T.NODE_STATUS = '99'
WHERE T.JUDGE_STOVE_NO = ?
AND T.LOT_NO = ?
AND T.PLINE_CODE = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
UPDATE MIL_INSTORE_RESULT T
SET T.NODE_FUR_FLAG = '1', T.USER_ID = ?, T.END_TIME = SYSDATE
WHERE T.JUDGE_STOVE_NO = ?
AND T.LOT_NO = ?
AND T.PLINE_CODE = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
DECLARE
V_JUDGE_STOVE_NO MIL_PLAN.JUDGE_STOVE_NO%TYPE := ?;
V_PRO_PLAN_ID MIL_PLAN.PRO_PLAN_ID%TYPE := ?;
V_GX_PLAN_NO MIL_PLAN.GX_PLAN_NO%TYPE := ?;
BEGIN
UPDATE MIL_PLAN T
SET T.NODE_STATUS = '96'
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, '/');
UPDATE MIL_INSTORE_RESULT T
SET T.NODE_FUR_FLAG = '0'
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, '/');
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T
SET T.STATUS = '0', T.OP_PROCESS = ''
WHERE T.OP_PROCESS = '12'
AND 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, '/');
UPDATE MAT_BC_M T1
SET T1.ZG_MAT_NO = ''
where T1.ZG_STOVE_SQE = V_JUDGE_STOVE_NO;
END;
SELECT T.NODE_STATUS, T.ID
FROM MIL_PLAN T
WHERE T.JUDGE_STOVE_NO = ?
AND T.LOT_NO = ?
AND T.PLINE_CODE = ?
DECLARE
V_JUGDE_APPLY_CODE QCM_ZG_JUGDE_APPLY.JUGDE_APPLY_CODE%type := ?;
V_JUDGE_STOVE_NO QCM_ZG_JUGDE_APPLY.JUDGE_STOVE_NO%type := ?;
V_BATCH_NO QCM_ZG_JUGDE_APPLY.BATCH_NO%type := ?;
V_BATCH_GROUD_NO QCM_ZG_JUGDE_APPLY.BATCH_GROUD_NO%type := ?;
V_ORD_LN_DLY_PK QCM_ZG_JUGDE_APPLY.ORD_LN_DLY_PK%type := NULL;
V_TARGET QCM_ZG_JUGDE_APPLY.TARGET%type := NULL;
BEGIN
SELECT T.ORD_LN_DLY_PK, T.TARGET
INTO V_ORD_LN_DLY_PK, V_TARGET
FROM QCM_ZG_JUGDE_APPLY T
WHERE T.JUGDE_APPLY_CODE = V_JUGDE_APPLY_CODE
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.BATCH_NO = V_BATCH_NO
AND T.BATCH_GROUD_NO = V_BATCH_GROUD_NO
AND ROWNUM = 1;
DELETE FROM QCM_ZG_JUGDE_APPLY T
WHERE T.JUGDE_APPLY_CODE = V_JUGDE_APPLY_CODE
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.BATCH_NO = V_BATCH_NO
AND T.BATCH_GROUD_NO = V_BATCH_GROUD_NO;
UPDATE MAT_BC_M T
SET T.JUGDE_APPLY_CODE = '',
T.TESTING_GRADE = '',
T.TESTING_TYPE = '',
T.TESTING_GRADE1 = '',
T.TESTING_TYPE1 = '',
T.JUGDE_APPLY_TIME = '',
T.JUGDE_APPLY_SEQUENO = '1'
WHERE T.JUGDE_APPLY_CODE = V_JUGDE_APPLY_CODE
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.BATCH_NO = V_BATCH_NO
AND T.BATCH_GROUD_NO = V_BATCH_GROUD_NO
AND T.PROCESS_CDOE = 'D';
DELETE FROM MAT_BC_QCMTRACK T
WHERE T.JUGDE_APPLY_CODE = V_JUGDE_APPLY_CODE
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.BATCH_NO = V_BATCH_NO
AND T.PROCESS_CDOE = 'D';
DELETE FROM QCM_ADD_ASK T
WHERE T.JUGDE_APPLY_CODE = V_JUGDE_APPLY_CODE
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO;
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT P
SET P.TR_FLAG2 = ''
WHERE P.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO || '-01'
AND P.TR_FLAG2 LIKE V_JUGDE_APPLY_CODE || '_';
--更新成品送判量统计表
IF (V_TARGET = 'A') THEN
SET_QCM_ZC_APPLY2(V_ORD_LN_DLY_PK);
END IF;
END;
DECLARE
V_JUGDE_APPLY_CODE QCM_ZG_JUGDE_APPLY.JUGDE_APPLY_CODE%type := ?;
V_JUDGE_STOVE_NO QCM_ZG_JUGDE_APPLY.JUDGE_STOVE_NO%type := ?;
V_BATCH_NO QCM_ZG_JUGDE_APPLY.BATCH_NO%type := ?;
V_BATCH_GROUD_NO QCM_ZG_JUGDE_APPLY.BATCH_GROUD_NO%type := ?;
BEGIN
UPDATE QCM_ZG_JUGDE_APPLY T
SET T.IS_FLAG = '1'
WHERE T.JUGDE_APPLY_CODE = V_JUGDE_APPLY_CODE
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.BATCH_NO = V_BATCH_NO
AND T.BATCH_GROUD_NO = V_BATCH_GROUD_NO;
UPDATE MAT_BC_M T
SET T.JUGDE_APPLY_CODE = '',
T.JUGDE_APPLY_TIME = '',
T.JUGDE_APPLY_SEQUENO = '1'
WHERE T.JUGDE_APPLY_CODE = V_JUGDE_APPLY_CODE
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.BATCH_NO = V_BATCH_NO
AND T.BATCH_GROUD_NO = V_BATCH_GROUD_NO
AND T.PROCESS_CDOE = 'D';
DELETE FROM MAT_BC_QCMTRACK T
WHERE T.JUGDE_APPLY_CODE = V_JUGDE_APPLY_CODE
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.BATCH_NO = V_BATCH_NO
AND T.PROCESS_CDOE = 'D';
DELETE FROM QCM_ADD_ASK T
WHERE T.JUGDE_APPLY_CODE = V_JUGDE_APPLY_CODE
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO;
END;
SELECT COUNT(1)ACOUNT
FROM QCM_ZG_JUGDE_APPLY T
WHERE T.JUGDE_APPLY_CODE = ?
AND T.JUDGE_STOVE_NO = ?
AND T.BATCH_NO = ?
AND T.BATCH_GROUD_NO = ?
AND T.VALIDFLAG = '15'
SELECT COUNT(1) ACOUNT
FROM QCM_BC_PASS_APPLY T
WHERE T.JUGDE_APPLY_CODE = ?
AND T.JUDGE_STOVE_NO = ?
AND T.VALIDFLAG = '1'
SELECT NVL(SUM(T.ACT_COUNT),0)ACOUNT
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = ?
AND T.BATCH_NO = ?
AND T.BATCH_GROUD_NO = ?
AND T.ZG_STOVE_SQE = ?
AND T.JUGDE_APPLY_CODE IS NULL
SELECT NVL(SUM(T.ACT_COUNT), 0) ACOUNT
FROM MAT_BC_M T, YDM_BC_BUTTRESS S, COM_BASE_PLINE C, YDM_BC_INLIST T2
WHERE T.MAT_NO = S.MAT_NO
AND T.MAT_NO = T2.MAT_NO
AND T2.INSTOCK_TYPE_NAME = '产出入库'
AND T.PLINE_CODE = C.PLINE_CODE
AND T.QCM_STAUS = '00'
AND T.LOCK_LIKU = '0'
AND T.JUGDE_APPLY_CODE IS NULL
AND T.JUDGE_STOVE_NO = ?
AND T.BATCH_NO = ?
AND T.BATCH_GROUD_NO = ?
AND T2.INSTOCK_DOC = ?
AND (C.OUT_REPOSITORY = S.STORAGE_NO OR S.STORAGE_NO IN ('BZJ1', 'BZJ2','BZJ3'))
SELECT NVL(SUM(T.ACT_COUNT), 0) ACOUNT
FROM MAT_BC_M T, YDM_BC_BUTTRESS S, YDM_BC_BUTTRESS_BACK C
WHERE T.MAT_NO = S.MAT_NO
AND T.MAT_NO = C.MAT_NO
AND S.STORAGE_NO != C.STORAGE_NO
AND T.QCM_STAUS = '00'
AND T.LOCK_LIKU = '0'
AND T.JUDGE_STOVE_NO = ?
AND T.BATCH_NO = ?
AND T.BATCH_GROUD_NO = ?
= T.ACT_LEN_MIN
AND ? <= T.ACT_LEN_MAX
AND T.PROCESS_CODE = ?
]]>
INSERT INTO MIL_INSTORE(
INSTORE_ID,
JUDGE_STOVE_NO,
BATCH_NO,
SAMPLE_FLAG,
TEST_STAUS,
SURFACE_STAUS,
ACT_LEN_MIN,
ACT_LEN_MAX,
BATCH_GROUD_NO,
PROCESS_CODE)
VALUES(
?,
?,
?,
'',
?,
?,
?,
?,
?,
?)
SELECT NVL(SUM(T.ACT_COUNT),0) ACOUNT
FROM MAT_BC_M T
WHERE T.ZG_STOVE_SQE = ?
AND T.BATCH_NO = ?
--AND T.PRODUCT_FLAG = '801401'
SELECT NVL(SUM(T.ACT_COUNT), 0) ACOUNT
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = ?
AND T.BELONG_CODE = ?
AND T.LOT_NO = ?
AND T.JUGDE_APPLY_CODE IS NULL
AND T.QCM_STAUS = '00'
SELECT T.MAT_NO
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = ?
AND T.BELONG_CODE = ?
AND T.LOT_NO = ?
AND T.JUGDE_APPLY_CODE IS NULL
AND T.QCM_STAUS = '00'
UPDATE MAT_BC_M T
SET T.PONDER_GROSS_WT = ?,
T.ACT_WEIGHT = ?,
T.PONDER_NAME = ?,
T.PONDER_TIME = SYSDATE
WHERE T.MAT_NO = ?
AND T.JUDGE_STOVE_NO = ?
AND T.BELONG_CODE = ?
AND T.LOT_NO = ?
SELECT NVL(SUM(T.ACT_COUNT),0)ACT_COUNT FROM MAT_BC_M T WHERE T.JUDGE_STOVE_NO = ? AND T.BELONG_CODE = ? AND T.PLINE_CODE = ? AND T.QCM_STAUS = '00' AND T.JUGDE_APPLY_CODE IS NULL
'99'
]]>
SELECT STORAGE_NAME, STORAGE_NO
FROM YDM_BS_STORAGE T
WHERE VALIDFLAG = '1'
--AND DUMMY_FLAG = '0'
AND SUBSTR(T.MANAGEMENT_NO, 1, 6) = SUBSTR(?, 1, 6)
AND STORAGE_TYPE_NO IN( '800202','800205')
ORDER BY STORAGE_ATTR, STORAGE_NAME ASC
DECLARE
BEGIN
UPDATE MIL_INSTORE_RESULT T
SET T.SCRAP_NUM = TO_NUMBER(T.SCRAP_NUM)+ TO_NUMBER('1')
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
INSERT INTO MIL_SLAB_SCRAP_SEQ(
JUDGE_STOVE_NO,
PROCESS_NO,
SEQ,
TIME,
COL_TIME,
COL_USER,
COL_SHIFT,
COL_GROUP,
RESULT_NO)
VALUES(
'#JUDGE_STOVE_NO#',
'12',
'#SEQ#',
SYSDATE,
SYSDATE,
'#COL_USER#',
'#COL_SHIFT#',
'#COL_GROUP#',
'#PLAN_ID#'
);
END;
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T
SET T.ORDER_LENGTH = '#ORDER_LENGTH#',
T.ACT_THEORY_WEIGHT = ROUND(TO_NUMBER(T.ACT_THEORY_WEIGHT) *
TO_NUMBER('#ORDER_LENGTH#') /
TO_NUMBER(T.ORDER_LENGTH),
3)
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.MAT_NO = '#MAT_NO#'
SELECT T.NODE_STATUS FROM MIL_PLAN T WHERE T.JUDGE_STOVE_NO = ?
DECLARE
BEGIN
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T
SET T.STATUS = '0',
T.OP_PROCESS = ' '
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.MAT_NO = '#MAT_NO#';
DELETE FROM MIL_SLAB_SCRAP_SEQ T WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.PROCESS_NO = '12';
END;
DECLARE
V_COUNT MIL_INSTORE_RESULT.QUALIFIED_NUM%TYPE := NULL;
V_JUDGE_STOVE_NO MIL_INSTORE_RESULT.JUDGE_STOVE_NO%TYPE := ?;
V_RESULT_NO MIL_INSTORE_RESULT.RESULT_NO%TYPE := ?;
V_PRO_PLAN_ID MIL_INSTORE_RESULT.PRO_PLAN_ID%TYPE := ?;
V_GX_PLAN_NO MIL_INSTORE_RESULT.GX_PLAN_NO%TYPE := ?;
V_ZERO_COUNT NUMBER := 0;
BEGIN
-- 先检查是否有0支0吨的记录
SELECT COUNT(1)
INTO V_ZERO_COUNT
FROM MIL_INSTORE_RESULT T
WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.RESULT_NO = V_RESULT_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.QUALIFIED_NUM = 0
AND T.QUALIFIED_TONS = 0
and T.GX_PLAN_NO is null;
-- 如果有0支0吨的记录，先删除
IF (V_ZERO_COUNT > 0) THEN
DELETE FROM MIL_INSTORE_RESULT T
WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.RESULT_NO = V_RESULT_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.QUALIFIED_NUM = 0
AND T.QUALIFIED_TONS = 0
and T.GX_PLAN_NO is null;
END IF;
-- 原有逻辑保持不变
SELECT COUNT(1)
INTO V_COUNT
FROM MIL_INSTORE_RESULT T
WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.RESULT_NO = V_RESULT_NO
AND NVL(T.PRO_PLAN_ID, '/') = NVL(V_PRO_PLAN_ID, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(V_GX_PLAN_NO, '/');
IF (V_COUNT > 0) THEN
UPDATE MIL_INSTORE_RESULT T
SET T.QUALIFIED_NUM = TO_NUMBER(NVL(T.QUALIFIED_NUM, 0)) +
TO_NUMBER(?),
T.QUALIFIED_TONS = TO_NUMBER(NVL(T.QUALIFIED_TONS, 0)) +
TO_NUMBER(?)
WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.RESULT_NO = V_RESULT_NO
AND NVL(T.PRO_PLAN_ID, '/') = NVL(V_PRO_PLAN_ID, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(V_GX_PLAN_NO, '/');
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,
START_TIME,
PRO_PLAN_ID,
GX_PLAN_NO)
VALUES
(?,
?,
?,
?,
?,
'',
'',
?,
?,
?,
'',
'',
sysdate,
V_PRO_PLAN_ID,
V_GX_PLAN_NO);
END IF;
END;
UPDATE MIL_INSTORE_RESULT T
SET T.QUALIFIED_NUM = TO_NUMBER(T.QUALIFIED_NUM) -
TO_NUMBER('#ACT_COUNT#'),
T.QUALIFIED_TONS = TO_NUMBER(T.QUALIFIED_TONS) -
TO_NUMBER('#ACT_WEIGHT#'),
T.NODE_FUR_FLAG = '0'
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
SELECT NVL(S.LEN_ROLL_MIN,0) AS LENGTHMIN,
NVL(S.LEN_ROLL_MAX,0) AS LENGTHMAX,
SUBSTR(T.LENGTH_RANGE, INSTR(T.LENGTH_RANGE, '-', -1, 1) + 1)ROLL_MAX,
SUBSTR(T.LENGTH_RANGE, 0, INSTR(T.LENGTH_RANGE, '-', -1, 1) - 1) ROLL_MIN
FROM MIL_PLAN T
LEFT JOIN PLN_ORDER_ZG_S S ON SUBSTR(T.ORD_LN_DLY_PK,
0,
length(T.ORD_LN_DLY_PK) - 3) =
S.ORD_LN_DLY_PK
WHERE T.ORD_LN_DLY_PK = ?
AND ROWNUM = 1
0 OR T.OFFLINE_NUM > 0)
]]>
'X'
AND T.JUGDE_APPLY_CODE IS NOT NULL
UNION ALL
SELECT COUNT(1) ACOUNT
FROM MAT_BC_BACKUP T
WHERE T.ZG_STOVE_SQE = ?
AND T.PROCESS_CDOE = 'D'
AND T.BATCH_NO <> 'X'
AND T.JUGDE_APPLY_CODE IS NOT NULL)
]]>
SELECT COUNT(1) ACOUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = REGEXP_REPLACE(?, '-.*', '')
AND T.STATUS = '2'
AND T.OP_PROCESS = '14'
DECLARE
V_MAT_NO MAT_BC_M.MAT_NO%TYPE;
CURSOR OPOrder_Cursor IS
SELECT ROWNUM SEQ, MAT_NO,JUDGE_STOVE_NO
from (SELECT T.SEQ, T.MAT_NO,T.JUDGE_STOVE_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.STATUS = '0'
ORDER BY T.IS_SAMPLE_PIPE,T.SEQ ASC);
curOPOrder OPOrder_Cursor%RowType;
BEGIN
open OPOrder_Cursor;
LOOP
fetch OPOrder_Cursor
into curOPOrder;
EXIT WHEN OPOrder_Cursor%NOTFOUND;
SELECT MAT_NO INTO V_MAT_NO FROM(
SELECT ROWNUM SEQ,T.MAT_NO
FROM MAT_BC_M T
WHERE T.ZG_STOVE_SQE = curOPOrder.JUDGE_STOVE_NO
AND T.QCM_STAUS = '00'
ORDER BY T.SAMPLE_FLAG,T.MAT_NO ASC)WHERE SEQ = curOPOrder.SEQ ;
UPDATE MAT_BC_M T
SET T.ZG_MAT_NO = curOPOrder.MAT_NO
WHERE T.ZG_STOVE_SQE = curOPOrder.JUDGE_STOVE_NO
AND T.MAT_NO = V_MAT_NO;
END LOOP;
close OPOrder_Cursor;
END;
SELECT T.NODE_FUR_FLAG FROM MIL_INSTORE_RESULT T WHERE T.JUDGE_STOVE_NO = ?
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T SET
T.ACT_THEORY_WEIGHT = round(TO_NUMBER(?) * TO_NUMBER(T.ORDER_LENGTH),3)
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?
UPDATE MAT_BC_M T
SET T.FLAG_STOVE_NO_ZG = ?
WHERE T.JUDGE_STOVE_NO = ?
AND T.BATCH_NO = ?
AND T.BATCH_GROUD_NO = ?
AND (T.BELONG_CODE = '002001016003' or T.BELONG_CODE = '002001017003' or T.BELONG_CODE = '002001016002' or T.BELONG_CODE = '002001018003')
AND T.QCM_STAUS = '11'
UPDATE MAT_BC_M T
SET T.CHEM_RESULT_CODE = ?
WHERE T.JUDGE_STOVE_NO = ?
AND T.BELONG_NAME NOT IN ('100101', '100102', '100103')
UPDATE MAT_BC_M T
SET T.PHY_RESULT_CODE = ?
WHERE T.JUDGE_STOVE_NO = ?
AND T.BATCH_NO = ?
AND T.BELONG_CODE NOT IN ('100101', '100102', '100103')
SELECT COUNT(1)
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = ?
AND T.BATCH_NO = ?
AND T.BATCH_GROUD_NO = ?
AND T.QCM_STAUS = '00'
AND T.BELONG_CODE NOT IN ('100101', '100102', '100103')
AND (T.CHEM_RESULT_CODE IS NULL OR T.PHY_RESULT_CODE IS NULL OR
T.TESTING_GRADE IS NULL)
SELECT COUNT(1)
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = ?
AND T.BATCH_NO = ?
AND T.BATCH_GROUD_NO = ?
AND T.QCM_STAUS = '00'
AND T.BELONG_CODE NOT IN ('100101', '100102', '100103')
AND (T.CHEM_RESULT_CODE IS NULL OR
T.TESTING_GRADE IS NULL)
SELECT T.*
FROM MIL_MT_RESULT T
LEFT JOIN MIL_OFFLINE_GROUP S ON T.JUDGE_STOVE_NO = S.ZP_M_LH
WHERE S.ZP_JUDGE_STOVE_NO = ?
UNION ALL
SELECT T.* FROM MIL_MT_RESULT T WHERE T.JUDGE_STOVE_NO = ?
SELECT T.*
FROM MIL_ET_RESULT T
LEFT JOIN MIL_OFFLINE_GROUP S ON T.JUDGE_STOVE_NO = S.ZP_M_LH
WHERE S.ZP_JUDGE_STOVE_NO = ?
UNION ALL
SELECT T.* FROM MIL_ET_RESULT T WHERE T.JUDGE_STOVE_NO = ?
UPDATE MAT_BC_M T
SET T.TESTING_GRADE = ?, T.TESTING_TYPE = ?
WHERE T.JUDGE_STOVE_NO = ?
AND T.BELONG_CODE NOT IN ('100101', '100102', '100103')
SELECT S.ASK_SUB_ITME_VAL_DESC ,S.ASK_ITME
FROM PLN_SALEORD T
LEFT JOIN SLM_ORDER_ADD_ASK S ON T.ADD_ASK_NO = S.ADD_ASK_NO
WHERE T.ORDER_NO || '/' || T.ORDER_SEQ = ?
UPDATE MIL_PLAN T SET T.PRT_FLAG = ? WHERE SUBSTR(T.JUDGE_STOVE_NO,1,6) = ?
SELECT T.PRT_FLAG FROM MIL_PLAN T WHERE T.JUDGE_STOVE_NO = ?
SELECT T.CONTROL_THICKP,NVL(S.AIMOUTDIAMETER,0)AIMOUTDIAMETER,T.VARIETIES,
SUBSTR(T.PIPE_SIZE,0,INSTR(T.PIPE_SIZE,'*', -1, 1)-1)OUTDIAMETER
FROM MIL_PLAN T LEFT JOIN PLN_ORDER_ZG_S S ON
SUBSTR(T.ORD_LN_DLY_PK,0,length(T.ORD_LN_DLY_PK)-3) = S.ORD_LN_DLY_PK
WHERE T.JUDGE_STOVE_NO = ?
AND ROWNUM = 1
SELECT * FROM SLM_ORDER_LINE_DELIVERY T WHERE T.ORD_LN_DLY_PK = ?
SELECT DECODE(T.ORDER_TYP,'120108','1','120107','2','120109','3', '0') ORDER_TYP FROM SLM_ORDER_HEAD T WHERE T.ORD_PK = ?
select t.* from PLN_SALEORD t where t.ord_ln_dly_pk = ?
SELECT T.OUT_MATERIAL_NO FROM SLM_BASE_MATERIAL_D T WHERE T.OUT_MATERIAL_DESC = ?
select T.ACT_THEORY_WEIGHT
from PORT_MIL_BATCH_SAMPLE_RESULT t
WHERE t.Judge_Stove_No = ?
and t.pro_plan_id = ?
and t.gx_plan_no = ?
AND ROWNUM = 1
select t.next_process_code,
t1.process_desc,
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, com_base_pline t1
where t.next_process_code = t1.process_code(+)
and t.feed_heat_no = ?
and t.pro_plan_id = ?
and t.gx_plan_no = ?
group by t.next_process_code,
t1.process_desc,
T.HEAT_PLAN_NO,
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.GOWHERE_CODE,
T.GOWHERE_NAME
from pln_zy_zg_m t
where t.pro_plan_id = ?
and t.gx_plan_no = ?
group by T.CIC,
T.PIC,
T.SIC,
T.DIC,
T.IF_PRODUCT,
T.INWL_ID,
T.INWL_DESC,
T.OUTWL_ID,
T.OUTWL_DESC,
T.CRAFT_SEQ,
T.GOWHERE_CODE,
T.GOWHERE_NAME
SELECT T.INWL_ID,
T.INWL_DESC,
T.OUTWL_ID,
T.OUTWL_DESC,
T.CIC_GP CIC,
T.CRAFT_SEQ,
CASE
WHEN (SELECT COUNT(*) COUNT
FROM PLN_ORDER_ZG_S T,
PLN_SALEORD T1,
CRAFT_ORD_DESIGN M,
CRAFT_ORD_DESIGN_MSC_PL_STI C
WHERE T1.ORD_LN_DLY_PK = T.ORD_LN_DLY_PK
AND M.ORD_LN_PK = T1.ORD_LN_PK
AND M.CRAFT_SEQ = T.CRAFT_SEQ
AND C.DESGIN_KEY = M.DESGIN_KEY
AND C.MSC_PLINE = T.INDEX_SEQ
AND C.STATION_TYPE = '403201'
AND C.PROCESS_CODE = 'D'
AND T.PRO_PLAN_ID = ?
AND T.GX_PLAN_NO = ?) > 0 THEN
T.CIC_GP || '+' || SUBSTR(T.PIC, 0, 10) || '+' ||
SUBSTR(T.SIC, 0, 10) || '+' || SUBSTR(T.DIC, 0, 10)
ELSE
SUBSTR(T.PIC, 0, 10) || '+' || SUBSTR(T.SIC, 0, 10) || '+' ||
SUBSTR(T.DIC, 0, 10)
END judgeStdDes
FROM PLN_ORDER_ZG_S T
where T.PRO_PLAN_ID = ?
AND T.GX_PLAN_NO = ?
SELECT E.PRO_PLAN_ID, E.GX_PLAN_NO, E.PLN_OUTSINGLE_NUM,E.HEAT_PLAN_NO
FROM pln_zy_zg_m T, PLN_ZY_DBK_M E
WHERE E.UPPER_HEATPLAN_ID = T.HEAT_PLAN_NO
AND t.feed_heat_no = ?
and t.pro_plan_id = ?
and t.gx_plan_no = ?
SELECT F.PRO_PLAN_ID, F.GX_PLAN_NO, F.PLN_OUTSINGLE_NUM,F.HEAT_PLAN_NO
FROM pln_zy_zg_m T, PLN_ZY_RCL_M F
WHERE F.UPPER_HEATPLAN_ID = T.HEAT_PLAN_NO
AND t.feed_heat_no = ?
and t.pro_plan_id = ?
and t.gx_plan_no = ?
SELECT G.PRO_PLAN_ID, G.GX_PLAN_NO, G.PLN_OUTSINGLE_NUM,G.HEAT_PLAN_NO
FROM pln_zy_zg_m T, PLN_ZY_JGX_M G
WHERE G.UPPER_HEATPLAN_ID = T.HEAT_PLAN_NO
AND t.feed_heat_no = ?
and t.pro_plan_id = ?
and t.gx_plan_no = ?
SELECT NVL(SUM(T.ACT_COUNT),0) ACT_COUNT
FROM QCM_ZG_JUGDE_APPLY T
WHERE T.JUDGE_STOVE_NO = ?
AND T.PRO_ORDER_NO = ?
AND T.IS_FLAG = '0'
SELECT T.CONTRACT_NO FROM MIL_PLAN T WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?
SELECT T.PRT_FLAG FROM MIL_PLAN T WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?
SELECT NVL(SUM(T.PONDER_GROSS_WT), 0) PONDER_GROSS_WT
FROM MAT_BC_M t
WHERE T.JUDGE_STOVE_NO = ?
AND T.PROCESS_CDOE = 'D'
SELECT T.BASENAME,T.BASECODE FROM COM_BASE_INFO T WHERE T.SORTCODE LIKE '%4022%'
UPDATE MAT_BC_M t
SET T.MAT_GOWHERE_CODE = ?, T.MAT_GOWHERE_NAME = ?
WHERE T.JUDGE_STOVE_NO = ?
AND T.LOT_NO = ?
AND T.PLINE_CODE = ?
DECLARE
V_JUGDE_APPLY_CODE QCM_ZG_JUGDE_APPLY.JUGDE_APPLY_CODE%type := ?;
V_JUGDE_APPLY_SEQUENO QCM_ZG_JUGDE_APPLY.JUGDE_APPLY_SEQUENO%type := ?;
V_JUDGE_STOVE_NO QCM_ZG_JUGDE_APPLY.JUDGE_STOVE_NO%type := ?;
V_BATCH_NO QCM_ZG_JUGDE_APPLY.BATCH_NO%type := ?;
V_BATCH_GROUD_NO QCM_ZG_JUGDE_APPLY.BATCH_GROUD_NO%type := ?;
V_INPUT_COUNT QCM_ZG_JUGDE_APPLY.INPUT_COUNT%type := ?;
V_INPUT_WEIGHT QCM_ZG_JUGDE_APPLY.INPUT_WEIGHT%type := ?;
V_COL_NAME QCM_ZG_JUDGE_INPUT_RECORD.COL_NAME%type := ?;
BEGIN
FOR MYROW IN (SELECT *
FROM QCM_ZG_JUGDE_APPLY T
WHERE T.JUGDE_APPLY_CODE = V_JUGDE_APPLY_CODE
AND T.JUGDE_APPLY_SEQUENO = V_JUGDE_APPLY_SEQUENO
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.BATCH_NO = V_BATCH_NO
AND T.BATCH_GROUD_NO = V_BATCH_GROUD_NO) LOOP
INSERT INTO QCM_ZG_JUDGE_INPUT_RECORD
(JUGDE_APPLY_CODE,
JUDGE_STOVE_NO,
BATCH_NO,
BATCH_GROUD_NO,
PROCESS_CODE,
PLINE_CODE,
ACT_COUNT,
ACT_WEIGHT,
ACT_THEORY_WEIGHT,
INPUT_WEIGHT,
INPUT_COUNT,
INPUT_WEIGHT2,
INPUT_COUNT2,
BAL_YEAR_MONTH,
JUGDE_APPLY_SEQUENO,
COL_NAME,
COL_TIME,
PLINE_NAME,
QUALITY_GROUP,
MAT_GOWHERE_CODE,
MAT_GOWHERE_NAME)
VALUES
(MYROW.JUGDE_APPLY_CODE,
MYROW.JUDGE_STOVE_NO,
MYROW.BATCH_NO,
MYROW.BATCH_GROUD_NO,
MYROW.PROCESS_CODE,
MYROW.PLINE_CODE,
MYROW.ACT_COUNT,
MYROW.ACT_WEIGHT,
MYROW.ACT_THEORY_WEIGHT,
MYROW.INPUT_WEIGHT,
MYROW.INPUT_COUNT,
V_INPUT_WEIGHT,
V_INPUT_COUNT,
MYROW.BAL_YEAR_MONTH,
MYROW.JUGDE_APPLY_SEQUENO,
V_COL_NAME,
SYSDATE,
MYROW.PLINE_NAME,
MYROW.QUALITY_GROUP,
MYROW.MAT_GOWHERE_CODE,
MYROW.MAT_GOWHERE_NAME);
UPDATE QCM_ZG_JUGDE_APPLY T
SET T.INPUT_COUNT = V_INPUT_COUNT,
T.OUTPUT_COUNT = V_INPUT_COUNT,
T.INPUT_WEIGHT = V_INPUT_WEIGHT,
T.OUTPUT_WEIGHT = V_INPUT_WEIGHT
WHERE T.JUGDE_APPLY_CODE = V_JUGDE_APPLY_CODE
AND T.JUGDE_APPLY_SEQUENO = V_JUGDE_APPLY_SEQUENO
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.BATCH_NO = V_BATCH_NO
AND T.BATCH_GROUD_NO = V_BATCH_GROUD_NO;
END LOOP;
END;
SELECT T.UL_TESTING
FROM MIL_ENTRUSTED_BILL T
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
SELECT T.ACCEPTANCE_GRADE AS TEST_GRADE,
T.INSPECTION_STANDARD AS TESTING_STANDAR,
T.NOTCH_INFO,
T.NOTCH_LENGTH,
T.NOTCH_WIDTH,
T.NOTCH_DEPTH
FROM MIL_ET_RESULT T
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?
AND ROWNUM = 1
UNION ALL (SELECT T.ACCEPTANCE_GRADE AS TEST_GRADE,
T.INSPECTION_STANDARD AS TESTING_STANDAR,
T.NOTCH_INFO,
T.NOTCH_LENGTH,
T.NOTCH_WIDTH,
T.NOTCH_DEPTH
FROM MIL_ET_RESULT T, MIL_OFFLINE_RESLUT S
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = REGEXP_REPLACE(S.Zp_m_Lh, '-.*', '')
AND REGEXP_REPLACE(S.JUDGE_STOVE_NO, '-.*', '') = ?
AND ROWNUM = 1)
SELECT T.LO_SURFACE AS TEST_GRADE,
T.INSPECTION_STANDARD AS TESTING_STANDAR,
T.NOTCH_INFO,
T.NOTCH_LENGTH,
T.NOTCH_WIDTH,
T.NOTCH_DEPTH
FROM MIL_MT_RESULT T
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?
AND ROWNUM = 1
UNION ALL (SELECT T.LO_SURFACE AS TEST_GRADE,
T.INSPECTION_STANDARD AS TESTING_STANDAR,
T.NOTCH_INFO,
T.NOTCH_LENGTH,
T.NOTCH_WIDTH,
T.NOTCH_DEPTH
FROM MIL_MT_RESULT T, MIL_OFFLINE_RESLUT S
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = REGEXP_REPLACE(S.Zp_m_Lh, '-.*', '')
AND REGEXP_REPLACE(S.JUDGE_STOVE_NO, '-.*', '') = ?
AND ROWNUM = 1)
SELECT NVL(T.TESTING_TYPE,'')TESTING_TYPE,NVL(T.TESTING_GRADE,'')TESTING_GRADE FROM HTT_ENTRUST_RESULT T WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?
SELECT COUNT(1) AS ACOUNT FROM MIL_INSTORE_RESULT T WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ? AND T.NODE_FUR_FLAG = '0'
UPDATE MAT_BC_M T SET T.TARGET = ?,T.PRODUCT_FLAG = ?,T.MAT_STATUS = ? WHERE T.JUDGE_STOVE_NO = ?
SELECT NVL(COUNT(1),0)ACOUNT FROM QCM_ZG_JUGDE_APPLY T WHERE T.JUDGE_STOVE_NO = ? AND T.IS_FLAG = '0'
SELECT COUNT(1)AS ACOUNT FROM MIL_INSTORE_RESULT T WHERE T.NODE_FUR_FLAG = '0' AND REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ? AND (T.QUALIFIED_NUM > 0 OR T.OFFLINE_NUM > 0)
SELECT COUNT(1) AS ACOUNT
FROM QCM_ZG_JUGDE_APPLY T
WHERE T.IS_CARRY_VOER = '1'
AND T.JUGDE_APPLY_CODE = ?
AND T.JUGDE_APPLY_SEQUENO = ?
AND T.JUDGE_STOVE_NO = ?
AND T.BATCH_NO = ?
AND T.BATCH_GROUD_NO = ?
SELECT T.*
FROM QCM_ZG_JUDGE_INPUT_RECORD T
WHERE T.JUGDE_APPLY_CODE = ?
AND T.JUGDE_APPLY_SEQUENO = ?
AND T.JUDGE_STOVE_NO = ?
AND T.BATCH_NO = ?
AND T.BATCH_GROUD_NO = ?
ORDER BY T.COL_TIME
SELECT T.BACK_PLAN_FLAG FROM MIL_PLAN T WHERE T.JUDGE_STOVE_NO = ?
DECLARE
V_GROUP_NO PORT_MIL_BATCH_SAMPLE_RESULT.GROUP_NO%TYPE := NULL;
BEGIN
FOR MYROW IN (SELECT T.MAT_NO, T.JUDGE_STOVE_NO
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE T.STATUS = '0'
AND T.JUDGE_STOVE_NO = ?
AND NVL(T.PRO_PLAN_ID, '/') = NVL(?, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(?, '/')
ORDER BY T.MAT_NO ASC) LOOP
SELECT T.BATCH_GROUD_NO
INTO V_GROUP_NO
FROM MAT_BC_M T
WHERE T.ZG_STOVE_SQE = MYROW.JUDGE_STOVE_NO
AND T.ZG_MAT_NO = MYROW.MAT_NO
AND T.PROCESS_CDOE = 'D'
AND ROWNUM = 1;
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T
SET T.GROUP_NO = V_GROUP_NO
WHERE T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND T.MAT_NO = MYROW.MAT_NO;
END LOOP;
--UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T SET T.BAL_YEAR_MONTH = ? WHERE T.JUDGE_STOVE_NO = ?;
END;
SELECT NVL(COUNT(1),0)ACOUNT FROM PORT_MIL_BATCH_SAMPLE_RESULT T WHERE T.JUDGE_STOVE_NO = ? AND T.LOT_NO = ? AND T.PLAN_ID = ? AND T.STATUS = '0'
'X'
--AND T.HEAT_PLAN_NO = ?
AND T.QCM_STAUS = '00'
AND T.PROCESS_CDOE = 'D'
UNION ALL
SELECT NVL(SUM(T.ACT_COUNT), 0) ACOUNT
FROM MAT_BC_BACKUP T
WHERE T.ZG_STOVE_SQE = ?
AND T.LOT_NO = ?
AND T.BATCH_NO <> 'X'
--AND T.HEAT_PLAN_NO = ?
AND T.QCM_STAUS = '00'
AND T.PROCESS_CDOE = 'D')
]]>
SELECT NVL(T.QUALIFIED_BRANCH,0) - NVL(S.QUALIFIED_NUM,0) - NVL(S.OFFLINE_NUM,0) - NVL(S.SCRAP_NUM,0) AS ACOUNT
FROM MIL_SURFACE_RESULT T
LEFT JOIN MIL_INSTORE_RESULT S ON T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO
WHERE T.JUDGE_STOVE_NO = ?
SELECT NVL(COUNT(1),0)ACOUNT FROM MIL_INSTORE_RESULT T WHERE T.JUDGE_STOVE_NO = ?
SELECT NVL(SUM(T.OFFLINE_NUM),0)OFFLINE_NUM FROM MIL_INSTORE_RESULT T WHERE T.RESULT_NO = ? AND T.JUDGE_STOVE_NO = ?
SELECT T.EXIT_TEMP
FROM MIL_SIZING_RESULT T
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?
UNION ALL
SELECT S1.EXIT_TEMP
FROM MIL_OFFLINE_RESLUT S
LEFT JOIN MIL_SIZING_RESULT S1
ON REGEXP_REPLACE(S.ZP_M_LH, '-.*', '') = REGEXP_REPLACE(S1.JUDGE_STOVE_NO, '-.*', '')
WHERE REGEXP_REPLACE(S.JUDGE_STOVE_NO, '-.*', '') = ?
AND S.ZP_M_LH IS NOT NULL
SELECT T.REMARK AS SAMPLE_NEWS
FROM MIL_MT_RESULT T
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?
UNION ALL
SELECT S1.REMARK AS SAMPLE_NEWS
FROM MIL_OFFLINE_RESLUT S
LEFT JOIN MIL_MT_RESULT S1 ON S.ZP_M_LH = S1.JUDGE_STOVE_NO
WHERE REGEXP_REPLACE(S.JUDGE_STOVE_NO, '-.*', '') = ?
AND S.ZP_M_LH IS NOT NULL
UNION ALL
SELECT F.SAMPLE_NEWS
FROM MIL_ET_RESULT F
WHERE REPLACE(F.JUDGE_STOVE_NO, '-.*', '') = ?
UNION ALL
SELECT S1.SAMPLE_NEWS
FROM MIL_OFFLINE_RESLUT S
LEFT JOIN MIL_ET_RESULT S1 ON S.ZP_M_LH = S1.JUDGE_STOVE_NO
WHERE REGEXP_REPLACE(S.JUDGE_STOVE_NO, '-.*', '') = ?
AND S.ZP_M_LH IS NOT NULL
SELECT T.LO_SURFACE,T.LI_SURFACE,T.TO_SURFACE,T.TI_SURFACE
FROM MIL_MT_RESULT T
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?
UNION ALL
SELECT T.LO_SURFACE,T.LI_SURFACE,T.TO_SURFACE,T.TI_SURFACE
FROM MIL_OFFLINE_RESLUT S
LEFT JOIN MIL_MT_RESULT T ON S.ZP_M_LH = T.JUDGE_STOVE_NO
WHERE REGEXP_REPLACE(S.JUDGE_STOVE_NO, '-.*', '') = ?
AND S.ZP_M_LH IS NOT NULL
SELECT T.MEMO FROM QCM_ZG_JUGDE_APPLY T WHERE T.JUDGE_STOVE_NO = ? AND ROWNUM = 1
SELECT COUNT(1)ACOUNT FROM MIL_OFFLINE_RESLUT T WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?
SELECT SUM(ACT_COUNT) ACOUNT
FROM (SELECT NVL(SUM(T.ACT_COUNT), 0) ACT_COUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?
AND T.STATUS != '3'
AND T.STATUS != '4'
UNION ALL
SELECT -1 * NVL(SUM(T.ACT_COUNT), 0) ACT_COUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?
AND T.STATUS IN ('1', '2', '5')
AND T.OP_PROCESS != '14'
UNION ALL
SELECT -1 * NVL(SUM(T.ACT_COUNT), 0) ACT_COUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?
AND T.STATUS IN ('7')
UNION ALL
SELECT -1 * NVL(SUM(S.QUALIFIED_NUM), 0) ACT_COUNT
FROM MIL_INSTORE_RESULT S
WHERE REGEXP_REPLACE(S.JUDGE_STOVE_NO, '-.*', '') = ?)
SELECT COUNT(1)ACOUNT FROM MIL_OFFLINE_RESLUT T WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ? AND T.STATUS = '0'
SELECT SUM(ACOUNT) ACOUNT
FROM (
--预计生产支
SELECT NVL(SUM(T.ACT_COUNT), 0) ACOUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE T.JUDGE_STOVE_NO = ?||'-01'
UNION ALL
--剔除废
SELECT -1*NVL(SUM(T.ACT_COUNT), 0) ACOUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?
AND T.STATUS IN ('1', '2', '5')
AND T.OP_PROCESS != '14'
UNION ALL
--委外废
SELECT -1*NVL(SUM(T.ACT_COUNT), 0) ACOUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?
AND T.STATUS = '6'
UNION ALL
--离线支,转压库
SELECT -1*NVL(SUM(T.ACT_COUNT),0)ACOUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?
AND T.STATUS IN('3','4','7')
UNION ALL
--返线支
SELECT NVL(SUM(T.ACT_COUNT),0)ACOUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?
AND T.STATUS = '4'
union all
--组炉返线支
SELECT -NVL(SUM(T.ACT_COUNT),0)ACOUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?
AND T.STATUS = '4'
AND T.GROUP_FLAG = '1'
union all
--交库支
SELECT -1*NVL(SUM(S.QUALIFIED_NUM),0) ACOUNT FROM
MIL_INSTORE_RESULT S WHERE REGEXP_REPLACE(S.JUDGE_STOVE_NO, '-.*', '') = ?
)
SELECT SUM(ACOUNT) ACOUNT
FROM (
--预计生产支
SELECT NVL(SUM(T.ACT_COUNT), 0) ACOUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE T.JUDGE_STOVE_NO = ?||'-01'
AND T.GROUP_FLAG = '0'
UNION ALL
--剔除废
SELECT -1*NVL(SUM(T.ACT_COUNT), 0) ACOUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?
AND T.STATUS IN ('1', '2', '5', '6')
AND T.OP_PROCESS != '14'
UNION ALL
--离线支,转压库
SELECT -1*NVL(SUM(T.ACT_COUNT),0)ACOUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ?
AND T.STATUS IN( '3','7')
UNION ALL
--交库支
SELECT -1*NVL(SUM(S.QUALIFIED_NUM),0) ACOUNT FROM
MIL_INSTORE_RESULT S WHERE REGEXP_REPLACE(S.JUDGE_STOVE_NO, '-.*', '') = ?
)
SELECT S.SALE_ORG, S.SALE_ORG_DESC
FROM SLM_ORDER_HEAD S,SLM_ORDER_LINE S1,MAT_BC_M T
WHERE S.ORD_PK = S1.ORD_PK
AND S.ORDER_NO ||'/'||S1.ORDER_SEQ = T.PRO_ORDER_NO
AND T.JUDGE_STOVE_NO = ?
AND ROWNUM = 1
SELECT S.SUPPLY_UNIT, C.BASENAME SUPPLY_UNIT_DESC
FROM SLM_ORDER_HEAD S, SLM_ORDER_LINE S1, MAT_BC_M T, COM_BASE_INFO C
WHERE S.ORD_PK = S1.ORD_PK
AND S.ORDER_NO || '/' || S1.ORDER_SEQ = T.PRO_ORDER_NO
AND S.SUPPLY_UNIT = C.BASECODE
AND T.PROCESS_CDOE = 'D'
AND T.QCM_STAUS = '00'
AND T.JUDGE_STOVE_NO = ?
AND ROWNUM = 1
SELECT T1.NEXT_GX, T2.PRO_PLAN_ID
FROM PLN_ORDER_ZG T1, PLN_ORDER_ZG_S T2
WHERE T1.PRO_ORDER_NO = T2.PRO_ORDER_NO
AND T2.PRO_PLAN_ID = ?
AND T2.GX_PLAN_NO = ?
SELECT S.DEPARTMENT_CODE_P
FROM #PLAN# T, COM_BASE_PLINE S
WHERE T.PLINE_CODE = S.PLINE_CODE
AND T.ORD_LN_DLY_PK = ?
AND ROWNUM = 1
SELECT M_MAT_NO FROM(
SELECT SUM(T3.ACT_COUNT)INPUT_COUNT,SUM(T3.INPUT_WEIGHT)INPUT_WEIGHT,T3.M_MAT_NO
FROM (SELECT S.M_MAT_NO, S.JUDGE_STOVE_NO
FROM PORT_MIL_BATCH_SAMPLE_RESULT S,
(SELECT T.ZG_STOVE_SQE
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.JUGDE_APPLY_CODE IS NULL
AND T.QCM_STAUS = '00'
GROUP BY T.ZG_STOVE_SQE) T1
WHERE S.JUDGE_STOVE_NO = T1.ZG_STOVE_SQE
AND S.BATCH_NO = '#BATCH_NO#'
AND S.GROUP_NO = '#BATCH_GROUD_NO#'
AND S.STATUS IN ('0', '1', '2', '5', '6')
AND S.TR_FLAG = '0'
AND S.GROUP_FLAG = '0'
GROUP BY S.M_MAT_NO,S.JUDGE_STOVE_NO) T2,
PORT_MIL_BATCH_SAMPLE_RESULT T3
WHERE T2.M_MAT_NO = T3.M_MAT_NO
AND T2.JUDGE_STOVE_NO = T3.JUDGE_STOVE_NO
GROUP BY T3.M_MAT_NO
UNION ALL
SELECT SUM(T3.ACT_COUNT)INPUT_COUNT,SUM(T3.INPUT_WEIGHT)INPUT_WEIGHT,T3.M_MAT_NO
FROM (SELECT S.M_MAT_NO, S.JUDGE_STOVE_NO
FROM PORT_MIL_BATCH_SAMPLE_RESULT S,
(SELECT T.ZG_STOVE_SQE
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.JUGDE_APPLY_CODE IS NULL
AND T.QCM_STAUS = '00'
GROUP BY T.ZG_STOVE_SQE) T1
WHERE S.JUDGE_STOVE_NO = T1.ZG_STOVE_SQE
AND (S.BATCH_NO IS NULL OR S.GROUP_NO IS NULL)
AND S.STATUS IN ('1', '2', '5', '6')
AND S.TR_FLAG = '0'
AND S.GROUP_FLAG = '0'
GROUP BY S.M_MAT_NO,S.JUDGE_STOVE_NO) T2,
PORT_MIL_BATCH_SAMPLE_RESULT T3
WHERE T2.M_MAT_NO = T3.M_MAT_NO
AND T2.JUDGE_STOVE_NO = T3.JUDGE_STOVE_NO
GROUP BY T3.M_MAT_NO,T3.JUDGE_STOVE_NO)
GROUP BY M_MAT_NO
SELECT SUM(S.ACT_COUNT) OUTPUT_COUNT,
SUM(S.INPUT_WEIGHT) OUTPUT_WEIGHT
FROM PORT_MIL_BATCH_SAMPLE_RESULT S,
(SELECT T.ZG_STOVE_SQE
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.JUGDE_APPLY_CODE IS NULL
AND T.QCM_STAUS = '00'
GROUP BY T.ZG_STOVE_SQE) T1
WHERE S.JUDGE_STOVE_NO = T1.ZG_STOVE_SQE
AND S.BATCH_NO = '#BATCH_NO#'
AND S.GROUP_NO = '#BATCH_GROUD_NO#'
AND S.STATUS IN ('0','1', '2', '5', '6')
AND S.GROUP_FLAG = '0'
SELECT SUM(ACT_COUNT) OUTPUT_COUNT, SUM(ACT_WEIGHT) OUTPUT_WEIGHT
FROM (
SELECT SUM(S.ACT_COUNT) ACT_COUNT,
SUM(S.INPUT_WEIGHT) ACT_WEIGHT
FROM PORT_MIL_BATCH_SAMPLE_RESULT S,
(SELECT T.ZG_STOVE_SQE
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.JUGDE_APPLY_CODE IS NULL
AND T.QCM_STAUS = '00'
GROUP BY T.ZG_STOVE_SQE) T1
WHERE S.JUDGE_STOVE_NO = T1.ZG_STOVE_SQE
AND S.BATCH_NO = '#BATCH_NO#'
AND S.GROUP_NO = '#BATCH_GROUD_NO#'
AND S.STATUS = '0'
AND S.GROUP_FLAG = '0'
union all
SELECT SUM(S.ACT_COUNT) ACT_COUNT,
SUM(S.INPUT_WEIGHT) ACT_WEIGHT
FROM PORT_MIL_BATCH_SAMPLE_RESULT S,
(SELECT T.ZG_STOVE_SQE
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.JUGDE_APPLY_CODE IS NULL
AND T.QCM_STAUS = '00'
GROUP BY T.ZG_STOVE_SQE) T1
WHERE S.JUDGE_STOVE_NO = T1.ZG_STOVE_SQE
AND (S.BATCH_NO IS NULL OR GROUP_NO IS NULL)
AND S.STATUS IN ('1', '2', '5', '6')
AND S.GROUP_FLAG = '0')
SELECT T.SAW_NUM FROM MIL_PLAN T WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = ? AND ROWNUM = 1 ORDER BY T.START_TIME ASC
SELECT MAX(T.BATCH_NO) BATCH_NO, MAX(T.GROUP_NO) GROUP_NO
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = '#JUDGE_STOVE_NO#'
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T
SET T.JUGDE_APPLY_CODE = ?,
T.TR_FLAG = '1'
WHERE T.JUDGE_STOVE_NO = ?||'-01'
AND T.M_MAT_NO = ?
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T SET T.JUGDE_APPLY_CODE ='',T.TR_FLAG = '0' WHERE T.JUGDE_APPLY_CODE = ?
SELECT NVL(SUM(T.INPUT_WEIGHT),0) INPUT_WEIGHT
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE T.M_MAT_NO = ?
AND T.JUDGE_STOVE_NO = ?||'-01'
SELECT NVL(SUM(T.ACT_COUNT),0) ACT_COUNT
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '')= '#JUDGE_STOVE_NO#'
AND T.STATUS IN('1','2','5','6')
AND T.GROUP_FLAG ='0'
SELECT *
FROM (SELECT T.JUGDE_APPLY_CODE, T.IS_FLAG, T.IS_ALL_SCRAP, T.APPLY_TIME
FROM QCM_ZG_JUGDE_APPLY T
WHERE T.JUDGE_STOVE_NO = ?
AND T.IS_FLAG = '0'
AND T.IS_ALL_SCRAP = '0'
AND T.PROCESS_CODE = 'D'
ORDER BY T.APPLY_TIME DESC)
WHERE ROWNUM = 1
SELECT REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') JUDGE_STOVE_NO
FROM MIL_SLAB_SCRAP T
WHERE REGEXP_REPLACE(T.NEW_HEAT_NO, '-.*', '') = ?
GROUP BY T.JUDGE_STOVE_NO
UNION ALL
SELECT REGEXP_REPLACE(T1.OLD_ZP_JUDGE_STOVE_NO, '-.*', '') JUDGE_STOVE_NO
FROM MIL_OFFLINE_GROUP T1
WHERE REGEXP_REPLACE(T1.ZP_JUDGE_STOVE_NO, '-.*', '') = ?
UNION ALL
SELECT REGEXP_REPLACE(T2.JUDGE_STOVE_NO, '-.*', '') JUDGE_STOVE_NO
FROM MIL_FURNACES_RESLUT_DETIA T2
WHERE REGEXP_REPLACE(T2.Zp_Judge_Stove_No, '-.*', '') = ?
'1'
AND (TRIM(A.OP_PROCESS) <> '7' OR
A.OP_PROCESS IS NULL)
AND SUBSTR(A.JUDGE_STOVE_NO, -2) = '01'
AND A.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO) HGZ7,
(SELECT SUM(A.ACT_THEORY_WEIGHT)
FROM PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS <> '1'
AND (TRIM(A.OP_PROCESS) <> '7' OR
A.OP_PROCESS IS NULL)
AND SUBSTR(A.JUDGE_STOVE_NO, -2) = '01'
AND A.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO) HGD7,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '2'
AND TRIM(A.OP_PROCESS) = '7'
AND A.JUDGE_STOVE_NO =
T1.JUDGE_STOVE_NO),
0) FPZ7,
NVL((select SUM(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '2'
AND TRIM(A.OP_PROCESS) = '7'
AND A.JUDGE_STOVE_NO =
T1.JUDGE_STOVE_NO),
0) FPD7,
NVL((select sum(1)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '2'
AND TRIM(A.OP_PROCESS) = '9'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) FPZ9,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '2'
AND TRIM(A.OP_PROCESS) = '9'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) FPD9,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '3'
AND TRIM(A.OP_PROCESS) = '9'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) XXZ9,
NVL((select SUM(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '3'
AND TRIM(A.OP_PROCESS) = '9'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) XXD9,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS IN ('2', '5')
AND TRIM(A.OP_PROCESS) = '10'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) FPZ10,
NVL((select SUM(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS IN ('2', '5')
AND TRIM(A.OP_PROCESS) = '10'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) FPD10,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '3'
AND TRIM(A.OP_PROCESS) = '10'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) XXZ10,
NVL((select SUM(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '3'
AND TRIM(A.OP_PROCESS) = '10'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) XXD10,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '2'
AND TRIM(A.OP_PROCESS) = '11'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) FPZ11,
NVL((select SUM(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '2'
AND TRIM(A.OP_PROCESS) = '11'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) FPD11,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '3'
AND TRIM(A.OP_PROCESS) = '11'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) XXZ11,
NVL((select SUM(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '3'
AND TRIM(A.OP_PROCESS) = '11'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) XXD11,
NVL((select sum(1)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.GROUP_FLAG = '1'
AND TRIM(A.OP_PROCESS) = '9'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) ZLZ9,
NVL((select sum(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.GROUP_FLAG = '1'
AND TRIM(A.OP_PROCESS) = '9'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) ZLD9,
NVL((select sum(1)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.GROUP_FLAG = '1'
AND TRIM(A.OP_PROCESS) = '10'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) ZLZ10,
NVL((select sum(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.GROUP_FLAG = '1'
AND TRIM(A.OP_PROCESS) = '10'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) ZLD10,
NVL((select sum(1)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.GROUP_FLAG = '1'
AND TRIM(A.OP_PROCESS) = '11'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) ZLZ11,
NVL((select sum(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.GROUP_FLAG = '1'
AND TRIM(A.OP_PROCESS) = '11'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) ZLD11,
(SELECT DECODE(B.DIRECTOR_QUANTITY,
0,
'',
TO_CHAR(NVL(B.QUALIFIED_BRANCH, 0) * 100 /
B.DIRECTOR_QUANTITY,
'FM990.00') || '%')
FROM mil_surface_result B
WHERE B.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO) qualifiedRate,
SUM(B.FEED_NUM_PLAN) SLZ,
SUM(B.MAT_TOTAL_HEIGHT -
B.FEED_NUM * DECODE(B.CUT_TARGET,
'返废',
B.CUT_WEIGHT,
/* '回库',
NVL(round(B.CUT_WEIGHT / B.FEED_NUM,
3),
0),*/
0)) SLD,
SUM(B.FEED_NUM_PLAN * B.DB_NUM) *
MAX(T1.SAW_NUM) YJZ,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '1'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) undeterminedNum,
NVL((select sum(A.INPUT_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '1'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) undeterminedD,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS IN ('2', '5')
AND A.OP_PROCESS <> '14'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) ScrapNum,
NVL((select sum(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS IN ('2', '5')
AND A.OP_PROCESS <> '14'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) ScrapD,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '2'
AND A.OP_PROCESS = '14'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) FQY,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '6'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) WWFPZ,
NVL((SELECT NVL(SUM(T12.QUALIFIED_NUM), 0)
FROM MIL_INSTORE_RESULT T12
WHERE T12.RESULT_NO = T1.ID
AND REGEXP_REPLACE(T12.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')
AND T12.NODE_FUR_FLAG = '1'),
0) XXZ,
NVL((SELECT NVL(SUM(T12.QUALIFIED_TONS), 0)
FROM MIL_INSTORE_RESULT T12
WHERE T12.RESULT_NO = T1.ID
AND REGEXP_REPLACE(T12.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')
AND T12.NODE_FUR_FLAG = '1'),
0) XXD,
NVL((SELECT NVL(SUM(T12.QUALIFIED_NUM), 0)
FROM MIL_INSTORE_RESULT T12
WHERE T12.RESULT_NO = T1.ID
AND REGEXP_REPLACE(T12.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) HGZ12,
NVL((SELECT NVL(SUM(T12.QUALIFIED_TONS), 0)
FROM MIL_INSTORE_RESULT T12
WHERE T12.RESULT_NO = T1.ID
AND REGEXP_REPLACE(T12.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) HGD12,
0 HGM12,
NVL((select SUM(Q.ACT_COUNT)
from QCM_ZG_JUGDE_APPLY Q
WHERE Q.VALIDFLAG = '20'
AND Q.APPLY_FLAG = '0'
AND Q.JUDGE_STOVE_NO =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) PDZ,
NVL((select DECODE(NVL(SUM(Q.ACT_WEIGHT), 0),
0,
SUM(Q.ACT_THEORY_WEIGHT),
SUM(Q.ACT_WEIGHT))
from QCM_ZG_JUGDE_APPLY Q
WHERE Q.VALIDFLAG = '20'
AND Q.APPLY_FLAG = '0'
AND Q.JUDGE_STOVE_NO =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) PDD,
NVL((select SUM(Q.ACT_LEN)
from QCM_ZG_JUGDE_APPLY Q
WHERE 1 = 1
AND Q.VALIDFLAG = '20'
AND Q.APPLY_FLAG = '0'
AND Q.JUDGE_STOVE_NO =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) PDM,
NVL((select SUM(Q.ACT_COUNT)
from QCM_ZG_JUGDE_APPLY Q
WHERE Q.APPLY_FLAG = '0'
AND Q.JUDGE_STOVE_NO =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) SPZ,
NVL((select DECODE(NVL(SUM(Q.ACT_WEIGHT), 0),
0,
SUM(Q.ACT_THEORY_WEIGHT),
SUM(Q.ACT_WEIGHT))
from QCM_ZG_JUGDE_APPLY Q
WHERE Q.APPLY_FLAG = '0'
AND Q.JUDGE_STOVE_NO =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) SPD,
NVL((select SUM(Q.ACT_LEN)
from QCM_ZG_JUGDE_APPLY Q
WHERE Q.APPLY_FLAG = '0'
AND Q.JUDGE_STOVE_NO =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) SPM,
(NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS IN ('3', '4')
AND A.OP_PROCESS <> '12'
AND A.PLAN_ID = T1.ID),
0) +
NVL((SELECT NVL(SUM(T12.OFFLINE_NUM), 0)
FROM MIL_INSTORE_RESULT T12
WHERE T12.RESULT_NO = T1.ID
AND REGEXP_REPLACE(T12.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0)) LXZ,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '4'
AND A.GROUP_FLAG = '0'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) FXZ,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.GROUP_FLAG = '1'
AND TRIM(A.OP_PROCESS) > 6
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) ZLZ,
NVL((select sum(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.GROUP_FLAG = '1'
AND TRIM(A.OP_PROCESS) > 6
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) ZLD,
(select MAX(A.BAL_YEAR_MONTH)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.PLAN_ID = T1.ID) BAL_YEAR_MONTH,
TO_CHAR(NVL((select SUM(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS <> '2'
AND A.STATUS <> '3'
AND A.STATUS <> '6'
AND A.JUDGE_STOVE_NO =
T1.JUDGE_STOVE_NO),
0) / SUM(B.MAT_TOTAL_HEIGHT) * 100,
'FM990.00') || '%' RATE,
SUM(B.MAT_TOTAL_HEIGHT) *
(1 - NVL((select R.BURNNING_RATE
from MIL_FUR_RESULT R
WHERE R.JUDGE_STOVE_NO =
T1.JUDGE_STOVE_NO) / 100,
0)) -
DECODE(MAX(T1.CONTROL_THICKP),
0,
0,
(MAX(T1.CUT_HEAD_LENGTHP) +
MAX(T1.CUT_TRAIL_LENGTHP)) / 1000 *
(0.02466 * MAX(T1.CONTROL_THICKP) / 1000 * 1.02 *
((SUBSTR(MAX(T1.PIPE_SIZE),
1,
INSTR(MAX(T1.PIPE_SIZE), '*') - 1)) *
(CASE
WHEN INSTR(MAX(T1.VARIETIES), '套管') > 0 THEN
1.005
WHEN INSTR(MAX(T1.VARIETIES), '油管') > 0 THEN
1.005
ELSE
1
END) -
(MAX(T1.CONTROL_THICKP) / 1000 * 1.02)) *
SUM(B.FEED_NUM_PLAN * B.DB_NUM))) YJD,
TO_CHAR(NVL((select DECODE(NVL(SUM(Q.ACT_WEIGHT),
0),
0,
SUM(Q.ACT_THEORY_WEIGHT),
SUM(Q.ACT_WEIGHT))
from QCM_ZG_JUGDE_APPLY Q
WHERE Q.VALIDFLAG = '20'
AND Q.APPLY_FLAG = '0'
AND Q.JUDGE_STOVE_NO =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO,
'-.*',
'')),
0) * 100 / SUM(B.MAT_TOTAL_HEIGHT),
'FM990.00') || '%' RATE2
from MIL_PLAN T1, MIL_FEED_PLAN B
WHERE T1.JUDGE_STOVE_NO = B.JUDGE_STOVE_NO
AND T1.PRO_PLAN_ID = B.PRO_PLAN_ID
AND T1.BACK_SLAB_FLAG <> '2'
AND T1.JUDGE_STOVE_NO =
REGEXP_REPLACE(V_JUDGE_STOVE_NO, '-.*', '') || '-01'
AND T1.LOT_NO = V_LOT_NO
AND T1.PLINE_CODE = V_PLINE_CODE
AND NVL(T1.PRO_PLAN_ID, '/') =
NVL(V_PRO_PLAN_ID, '/')
AND NVL(T1.GX_PLAN_NO, '/') =
NVL(V_GX_PLAN_NO, '/')
GROUP BY T1.JUDGE_STOVE_NO,
T1.LOT_NO,
T1.PLINE_CODE,
T1.JUDGE_STOVE_NO,
T1.ID,
T1.PRO_PLAN_ID,
t1.gx_plan_no,
T1.ID,
T1.CONTRACT_NO) AA
ORDER BY AA.FEED_TIME ASC) LOOP
IF (V_COUNT > 0) THEN
UPDATE MIL_PROCESSES T
SET T.YJZ = MYROW.YJZ,
T.YJD = MYROW.YJD,
T.SLZ = MYROW.SLZ,
T.SLD = MYROW.SLD,
T.ZZL =
(SELECT SUM(TR.QUALIFIED_WT)
FROM MIL_CONTROL_LOG TR
WHERE TR.JUDGE_STOVE_NO = T.JUDGE_STOVE_NO || '-01'),
T.ZZZ =
(SELECT SUM(TR.QUALIFIED_NUM)
FROM MIL_CONTROL_LOG TR
WHERE TR.JUDGE_STOVE_NO = T.JUDGE_STOVE_NO || '-01'),
T.UNDETERMINEDNUM = MYROW.UNDETERMINEDNUM,
T.UNDETERMINEDD = MYROW.UNDETERMINEDD,
T.SCRAPNUM = MYROW.SCRAPNUM,
T.SCRAPD = MYROW.SCRAPD,
T.WWFPZ = MYROW.WWFPZ,
T.FQY = MYROW.FQY,
T.LXZ = MYROW.LXZ,
T.FXZ = MYROW.FXZ,
T.ZLZ = MYROW.ZLZ,
T.ZLD = MYROW.ZLD,
T.SPZ = MYROW.SPZ,
T.SPD = MYROW.SPD,
T.SPM = MYROW.SPM,
T.PDZ = MYROW.PDZ,
T.PDD = MYROW.PDD,
T.PDM = MYROW.PDM,
T.HGZ1 = MYROW.HGZ1,
T.HGD1 = MYROW.HGD1,
T.FPZ1 = MYROW.FPZ1,
T.FPD1 = MYROW.FPD1,
T.HGZ2 = MYROW.HGZ2,
T.HGD2 = MYROW.HGD2,
T.FPZ2 = MYROW.FPZ2,
T.FPD2 = MYROW.FPD2,
T.HGZ3 = MYROW.HGZ3,
T.HGD3 = MYROW.HGD3,
T.FPZ3 = MYROW.FPZ3,
T.FPD3 = MYROW.FPD3,
T.HGZ4 = MYROW.HGZ4,
T.HGD4 = MYROW.HGD4,
T.FPZ4 = MYROW.FPZ4,
T.FPD4 = MYROW.FPD4,
T.HGZ5 = MYROW.HGZ5,
T.HGD5 = MYROW.HGD5,
T.FPZ5 = MYROW.FPZ5,
T.FPD5 = MYROW.FPD5,
T.HGZ6 = MYROW.HGZ6,
T.HGD6 = MYROW.HGD6,
T.FPZ6 = MYROW.FPZ6,
T.FPD6 = MYROW.FPD6,
T.HGZ7 = MYROW.HGZ7,
T.HGD7 = MYROW.HGD7,
T.FPZ7 = MYROW.FPZ7,
T.FPD7 = MYROW.FPD7,
T.HGZ9 = MYROW.HGZ9,
T.HGD9 = MYROW.HGD9,
T.FPZ9 = MYROW.FPZ9,
T.FPD9 = MYROW.FPD9,
T.HGZ10 = MYROW.HGZ10,
T.HGD10 = MYROW.HGD10,
T.FPZ10 = MYROW.FPZ10,
T.FPD10 = MYROW.FPD10,
T.HGZ11 = MYROW.HGZ11,
T.HGD11 = MYROW.HGD11,
T.FPZ11 = MYROW.FPZ11,
T.FPD11 = MYROW.FPD11,
T.HGZ12 = MYROW.HGZ12,
T.HGD12 = MYROW.HGD12,
T.RATE = MYROW.RATE,
T.QUALIFIEDRATE = MYROW.QUALIFIEDRATE,
T.RATE2 = MYROW.RATE2,
T.NODE_STATUS1 = MYROW.NODE_STATUS1
WHERE T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND T.LOT_NO = V_LOT_NO
AND T.PLINE_CODE = V_PLINE_CODE
AND NVL(T.PRO_PLAN_ID, '/') = NVL(V_PRO_PLAN_ID, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(V_GX_PLAN_NO, '/');
ELSIF (V_COUNT = 0) THEN
INSERT INTO MIL_PROCESSES
(ID,
JUDGE_STOVE_NO,
LOT_NO,
PRO_PLAN_ID,
GX_PLAN_NO,
PLINE_CODE,
TARGET,
VARIETIES,
VARIETIES_CODE,
STEELCODE,
STEELNAME,
GRADECODE,
GRADENAME,
PIPE_SIZE,
PIPE_SIZE_CODE,
BUCKLE_TYPE,
BUCKLE_TYPE_CODE,
FEED_TIME,
SLZ,
SLD,
YJZ,
YJD,
UNDETERMINEDNUM,
UNDETERMINEDD,
SCRAPNUM,
SCRAPD,
WWFPZ,
FQY,
LXZ,
FXZ,
ZLZ,
ZLD,
SPZ,
SPD,
SPM,
PDZ,
PDD,
PDM,
HGZ1,
HGD1,
FPZ1,
FPD1,
HGZ2,
HGD2,
FPZ2,
FPD2,
HGZ3,
HGD3,
FPZ3,
FPD3,
HGZ4,
HGD4,
FPZ4,
FPD4,
HGZ5,
HGD5,
FPZ5,
FPD5,
HGZ6,
HGD6,
FPZ6,
FPD6,
HGZ7,
HGD7,
FPZ7,
FPD7,
HGZ9,
HGD9,
FPZ9,
FPD9,
HGZ10,
HGD10,
FPZ10,
FPD10,
HGZ11,
HGD11,
FPZ11,
FPD11,
HGZ12,
HGD12,
RATE,
QUALIFIEDRATE,
RATE2,
--ZLC,
--ISCLOSE,
CONTRACT_NO,
BAL_YEAR_MONTH,
NODE_STATUS1)
VALUES
(MYROW.ID,
MYROW.JUDGE_STOVE_NO,
MYROW.LOT_NO,
MYROW.PRO_PLAN_ID,
MYROW.GX_PLAN_NO,
MYROW.PLINE_CODE,
MYROW.TARGET,
MYROW.VARIETIES,
MYROW.VARIETIES_CODE,
MYROW.STEELCODE,
MYROW.STEELNAME,
MYROW.GRADECODE,
MYROW.GRADENAME,
MYROW.PIPE_SIZE,
MYROW.PIPE_SIZE_CODE,
MYROW.BUCKLE_TYPE,
MYROW.BUCKLE_TYPE_CODE,
MYROW.FEED_TIME,
MYROW.SLZ,
MYROW.SLD,
MYROW.YJZ,
MYROW.YJD,
MYROW.UNDETERMINEDNUM,
MYROW.UNDETERMINEDD,
MYROW.SCRAPNUM,
MYROW.SCRAPD,
MYROW.WWFPZ,
MYROW.FQY,
MYROW.LXZ,
MYROW.FXZ,
MYROW.ZLZ,
MYROW.ZLD,
MYROW.SPZ,
MYROW.SPD,
MYROW.SPM,
MYROW.PDZ,
MYROW.PDD,
MYROW.PDM,
MYROW.HGZ1,
MYROW.HGD1,
MYROW.FPZ1,
MYROW.FPD1,
MYROW.HGZ2,
MYROW.HGD2,
MYROW.FPZ2,
MYROW.FPD2,
MYROW.HGZ3,
MYROW.HGD3,
MYROW.FPZ3,
MYROW.FPD3,
MYROW.HGZ4,
MYROW.HGD4,
MYROW.FPZ4,
MYROW.FPD4,
MYROW.HGZ5,
MYROW.HGD5,
MYROW.FPZ5,
MYROW.FPD5,
MYROW.HGZ6,
MYROW.HGD6,
MYROW.FPZ6,
MYROW.FPD6,
MYROW.HGZ7,
MYROW.HGD7,
MYROW.FPZ7,
MYROW.FPD7,
MYROW.HGZ9,
MYROW.HGD9,
MYROW.FPZ9,
MYROW.FPD9,
MYROW.HGZ10,
MYROW.HGD10,
MYROW.FPZ10,
MYROW.FPD10,
MYROW.HGZ11,
MYROW.HGD11,
MYROW.FPZ11,
MYROW.FPD11,
MYROW.HGZ12,
MYROW.HGD12,
MYROW.RATE,
MYROW.QUALIFIEDRATE,
MYROW.RATE2,
--MYROW.ZLC,
-- MYROW.ISCLOSE,
MYROW.CONTRACT_NO,
MYROW.BAL_YEAR_MONTH,
MYROW.NODE_STATUS1);
END IF;
IF (MYROW.YJD > MYROW.HGD12) THEN
UPDATE MIL_PROCESSES T
SET T.ZLC = NVL(MYROW.YJD, 0) - NVL(MYROW.HGD12, 0)
WHERE T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND T.LOT_NO = V_LOT_NO
AND T.PLINE_CODE = V_PLINE_CODE
AND NVL(T.PRO_PLAN_ID, '/') = NVL(V_PRO_PLAN_ID, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(V_GX_PLAN_NO, '/');
ELSE
UPDATE MIL_PROCESSES T
SET T.ZLC = 0
WHERE T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND T.LOT_NO = V_LOT_NO
AND T.PLINE_CODE = V_PLINE_CODE
AND NVL(T.PRO_PLAN_ID, '/') = NVL(V_PRO_PLAN_ID, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(V_GX_PLAN_NO, '/');
END IF;
END LOOP;
END;
]]>
'2') NODE_STATUS,
(SELECT count(1)
from (SELECT B.JUDGE_STOVE_NO,
B.m_mat_no,
SUM(B.ACT_THEORY_WEIGHT) ACT_THEORY_WEIGHT
FROM PORT_MIL_BATCH_SAMPLE_RESULT B
WHERE B.IS_VALID = '1'
AND (TRIM(B.Op_Process) != '0' OR
B.Op_Process IS NULL)
group by B.m_mat_no, B.JUDGE_STOVE_NO) A
WHERE A.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO
GROUP BY A.JUDGE_STOVE_NO) HGZ1,
(SELECT SUM(A.ACT_THEORY_WEIGHT)
from (SELECT B.JUDGE_STOVE_NO,
B.m_mat_no,
SUM(B.ACT_THEORY_WEIGHT) ACT_THEORY_WEIGHT
FROM PORT_MIL_BATCH_SAMPLE_RESULT B
WHERE B.IS_VALID = '1'
AND (TRIM(B.Op_Process) != '0' OR
B.Op_Process IS NULL)
group by B.m_mat_no, B.JUDGE_STOVE_NO) A
WHERE A.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO
GROUP BY A.JUDGE_STOVE_NO) HGD1,
(select COUNT(1)
from (select B.JUDGE_STOVE_NO,
TRIM(B.OP_PROCESS) OP_PROCESS,
B.m_mat_no,
SUM(B.ACT_THEORY_WEIGHT) ACT_THEORY_WEIGHT
from PORT_MIL_BATCH_SAMPLE_RESULT B
WHERE B.IS_VALID = '1'
AND B.STATUS = '1'
group by B.JUDGE_STOVE_NO,
B.m_mat_no,
B.op_process) A
WHERE A.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO
AND A.OP_PROCESS = '0') FPZ1,
NVL((select SUM(A.ACT_THEORY_WEIGHT)
from (select B.JUDGE_STOVE_NO,
TRIM(B.OP_PROCESS) OP_PROCESS,
B.m_mat_no,
SUM(B.ACT_THEORY_WEIGHT) ACT_THEORY_WEIGHT
from PORT_MIL_BATCH_SAMPLE_RESULT B
WHERE B.IS_VALID = '1'
AND B.STATUS = '1'
group by B.JUDGE_STOVE_NO,
B.m_mat_no,
B.op_process) A
WHERE A.JUDGE_STOVE_NO =
T1.JUDGE_STOVE_NO
AND A.OP_PROCESS = '0'),
0) FPD1,
(select COUNT(1)
from (select B.JUDGE_STOVE_NO,
TRIM(B.OP_PROCESS) OP_PROCESS,
B.m_mat_no,
SUM(B.ACT_THEORY_WEIGHT) ACT_THEORY_WEIGHT
from PORT_MIL_BATCH_SAMPLE_RESULT B
WHERE B.IS_VALID = '1'
AND B.STATUS = '1'
group by B.JUDGE_STOVE_NO,
B.m_mat_no,
B.op_process) A
WHERE A.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO
AND A.OP_PROCESS = '2') FPZ2,
NVL((select SUM(A.ACT_THEORY_WEIGHT)
from (select B.JUDGE_STOVE_NO,
TRIM(B.OP_PROCESS) OP_PROCESS,
B.m_mat_no,
SUM(B.ACT_THEORY_WEIGHT) ACT_THEORY_WEIGHT
from PORT_MIL_BATCH_SAMPLE_RESULT B
WHERE B.IS_VALID = '1'
AND B.STATUS = '1'
group by B.JUDGE_STOVE_NO,
B.m_mat_no,
B.op_process) A
WHERE A.JUDGE_STOVE_NO =
T1.JUDGE_STOVE_NO
AND A.OP_PROCESS = '2'),
0) FPD2,
(select COUNT(1)
from (select B.JUDGE_STOVE_NO,
TRIM(B.OP_PROCESS) OP_PROCESS,
B.m_mat_no,
SUM(B.ACT_THEORY_WEIGHT) ACT_THEORY_WEIGHT
from PORT_MIL_BATCH_SAMPLE_RESULT B
WHERE B.IS_VALID = '1'
AND B.STATUS = '1'
group by B.JUDGE_STOVE_NO,
B.m_mat_no,
B.op_process) A
WHERE A.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO
AND A.OP_PROCESS = '3') FPZ3,
NVL((select SUM(A.ACT_THEORY_WEIGHT)
from (select B.JUDGE_STOVE_NO,
TRIM(B.OP_PROCESS) OP_PROCESS,
B.m_mat_no,
SUM(B.ACT_THEORY_WEIGHT) ACT_THEORY_WEIGHT
from PORT_MIL_BATCH_SAMPLE_RESULT B
WHERE B.IS_VALID = '1'
AND B.STATUS = '1'
group by B.JUDGE_STOVE_NO,
B.m_mat_no,
B.op_process) A
WHERE A.JUDGE_STOVE_NO =
T1.JUDGE_STOVE_NO
AND A.OP_PROCESS = '3'),
0) FPD3,
(select COUNT(1)
from (select B.JUDGE_STOVE_NO,
TRIM(B.OP_PROCESS) OP_PROCESS,
B.m_mat_no,
SUM(B.ACT_THEORY_WEIGHT) ACT_THEORY_WEIGHT
from PORT_MIL_BATCH_SAMPLE_RESULT B
WHERE B.IS_VALID = '1'
AND B.STATUS = '1'
group by B.JUDGE_STOVE_NO,
B.m_mat_no,
B.op_process) A
WHERE A.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO
AND A.OP_PROCESS = '4') FPZ4,
NVL((select SUM(A.ACT_THEORY_WEIGHT)
from (select B.JUDGE_STOVE_NO,
TRIM(B.OP_PROCESS) OP_PROCESS,
B.m_mat_no,
SUM(B.ACT_THEORY_WEIGHT) ACT_THEORY_WEIGHT
from PORT_MIL_BATCH_SAMPLE_RESULT B
WHERE B.IS_VALID = '1'
AND B.STATUS = '1'
group by B.JUDGE_STOVE_NO,
B.m_mat_no,
B.op_process) A
WHERE A.JUDGE_STOVE_NO =
T1.JUDGE_STOVE_NO
AND A.OP_PROCESS = '4'),
0) FPD4,
(select COUNT(1)
from (select B.JUDGE_STOVE_NO,
TRIM(B.OP_PROCESS) OP_PROCESS,
B.m_mat_no,
SUM(B.ACT_THEORY_WEIGHT) ACT_THEORY_WEIGHT
from PORT_MIL_BATCH_SAMPLE_RESULT B
WHERE 1 = 1
AND B.IS_VALID = '1'
AND B.STATUS = '1'
group by B.JUDGE_STOVE_NO,
B.m_mat_no,
B.op_process) A
WHERE A.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO
AND A.OP_PROCESS = '5') FPZ5,
NVL((select SUM(A.ACT_THEORY_WEIGHT)
from (select B.JUDGE_STOVE_NO,
TRIM(B.OP_PROCESS) OP_PROCESS,
B.m_mat_no,
SUM(B.ACT_THEORY_WEIGHT) ACT_THEORY_WEIGHT
from PORT_MIL_BATCH_SAMPLE_RESULT B
WHERE B.IS_VALID = '1'
AND B.STATUS = '1'
group by B.JUDGE_STOVE_NO,
B.m_mat_no,
B.op_process) A
WHERE A.JUDGE_STOVE_NO =
T1.JUDGE_STOVE_NO
AND A.OP_PROCESS = '5'),
0) FPD5,
(select COUNT(1)
from (select B.JUDGE_STOVE_NO,
TRIM(B.OP_PROCESS) OP_PROCESS,
B.m_mat_no,
SUM(B.ACT_THEORY_WEIGHT) ACT_THEORY_WEIGHT
from PORT_MIL_BATCH_SAMPLE_RESULT B
WHERE B.IS_VALID = '1'
AND B.STATUS = '1'
group by B.JUDGE_STOVE_NO,
B.m_mat_no,
B.op_process) A
WHERE A.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO
AND A.OP_PROCESS = '6') FPZ6,
NVL((select SUM(A.ACT_THEORY_WEIGHT)
from (select B.JUDGE_STOVE_NO,
TRIM(B.OP_PROCESS) OP_PROCESS,
B.m_mat_no,
SUM(B.ACT_THEORY_WEIGHT) ACT_THEORY_WEIGHT
from PORT_MIL_BATCH_SAMPLE_RESULT B
WHERE B.IS_VALID = '1'
AND B.STATUS = '1'
group by B.JUDGE_STOVE_NO,
B.m_mat_no,
B.op_process) A
WHERE A.JUDGE_STOVE_NO =
T1.JUDGE_STOVE_NO
AND A.OP_PROCESS = '6'),
0) FPD6,
(SELECT sum(A.act_count)
FROM PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS <> '1'
AND (TRIM(A.OP_PROCESS) <> '7' OR
A.OP_PROCESS IS NULL)
AND SUBSTR(A.JUDGE_STOVE_NO, -2) = '01'
AND A.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO) HGZ7,
(SELECT SUM(A.ACT_THEORY_WEIGHT)
FROM PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS <> '1'
AND (TRIM(A.OP_PROCESS) <> '7' OR
A.OP_PROCESS IS NULL)
AND SUBSTR(A.JUDGE_STOVE_NO, -2) = '01'
AND A.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO) HGD7,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '2'
AND TRIM(A.OP_PROCESS) = '7'
AND A.JUDGE_STOVE_NO =
T1.JUDGE_STOVE_NO),
0) FPZ7,
NVL((select SUM(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '2'
AND TRIM(A.OP_PROCESS) = '7'
AND A.JUDGE_STOVE_NO =
T1.JUDGE_STOVE_NO),
0) FPD7,
NVL((select sum(1)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '2'
AND TRIM(A.OP_PROCESS) = '9'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) FPZ9,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '2'
AND TRIM(A.OP_PROCESS) = '9'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) FPD9,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '3'
AND TRIM(A.OP_PROCESS) = '9'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) XXZ9,
NVL((select SUM(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '3'
AND TRIM(A.OP_PROCESS) = '9'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) XXD9,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS IN ('2', '5')
AND TRIM(A.OP_PROCESS) = '10'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) FPZ10,
NVL((select SUM(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS IN ('2', '5')
AND TRIM(A.OP_PROCESS) = '10'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) FPD10,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '3'
AND TRIM(A.OP_PROCESS) = '10'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) XXZ10,
NVL((select SUM(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '3'
AND TRIM(A.OP_PROCESS) = '10'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) XXD10,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '2'
AND TRIM(A.OP_PROCESS) = '11'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) FPZ11,
NVL((select SUM(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '2'
AND TRIM(A.OP_PROCESS) = '11'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) FPD11,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '3'
AND TRIM(A.OP_PROCESS) = '11'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) XXZ11,
NVL((select SUM(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '3'
AND TRIM(A.OP_PROCESS) = '11'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) XXD11,
NVL((select sum(1)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.GROUP_FLAG = '1'
AND TRIM(A.OP_PROCESS) = '9'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) ZLZ9,
NVL((select sum(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.GROUP_FLAG = '1'
AND TRIM(A.OP_PROCESS) = '9'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) ZLD9,
NVL((select sum(1)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.GROUP_FLAG = '1'
AND TRIM(A.OP_PROCESS) = '10'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) ZLZ10,
NVL((select sum(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.GROUP_FLAG = '1'
AND TRIM(A.OP_PROCESS) = '10'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) ZLD10,
NVL((select sum(1)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.GROUP_FLAG = '1'
AND TRIM(A.OP_PROCESS) = '11'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) ZLZ11,
NVL((select sum(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.GROUP_FLAG = '1'
AND TRIM(A.OP_PROCESS) = '11'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) ZLD11,
(SELECT DECODE(B.DIRECTOR_QUANTITY,
0,
'',
TO_CHAR(NVL(B.QUALIFIED_BRANCH, 0) * 100 /
B.DIRECTOR_QUANTITY,
'FM990.00') || '%')
FROM mil_surface_result B
WHERE B.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO) qualifiedRate,
SUM(B.FEED_NUM_PLAN) SLZ,
SUM(B.MAT_TOTAL_HEIGHT -
B.FEED_NUM * DECODE(B.CUT_TARGET,
'返废',
B.CUT_WEIGHT,
/* '回库',
NVL(round(B.CUT_WEIGHT / B.FEED_NUM,
3),
0),*/
0)) SLD,
SUM(B.FEED_NUM_PLAN * B.DB_NUM) *
MAX(T1.SAW_NUM) YJZ,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '1'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) undeterminedNum,
NVL((select sum(A.INPUT_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '1'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) undeterminedD,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS IN ('2', '5')
AND A.OP_PROCESS <> '14'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) ScrapNum,
NVL((select sum(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS IN ('2', '5')
AND A.OP_PROCESS <> '14'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) ScrapD,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '2'
AND A.OP_PROCESS = '14'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) FQY,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '6'
AND A.PLAN_ID = T1.ID
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) WWFPZ,
NVL((SELECT NVL(SUM(T12.QUALIFIED_NUM), 0)
FROM MIL_INSTORE_RESULT T12
WHERE T12.RESULT_NO = T1.ID
AND REGEXP_REPLACE(T12.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')
AND T12.NODE_FUR_FLAG = '1'),
0) XXZ,
NVL((SELECT NVL(SUM(T12.QUALIFIED_TONS), 0)
FROM MIL_INSTORE_RESULT T12
WHERE T12.RESULT_NO = T1.ID
AND REGEXP_REPLACE(T12.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')
AND T12.NODE_FUR_FLAG = '1'),
0) XXD,
NVL((SELECT NVL(SUM(T12.QUALIFIED_NUM), 0)
FROM MIL_INSTORE_RESULT T12
WHERE T12.RESULT_NO = T1.ID
AND REGEXP_REPLACE(T12.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) HGZ12,
NVL((SELECT NVL(SUM(T12.QUALIFIED_TONS), 0)
FROM MIL_INSTORE_RESULT T12
WHERE T12.RESULT_NO = T1.ID
AND REGEXP_REPLACE(T12.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) HGD12,
0 HGM12,
NVL((select SUM(Q.ACT_COUNT)
from QCM_ZG_JUGDE_APPLY Q
WHERE Q.VALIDFLAG = '20'
AND Q.APPLY_FLAG = '0'
AND Q.PROCESS_CODE = 'D'
AND Q.JUDGE_STOVE_NO =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) PDZ,
NVL((select DECODE(NVL(SUM(Q.ACT_WEIGHT), 0),
0,
SUM(Q.ACT_THEORY_WEIGHT),
SUM(Q.ACT_WEIGHT))
from QCM_ZG_JUGDE_APPLY Q
WHERE Q.VALIDFLAG = '20'
AND Q.APPLY_FLAG = '0'
AND Q.PROCESS_CODE = 'D'
AND Q.JUDGE_STOVE_NO =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) PDD,
NVL((select SUM(Q.ACT_LEN)
from QCM_ZG_JUGDE_APPLY Q
WHERE 1 = 1
AND Q.VALIDFLAG = '20'
AND Q.APPLY_FLAG = '0'
AND Q.PROCESS_CODE = 'D'
AND Q.JUDGE_STOVE_NO =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) PDM,
NVL((select SUM(Q.ACT_COUNT)
from QCM_ZG_JUGDE_APPLY Q
WHERE Q.APPLY_FLAG = '0'
AND Q.PROCESS_CODE = 'D'
AND Q.JUDGE_STOVE_NO =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) SPZ,
NVL((select DECODE(NVL(SUM(Q.ACT_WEIGHT), 0),
0,
SUM(Q.ACT_THEORY_WEIGHT),
SUM(Q.ACT_WEIGHT))
from QCM_ZG_JUGDE_APPLY Q
WHERE Q.APPLY_FLAG = '0'
AND Q.PROCESS_CODE = 'D'
AND Q.JUDGE_STOVE_NO =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) SPD,
NVL((select SUM(Q.ACT_LEN)
from QCM_ZG_JUGDE_APPLY Q
WHERE Q.APPLY_FLAG = '0'
AND Q.PROCESS_CODE = 'D'
AND Q.JUDGE_STOVE_NO =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0) SPM,
(NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS IN ('3', '4')
AND A.OP_PROCESS <> '12'
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')
AND NVL(A.PRO_PLAN_ID, '/') =
NVL(T1.PRO_PLAN_ID, '/')
AND NVL(A.GX_PLAN_NO, '/') =
NVL(T1.GX_PLAN_NO, '/')),
0) +
NVL((SELECT NVL(SUM(T12.OFFLINE_NUM), 0)
FROM MIL_INSTORE_RESULT T12
WHERE T12.RESULT_NO = T1.ID
AND REGEXP_REPLACE(T12.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')),
0)) LXZ,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS = '4'
AND A.GROUP_FLAG = '0'
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')
AND NVL(A.PRO_PLAN_ID, '/') =
NVL(T1.PRO_PLAN_ID, '/')
AND NVL(A.GX_PLAN_NO, '/') =
NVL(T1.GX_PLAN_NO, '/')),
0) FXZ,
NVL((select sum(A.act_count)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.GROUP_FLAG = '1'
AND TRIM(A.OP_PROCESS) > 6
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')
AND NVL(A.PRO_PLAN_ID, '/') =
NVL(T1.PRO_PLAN_ID, '/')
AND NVL(A.GX_PLAN_NO, '/') =
NVL(T1.GX_PLAN_NO, '/')),
0) ZLZ,
NVL((select sum(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.GROUP_FLAG = '1'
AND TRIM(A.OP_PROCESS) > 6
AND REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')
AND NVL(A.PRO_PLAN_ID, '/') =
NVL(T1.PRO_PLAN_ID, '/')
AND NVL(A.GX_PLAN_NO, '/') =
NVL(T1.GX_PLAN_NO, '/')),
0) ZLD,
(select MAX(A.BAL_YEAR_MONTH)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE REGEXP_REPLACE(A.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO, '-.*', '')
AND NVL(A.PRO_PLAN_ID, '/') =
NVL(T1.PRO_PLAN_ID, '/')
AND NVL(A.GX_PLAN_NO, '/') =
NVL(T1.GX_PLAN_NO, '/')) BAL_YEAR_MONTH,
TO_CHAR(NVL((select SUM(A.ACT_THEORY_WEIGHT)
from PORT_MIL_BATCH_SAMPLE_RESULT A
WHERE A.IS_VALID = '1'
AND A.STATUS <> '2'
AND A.STATUS <> '3'
AND A.STATUS <> '6'
AND A.JUDGE_STOVE_NO =
T1.JUDGE_STOVE_NO),
0) / SUM(B.MAT_TOTAL_HEIGHT) * 100,
'FM990.00') || '%' RATE,
SUM(B.MAT_TOTAL_HEIGHT) *
(1 - NVL((select R.BURNNING_RATE
from MIL_FUR_RESULT R
WHERE R.JUDGE_STOVE_NO =
T1.JUDGE_STOVE_NO) / 100,
0)) -
DECODE(MAX(T1.CONTROL_THICKP),
0,
0,
(MAX(T1.CUT_HEAD_LENGTHP) +
MAX(T1.CUT_TRAIL_LENGTHP)) / 1000 *
(0.02466 * MAX(T1.CONTROL_THICKP) / 1000 * 1.02 *
((SUBSTR(MAX(T1.PIPE_SIZE),
1,
INSTR(MAX(T1.PIPE_SIZE), '*') - 1)) *
(CASE
WHEN INSTR(MAX(T1.VARIETIES), '套管') > 0 THEN
1.005
WHEN INSTR(MAX(T1.VARIETIES), '油管') > 0 THEN
1.005
ELSE
1
END) -
(MAX(T1.CONTROL_THICKP) / 1000 * 1.02)) *
SUM(B.FEED_NUM_PLAN * B.DB_NUM))) YJD,
TO_CHAR(NVL((select DECODE(NVL(SUM(Q.ACT_WEIGHT),
0),
0,
SUM(Q.ACT_THEORY_WEIGHT),
SUM(Q.ACT_WEIGHT))
from QCM_ZG_JUGDE_APPLY Q
WHERE Q.VALIDFLAG = '20'
AND Q.APPLY_FLAG = '0'
AND Q.JUDGE_STOVE_NO =
REGEXP_REPLACE(T1.JUDGE_STOVE_NO,
'-.*',
'')),
0) * 100 / SUM(B.MAT_TOTAL_HEIGHT),
'FM990.00') || '%' RATE2
from MIL_PLAN T1, MIL_FEED_PLAN B
WHERE T1.JUDGE_STOVE_NO = B.JUDGE_STOVE_NO
AND T1.PRO_PLAN_ID = B.PRO_PLAN_ID
AND T1.BACK_SLAB_FLAG <> '2'
AND T1.JUDGE_STOVE_NO =
REGEXP_REPLACE(V_JUDGE_STOVE_NO, '-.*', '') || '-01'
AND T1.LOT_NO = V_LOT_NO
AND T1.PLINE_CODE = V_PLINE_CODE
AND NVL(T1.PRO_PLAN_ID, '/') =
NVL(V_PRO_PLAN_ID, '/')
AND NVL(T1.GX_PLAN_NO, '/') =
NVL(V_GX_PLAN_NO, '/')
GROUP BY T1.JUDGE_STOVE_NO,
T1.LOT_NO,
T1.PLINE_CODE,
T1.JUDGE_STOVE_NO,
T1.ID,
T1.PRO_PLAN_ID,
t1.gx_plan_no,
T1.ID,
T1.CONTRACT_NO) AA
ORDER BY AA.FEED_TIME ASC) LOOP
IF (V_COUNT > 0) THEN
UPDATE MIL_PROCESSES T
SET T.YJZ = MYROW.YJZ,
T.YJD = MYROW.YJD,
T.SLZ = MYROW.SLZ,
T.SLD = MYROW.SLD,
T.ZZL =
(SELECT SUM(TR.QUALIFIED_WT)
FROM MIL_CONTROL_LOG TR
WHERE TR.JUDGE_STOVE_NO = T.JUDGE_STOVE_NO || '-01'),
T.ZZZ =
(SELECT SUM(TR.QUALIFIED_NUM)
FROM MIL_CONTROL_LOG TR
WHERE TR.JUDGE_STOVE_NO = T.JUDGE_STOVE_NO || '-01'),
T.UNDETERMINEDNUM = MYROW.UNDETERMINEDNUM,
T.UNDETERMINEDD = MYROW.UNDETERMINEDD,
T.SCRAPNUM = MYROW.SCRAPNUM,
T.SCRAPD = MYROW.SCRAPD,
T.WWFPZ = MYROW.WWFPZ,
T.FQY = MYROW.FQY,
T.LXZ = MYROW.LXZ,
T.FXZ = MYROW.FXZ,
T.ZLZ = MYROW.ZLZ,
T.ZLD = MYROW.ZLD,
T.SPZ = MYROW.SPZ,
T.SPD = MYROW.SPD,
T.SPM = MYROW.SPM,
T.PDZ = MYROW.PDZ,
T.PDD = MYROW.PDD,
T.PDM = MYROW.PDM,
T.HGZ1 = MYROW.HGZ1,
T.HGD1 = MYROW.HGD1,
T.FPZ1 = MYROW.FPZ1,
T.FPD1 = MYROW.FPD1,
T.HGZ2 = MYROW.HGZ2,
T.HGD2 = MYROW.HGD2,
T.FPZ2 = MYROW.FPZ2,
T.FPD2 = MYROW.FPD2,
T.HGZ3 = MYROW.HGZ3,
T.HGD3 = MYROW.HGD3,
T.FPZ3 = MYROW.FPZ3,
T.FPD3 = MYROW.FPD3,
T.HGZ4 = MYROW.HGZ4,
T.HGD4 = MYROW.HGD4,
T.FPZ4 = MYROW.FPZ4,
T.FPD4 = MYROW.FPD4,
T.HGZ5 = MYROW.HGZ5,
T.HGD5 = MYROW.HGD5,
T.FPZ5 = MYROW.FPZ5,
T.FPD5 = MYROW.FPD5,
T.HGZ6 = MYROW.HGZ6,
T.HGD6 = MYROW.HGD6,
T.FPZ6 = MYROW.FPZ6,
T.FPD6 = MYROW.FPD6,
T.HGZ7 = MYROW.HGZ7,
T.HGD7 = MYROW.HGD7,
T.FPZ7 = MYROW.FPZ7,
T.FPD7 = MYROW.FPD7,
T.HGZ9 = MYROW.HGZ9,
T.HGD9 = MYROW.HGD9,
T.FPZ9 = MYROW.FPZ9,
T.FPD9 = MYROW.FPD9,
T.HGZ10 = MYROW.HGZ10,
T.HGD10 = MYROW.HGD10,
T.FPZ10 = MYROW.FPZ10,
T.FPD10 = MYROW.FPD10,
T.HGZ11 = MYROW.HGZ11,
T.HGD11 = MYROW.HGD11,
T.FPZ11 = MYROW.FPZ11,
T.FPD11 = MYROW.FPD11,
T.HGZ12 = MYROW.HGZ12,
T.HGD12 = MYROW.HGD12,
T.RATE = MYROW.RATE,
T.QUALIFIEDRATE = MYROW.QUALIFIEDRATE,
T.RATE2 = MYROW.RATE2,
T.NODE_STATUS1 = MYROW.NODE_STATUS1
WHERE T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND T.LOT_NO = V_LOT_NO
AND T.PLINE_CODE = V_PLINE_CODE
AND NVL(T.PRO_PLAN_ID, '/') = NVL(V_PRO_PLAN_ID, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(V_GX_PLAN_NO, '/');
ELSIF (V_COUNT = 0) THEN
INSERT INTO MIL_PROCESSES
(ID,
JUDGE_STOVE_NO,
LOT_NO,
PRO_PLAN_ID,
GX_PLAN_NO,
PLINE_CODE,
TARGET,
VARIETIES,
VARIETIES_CODE,
STEELCODE,
STEELNAME,
GRADECODE,
GRADENAME,
PIPE_SIZE,
PIPE_SIZE_CODE,
BUCKLE_TYPE,
BUCKLE_TYPE_CODE,
FEED_TIME,
SLZ,
SLD,
YJZ,
YJD,
UNDETERMINEDNUM,
UNDETERMINEDD,
SCRAPNUM,
SCRAPD,
WWFPZ,
FQY,
LXZ,
FXZ,
ZLZ,
ZLD,
SPZ,
SPD,
SPM,
PDZ,
PDD,
PDM,
HGZ1,
HGD1,
FPZ1,
FPD1,
HGZ2,
HGD2,
FPZ2,
FPD2,
HGZ3,
HGD3,
FPZ3,
FPD3,
HGZ4,
HGD4,
FPZ4,
FPD4,
HGZ5,
HGD5,
FPZ5,
FPD5,
HGZ6,
HGD6,
FPZ6,
FPD6,
HGZ7,
HGD7,
FPZ7,
FPD7,
HGZ9,
HGD9,
FPZ9,
FPD9,
HGZ10,
HGD10,
FPZ10,
FPD10,
HGZ11,
HGD11,
FPZ11,
FPD11,
HGZ12,
HGD12,
RATE,
QUALIFIEDRATE,
RATE2,
--ZLC,
--ISCLOSE,
CONTRACT_NO,
BAL_YEAR_MONTH,
NODE_STATUS1)
VALUES
(MYROW.ID,
MYROW.JUDGE_STOVE_NO,
MYROW.LOT_NO,
MYROW.PRO_PLAN_ID,
MYROW.GX_PLAN_NO,
MYROW.PLINE_CODE,
MYROW.TARGET,
MYROW.VARIETIES,
MYROW.VARIETIES_CODE,
MYROW.STEELCODE,
MYROW.STEELNAME,
MYROW.GRADECODE,
MYROW.GRADENAME,
MYROW.PIPE_SIZE,
MYROW.PIPE_SIZE_CODE,
MYROW.BUCKLE_TYPE,
MYROW.BUCKLE_TYPE_CODE,
MYROW.FEED_TIME,
MYROW.SLZ,
MYROW.SLD,
MYROW.YJZ,
MYROW.YJD,
MYROW.UNDETERMINEDNUM,
MYROW.UNDETERMINEDD,
MYROW.SCRAPNUM,
MYROW.SCRAPD,
MYROW.WWFPZ,
MYROW.FQY,
MYROW.LXZ,
MYROW.FXZ,
MYROW.ZLZ,
MYROW.ZLD,
MYROW.SPZ,
MYROW.SPD,
MYROW.SPM,
MYROW.PDZ,
MYROW.PDD,
MYROW.PDM,
MYROW.HGZ1,
MYROW.HGD1,
MYROW.FPZ1,
MYROW.FPD1,
MYROW.HGZ2,
MYROW.HGD2,
MYROW.FPZ2,
MYROW.FPD2,
MYROW.HGZ3,
MYROW.HGD3,
MYROW.FPZ3,
MYROW.FPD3,
MYROW.HGZ4,
MYROW.HGD4,
MYROW.FPZ4,
MYROW.FPD4,
MYROW.HGZ5,
MYROW.HGD5,
MYROW.FPZ5,
MYROW.FPD5,
MYROW.HGZ6,
MYROW.HGD6,
MYROW.FPZ6,
MYROW.FPD6,
MYROW.HGZ7,
MYROW.HGD7,
MYROW.FPZ7,
MYROW.FPD7,
MYROW.HGZ9,
MYROW.HGD9,
MYROW.FPZ9,
MYROW.FPD9,
MYROW.HGZ10,
MYROW.HGD10,
MYROW.FPZ10,
MYROW.FPD10,
MYROW.HGZ11,
MYROW.HGD11,
MYROW.FPZ11,
MYROW.FPD11,
MYROW.HGZ12,
MYROW.HGD12,
MYROW.RATE,
MYROW.QUALIFIEDRATE,
MYROW.RATE2,
--MYROW.ZLC,
-- MYROW.ISCLOSE,
MYROW.CONTRACT_NO,
MYROW.BAL_YEAR_MONTH,
MYROW.NODE_STATUS1);
END IF;
IF (MYROW.YJD > MYROW.HGD12) THEN
UPDATE MIL_PROCESSES T
SET T.ZLC = NVL(MYROW.YJD, 0) - NVL(MYROW.HGD12, 0)
WHERE T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND T.LOT_NO = V_LOT_NO
AND T.PLINE_CODE = V_PLINE_CODE
AND NVL(T.PRO_PLAN_ID, '/') = NVL(V_PRO_PLAN_ID, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(V_GX_PLAN_NO, '/');
ELSE
UPDATE MIL_PROCESSES T
SET T.ZLC = 0
WHERE T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND T.LOT_NO = V_LOT_NO
AND T.PLINE_CODE = V_PLINE_CODE
AND NVL(T.PRO_PLAN_ID, '/') = NVL(V_PRO_PLAN_ID, '/')
AND NVL(T.GX_PLAN_NO, '/') = NVL(V_GX_PLAN_NO, '/');
END IF;
END LOOP;
END;
]]>
MYROW.ACT_COUNT) THEN
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT P
SET P.TR_FLAG2 = MYROW.JUGDE_APPLY_CODE ||
MYROW.JUGDE_APPLY_SEQUENO
WHERE P.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO || '-01'
AND P.TR_FLAG2 IS NULL
AND ROWNUM <= MYROW.ACT_COUNT;
ELSE
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT P
SET P.TR_FLAG2 = MYROW.JUGDE_APPLY_CODE ||
MYROW.JUGDE_APPLY_SEQUENO
WHERE P.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO || '-01'
AND P.TR_FLAG2 IS NULL;
END IF;
--更新成品送判量统计表
IF (MYROW.TARGET = 'A') THEN
SET_QCM_ZC_APPLY2(MYROW.ORD_LN_DLY_PK);
END IF;
END LOOP;
FOR MYROW2 IN (SELECT P.TR_FLAG2, SUM(P.INPUT_WEIGHT) INPUT_WEIGHT
FROM PORT_MIL_BATCH_SAMPLE_RESULT P
WHERE P.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO || '-01'
GROUP BY P.TR_FLAG2) LOOP
UPDATE QCM_ZG_JUGDE_APPLY T
SET T.INPUT_WEIGHT2 = MYROW2.INPUT_WEIGHT
WHERE T.JUGDE_APPLY_CODE || T.JUGDE_APPLY_SEQUENO = MYROW2.TR_FLAG2
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.PROCESS_CODE = 'D';
END LOOP;
END;
]]>
TO_DATE('2021-12-25', 'YYYY-MM-DD')) THEN
UPDATE QCM_ZG_JUGDE_APPLY T
SET T.INPUT_COUNT = 0,
T.INPUT_WEIGHT = 0,
T.OUTPUT_COUNT = 0,
T.OUTPUT_WEIGHT = 0
WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.PLINE_CODE = V_PLINE_CODE;
UPDATE QCM_ZG_JUGDE_APPLY T
SET T.INPUT_COUNT = V_COUNT,
T.INPUT_WEIGHT = V_ACT_WEIGHT,
T.OUTPUT_COUNT = V_COUNT,
T.OUTPUT_WEIGHT = V_ACT_WEIGHT
WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.PLINE_CODE = V_PLINE_CODE
AND T.APPLY_TIME = V_APPLY_TIME;
END IF;
END;
]]>
select T.INWL_ID,
T.INWL_DESC,
T.OUTWL_ID,
T.OUTWL_DESC,
T.CRAFT_SEQ,
T.JUDGE_STOVE_NO,
GET_SHIPPED_STATE(T2.DESGIN_KEY, T.INDEX_SEQ, T.DECISION) DELIVERY_STATE_CODE,
(SELECT A.BASENAME
FROM COM_BASE_INFO A
WHERE A.BASECODE =
GET_SHIPPED_STATE(T2.DESGIN_KEY, T.INDEX_SEQ, T.DECISION)) DELIVERY_STATE_NAME
from pln_zy_zg_m t, PLN_SALEORD t1, CRAFT_ORD_DESIGN T2
where T.ORD_LN_DLY_PK = T1.ORD_LN_DLY_PK
AND T1.ORD_LN_PK = T2.ORD_LN_PK
AND T.CRAFT_SEQ = T2.CRAFT_SEQ
and t.feed_heat_no = ?
and t.pro_plan_id = ?
and t.gx_plan_no = ?
group by T.INWL_ID,
T.INWL_DESC,
T.JUDGE_STOVE_NO,
T.OUTWL_ID,
T.OUTWL_DESC,
T2.DESGIN_KEY,
T.DECISION,
T.INDEX_SEQ,
T.CRAFT_SEQ
select t.*
from mil_plan t
where t.judge_stove_no = ? || '-01'
and t.pro_plan_id = ?
and t.gx_plan_no = ?
select T.INWL_ID,
T.INWL_DESC,
T.OUTWL_ID,
T.OUTWL_DESC,
T.CRAFT_SEQ,
T.JUDGE_STOVE_NO,
GET_SHIPPED_STATE(T2.DESGIN_KEY, T.INDEX_SEQ, T.DECISION) DELIVERY_STATE_CODE,
(SELECT A.BASENAME
FROM COM_BASE_INFO A
WHERE A.BASECODE =
GET_SHIPPED_STATE(T2.DESGIN_KEY, T.INDEX_SEQ, T.DECISION)) DELIVERY_STATE_NAME
from pln_zy_zg_m t, PLN_SALEORD t1, CRAFT_ORD_DESIGN T2
where T.ORD_LN_DLY_PK = T1.ORD_LN_DLY_PK
AND T1.ORD_LN_PK = T2.ORD_LN_PK
AND T.CRAFT_SEQ = T2.CRAFT_SEQ
--and t.feed_heat_no = ?
and t.pro_plan_id = ?
and t.gx_plan_no = ?
group by T.INWL_ID,
T.INWL_DESC,
T.OUTWL_ID,
T.OUTWL_DESC,
T.JUDGE_STOVE_NO,
T2.DESGIN_KEY,
T.DECISION,
T.INDEX_SEQ,
T.CRAFT_SEQ
0
AND ROWNUM = 1
]]>
0) THEN
IF (MYROW.DEMAND_QTY_VAL >= V_ACT_COUNT) THEN
UPDATE TMS_DEMAND_M T
SET T.OUTPUT_QTY_VAL = V_ACT_COUNT,
T.OUTPUT_WT_VAL = V_ACT_WEIGHT,
T.WEIGHING_IF = V_WEIGHING_IF
WHERE T.DEMAND_NO = MYROW.DEMAND_NO;
V_ACT_COUNT := 0;
V_ACT_WEIGHT := 0;
ELSE
UPDATE TMS_DEMAND_M T
SET T.OUTPUT_QTY_VAL = T.DEMAND_QTY_VAL,
T.OUTPUT_WT_VAL = T.DEMAND_WT_VAL,
T.WEIGHING_IF = V_WEIGHING_IF
WHERE T.DEMAND_NO = MYROW.DEMAND_NO;
V_ACT_COUNT := V_ACT_COUNT - MYROW.DEMAND_QTY_VAL;
V_ACT_WEIGHT := V_ACT_WEIGHT - MYROW.DEMAND_WT_VAL;
END IF;
END IF;
END LOOP;
--结炉的数据处理
FOR MYROW1 IN (SELECT T.*
FROM TMS_DEMAND_M T
WHERE T.HEAT_NO = V_JUDGE_STOVE_NO
AND T.CURRENT_JOB_NO = V_CURRENT_JOB_NO
AND T.TRAN_CLASS_CODE = 'XX'
ORDER BY T.CREATE_TIME DESC) LOOP
IF (V_FLAG = 'JL') THEN
IF (V_SCRAP_QTY_VAL > 0) THEN
IF (MYROW1.DEMAND_QTY_VAL - MYROW1.OUTPUT_QTY_VAL >=
V_SCRAP_QTY_VAL) THEN
UPDATE TMS_DEMAND_M T
SET T.SCRAP_QTY_VAL = V_SCRAP_QTY_VAL,
T.SCRAP_WT_VAL = V_SCRAP_WT_VAL
WHERE T.DEMAND_NO = MYROW1.DEMAND_NO;
V_SCRAP_QTY_VAL := 0;
V_SCRAP_WT_VAL := 0;
ELSE
UPDATE TMS_DEMAND_M T
SET T.SCRAP_QTY_VAL = T.DEMAND_QTY_VAL - T.OUTPUT_QTY_VAL,
T.SCRAP_WT_VAL =
(T.DEMAND_QTY_VAL - T.OUTPUT_QTY_VAL) / V_SCRAP_QTY_VAL *
V_SCRAP_WT_VAL
WHERE T.DEMAND_NO = MYROW1.DEMAND_NO;
V_SCRAP_QTY_VAL := V_SCRAP_QTY_VAL - MYROW1.DEMAND_QTY_VAL +
MYROW1.OUTPUT_QTY_VAL;
V_SCRAP_WT_VAL := (V_SCRAP_QTY_VAL - MYROW1.DEMAND_QTY_VAL +
MYROW1.OUTPUT_QTY_VAL) / V_SCRAP_QTY_VAL *
V_SCRAP_WT_VAL;
END IF;
END IF;
END IF;
END LOOP;
END;
]]>
SELECT ? || TO_CHAR(SYSDATE, 'yyyyMMDD') ||
LPAD(NVL(MAX(TO_NUMBER(SUBSTR(T.INSPECTION_NO,
LENGTH(T.INSPECTION_NO) - 5))),
0) + 1,
6,
'0') INSPECTION_NO
FROM MIL_INSPECTION T
WHERE T.INSPECTION_NO LIKE ? || TO_CHAR(SYSDATE, 'yyyyMMDD') || '______'
0 OR
INSTR(T.PRODUCNAME, '低中压锅炉管') > 0 OR
INSTR(T.PRODUCNAME, '流体输送管') > 0)
AND T.VALIDFLAG = '1';
--类型（0-普通品种，1-特殊品种）
SELECT CASE
WHEN V_PROCESS_CODE = 'D' AND
('#GRADENAME#' = 'GM' OR '#STEELNAME#' = 'GM') THEN
'0'
WHEN V_PROCESS_CODE = 'D' AND (INSTR('#STD_NAME#', 'JY') > 0) THEN
'0'
WHEN V_PROCESS_CODE = 'D' AND
(INSTR('#PRODUCNAME#', '结构管') > 0 OR
INSTR('#PRODUCNAME#', '低中压锅炉管') > 0 OR
INSTR('#PRODUCNAME#', '流体输送管') > 0) THEN
'0'
WHEN V_PROCESS_CODE <> 'D' THEN --热处理，加工都是待抽，每炉10抽1
'0'
ELSE
'1'
END
INTO V_TYPE
FROM DUAL;
--抽检状态(普通品种 10抽1，特殊品种必抽，其实免检)
SELECT CASE
WHEN V_TYPE = '0' THEN
'0'
WHEN V_TYPE = '1' THEN
'1'
ELSE
'3'
END
INTO V_INSPECTION_FLAG
FROM DUAL;
--查钢种
IF (V_PROCESS_CODE = 'D') THEN
SELECT T.GRADECODE, T.GRADENAME, T.INDEX_SEQ
INTO V_GRADECODE, V_GRADENAME, V_INDEX_SEQ
FROM MIL_PLAN T
WHERE T.ID = '#HEAT_PLAN_NO#'
AND REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = '#JUDGE_STOVE_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND ROWNUM = 1;
ELSIF (V_PROCESS_CODE = 'E') THEN
SELECT T.GRADECODE, T.GRADENAME, T.INDEX_SEQ
INTO V_GRADECODE, V_GRADENAME, V_INDEX_SEQ
FROM PLN_ZY_DBK_M T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND ROWNUM = 1;
ELSIF (V_PROCESS_CODE = 'F') THEN
SELECT T.GRADECODE, T.GRADENAME, T.INDEX_SEQ
INTO V_GRADECODE, V_GRADENAME, V_INDEX_SEQ
FROM PLN_ZY_RCL_M T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND ROWNUM = 1;
ELSIF (V_PROCESS_CODE = 'G') THEN
SELECT T.GRADECODE, T.GRADENAME, T.INDEX_SEQ
INTO V_GRADECODE, V_GRADENAME, V_INDEX_SEQ
FROM PLN_ZY_JGX_M T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND ROWNUM = 1;
END IF;
--交库支吨
SELECT SUM(ACT_COUNT), SUM(ACT_WEIGHT)
INTO V_ACT_COUNT1, V_ACT_WEIGHT1
FROM (SELECT SUM(T.ACT_COUNT) ACT_COUNT, SUM(T.ACT_WEIGHT) ACT_WEIGHT
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.QCM_STAUS = '00'
AND T.JUGDE_APPLY_CODE IS NULL
UNION ALL
SELECT SUM(T1.ACT_COUNT) ACT_COUNT, SUM(T1.ACT_WEIGHT) ACT_WEIGHT
FROM QCM_ZG_JUGDE_APPLY T1
WHERE T1.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T1.BATCH_NO = '#BATCH_NO#'
AND T1.PLINE_CODE = '#PLINE_CODE#'
AND T1.HEAT_PLAN_NO = '#HEAT_PLAN_NO#');
--需要复检
FOR MYROW IN (SELECT T.*
FROM MIL_INSPECTION T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.RECHECK = '1') LOOP
INSERT INTO MIL_INSPECTION
(INSPECTION_NO,
INSPECTION_NUM,
HEAT_PLAN_NO,
ZY_BATCH_ID,
JUDGE_STOVE_NO,
BATCH_NO,
INSPECTION_FLAG,
INSPECTION_RESULT,
PRODUCCODE,
PRODUCNAME,
STEELCODE,
STEELNAME,
GRADECODE,
GRADENAME,
SPEC_CODE,
SPEC_NAME,
MODEL_CODE,
MODEL_DESC,
STD_CODE,
STD_NAME,
STD_STYLE,
STD_STYLE_DESC,
CRAFT_FILE_NO,
CUSTOMER_NM,
ACT_COUNT,
ACT_WEIGHT,
CREATE_TIME,
LOAD_TIME,
INSPECTION_TIME,
INSPECTION_NAME,
APPLY_FLAG,
PROCESS_CODE,
UNQUALIFIED_REASONS,
DISPOSAL_METHOD,
DISPOSAL_FLAG,
PLINE_CODE,
PLINE_NAME,
DISPOSAL_TIME,
DISPOSAL_NAME,
ORDER_NO,
ORDER_SEQ,
PROC_DATE,
CREATE_NAME)
SELECT INSPECTION_NO,
INSPECTION_NUM + 1,
HEAT_PLAN_NO,
ZY_BATCH_ID,
JUDGE_STOVE_NO,
BATCH_NO,
'1',
'',
PRODUCCODE,
PRODUCNAME,
STEELCODE,
STEELNAME,
GRADECODE,
GRADENAME,
SPEC_CODE,
SPEC_NAME,
MODEL_CODE,
MODEL_DESC,
STD_CODE,
STD_NAME,
STD_STYLE,
STD_STYLE_DESC,
CRAFT_FILE_NO,
CUSTOMER_NM,
CASE
WHEN V_ACT_COUNT1 < ACT_COUNT THEN
V_ACT_COUNT1
ELSE
ACT_COUNT
END,
CASE
WHEN V_ACT_COUNT1 < ACT_COUNT THEN
V_ACT_WEIGHT1
ELSE
ACT_WEIGHT
END,
-- ACT_COUNT - NVL(SCRAP_NUM, 0),
-- ACT_WEIGHT - NVL(SCRAP_WT, 0),
V_SYSDATE,
LOAD_TIME,
'',
'',
'0',
PROCESS_CODE,
'',
'',
'',
PLINE_CODE,
PLINE_NAME,
'',
'',
ORDER_NO,
ORDER_SEQ,
CASE
WHEN TO_CHAR(V_SYSDATE, 'HH24') < 7 THEN
TO_CHAR(V_SYSDATE - 1, 'YYYYMMDD')
ELSE
TO_CHAR(V_SYSDATE, 'YYYYMMDD')
END,
V_CREATE_NAME
FROM MIL_INSPECTION T1
WHERE T1.INSPECTION_NO = MYROW.INSPECTION_NO
AND T1.INSPECTION_NUM = MYROW.INSPECTION_NUM;
FOR MYROW1 IN (SELECT T.*
FROM MIL_INSPECTION_DETAIL T
WHERE T.INSPECTION_NO = MYROW.INSPECTION_NO
AND T.INSPECTION_NUM = MYROW.INSPECTION_NUM) LOOP
INSERT INTO MIL_INSPECTION_DETAIL
(INSPECTION_NO, INSPECTION_NUM, PROJECT_CATEGORY, PROJECT_NAME)
SELECT T1.INSPECTION_NO,
T1.INSPECTION_NUM + 1,
T1.PROJECT_CATEGORY,
T1.PROJECT_NAME
FROM MIL_INSPECTION_DETAIL T1
WHERE T1.GUID = MYROW1.GUID;
END LOOP;
UPDATE MIL_INSPECTION T
SET T.RECHECK = '2'
WHERE T.INSPECTION_NO = MYROW.INSPECTION_NO
AND T.INSPECTION_NUM = MYROW.INSPECTION_NUM;
END LOOP;
--找库存信息
SELECT SUBSTR(MAX(T.CRAF_NO), 1, INSTR(MAX(T.CRAF_NO), '/') - 1),
SUBSTR(MAX(T.CRAF_NO), INSTR(MAX(T.CRAF_NO), '/') + 1, 3),
MAX(T.CRAF_NO),
MAX(T.LOT_NO)
INTO V_ORDER_NO, V_ORDER_SEQ, V_CRAFT_FILE_NO, V_ZY_BATCH_ID
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.QCM_STAUS = '00'
AND T.JUGDE_APPLY_CODE IS NULL;
--找客户名称
SELECT MAX(T.CUSTOMER_NM)
INTO V_CUSTOMER_NM
FROM SLM_ORDER_HEAD T
WHERE T.ORDER_NO = V_ORDER_NO
AND T.VALIDFLAG = '1';
--报检支吨
SELECT SUM(T.ACT_COUNT), SUM(T.ACT_WEIGHT)
INTO V_ACT_COUNT2, V_ACT_WEIGHT2
FROM MIL_INSPECTION T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.VALIDFLAG = '1'
AND T.RECHECK = '0';
--交库支数大于报检支数才会增加报检记录
IF (NVL(V_ACT_COUNT1, 0) - NVL(V_ACT_COUNT2, 0) > 0) THEN
--增加主表
INSERT INTO MIL_INSPECTION
(INSPECTION_NO,
INSPECTION_NUM,
HEAT_PLAN_NO,
ZY_BATCH_ID,
JUDGE_STOVE_NO,
BATCH_NO,
INSPECTION_FLAG,
INSPECTION_RESULT,
PRODUCCODE,
PRODUCNAME,
STEELCODE,
STEELNAME,
GRADECODE,
GRADENAME,
SPEC_CODE,
SPEC_NAME,
MODEL_CODE,
MODEL_DESC,
STD_CODE,
STD_NAME,
STD_STYLE,
STD_STYLE_DESC,
CRAFT_FILE_NO,
CUSTOMER_NM,
ACT_COUNT,
ACT_WEIGHT,
CREATE_TIME,
LOAD_TIME,
INSPECTION_TIME,
INSPECTION_NAME,
APPLY_FLAG,
PROCESS_CODE,
PLINE_CODE,
PLINE_NAME,
ORDER_NO,
ORDER_SEQ,
PROC_DATE,
SEQ,
CREATE_NAME)
VALUES
(V_INSPECTION_NO,
'1',
'#HEAT_PLAN_NO#',
V_ZY_BATCH_ID,
'#JUDGE_STOVE_NO#',
'#BATCH_NO#',
DECODE(V_FLAG, '1', '1', '0', V_TYPE, '3', '3'),
'',
'#PRODUCCODE#',
'#PRODUCNAME#',
'#STEELCODE#',
'#STEELNAME#',
V_GRADECODE,
V_GRADENAME,
'#SPEC_CODE#',
'#SPEC_NAME#',
'#MODEL_CODE#',
'#MODEL_DESC#',
'#STD_CODE#',
'#STD_NAME#',
'#STD_STYLE#',
'#STD_STYLE_DESC#',
V_CRAFT_FILE_NO,
V_CUSTOMER_NM,
NVL(V_ACT_COUNT1, 0) - NVL(V_ACT_COUNT2, 0),
NVL(V_ACT_WEIGHT1, 0) - NVL(V_ACT_WEIGHT2, 0),
SYSDATE,
SYSDATE,
'',
'',
'0',
V_PROCESS_CODE,
'#PLINE_CODE#',
(SELECT P.PLINE_NAME
FROM COM_BASE_PLINE P
WHERE P.PLINE_CODE = '#PLINE_CODE#'),
V_ORDER_NO,
V_ORDER_SEQ,
V_PROC_DATE,
V_SEQ,
V_CREATE_NAME);
--增加子表
FOR MYROW2 IN (SELECT '几何尺寸' XM, NVL(S.BIAS_NAME, '-') GC
FROM CRAFT_ORD_DESIGN_MSC_PL_PRC T,
CRAFT_ORD_DESIGN_STD_SIC S
WHERE T.DESGIN_KEY = S.DESGIN_KEY(+)
AND T.MSC_PLINE = S.MSC_PLINE(+)
and t.PROCESS_CODE = S.PROCESS_CODE(+)
AND S.SPECL_FL(+) = '2'
AND T.PROCESS_CODE = V_PROCESS_CODE
AND T.MSC_PLINE = V_INDEX_SEQ
AND T.DESGIN_KEY IN
(SELECT C.DESGIN_KEY
FROM SLM_ORDER_HEAD A,
SLM_ORDER_LINE B,
CRAFT_ORD_DESIGN C
WHERE A.ORD_PK = B.ORD_PK
AND C.ORD_LN_PK = B.ORD_LN_PK
AND C.VALIDFLAG = '1'
AND A.ORDER_NO = V_ORDER_NO
AND B.ORDER_SEQ = V_ORDER_SEQ)) LOOP
INSERT INTO MIL_INSPECTION_DETAIL
(INSPECTION_NO, INSPECTION_NUM, PROJECT_CATEGORY, PROJECT_NAME)
values
(V_INSPECTION_NO, 1, MYROW2.XM, MYROW2.GC);
END LOOP;
INSERT INTO MIL_INSPECTION_DETAIL
(INSPECTION_NO, INSPECTION_NUM, PROJECT_CATEGORY, PROJECT_NAME)
values
(V_INSPECTION_NO, 1, '表面质量', '表面质量');
INSERT INTO MIL_INSPECTION_DETAIL
(INSPECTION_NO, INSPECTION_NUM, PROJECT_CATEGORY, PROJECT_NAME)
values
(V_INSPECTION_NO, 1, '外包装质量', '外包装质量');
END IF;
END;
]]>
SELECT NVL((select SUM(T.ACT_COUNT)
from MIL_INSPECTION t
WHERE T.JUDGE_STOVE_NO = ?
AND T.PLINE_CODE = ?
AND T.INSPECTION_FLAG > 1
AND T.INSPECTION_RESULT = '合格'),
0) - NVL((SELECT SUM(T1.ACT_COUNT)
FROM QCM_ZG_JUGDE_APPLY T1
WHERE T1.JUDGE_STOVE_NO = ?
AND T1.PLINE_CODE = ?
AND T1.TARGET = 'A'),
0) ACT_COUNT
FROM DUAL
SELECT
JUDGE_STOVE_NO
FROM
YDM_ZC_BILL_C
WHERE
(BILL_NO,RECEIVE_FLAG) =
(SELECT BILL_NO,INSTOCK_DOC FROM YDM_BC_INLIST WHERE JUDGE_STOVE_NO = ?
AND BILL_NO IS NOT NULL AND ROWNUM = 1)
0 THEN
ROUND(SYSDATE - DELVRY_EDATE, 2)
END HTCQ
FROM OFFLINE_PROCESS T
WHERE 1 = 1
]]>