SELECT SUBSTR(SLAB_NO , 11) LABEL
, SUBSTR(SLAB_NO , 11) VALUE
FROM TBG02_SLAB_COMM
WHERE (DIFF_STL_GRD_STA_END_YN = '3'
OR DIFF_STL_GRD_STA_END_YN = '2')
AND SUBSTR(SLAB_NO , 1 , 10) = ?
SELECT decode(SC.SLAB_RT , null , 'H' , SC.SLAB_RT) SLAB_RT --板坯去向（生产线）
, SX.STL_GRD
, SX.PRODNM_CD
FROM TBG02_SLAB_COMM SC , (SELECT T.STL_GRD , T.PRODNM_CD , T.CHARGE_NO
FROM TBG02_CHARGE_COMM T ) SX
WHERE SX.CHARGE_NO = SUBSTR(SC.SLAB_NO , 1 , 10)
AND SC.SLAB_NO = ?
SELECT DISTINCT
WIR.CHARGE_NO SLAB_NO
, WIR.CHEM_SEQ
FROM TBB02_WORK_INGR WIR
WHERE WIR.CHARGE_NO = ?
AND WIR.PROC_CD = 'SL'
SELECT SLAB_NO X_SLABNO
, 'N' CHECKED
FROM TBG02_SLAB_COMM SC
WHERE SUBSTR(SC.SLAB_NO , 1 , 10 ) = SUBSTR(? , 1 , 10)
AND SC.SLAB_NO != ?
AND (DIFF_STL_GRD_STA_END_YN = '3'
OR DIFF_STL_GRD_STA_END_YN = '2')
WITH WF AS
(
SELECT SIR.CHEM_CD
, WIR.CHEM_VAL
, SIR.DISPLAY_SEQ
, DECODE(WIR.CHEM_CD , NULL , 'Y') EX --值为Y表示要进行insert，否则为update
FROM TBB02_WORK_INGR WIR , TBB01_SEQ_INGR SIR
WHERE WIR.CHEM_CD(+) = SIR.CHEM_CD
AND SIR.COMP_YN = 'N' --非复合元素
AND WIR.CHARGE_NO(+) = ?
AND WIR.PROC_CD(+) = 'SL' --"SL"表示板坯
AND WIR.CHEM_SEQ(+) = ?
)
SELECT WF.*
, FI.CHEM_MIN
, FI.CHEM_MAX
FROM TBB01_FAC_INGR FI , WF
WHERE FI.CHEM_CD(+) = WF.CHEM_CD --所有元素均要显示出来
AND FI.FAC_STL_GRD(+) = ?
AND FI.FAC_CODE(+) = ?
ORDER BY WF.DISPLAY_SEQ
WITH WF AS
(
SELECT SIR.CHEM_CD
, WIR.CHEM_VAL
, SIR.DISPLAY_SEQ
, SIR.COMP_CAL
, SIR.COMP_DETAIL
, DECODE(WIR.CHEM_CD , NULL , 'Y') EX
FROM TBB02_WORK_INGR WIR , TBB01_SEQ_INGR SIR
WHERE WIR.CHEM_CD(+) = SIR.CHEM_CD
AND SIR.COMP_YN = 'Y'
AND WIR.CHARGE_NO(+) = ?
AND WIR.PROC_CD(+) = 'SL'
AND WIR.CHEM_SEQ(+) = ?
)
SELECT WF.* , FI.CHEM_MIN , FI.CHEM_MAX --复合元素不必要所有都显示，只需要有标准的
FROM TBB01_FAC_INGR FI , WF
WHERE FI.CHEM_CD = WF.CHEM_CD
AND FI.FAC_STL_GRD = ?
AND FI.FAC_CODE = ?
ORDER BY WF.DISPLAY_SEQ
SELECT
SIR.CHEM_CD
, AAA.CHEM_MIN
, AAA.CHEM_MAX
FROM
( SELECT FIR.CHEM_CD
, FIR.CHEM_MIN
, FIR.CHEM_MAX
FROM TBB01_FAC_INGR FIR
WHERE FIR.FAC_STL_GRD||FIR.FAC_CODE = ?
) AAA , TBB01_SEQ_INGR SIR
WHERE AAA.CHEM_CD(+) = SIR.CHEM_CD
AND SIR.COMP_YN = 'N'
ORDER BY SIR.DISPLAY_SEQ
SELECT FIR.CHEM_CD
, FIR.CHEM_MIN
, FIR.CHEM_MAX
, SI.COMP_CAL
, SI.COMP_DETAIL
FROM TBB01_FAC_INGR FIR , TBB01_SEQ_INGR SI
WHERE FIR.COMP_YN = 'Y' --复合元素
AND FIR.CHEM_CD = SI.CHEM_CD
AND FIR.FAC_STL_GRD||FIR.FAC_CODE = ?
ORDER BY DISPLAY_SEQ
UPDATE TBB02_WORK_INGR
SET CHEM_VAL = ?
, CHEM_VAL_TP = 'S' --'S'表示更新的板坯的信息
, MOD_ID = ?
, MOD_DTIME = to_char(sysdate , 'YYYYMMDDHH24MISS')
WHERE CHARGE_NO = ?
AND PROC_CD = 'SL'
AND CHEM_SEQ = ?
AND CHEM_CD = ?
INSERT INTO TBB02_WORK_INGR(
CHARGE_NO
, PROC_CD
, CHEM_SEQ
, CHEM_CD
, CHEM_VAL
, REG_ID
, REG_DTIME
, CHEM_VAL_TP
)
VALUES(?,'SL',?,?,? ,? , to_char(sysdate , 'YYYYMMDDHH24MISS') , 'S') --'S'表示插入的是板坯号的信息
DELETE FROM TBB02_WORK_INGR
WHERE CHARGE_NO = ?
AND PROC_CD = 'SL'
AND CHEM_SEQ = ?
DELETE FROM TBB02_WORK_INGR WIR
WHERE WIR.CHARGE_NO = ?
AND WIR.PROC_CD = 'SL'
INSERT INTO TBB02_WORK_INGR(CHARGE_NO , PROC_CD , CHEM_SEQ , CHEM_CD , CHEM_VAL , CHEM_VAL_TP )
SELECT ? , PROC_CD , CHEM_SEQ , CHEM_CD , CHEM_VAL , CHEM_VAL_TP
FROM TBB02_WORK_INGR
WHERE CHARGE_NO = ?
AND PROC_CD = 'SL'
AND CHEM_SEQ = ?
{call NIB020061(?,?,?)}