XinYu_LZMES/.svn/pristine/4e/4ea5f2afee23b812997d08a58031e080bda6f731.svn-base

<?xml version="1.0" encoding='UTF-8'?>

<queryMap desc="试样入库">


<query id="UIB100204_01_01.SELECT" desc="查询钢卷-冷轧">
      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
</query>

<query id="UIB100204_01_02.SELECT" desc="查询钢卷-冷轧">
      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
</query>

<query id="UIB100204_02_01.SELECT" desc="查询-热轧">
	 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)
</query>
<query id="UIB100204_02_02.SELECT" desc="查询-热轧">
	 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  ?
</query>

<query id="UIB100204_03_01.SELECT" desc="查询钢卷-酸洗">
      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
</query>

<query id="UIB100204_03_02.SELECT" desc="查询钢卷-酸洗">
      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
</query>

<query id="UIB100204_01.UPDATE" desc="入库">
          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' 
</query>

<query id="UIB100204_02.UPDATE" desc="试样发送到检化验系统检测">
		UPDATE        TBB02_L2INS_QLTY              T
		SET           T.MSG_FLAG                    =     'N'
		WHERE         T.MSG_FLAG                    =     '1'
		AND           T.SMP_NO                      =     ?
		AND           T.SMP_CUT_LOC                 =     ?
</query>
	
</queryMap>