XinYu_LZMES/.svn/pristine/de/de3c99a972c419e0cadfcf03eccee691c6d62baa.svn-base

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

<queryMap desc="试样号实验实绩录入">

<query id="UIB030120_01.SELECT"  desc="查询所有检验待机或判定待机的钢卷信息">
	SELECT      CC.OLD_SAMPL_NO     COIL_NO
	           ,CC.SPEC_ABBSYM
	           ,CC.SPEC_STL_GRD
	           ,CC.COIL_THK
	           ,PKG_QUALITY_COMM.FZ00_COMM('A01007' , CC.ORD_USE_CD)  ORD_USE_CD
	           ,CC.SMP_NO
	           ,CC.SMP_CUT_LOC 
	           ,CC.ORD_NO
	           ,CC.ORD_SEQ
	           ,DECODE(LC.SMP_PROG_CD , 'C' , '试样检验待机' , 'D', '试样判定待机')  SMP_PROG_CD
	FROM        TBB02_LOT_COM          LC 
	           ,C_TBC02_COIL_COMM      CC
	WHERE       LC.SMP_NO              =       CC.SMP_NO
	AND         CC.SMP_DIR_PIC_YN      =       'Y'
 	AND         LC.SMP_PROG_CD         IN('C' , 'D')
</query>

<query id= "UIB030120_02.SELECT" desc="查询满足条件的钢卷信息">
	SELECT      CC.OLD_SAMPL_NO     COIL_NO
	           ,CC.SPEC_ABBSYM
	           ,CC.SPEC_STL_GRD
	           ,CC.COIL_THK
	           ,PKG_QUALITY_COMM.FZ00_COMM('A01007' , CC.ORD_USE_CD)  ORD_USE_CD
	           ,CC.SMP_NO
	           ,CC.SMP_CUT_LOC 
	           ,CC.ORD_NO
	           ,CC.ORD_SEQ
	           ,DECODE(LC.SMP_PROG_CD , 'C' , '试样检验待机' , 'D', '试样判定待机')  SMP_PROG_CD
	FROM        TBB02_LOT_COM          LC 
	           ,C_TBC02_COIL_COMM      CC
	WHERE       LC.SMP_NO              =       CC.SMP_NO
	AND         CC.SMP_DIR_PIC_YN      =       'Y'
 	AND         LC.SMP_PROG_CD         =        ?
</query>

<query id="UIB030120_03.SELECT" desc="按试样号查询材质实绩信息">
	SELECT    	 SQ.QLTY_CD
	         	,SQ.QLTY_CD_CFNM
	         	,RQ.QLTY_SEQ
	         	,IQ.QLTY_MIN
	         	,IQ.QLTY_MAX
	         	,DECODE(RQ.QLTY_SEQ , NULL , WQ.QLTY_VAL_WK , RQ.QLTY_VAL_WK)  QLTY_VAL_WK
	         	,IQ.QLTY_DEC_CD
	         	,IQ.SMP_NO
	         	,IQ.SMP_CUT_LOC
	FROM      	 TBB02_WORK_QLTY           WQ  
	         	,TBB02_REWORK_QLTY         RQ
	         	,TBB02_INS_QLTY            IQ  
	        	,TBB01_SEQ_QLTY            SQ
	WHERE     	 WQ.SMP_NO                 =            IQ.SMP_NO
	AND       	 WQ.SMP_CUT_LOC            =            IQ.SMP_CUT_LOC
	AND       	 WQ.QLTY_CD                =            IQ.QLTY_CD
	AND       	 IQ.QLTY_CD                =            SQ.QLTY_CD
	AND       	 RQ.SMP_NO(+)              =            IQ.SMP_NO
	AND       	 RQ.SMP_CUT_LOC(+)         =            IQ.SMP_CUT_LOC
	AND       	 RQ.QLTY_CD(+)             =            IQ.QLTY_CD
	AND          IQ.SMP_NO                 =            ?
	AND          IQ.SMP_CUT_LOC            =            ?
</query>
<query id="UIB030120_04.SELECT"  desc="查询所有检验待机或判定待机的钢卷信息">
	SELECT      CC.OLD_SAMPL_NO     COIL_NO
	           ,CC.SPEC_ABBSYM
	           ,CC.SPEC_STL_GRD
	           ,CC.COIL_THK
	           ,PKG_QUALITY_COMM.FZ00_COMM('A01007' , CC.ORD_USE_CD)  ORD_USE_CD
	           ,CC.SMP_NO
	           ,CC.SMP_CUT_LOC 
	           ,CC.ORD_NO
	           ,CC.ORD_SEQ
	           ,DECODE(LC.SMP_PROG_CD , 'C' , '试样检验待机' , 'D', '试样判定待机')  SMP_PROG_CD
	FROM        TBB02_LOT_COM          LC 
	           ,C_TBL02_COIL_COMM      CC
	WHERE       LC.SMP_NO              =       CC.SMP_NO
	AND         CC.SMP_DIR_PIC_YN      =       'Y'
 	AND         LC.SMP_PROG_CD         IN('C' , 'D')
</query>

<query id= "UIB030120_05.SELECT" desc="查询满足条件的钢卷信息">
	SELECT      CC.OLD_SAMPL_NO     COIL_NO
	           ,CC.SPEC_ABBSYM
	           ,CC.SPEC_STL_GRD
	           ,CC.COIL_THK
	           ,PKG_QUALITY_COMM.FZ00_COMM('A01007' , CC.ORD_USE_CD)  ORD_USE_CD
	           ,CC.SMP_NO
	           ,CC.SMP_CUT_LOC 
	           ,CC.ORD_NO
	           ,CC.ORD_SEQ
	           ,DECODE(LC.SMP_PROG_CD , 'C' , '试样检验待机' , 'D', '试样判定待机')  SMP_PROG_CD
	FROM        TBB02_LOT_COM          LC 
	           ,C_TBL02_COIL_COMM      CC
	WHERE       LC.SMP_NO              =       CC.SMP_NO
	AND         CC.SMP_DIR_PIC_YN      =       'Y'
 	AND         LC.SMP_PROG_CD         =        ?
</query>
<query id="UIB030120_01.CALL" desc="保存实绩，并检验试样是否进入判定待机">
	{call ZL_LIANT_DCS01.SAVE_SMP_VALUE(?,?,?,?,?,?,?)}
</query>

</queryMap>