SELECT B.OLD_SAMPL_NO COIL_NO ,A.PRDNM_CD --品名 ,A.SMP_NO --试样号（试样编号） ,A.SMP_CUT_LOC --位置 ,DECODE(A.SMP_PROG_CD ,'A' , '试样采集待机' ,'B','试样入库待机','C','试样检验待机','D','试样判定待机','E','试样判定完成') SMP_PROG_CD --位置（SMP_PROG_CD） ,B.COIL_THK --厚度 ,A.SPEC_ABBSYM --标准号 ,A.SPEC_STL_GRD --标准钢号 ,A.SMP_DIR_DTIME --试样指示 ,A.SMP_GET_DTIME --试样日期 ,A.SMP_INTO_DTIME --试样入库 ,A.SMP_WORK_DTIME --试样检验时间 ,A.QLTY_DCS_DTIME --判定时间 ,A.MOD_ID --入库人 ,A.SMP_SEND_DTIME --送样时间 ,A.SMP_SEND_ID ,DECODE(A.OVER_SMP_TP , '4' , 'Y' , NULL) FUYANG FROM TBB02_LOT_COM A , C_TBC02_COIL_COMM B WHERE A.SMP_NO = B.SMP_NO AND A.SMP_CUT_LOC = B.SMP_CUT_LOC AND SMP_DIR_PIC_YN = 'Y' AND SUBSTR(B.OLD_SAMPL_NO , 1,1) = 'L' AND A.SMP_PROG_CD = NVL(? , A.SMP_PROG_CD) AND SUBSTR(B.OLD_SAMPL_NO , 1, 9) BETWEEN NVL(?, SUBSTR(B.OLD_SAMPL_NO , 1, 9) ) AND NVL(?, SUBSTR(B.OLD_SAMPL_NO , 1, 9)) ORDER BY B.OLD_SAMPL_NO SELECT B.OLD_SAMPL_NO COIL_NO ,A.PRDNM_CD --品名 ,A.SMP_NO --试样号（试样编号） ,A.SMP_CUT_LOC --位置 ,DECODE(A.SMP_PROG_CD ,'A' , '试样采集待机' ,'B','试样入库待机','C','试样检验待机','D','试样判定待机','E','试样判定完成') SMP_PROG_CD --位置（SMP_PROG_CD） ,B.COIL_THK --厚度 ,A.SPEC_ABBSYM --标准号 ,A.SPEC_STL_GRD --标准钢号 ,A.SMP_DIR_DTIME --试样指示 ,A.SMP_GET_DTIME --试样日期 ,A.SMP_INTO_DTIME --试样入库 ,A.SMP_WORK_DTIME --试样检验时间 ,A.QLTY_DCS_DTIME --判定时间 ,A.MOD_ID --入库人 ,A.SMP_SEND_DTIME --送样时间 ,A.SMP_SEND_ID ,DECODE(A.OVER_SMP_TP , '4' , 'Y' , NULL) FUYANG FROM TBB02_LOT_COM A , C_TBC02_COIL_COMM B WHERE A.SMP_NO = B.SMP_NO AND A.SMP_CUT_LOC = B.SMP_CUT_LOC AND SMP_DIR_PIC_YN = 'Y' AND SUBSTR(B.OLD_SAMPL_NO , 1,1) = 'L' AND A.SMP_PROG_CD = NVL(? , A.SMP_PROG_CD) AND SUBSTR(B.OLD_SAMPL_NO , 1, 9) BETWEEN NVL(?, SUBSTR(B.OLD_SAMPL_NO , 1, 9) ) AND NVL(?, SUBSTR(B.OLD_SAMPL_NO , 1, 9)) AND A.SMP_GET_DTIME BETWEEN ? AND ? ORDER BY B.OLD_SAMPL_NO SELECT CCM.OLD_SAMPL_NO COIL_NO ,A.PRDNM_CD --品名 ,A.SMP_NO --试样号（试样编号） ,A.SMP_CUT_LOC --位置 ,DECODE(A.SMP_PROG_CD ,'A' , '试样采集待机' ,'B','试样入库待机','C','试样检验待机','D','试样判定待机','E','试样判定完成') SMP_PROG_CD --位置（SMP_PROG_CD） ,CCM.COIL_THK --厚度 ,A.SPEC_ABBSYM --标准号 ,A.SPEC_STL_GRD --标准钢号 ,A.SMP_DIR_DTIME --试样指示 ,A.SMP_GET_DTIME --试样日期 ,A.SMP_INTO_DTIME --试样入库 ,A.SMP_WORK_DTIME --试样检验时间 ,A.QLTY_DCS_DTIME --判定时间 ,A.MOD_ID --入库人 ,A.SMP_SEND_DTIME --送样时间 ,A.SMP_SEND_ID --供前台界面使用（可否被选择入库），为Y则允许入库 ,DECODE(A.OVER_SMP_TP , NULL , NULL , 'Y') FUYANG FROM TBB02_LOT_COM A ,TBB02_LOT_COIL B ,TBH02_COIL_COMM CCM WHERE A.SMP_NO = B.SMP_NO AND CCM.COIL_NO = B.COIL_NO AND A.SMP_CUT_LOC = B.SMP_CUT_LOC AND B.SMP_TIT_YN = 'Y' AND A.SMP_PROG_CD = NVL(? , A.SMP_PROG_CD) AND SUBSTR(CCM.OLD_SAMPL_NO , 1, 10) BETWEEN NVL(?, SUBSTR(CCM.OLD_SAMPL_NO , 1, 10) ) AND NVL(?, SUBSTR(CCM.OLD_SAMPL_NO , 1, 10)) --AND A.SMP_GET_DTIME BETWEEN NVL(? , A.SMP_GET_DTIME) AND NVL(? , A.SMP_GET_DTIME) SELECT CCM.OLD_SAMPL_NO COIL_NO ,A.PRDNM_CD --品名 ,A.SMP_NO --试样号（试样编号） ,A.SMP_CUT_LOC --位置 ,DECODE(A.SMP_PROG_CD ,'A' , '试样采集待机' ,'B','试样入库待机','C','试样检验待机','D','试样判定待机','E','试样判定完成') SMP_PROG_CD --位置（SMP_PROG_CD） ,CCM.COIL_THK --厚度 ,A.SPEC_ABBSYM --标准号 ,A.SPEC_STL_GRD --标准钢号 ,A.SMP_DIR_DTIME --试样指示 ,A.SMP_GET_DTIME --试样日期 ,A.SMP_INTO_DTIME --试样入库 ,A.SMP_WORK_DTIME --试样检验时间 ,A.QLTY_DCS_DTIME --判定时间 ,A.MOD_ID --入库人 ,A.SMP_SEND_DTIME --送样时间 ,A.SMP_SEND_ID --供前台界面使用（可否被选择入库），为Y则允许入库 ,DECODE(A.OVER_SMP_TP , NULL , NULL , 'Y') FUYANG FROM TBB02_LOT_COM A ,TBB02_LOT_COIL B ,TBH02_COIL_COMM CCM WHERE A.SMP_NO = B.SMP_NO AND CCM.COIL_NO = B.COIL_NO AND A.SMP_CUT_LOC = B.SMP_CUT_LOC AND B.SMP_TIT_YN = 'Y' AND A.SMP_PROG_CD = NVL(? , A.SMP_PROG_CD) AND SUBSTR(CCM.OLD_SAMPL_NO , 1, 10) BETWEEN NVL(?, SUBSTR(CCM.OLD_SAMPL_NO , 1, 10) ) AND NVL(?, SUBSTR(CCM.OLD_SAMPL_NO , 1, 10)) AND A.SMP_GET_DTIME BETWEEN ? AND ? SELECT B.OLD_SAMPL_NO COIL_NO ,A.PRDNM_CD --品名 ,A.SMP_NO --试样号（试样编号） ,A.SMP_CUT_LOC --位置 ,DECODE(A.SMP_PROG_CD ,'A' , '试样采集待机' ,'B','试样入库待机','C','试样检验待机','D','试样判定待机','E','试样判定完成') SMP_PROG_CD --位置（SMP_PROG_CD） ,B.COIL_THK --厚度 ,A.SPEC_ABBSYM --标准号 ,A.SPEC_STL_GRD --标准钢号 ,A.SMP_DIR_DTIME --试样指示 ,A.SMP_GET_DTIME --试样日期 ,A.SMP_INTO_DTIME --试样入库 ,A.SMP_WORK_DTIME --试样检验时间 ,A.QLTY_DCS_DTIME --判定时间 ,A.MOD_ID --入库人 ,A.SMP_SEND_DTIME --送样时间 ,A.SMP_SEND_ID ,DECODE(A.OVER_SMP_TP , '4' , 'Y' , NULL) FUYANG FROM TBB02_LOT_COM A , C_TBL02_COIL_COMM B WHERE A.SMP_NO = B.SMP_NO AND A.SMP_CUT_LOC = B.SMP_CUT_LOC AND SMP_DIR_PIC_YN = 'Y' AND SUBSTR(B.OLD_SAMPL_NO , 1,1) = 'L' AND A.SMP_PROG_CD = NVL(? , A.SMP_PROG_CD) AND SUBSTR(B.OLD_SAMPL_NO , 1, 9) BETWEEN NVL(?, SUBSTR(B.OLD_SAMPL_NO , 1, 9) ) AND NVL(?, SUBSTR(B.OLD_SAMPL_NO , 1, 9)) ORDER BY B.OLD_SAMPL_NO SELECT B.OLD_SAMPL_NO COIL_NO ,A.PRDNM_CD --品名 ,A.SMP_NO --试样号（试样编号） ,A.SMP_CUT_LOC --位置 ,DECODE(A.SMP_PROG_CD ,'A' , '试样采集待机' ,'B','试样入库待机','C','试样检验待机','D','试样判定待机','E','试样判定完成') SMP_PROG_CD --位置（SMP_PROG_CD） ,B.COIL_THK --厚度 ,A.SPEC_ABBSYM --标准号 ,A.SPEC_STL_GRD --标准钢号 ,A.SMP_DIR_DTIME --试样指示 ,A.SMP_GET_DTIME --试样日期 ,A.SMP_INTO_DTIME --试样入库 ,A.SMP_WORK_DTIME --试样检验时间 ,A.QLTY_DCS_DTIME --判定时间 ,A.MOD_ID --入库人 ,A.SMP_SEND_DTIME --送样时间 ,A.SMP_SEND_ID ,DECODE(A.OVER_SMP_TP , '4' , 'Y' , NULL) FUYANG FROM TBB02_LOT_COM A , C_TBL02_COIL_COMM B WHERE A.SMP_NO = B.SMP_NO AND A.SMP_CUT_LOC = B.SMP_CUT_LOC AND SMP_DIR_PIC_YN = 'Y' AND SUBSTR(B.OLD_SAMPL_NO , 1,1) = 'L' AND A.SMP_PROG_CD = NVL(? , A.SMP_PROG_CD) AND SUBSTR(B.OLD_SAMPL_NO , 1, 9) BETWEEN NVL(?, SUBSTR(B.OLD_SAMPL_NO , 1, 9) ) AND NVL(?, SUBSTR(B.OLD_SAMPL_NO , 1, 9)) AND A.SMP_GET_DTIME BETWEEN ? AND ? ORDER BY B.OLD_SAMPL_NO UPDATE TBB02_LOT_COM SET SMP_PROG_CD = 'C' ,SMP_INTO_DTIME = TO_CHAR(SYSDATE , 'YYYYMMDDHH24MISS') ,MOD_ID = ? ,MOD_DTIME = TO_CHAR(SYSDATE , 'YYYYMMDDHH24MISS') WHERE SMP_NO = ? AND SMP_CUT_LOC = ? AND SMP_PROG_CD = 'B' UPDATE TBB02_L2INS_QLTY T SET T.MSG_FLAG = 'N' WHERE T.MSG_FLAG = '1' AND T.SMP_NO = ? AND T.SMP_CUT_LOC = ?