SELECT SM_CD VALUE , SM_CFNM LABEL FROM TBZ00_COMMCD WHERE LG_CD = 'B01129' SELECT T.CHARGE_NO LABEL ,T.CHARGE_NO VALUE FROM TBG02_CHARGE_COMM_D T WHERE NOT EXISTS (SELECT 'X' FROM TBB02_WORK_INGR W WHERE W.CHARGE_NO = T.CHARGE_NO AND W.PROC_CD = 'JJ' AND ROWNUM = 1) AND T.CHARGE_NO LIKE 'J0%' ORDER BY T.CHARGE_NO SELECT CC.STL_GRD ,'' PRODNM_CD ,CC.SLAB_RT --板坯去向（生产线） ,CC.CHARGE_INGR_DEC_EMP_ID --判定人员 ,CC.LST_INGR_REG_DTIME --判定时间 ,'' REGID --检验人员 FROM TBG02_CHARGE_COMM_D CC WHERE CC.CHARGE_NO = ? WITH WF AS ( SELECT SIR.CHEM_CD , TO_CHAR(WIR.CHEM_VAL, 'FM990.0000999') CHEM_VAL , SIR.DISPLAY_SEQ , SIR.COMP_CAL , SIR.COMP_DETAIL , DECODE(WIR.CHEM_CD , NULL , 'Y') EX , SIR.DISPLAY_LEN 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(+) = ? AND WIR.CHEM_SEQ(+) = ? ) SELECT WF.* --复合元素不必要所有都显示，只需要有标准的 , TO_CHAR(FI.CHEM_MIN , 'FM0.'||SUBSTR(WF.DISPLAY_LEN , 2)) CHEM_MIN , TO_CHAR(FI.CHEM_MAX , 'FM0.'||SUBSTR(WF.DISPLAY_LEN , 2)) CHEM_MAX FROM TBB01_TAFAC_INGR FI , WF WHERE FI.CHEM_CD(+) = WF.CHEM_CD AND FI.TAFAC_STL_GRD(+) = ? ORDER BY FI.CHEM_MIN(+)||FI.CHEM_MAX(+) ASC SELECT SIR.CHEM_CD , FIR.CHEM_MIN , FIR.CHEM_MAX FROM TBB01_TAFAC_INGR FIR , TBB01_SEQ_INGR SIR WHERE FIR.CHEM_CD(+) = SIR.CHEM_CD AND SIR.COMP_YN = 'N' AND FIR.TAFAC_STL_GRD(+) = ? ORDER BY SIR.DISPLAY_SEQ SELECT FIR.CHEM_CD , FIR.CHEM_MIN , FIR.CHEM_MAX , SI.COMP_CAL , SI.COMP_DETAIL FROM TBB01_TAFAC_INGR FIR , TBB01_SEQ_INGR SI WHERE SI.COMP_YN = 'Y' --复合元素 AND FIR.CHEM_CD = SI.CHEM_CD AND FIR.TAFAC_STL_GRD = ? ORDER BY FIR.CHEM_MIN||FIR.CHEM_MAX ASC DELETE FROM TBB02_WORK_INGR WHERE CHARGE_NO = ? AND PROC_CD = ? AND CHEM_SEQ = ? DELETE FROM TBB02_WORK_INGR WHERE CHARGE_NO = ? AND PROC_CD = ? AND CHEM_SEQ = ? AND CHEM_CD = ? UPDATE TBB02_WORK_INGR SET CHEM_VAL = ? , CHEM_L2_VAL = ? , CHEM_VAL_TP = 'L' --'L'表示更新的炉次的信息 , MOD_ID = ? , MOD_DTIME = TO_CHAR(SYSDATE , 'YYYYMMDDHH24MISS') WHERE CHARGE_NO = ? AND PROC_CD = ? AND CHEM_SEQ = ? AND CHEM_CD = ? UPDATE TBB02_WORK_INGR SET CHEM_L2_PROC_CD = ? ,MOD_ID = ? ,MOD_DTIME = TO_CHAR(SYSDATE , 'YYYYMMDDHH24MISS') WHERE CHARGE_NO = ? AND PROC_CD = ? AND CHEM_SEQ = ? UPDATE TBG02_CHARGE_COMM SET LST_INGR_CD = ? , CHARGE_INGR_DEC_EMP_ID = ? , LST_INGR_REG_DTIME = TO_CHAR(SYSDATE , 'YYYYMMDDHH24MISS') WHERE CHARGE_NO = ? INSERT INTO TBB02_WORK_INGR( CHARGE_NO , PROC_CD , CHEM_SEQ , CHEM_CD , CHEM_VAL , CHEM_L2_VAL , REG_ID , REG_DTIME , CHEM_VAL_TP , CHEM_L2_PROC_CD ) VALUES(?,?,?,?,? ,? ,? , TO_CHAR(SYSDATE , 'YYYYMMDDHH24MISS') , 'L' , ?) --'L'表示插入的是炉次的信息 {call ZL_HOST_DCS01.PIB020_WORK_INGR(?,?,?,?,?,?,?,?,?,?)} {call ZL_HOST_DCS01.PIB020_WORK_INGR_SP1(?,?,?,?)}