SELECT 'N' CHK , SM_CFNM , SM_CD FROM TBZ00_COMMCD T WHERE LG_CD='H02001' AND T.USED_YN = 'Y' SELECT 'N' CHK , SM_CFNM , SM_CD FROM TBZ00_COMMCD T WHERE LG_CD='H02002' AND T.USED_YN = 'Y' /* SELECT 'N' CHK , '' EXT_FLAG , '' SMP_FLAG , '' SIZE_FLAG , ROW_NUMBER() OVER (ORDER BY A.OLD_SAMPL_NO ) SEQ , A.COIL_NO --钢卷号 , A.OLD_SAMPL_NO --成分钢卷号 , A.INSTR_COIL_THK , A.INSTR_COIL_WTH , B.DEL_TOL_THK_MIN , B.DEL_TOL_THK_MAX , B.DEL_TOL_WTH_MIN , B.DEL_TOL_WTH_MAX , TO_CHAR( A.INSTR_COIL_WGT/0.95*0.98 ,'99999999999' ) INSTR_COIL_WGT , A.COIL_THK , A.COIL_WTH , A.ACT_WGT , A.L2_COIL_WEIGHT , A.COIL_END_DTIME --卷取时间 , A.SMP_DIR_PIC_YN --是否需要取样（指示） , A.SAMPL_PICK_YN --是否已取样（实绩） , A.SPEC_ABBSYM --标准号 , A.SPEC_STL_GRD --标准钢号 , A.EXTSHAPE_DEC_GRD --外观判定等级 , A.CRK_CD1 --外观缺陷缺陷1 , A.CRK_CD2 --外观缺陷缺陷2 , A.CRK_CD3 --外观缺陷缺陷3 , A.CRK_CD4 --外观缺陷缺陷4 , A.CRK_CD5 --外观缺陷缺陷5 , A.SPM_YN --SMP是否作业 , A.MISSNO_CLF_CD --有无却号 , A.SAMPL_NO SMP_NO , A.SAMPL_CUT_LOC SMP_CUT_LOC , A.DCS_WTH --判定宽度 , A.DCS_THK --判定厚度 , A.COIL_THK_OS , A.COIL_THK_CL , A.COIL_THK_DS , A.COIL_STAT , A.SIZE_DEC_RST , A.SPM_RMK , A.CUR_PROG_CD FROM TBH02_COIL_COMM A , TBB01_ORD_DEL B WHERE (A.SIZE_DEC_RST IS NULL OR A.EXTSHAPE_DEC_GRD IS NULL) AND A.COIL_STAT = '2' AND A.MISSNO_CLF_CD IS NULL --AND NVL(A.CUR_PROG_CD,'NULLCD') != 'SFF'--徐工要求去掉运送完成，金工需要数据(商议中) AND A.ORD_NO = B.ORD_NO(+) AND A.ORD_SEQ = B.ORD_SEQ(+) AND B.DSN_KIND = (SELECT MIN(O.DSN_KIND) FROM TBB01_ORD_DEL O WHERE O.ORD_NO = A.ORD_NO AND O.ORD_SEQ = A.ORD_SEQ )*/ SELECT 'N' CHK , '' EXT_FLAG , '' SMP_FLAG , '' SIZE_FLAG , ROW_NUMBER() OVER (ORDER BY A.OLD_SAMPL_NO ) SEQ , A.COIL_NO --钢卷号 , A.OLD_SAMPL_NO --成分钢卷号 , A.INSTR_COIL_THK , A.INSTR_COIL_WTH , B.DEL_TOL_THK_MIN , B.DEL_TOL_THK_MAX , B.DEL_TOL_WTH_MIN , B.DEL_TOL_WTH_MAX , TO_CHAR( A.INSTR_COIL_WGT/0.95*0.98 ,'99999999999' ) INSTR_COIL_WGT , A.COIL_THK , A.COIL_WTH , A.ACT_WGT , A.L2_COIL_WEIGHT , A.COIL_END_DTIME --卷取时间 , A.SMP_DIR_PIC_YN --是否需要取样（指示） , A.SAMPL_PICK_YN --是否已取样（实绩） , A.SPEC_ABBSYM --标准号 , A.SPEC_STL_GRD --标准钢号 , A.EXTSHAPE_DEC_GRD --外观判定等级 , A.CRK_CD1 --外观缺陷缺陷1 , A.CRK_CD2 --外观缺陷缺陷2 , A.CRK_CD3 --外观缺陷缺陷3 , A.CRK_CD4 --外观缺陷缺陷4 , A.CRK_CD5 --外观缺陷缺陷5 , A.SPM_YN --SMP是否作业 , A.MISSNO_CLF_CD --有无却号 , A.SAMPL_NO SMP_NO , A.SAMPL_CUT_LOC SMP_CUT_LOC , A.DCS_WTH --判定宽度 , A.DCS_THK --判定厚度 , A.COIL_THK_OS , A.COIL_THK_CL , A.COIL_THK_DS , A.COIL_STAT , A.SIZE_DEC_RST , A.SPM_RMK , A.CUR_PROG_CD ,A.CUR_LOAD_LOC, C.ORD_DEVLMT_DATE FROM TBH02_COIL_COMM A , TBB01_ORD_DEL B,TBA01_ORD_LINE C WHERE --AND NVL(A.CUR_PROG_CD,'NULLCD') != 'SFF'--徐工要求去掉运送完成，金工需要数据(商议中) A.ORD_NO = C.ORD_NO(+) AND A.ORD_SEQ = C.ORD_SEQ(+) AND A.ORD_NO = B.ORD_NO(+) AND A.ORD_SEQ = B.ORD_SEQ(+) AND (A.SIZE_DEC_RST IS NULL OR A.EXTSHAPE_DEC_GRD IS NULL) AND A.MISSNO_CLF_CD IS NULL AND A.COIL_STAT = '2' AND B.DSN_KIND = (SELECT MIN(O.DSN_KIND) FROM TBB01_ORD_DEL O WHERE O.ORD_NO = A.ORD_NO AND O.ORD_SEQ = A.ORD_SEQ ) /* SELECT 'N' CHK , '' EXT_FLAG , '' SMP_FLAG , '' SIZE_FLAG , ROW_NUMBER() OVER (ORDER BY A.OLD_SAMPL_NO ) SEQ , A.COIL_NO --钢卷号 , A.OLD_SAMPL_NO --成分钢卷号 , A.INSTR_COIL_THK , A.INSTR_COIL_WTH , TO_CHAR( A.INSTR_COIL_WGT/0.95*0.98 ,'99999999999' ) INSTR_COIL_WGT , A.COIL_THK , A.COIL_WTH , A.ACT_WGT , A.L2_COIL_WEIGHT , A.COIL_END_DTIME --卷取时间 , A.SMP_DIR_PIC_YN --是否需要取样（指示） , A.SAMPL_PICK_YN --是否已取样（实绩） , A.SPEC_ABBSYM --标准号 , A.SPEC_STL_GRD --标准钢号 , A.EXTSHAPE_DEC_GRD --外观判定等级 , A.CRK_CD1 --外观缺陷缺陷1 , A.CRK_CD2 --外观缺陷缺陷2 , A.CRK_CD3 --外观缺陷缺陷3 , A.CRK_CD4 --外观缺陷缺陷4 , A.CRK_CD5 --外观缺陷缺陷5 , A.SPM_YN --SMP是否作业 , A.MISSNO_CLF_CD --有无却号 , A.SAMPL_NO SMP_NO , A.SAMPL_CUT_LOC SMP_CUT_LOC , A.DCS_WTH --判定宽度 , A.DCS_THK --判定厚度 , A.COIL_THK_OS , A.COIL_THK_CL , A.COIL_THK_DS , A.COIL_STAT , A.SIZE_DEC_RST , A.CUR_PROG_CD , A.SPM_RMK FROM TBH02_COIL_COMM A WHERE SMP_DIR_PIC_YN = 'Y' AND A.SAMPL_PICK_YN IS NULL --AND NVL(A.CUR_PROG_CD,'NULLCD') != 'SFF'--徐工要求去掉运送完成 ，金工需要数据(商议中) ORDER BY A.OLD_SAMPL_NO DESC */ SELECT 'N' CHK, '' EXT_FLAG, '' SMP_FLAG, '' SIZE_FLAG, ROW_NUMBER() OVER(ORDER BY A.OLD_SAMPL_NO) SEQ, A.COIL_NO --钢卷号 , A.OLD_SAMPL_NO --成分钢卷号 , A.INSTR_COIL_THK, A.INSTR_COIL_WTH, TO_CHAR(A.INSTR_COIL_WGT / 0.95 * 0.98, '99999999999') INSTR_COIL_WGT, A.COIL_THK, A.COIL_WTH, A.ACT_WGT, A.L2_COIL_WEIGHT, A.COIL_END_DTIME --卷取时间 , A.SMP_DIR_PIC_YN --是否需要取样（指示） , A.SAMPL_PICK_YN --是否已取样（实绩） , A.SPEC_ABBSYM --标准号 , A.SPEC_STL_GRD --标准钢号 , A.EXTSHAPE_DEC_GRD --外观判定等级 , A.CRK_CD1 --外观缺陷缺陷1 , A.CRK_CD2 --外观缺陷缺陷2 , A.CRK_CD3 --外观缺陷缺陷3 , A.CRK_CD4 --外观缺陷缺陷4 , A.CRK_CD5 --外观缺陷缺陷5 , A.SPM_YN --SMP是否作业 , A.MISSNO_CLF_CD --有无却号 , A.SAMPL_NO SMP_NO, A.SAMPL_CUT_LOC SMP_CUT_LOC, A.DCS_WTH --判定宽度 , A.DCS_THK --判定厚度 , A.COIL_THK_OS, A.COIL_THK_CL, A.COIL_THK_DS, A.COIL_STAT, A.SIZE_DEC_RST, A.CUR_PROG_CD, A.SPM_RMK, A.CUR_LOAD_LOC, B.ORD_DEVLMT_DATE FROM TBH02_COIL_COMM A,TBA01_ORD_LINE B WHERE A.ORD_NO=B.ORD_NO(+) AND A.ORD_SEQ=B.ORD_SEQ(+) AND SMP_DIR_PIC_YN = 'Y' AND A.SAMPL_PICK_YN IS NULL --AND NVL(A.CUR_PROG_CD,'NULLCD') != 'SFF'--徐工要求去掉运送完成 ，金工需要数据(商议中) ORDER BY A.OLD_SAMPL_NO DESC ? OR A.COIL_END_DTIME BETWEEN ? AND ?) AND rownum < 8000 ) BB WHERE AA.ORD_NO(+) = BB.ORD_NO AND AA.ORD_SEQ(+) = BB.ORD_SEQ --AND NVL(BB.CUR_PROG_CD,'NULLCD') != 'SFF'--徐工要求去掉运送完成 ，金工需要数据(商议中) ORDER BY BB.ROLL_MANA_NO ASC, BB.ROLL_SLAB_SEQ ASC ]]> SELECT SQ.QLTY_CD_CFNM ,IQ.QLTY_MIN ,IQ.QLTY_MAX FROM TBB02_INS_QLTY IQ , TBB01_SEQ_QLTY SQ WHERE IQ.SMP_NO = ? AND IQ.QLTY_CD = SQ.QLTY_CD UPDATE TBH02_COIL_COMM SET CRK_CD1 = ? --缺陷 ,CRK_CD2 = ? ,CRK_CD3 = ? ,CRK_CD4 = ? ,CRK_CD5 = ? ,SPM_YN = ? --SPM是否作业 ,DCS_THK = ? --判定厚度 ,DCS_WTH = ? --判定宽度 WHERE COIL_NO = ? --钢卷号 -- AND COIL_STAT = '2' -- AND CUR_PROG_CD = 'SED' UPDATE TBB02_LOT_COM SET SMP_PROG_CD = ? --为B , SMP_GET_DTIME = TO_CHAR(SYSDATE , 'YYYYMMDDHH24MISS') WHERE SMP_NO = ? AND SMP_CUT_LOC = ? AND SMP_PROG_CD = 'A' UPDATE TBH02_COIL_COMM CCM SET CCM.EXTSHAPE_DEC_GRD = ? ,CCM.EXTSHAPE_DEC_EMP_ID = ? ,CCM.CUR_PROG_CD_DTIME = TO_CHAR(SYSDATE , 'YYYYMMDDHH24MISS') ,CCM.EXTSHAPE_DEC_DTIME = TO_CHAR(SYSDATE , 'YYYYMMDDHH24MISS') WHERE CCM.COIL_NO = ? ----modify by wxy 冷轧移送完成 不能保存 --AND CCM.COIL_STAT = '2' --AND CCM.CUR_PROG_CD = 'SED' ----------------------------------------------------- UPDATE TBH02_COIL_COMM CCM SET CCM.SAMPL_PICK_YN = ? WHERE CCM.COIL_NO = ? AND CCM.SMP_DIR_PIC_YN = 'Y' UPDATE TBH02_COIL_COMM CCM SET CCM.SIZE_DEC_RST = ? ,CCM.CUR_PROG_CD_DTIME = TO_CHAR(SYSDATE , 'YYYYMMDDHH24MISS') ,CCM.EXTSHAPE_DEC_DTIME = TO_CHAR(SYSDATE , 'YYYYMMDDHH24MISS') WHERE CCM.COIL_NO = ? ----modify by wxy 冷轧移送完成 不能保存 --AND CCM.COIL_STAT = '2' --AND CCM.CUR_PROG_CD = 'SED' ------------------------------------------ {call NIB020231(?,?,?)} {call ZL_HOST_DCS02.SMP_SPM_CHECK(?,?,?,?,?)} {call ZL_HOST_DCS02.SMP_PICK_SAVES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)}