SELECT SM_CFNM , SM_CD , 'N' CHK1 , 'N' CHK2 FROM TBZ00_COMMCD WHERE LG_CD='G03004' SELECT SM_CFNM ,SM_CD ,'N' CHK FROM TBZ00_COMMCD WHERE LG_CD='G03005' ORDER BY CD_SEQ SELECT SM_CFNM LABEL ,SM_CFNM VALUE FROM TBZ00_COMMCD WHERE LG_CD = 'G03004' SELECT SM_CFNM LABEL ,SM_CFNM VALUE FROM TBZ00_COMMCD WHERE LG_CD = 'G03005' SELECT SM_CFNM||'T' LABEL , SM_CD||'T' VALUE FROM TBZ00_COMMCD WHERE LG_CD='G03004' UNION ALL SELECT SM_CFNM||'B' LABEL , SM_CD||'B' VALUE FROM TBZ00_COMMCD WHERE LG_CD='G03004' SELECT 'N' CHK , T1.SLAB_NO , T1.SLAB_STAT , S.GR_GROUP , CASE WHEN T1.MATRL_END_CAUSE_CD = '5' THEN '否' ELSE '是' END MATRL_END_CAUSE_CD , DECODE(T1.INSTR_SLAB_THK||'*'||T1.INSTR_SLAB_WTH||'*'||T1.INSTR_SLAB_LEN ,'**' , NULL , T1.INSTR_SLAB_THK||'*'||T1.INSTR_SLAB_WTH||'*'||T1.INSTR_SLAB_LEN ) INSTR_TWL --指示厚度×长度×长度 , DECODE(T1.SLAB_THK||'*'||T1.SLAB_WTH||'*'||T1.SLAB_LEN , '**' , NULL , T1.SLAB_THK||'*'||T1.SLAB_WTH||'*'||T1.SLAB_LEN ) TWL --实绩厚度×长度×长度 , T1.SLAB_WGT --理论重量 , T1.WEIGHT_WGT --实际重量 , T1.STL_GRD --厂内钢号 , DECODE(T1.BEF_STL_GRD , NULL , T1.STL_GRD , T1.BEF_STL_GRD) BEF_STL_GRD , T1.SLAB_RT --板坯去向 , T1.HCR_CLF --指示HCR , NVL(T1.SLAB_CUT_DTIME ,'') SLAB_CUT_DTIME --切割时间 -- , T1.LAST_SLAB_YN --头尾板坯 -- , (T1.DIFF_STL_GRD_STA_END_YN = '2' OR T1.DIFF_STL_GRD_STA_END_YN = '3') --2为头板坯，3为尾板坯，只有头或者尾板坯出来 , decode(T1.DIFF_STL_GRD_STA_END_YN , '1' , null , '2', 'Y','3','Y',T1.DIFF_STL_GRD_STA_END_YN) DIFF_STL_GRD_STA_END_YN --头尾板坯 , T1.EXTSHAPE_GRD --板坯外观等级 , T1.SF_METHOD --板坯修整方法 , T1.SURPLMATL_YN --错误板坯 , T1.CRK_CD1||T1.CRK_CD1_LOC CRK1 --缺陷1 , T1.CRK_CD2||T1.CRK_CD2_LOC CRK2 --缺陷2 , T1.CRK_CD3||T1.CRK_CD3_LOC CRK3 --缺陷3 , T1.CRK_CD4||T1.CRK_CD4_LOC CRK4 --缺陷4 , T1.CRK_CD5||T1.CRK_CD5_LOC CRK5 --缺陷5 , T1.CRK_CD6||T1.CRK_CD6_LOC CRK6 --缺陷6 , T1.CRK_CD7||T1.CRK_CD7_LOC CRK7 --缺陷7 , T1.CRK_CD8||T1.CRK_CD8_LOC CRK8 --缺陷8 , T1.CRK_CD9||T1.CRK_CD9_LOC CRK9 --缺陷9 , T1.CRK_CD10||T1.CRK_CD1_LOC CRK10 --缺陷10 , T1.ORD_FL --余才区分 , T1.SLAB_INGR_DEC_GRD --板坯成分判定等级 , T1.EXTSHAPE_GRD EXTSHAPE_GRD1 --板坯外观等级 , T1.SF_METHOD SF_METHOD1 --板坯修整方法 , T1.CUR_LOAD_LOC --板坯位置 , T1.EXTSHAPE_DEC_EMP_ID , T1.EXTSHAPE_DEC_DTIME , T1.SLAB_INGR_DEC_EMP_ID , T1.SLAB_INGR_DEC_DTIME , T1.SF_METHOD_STD_ID , T1.SF_METHOD_STD_DTIME , T1.SF_METHOD_ID , T1.SF_METHOD_DTIME , T1.SF_METHOD_END_ID , T1.SF_METHOD_END_DTIME , T2.CC_DEVNO --铸机号 , '' ROWSTATUS2 , '' ROWSTATUS3 , T1.SLAB_INGR_DEC_KIND FROM TBG02_SLAB_COMM T1 , TBG02_CHARGE_COMM T2, TBB02_SHIFT_GROUP S WHERE SUBSTR(T1.SLAB_NO, 1, 9) = SUBSTR(T2.CHARGE_NO, 1, 9) --T1.SLAB_NO LIKE SUBSTR(T2.CHARGE_NO ,1,9)||'%' AND T1.EXTSHAPE_DEC_EMP_ID = S.OPE_ID(+) AND T1.SLAB_NO LIKE ? AND T1.SLAB_CUT_DTIME BETWEEN ? AND ? --默认最近三天 AND NVL(CASE WHEN T1.SLAB_STAT !='3' THEN '' ELSE T1.SMS_YARD_EXT_DTIME END,'0000') BETWEEN ? AND ? AND T2.CC_DEVNO like ? AND T1.SLAB_RT like ? AND T1.HCR_CLF like ? ORDER BY T1.SLAB_NO DESC SELECT 'N' CHK, T1.SLAB_NO, T1.EXTSHAPE_DEC_EMP_ID, S.GR_GROUP,S.GR_SHIFT, T1.SLAB_STAT, CASE WHEN T1.MATRL_END_CAUSE_CD = '5' THEN '否' ELSE '是' END MATRL_END_CAUSE_CD, DECODE(T1.INSTR_SLAB_THK || '*' || T1.INSTR_SLAB_WTH || '*' || T1.INSTR_SLAB_LEN,'**',NULL, T1.INSTR_SLAB_THK || '*' || T1.INSTR_SLAB_WTH || '*' || T1.INSTR_SLAB_LEN) INSTR_TWL --指示厚度×长度×长度 ,DECODE(T1.SLAB_THK || '*' || T1.SLAB_WTH || '*' || T1.SLAB_LEN,'**',NULL, T1.SLAB_THK || '*' || T1.SLAB_WTH || '*' || T1.SLAB_LEN) TWL --实绩厚度×长度×长度 ,T1.SLAB_WGT --理论重量 ,T1.WEIGHT_WGT --实际重量 ,T1.STL_GRD --厂内钢号 ,DECODE(T1.BEF_STL_GRD, NULL, T1.STL_GRD, T1.BEF_STL_GRD) BEF_STL_GRD, T1.SLAB_RT --板坯去向 ,T1.HCR_CLF --指示HCR ,NVL(T1.SLAB_CUT_DTIME, '') SLAB_CUT_DTIME --切割时间 ,decode(T1.DIFF_STL_GRD_STA_END_YN,'1',null,'2','Y','3','Y',T1.DIFF_STL_GRD_STA_END_YN) DIFF_STL_GRD_STA_END_YN --头尾板坯 ,T1.EXTSHAPE_GRD --板坯外观等级 ,T1.SF_METHOD --板坯修整方法 ,T1.SURPLMATL_YN --错误板坯 ,T1.CRK_CD1 || T1.CRK_CD1_LOC CRK1 --缺陷1 ,T1.CRK_CD2 || T1.CRK_CD2_LOC CRK2 --缺陷2 ,T1.CRK_CD3 || T1.CRK_CD3_LOC CRK3 --缺陷3 ,T1.CRK_CD4 || T1.CRK_CD4_LOC CRK4 --缺陷4 ,T1.CRK_CD5 || T1.CRK_CD5_LOC CRK5 --缺陷5 ,T1.CRK_CD6 || T1.CRK_CD6_LOC CRK6 --缺陷6 ,T1.CRK_CD7 || T1.CRK_CD7_LOC CRK7 --缺陷7 ,T1.CRK_CD8 || T1.CRK_CD8_LOC CRK8 --缺陷8 ,T1.CRK_CD9 || T1.CRK_CD9_LOC CRK9 --缺陷9 ,T1.CRK_CD10 || T1.CRK_CD1_LOC CRK10 --缺陷10 ,T1.ORD_FL --余才区分, ,T1.SLAB_INGR_DEC_GRD --板坯成分判定等级, ,T1.EXTSHAPE_GRD EXTSHAPE_GRD1 --板坯外观等级, ,T1.SF_METHOD SF_METHOD1 --板坯修整方法, ,T1.CUR_LOAD_LOC --板坯位置, ,T1.EXTSHAPE_DEC_EMP_ID, T1.EXTSHAPE_DEC_DTIME, T1.SLAB_INGR_DEC_EMP_ID, T1.SLAB_INGR_DEC_DTIME, T1.SF_METHOD_STD_ID, T1.SF_METHOD_STD_DTIME, T1.SF_METHOD_ID, T1.SF_METHOD_DTIME, T1.SF_METHOD_END_ID, T1.SF_METHOD_END_DTIME, T2.CC_DEVNO, --铸机号 '' ROWSTATUS2, '' ROWSTATUS3, T1.SLAB_INGR_DEC_KIND FROM TBG02_SLAB_COMM T1, TBG02_CHARGE_COMM T2, TBB02_SHIFT_GROUP S WHERE T1.EXTSHAPE_DEC_EMP_ID = S.OPE_ID(+) AND SUBSTR(T1.SLAB_NO, 1, 9) = SUBSTR(T2.CHARGE_NO, 1, 9) AND T1.SLAB_CUT_DTIME BETWEEN ? AND ? AND DECODE(S.GR_GROUP,null,'%','','%',S.GR_GROUP) like ? AND DECODE(T1.EXTSHAPE_DEC_EMP_ID,null,'%','','%',T1.EXTSHAPE_DEC_EMP_ID) LIKE ? AND T2.CC_DEVNO like ? AND T1.SLAB_RT like ? AND T1.HCR_CLF like ? ORDER BY T1.SLAB_NO DESC UPDATE TBG02_SLAB_COMM SET EXTSHAPE_GRD = ? --板坯外观等级 , CRK_CD1 = ? , CRK_CD1_LOC = ? --缺陷代码与缺陷位置(上表面T或下表面B) , CRK_CD2 = ? , CRK_CD2_LOC = ? --缺陷代码与缺陷位置(上表面T或下表面B) , CRK_CD3 = ? , CRK_CD3_LOC = ? --缺陷代码与缺陷位置(上表面T或下表面B) , CRK_CD4 = ? , CRK_CD4_LOC = ? --缺陷代码与缺陷位置(上表面T或下表面B) , CRK_CD5 = ? , CRK_CD5_LOC = ? --缺陷代码与缺陷位置(上表面T或下表面B) , CRK_CD6 = ? , CRK_CD6_LOC = ? --缺陷代码与缺陷位置(上表面T或下表面B) , CRK_CD7 = ? , CRK_CD7_LOC = ? --缺陷代码与缺陷位置(上表面T或下表面B) , CRK_CD8 = ? , CRK_CD8_LOC = ? --缺陷代码与缺陷位置(上表面T或下表面B) , CRK_CD9 = ? , CRK_CD9_LOC = ? --缺陷代码与缺陷位置(上表面T或下表面B) , CRK_CD10= ? , CRK_CD10_LOC = ? --缺陷代码与缺陷位置(上表面T或下表面B) , EXTSHAPE_DEC_EMP_ID = ? , EXTSHAPE_DEC_DTIME = TO_CHAR(SYSDATE , 'YYYYMMDDHH24MISS') WHERE SLAB_NO = ? AND SLAB_STAT = '2' SELECT SM_CFNM FROM TBZ00_COMMCD WHERE LG_CD='G03004' AND SM_CD = ? SELECT SM_CFNM FROM TBZ00_COMMCD WHERE LG_CD='G03005' AND SM_CD = ? INSERT INTO TBB02_HIS_SLAB (SLAB_NO, SLAB_DCS_FLAG, CUR_PROG_CD, CUR_PROG_CD_PGM, CUR_PROG_CD_DTIME, ORG_ORD_NO, ORG_ORD_SEQ, ORD_NO, ORD_SEQ, ORD_FL, STL_GRD, BEF_STL_GRD, SLAB_INGR_DEC_KIND, SLAB_INGR_DEC_GRD, EXTSHAPE_GRD, SLAB_INGR_DEC_GRD_EXT, EXTSHAPE_GRD_EXT, SLAB_TOT_DEC_GRD, REG_ID, REG_DTIME, INGR_EXT_NM, INGR_EXT_DTIME, HIS_DESC) SELECT T.SLAB_NO, '9', T.CUR_PROG_CD, T.CUR_PROG_CD_PGM, T.CUR_PROG_CD_DTIME, T.ORG_ORD_NO, T.ORG_ORD_SEQ, T.ORD_NO, T.ORD_SEQ, T.ORD_FL, T.STL_GRD, T.BEF_STL_GRD, T.SLAB_INGR_DEC_KIND, T.SLAB_INGR_DEC_GRD, ?, T.SLAB_INGR_DEC_GRD_EXT, T.EXTSHAPE_GRD_EXT, T.SLAB_TOT_DEC_GRD, ?, TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS'), T.INGR_EXT_NM, T.INGR_EXT_DTIME, ? FROM TBG02_SLAB_COMM T WHERE T.SLAB_NO = ? UPDATE TBG02_SLAB_COMM SC SET SC.SF_METHOD_STD_ID = ? ,SC.SF_METHOD_STD_DTIME = TO_CHAR(SYSDATE , 'YYYYMMDDHH24MISS') WHERE SC.SLAB_NO = ? AND SLAB_STAT = '2' UPDATE TBG02_SLAB_COMM SC SET SC.SF_METHOD_ID = ? ,SC.SF_METHOD = ? ,SC.SF_METHOD_DTIME = TO_CHAR(SYSDATE , 'YYYYMMDDHH24MISS') WHERE SC.SLAB_NO = ? AND SLAB_STAT = '2' UPDATE TBG02_SLAB_COMM SC SET SC.SF_METHOD_END_ID = ? ,SC.SF_METHOD_END_DTIME = TO_CHAR(SYSDATE , 'YYYYMMDDHH24MISS') WHERE SC.SLAB_NO = ? AND SLAB_STAT = '2' {call NIB020221(?,?,?,?,?)} {call GP_OS_COMM(?,?,?)} SELECT SLAB_NO , SLAB_WGT , ORD_NO , ORD_SEQ , CUR_PROG_CD , BEF_PROG_CD FROM TBG02_SLAB_COMM WHERE SLAB_NO = ? AND SLAB_STAT = '2'