SELECT SM_CFNM LABEL , SM_CD VALUE FROM TBZ00_COMMCD WHERE LG_CD = 'B01107' SELECT DISTINCT SUBSTR(SMP_NO ,11 ) LABEL ,SUBSTR(SMP_NO ,11 ) VALUE FROM TBB02_LOT_COM WHERE SUBSTR(SMP_NO ,1 , 10) = ? SELECT 'N' CHK , CCM.OLD_SAMPL_NO OLD_SAMPL_NO , a.PRDNM_CD --品名 , b.COIL_NO --coil号 , a.SMP_NO --试样号（试样编号） , a.SMP_CUT_LOC --位置 , a.SMP_PROG_CD --位置（SMP_PROG_CD） , b.COIL_THK --厚度 , a.SPEC_ABBSYM --标准号 , a.SPEC_STL_GRD --标准钢号 , a.EXAMORG_CD -- 检查机关 , 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 , decode(a.OVER_SMP_TP , null , null , decode(a.SMP_PROG_CD, 'B' , 'Y')) OVER_SMP_TP 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' SELECT 'N' CHK , b.COIL_NO OLD_SAMPL_NO , a.PRDNM_CD --品名 , b.COIL_NO --coil号 , a.SMP_NO --试样号（试样编号） , a.SMP_CUT_LOC --位置 , a.SMP_PROG_CD --位置（SMP_PROG_CD） , b.COIL_THK --厚度 , a.SPEC_ABBSYM --标准号 , a.SPEC_STL_GRD --标准钢号 , a.EXAMORG_CD -- 检查机关 , 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 , decode(a.OVER_SMP_TP , null , null , decode(a.SMP_PROG_CD, 'B' , 'Y')) OVER_SMP_TP FROM TBB02_LOT_COM a , TBB02_LOT_COIL b WHERE a.SMP_NO = b.SMP_NO AND a.SMP_CUT_LOC = b.SMP_CUT_LOC AND b.SMP_TIT_YN = 'Y' AND B.COIL_NO LIKE 'L%' AND A.SMP_PROG_CD = ? SELECT COIL_NO , QLTY_SEND_DTIME , SMP_NO ,QLTY_CD1 ,COIL_THK , SPEC_ABBSYM , SPEC_STL_GRD , QLTY_TT1 ,QLTY_CD2 ,QLTY_TT2 FROM TBB02_L2INS_QLTY WHERE QLTY_SEND_DTIME BETWEEN ? AND ? ORDER BY COIL_NO AND a.SMP_NO = ? AND a.SMP_PROG_CD = ? 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 = ? UPDATE TBB02_L2INS_QLTY T SET T.MSG_FLAG = 'N' WHERE T.MSG_FLAG = '1' AND T.SMP_NO = ? AND T.SMP_CUT_LOC = ?