SELECT DISTINCT
CHARGE_NO LABEL
, CHARGE_NO VALUE
FROM TBG02_CHARGE_COMM
WHERE INGR_DEC_GRD='2' --不合格炉次号
AND ( CHARGE_STAT='2' OR CHARGE_STAT = '3' ) --板坯已有，但还在库中，未热轧
ORDER BY CHARGE_NO
SELECT DISTINCT
decode(SI.COMP_YN , 'Y' , SI.COMP_CAL , SI.CHEM_CD) CHEMCD
, SI.CHEM_CD --成分
, SI.DISPLAY_SEQ --序号
, SI.COMP_YN --是否复合成分
FROM TBB02_WORK_INGR WI , TBB01_SEQ_INGR SI
WHERE WI.CHEM_CD = SI.CHEM_CD
AND WI.CHEM_VAL IS NOT NULL
AND WI.CHEM_VAL_TP = 'L'
AND WI.CHARGE_NO LIKE ?
ORDER BY SI.COMP_YN ASC , SI.DISPLAY_SEQ
SELECT
'N' CHK
, CCM.CHARGE_NO --炉次号
, CCM.LST_INGR_CD --最终次数
, CCM.STL_GRD --厂内钢号（可能是替代钢号，在降级的情况下）
, CCM.BEF_STL_GRD --原厂内钢号（即被替换后，品质设计时候的钢号）
, CCM.STL_GRD H_STLGRD
, CCM.BEF_STL_GRD H_BEFSTLGRD
, CCM.INGR_DEC_GRD --最终成分判定等级
, MAX(WIR.CHEM_SEQ) CHEM_SEQ
{0}
FROM TBG02_CHARGE_COMM CCM , TBB02_WORK_INGR WIR
WHERE CCM.CHARGE_NO = WIR.CHARGE_NO
AND WIR.PROC_CD = 'JJ'
AND WIR.CHEM_SEQ = SUBSTR(LST_INGR_CD , 3)
AND CCM.INGR_DEC_GRD = '2'
AND ( CCM.CHARGE_STAT = '2' OR CCM.CHARGE_STAT = '3')
AND CCM.CHARGE_NO LIKE ?
GROUP BY
CCM.CHARGE_NO --炉次号
, CCM.LST_INGR_CD --最终次数
, CCM.STL_GRD --厂内钢号（可能是替代钢号，在降级的情况下）
, CCM.BEF_STL_GRD --原厂内钢号（即被替换后，品质设计时候的钢号）
, CCM.INGR_DEC_GRD --最终成分判定等级
SELECT
'N' CHK
, SCM.SLAB_NO CHARGE_NO --炉次号
, SCM.STL_GRD --厂内钢号（可能是替代钢号，在降级的情况下）
, SCM.BEF_STL_GRD --原厂内钢号（即被替换后，品质设计时候的钢号）
, MAX(WIR.CHEM_SEQ) CHEM_SEQ
, SCM.STL_GRD H_STLGRD
, SCM.BEF_STL_GRD H_BEFSTLGRD
{0}
FROM TBG02_SLAB_COMM SCM , TBB02_WORK_INGR WIR
WHERE SCM.SLAB_NO = WIR.CHARGE_NO
AND WIR.PROC_CD = 'SL'
AND SCM.DIFF_STL_GRD_STA_END_YN = '2'
AND ( SCM.SLAB_STAT = '2' OR SCM.SLAB_STAT = '3')
AND SCM.SLAB_NO LIKE ?
GROUP BY
SCM.SLAB_NO --板坯号
, SCM.STL_GRD --厂内钢号（可能是替代钢号，在降级的情况下）
, SCM.BEF_STL_GRD --原厂内钢号（即被替换后，品质设计时候的钢号）
, max(decode(WIR.CHEM_CD , '{0}', CHEM_VAL , NULL)) CHEM{1}
SELECT DISTINCT
decode(SI.COMP_YN , 'Y' , SI.COMP_CAL , SI.CHEM_CD) CHEMCD
, SI.CHEM_CD
, SI.COMP_YN
, SI.DISPLAY_SEQ
FROM TBB01_FAC_INGR FI , TBB01_SEQ_INGR SI
WHERE EXISTS
(SELECT DISTINCT MOD_STL_GRD
FROM TBB01_MOD_STL
WHERE STL_GRD = ?
AND FI.FAC_STL_GRD = MOD_STL_GRD
)
AND FI.CHEM_CD = SI.CHEM_CD
ORDER BY SI.COMP_YN , SI.DISPLAY_SEQ
SELECT DISTINCT FAC_STL_GRD
{1}
FROM TBB01_FAC_INGR FIR
WHERE EXISTS(SELECT MOD_STL_GRD
FROM TBB01_MOD_STL
WHERE STL_GRD = ?
AND FIR.FAC_STL_GRD = MOD_STL_GRD
)
GROUP BY FAC_STL_GRD
SELECT DISTINCT 'N' CHK
,FIR.FAC_STL_GRD
,FIR.FAC_CODE
FROM TBB01_FAC_INGR FIR
ORDER BY FIR.FAC_CODE , FIR.FAC_STL_GRD
, max(decode(CHEM_CD , '{0}' , CHEM_MIN )) CHEM_MIN{1}
, max(decode(CHEM_CD , '{0}' , CHEM_MAX )) CHEM_MAX{1}
{call ZL_HOST_DCS01.PIB020_FAC_REPL(?,?,?,?,?)}
UPDATE TBG02_CHARGE_COMM
SET STL_GRD = ?
, BEF_STL_GRD = ?
WHERE CHARGE_NO = ?
--牌号改判降余材 modify 0714
UPDATE TBG02_SLAB_COMM
SET STL_GRD = ?
, BEF_STL_GRD = ?
, ORD_FL = '2'
, CUR_PROG_CD = 'RRC'
WHERE SUBSTR(SLAB_NO , 1 , 10) = ?
--牌号改判降余材 modify 0714
UPDATE TBG02_SLAB_COMM_D
SET ORD_FL = '2'
WHERE SLAB_NO IN (
SELECT SLAB_NO
FROM TBG02_SLAB_COMM
WHERE SLAB_NO LIKE ? ||'%'
)
{call NIB028010(?,?,?)}
{call NIB020061(?,?,?,?)}