XinYu_LZMES/.svn/pristine/b6/b60f2804254a56f89d834d00a1601c463cc677fc.svn-base

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

<queryMap desc="实验数据录入">

<query id="UIB100203_01.INITSELECT" desc="页面初始化调用，用于编码的排序">
		    SELECT         T.QLTY_OPE_CD
	                      ,T.QLTY_DIS_SEQ
	                      ,T.QLTY_CD_2
	                      ,T.QLTY_OPE_CFNM
	        FROM           TBB10_QLTY_TMPL    T
	        ORDER BY       T.QLTY_DIS_SEQ
</query>

<query id="UIB100203_02.INITSELECT" desc="材质代码与材质名称">
			SELECT T.QLTY_CD, T.QLTY_CD_CFNM FROM TBB10_QLTY_CD T
		    UNION ALL
		    SELECT T.QLTY_CD, T.PFMC_NAME QLTY_CD_CFNM FROM COM_BASE_PHY_R_PHY T
</query>
<query id="UIB100203_HOST_01.SELECT"  desc="热轧力学实验数据录入查询">
	       SELECT    DISTINCT 
	                 T.COIL_NO
	                ,T.SMP_NO
	                ,T.SMP_CUT_LOC
	                ,T.SMP_NO_TYPE
	                ,T.COIL_STEEL_NO
	                ,T.SPEC_STL_GRD
	                ,T.WEITO_NO
	                ,T.WEITO_DTIME
	                ,T.COIL_INPUT_DTIME
	                ,T.COIL_THK
	                ,T.COIL_RMK 
	                ,T.SEND_STAT        --钢卷状态：已发送，未发送   
	                ,T.SEND_ID
	                ,T.SEND_DTIME
	                ,DECODE(S.SMP_PROG_CD , 'C' , '试样检验待机' , 'D' , '试样判定待机' , 'E' , '试样判定完成' )    SMP_PROG_CD
	                ,JHY_QLTY_BASE.F_GET_SMP_STATS(X.SMP_NO , X.SMP_CUT_LOC , X.SMP_NO_TYPE , X.QLTY_CD_1)   WORK_STATS 
	        FROM     TBB10_QLTY_COIL             T 
	          	    ,TBB10_QLTY_OPE              X
	                ,TBB02_LOT_COM@XG3Q          S
	        WHERE    T.SMP_NO                    =         X.SMP_NO
	        AND      T.SMP_CUT_LOC               =         X.SMP_CUT_LOC
	        AND      T.SMP_NO_TYPE               =         X.SMP_NO_TYPE
	        AND      T.SMP_NO                    =         S.SMP_NO
	        AND      T.SMP_CUT_LOC               =         S.SMP_CUT_LOC
	        AND      X.QLTY_CD        IS        NOT  NULL
			AND  	 T.PROD_LINE 			     =         ?       --冷轧和热轧
			AND      X.QLTY_CD_1                 =         NVL(? ,  X.QLTY_CD_1)       --力学
			AND      DECODE(? , 'LX' ,  SUBSTR(T.SEND_STAT , 1,1) , 'JX' ,  SUBSTR(T.SEND_STAT , 2,1) ,'全部' ) = NVL(? , '全部')
			AND  	 T.COIL_INPUT_DTIME          BETWEEN     NVL(?,T.COIL_INPUT_DTIME) AND NVL(?,T.COIL_INPUT_DTIME)
			AND  	 T.WEITO_DTIME               BETWEEN     NVL(?,T.WEITO_DTIME)      AND NVL(?,T.WEITO_DTIME)
			AND      SUBSTR(T.COIL_NO ,1, 10 )   BETWEEN     NVL(? , SUBSTR(T.COIL_NO , 1, 10 ) )    AND    NVL(? , SUBSTR(T.COIL_NO , 1, 10 ) )
			ORDER BY    T.WEITO_NO , T.COIL_STEEL_NO , T.COIL_NO
</query>

<query id="UIB100203_LIAN_01.SELECT"  desc="连退实验数据录入查询">
	        SELECT   DISTINCT 
	                 T.COIL_NO
	                ,T.SMP_NO
	                ,T.SMP_CUT_LOC
	                ,T.SMP_NO_TYPE
	                ,T.COIL_STEEL_NO
	                ,T.SPEC_STL_GRD
	                ,T.WEITO_NO
	                ,T.WEITO_DTIME
	                ,T.COIL_INPUT_DTIME
	                ,T.COIL_THK
	                ,T.COIL_RMK 
	                ,T.SEND_STAT        --钢卷状态：已发送，未发送   
	                ,T.SEND_ID
	                ,T.SEND_DTIME
	                ,DECODE(S.SMP_PROG_CD , 'C' , '试样检验待机' , 'D' , '试样判定待机' , 'E' , '试样判定完成' )    SMP_PROG_CD
	                ,JHY_QLTY_BASE.F_GET_SMP_STATS(X.SMP_NO , X.SMP_CUT_LOC , X.SMP_NO_TYPE , X.QLTY_CD_1)   WORK_STATS
	        FROM     TBB10_QLTY_COIL             T 
	          	    ,TBB10_QLTY_OPE              X
	                ,TBB02_LOT_COM@XG3Q          S
	        WHERE    T.SMP_NO                    =         X.SMP_NO
	        AND      T.SMP_CUT_LOC               =         X.SMP_CUT_LOC
	        AND      T.SMP_NO_TYPE               =         X.SMP_NO_TYPE
	        AND      T.SMP_NO                    =         S.SMP_NO
	        AND      T.SMP_CUT_LOC               =         S.SMP_CUT_LOC
	        AND      X.QLTY_CD        IS        NOT  NULL
			AND  	 T.PROD_LINE 			     =         ?       --冷轧和热轧
			AND      X.QLTY_CD_1                 =         NVL(? ,  X.QLTY_CD_1)       --力学
			AND      DECODE(? , 'LX' ,  SUBSTR(T.SEND_STAT , 1,1) , 'JX' ,  SUBSTR(T.SEND_STAT , 2,1) ,'全部' ) = NVL(? , '全部')
			AND  	 T.COIL_INPUT_DTIME          BETWEEN     NVL(?,T.COIL_INPUT_DTIME) AND NVL(?,T.COIL_INPUT_DTIME)
			AND  	 T.WEITO_DTIME               BETWEEN     NVL(?,T.WEITO_DTIME)      AND NVL(?,T.WEITO_DTIME)
			AND      SUBSTR(T.COIL_NO ,1, 9 )    BETWEEN     NVL(? , SUBSTR(T.COIL_NO , 1, 9 ) )    AND    NVL(? , SUBSTR(T.COIL_NO , 1, 9 ) )
</query>

<query id="UIB100203_COMM_01.SELECT" desc="按委托单查询检验结果">
SELECT      OCL.*
FROM        TBB10_QLTY_CD    QCD
           ,(
			SELECT      T2.COIL_NO 
			           ,CASE WHEN T1.QLTY_CD IS NULL THEN       (SELECT  XX.QLTY_CD  FROM TBB10_QLTY_OPE XX WHERE XX.SMP_NO = T1.SMP_NO AND XX.SMP_CUT_LOC = T1.SMP_CUT_LOC
                                                           AND XX.QLTY_CD_2 = T1.QLTY_CD_2 AND  XX.QLTY_CD IS NOT NULL AND ROWNUM = 1 )
                  		ELSE  T1.QLTY_CD END QLTY_CD  
                  	   ,CASE WHEN T1.QLTY_OPE_CD IN ('A1' ,'A2' ,'A3') THEN T1.QLTY_OPE_CD ELSE NULL END    QLTY_SEQ 	
			           ,T1.QLTY_MIN
			           ,T1.QLTY_MAX
			           ,T1.SMP_RMK
			           ,T1.QLTY_CD_AFTER  
			           ,T1.QLTY_VAL
			           ,T1.SMP_NO_TYPE
			           ,T2.COIL_THK
			           ,T2.SPEC_STL_GRD
			           ,T1.REG_ID
			           ,T1.REG_DTIME
			           ,T1.SEND_DTIME
			           ,T1.SEND_ID
			           ,T1.EQUMT_ID
			           ,T2.COIL_STEEL_NO
			FROM        TBB10_QLTY_OPE    T1  
			           ,TBB10_QLTY_COIL   T2
			WHERE       T1.SMP_NO         =         T2.SMP_NO
			AND         T1.SMP_CUT_LOC    =         T2.SMP_CUT_LOC
			AND        (T1.QLTY_CD  IS  NOT  NULL 
			         OR T1.QLTY_OPE_CD IN ('A1' ,'A2' ,'A3')  )
			AND         T1.SMP_NO_TYPE    =         T2.SMP_NO_TYPE
			AND         T1.QLTY_CD_1      =         NVL(? , T1.QLTY_CD_1)
			AND         T2.WEITO_NO       =         ?        
--			AND         DECODE(? , 'LX' ,  SUBSTR(T2.SEND_STAT , 1,1) , 'JX' ,  SUBSTR(T2.SEND_STAT , 2,1)  ) = ?
           )  OCL
WHERE       OCL.QLTY_CD   =    QCD.QLTY_CD        
ORDER  BY   OCL.COIL_STEEL_NO , OCL.COIL_NO ,OCL.SMP_NO_TYPE, QCD.DISPLAY_SEQ  ,OCL.QLTY_CD ,OCL.QLTY_SEQ
</query>


<query id="UIB100203_COMMZHB_01.SELECT" desc="按委托单查询检验结果">
SELECT      OCL.*
FROM        COM_BASE_PHY_R_PHY    QCD
           ,(
			SELECT      T2.COIL_NO 
			           ,CASE WHEN T1.QLTY_CD IS NULL THEN       (SELECT  XX.QLTY_CD  FROM TBB10_QLTY_OPE XX WHERE XX.SMP_NO = T1.SMP_NO AND XX.SMP_CUT_LOC = T1.SMP_CUT_LOC
                                                           AND XX.QLTY_CD_2 = T1.QLTY_CD_2 AND  XX.QLTY_CD IS NOT NULL AND ROWNUM = 1 )
                  		ELSE  T1.QLTY_CD END QLTY_CD  
                  	   ,CASE WHEN T1.QLTY_OPE_CD IN ('A1' ,'A2' ,'A3') THEN T1.QLTY_OPE_CD ELSE NULL END    QLTY_SEQ 	
			           ,T1.QLTY_MIN
			           ,T1.QLTY_MAX
			           ,T1.SMP_RMK
			           ,T1.QLTY_CD_AFTER  
			           ,T1.QLTY_VAL
			           ,T1.SMP_NO_TYPE
			           ,T2.COIL_THK
			           ,T2.SPEC_STL_GRD
			           ,T1.REG_ID
			           ,T1.REG_DTIME
			           ,T1.SEND_DTIME
			           ,T1.SEND_ID
			           ,T1.EQUMT_ID
			           ,T2.COIL_STEEL_NO
			FROM        TBB10_QLTY_OPE    T1  
			           ,TBB10_QLTY_COIL   T2
			WHERE       T1.SMP_NO         =         T2.SMP_NO
			AND         T1.SMP_CUT_LOC    =         T2.SMP_CUT_LOC
			AND        (T1.QLTY_CD  IS  NOT  NULL 
			         OR T1.QLTY_OPE_CD IN ('A1' ,'A2' ,'A3')  )
			AND         T1.SMP_NO_TYPE    =         T2.SMP_NO_TYPE
			AND         T1.QLTY_CD_1      =         NVL(? , T1.QLTY_CD_1)
			AND         T2.WEITO_NO       =         ?        
--			AND         DECODE(? , 'LX' ,  SUBSTR(T2.SEND_STAT , 1,1) , 'JX' ,  SUBSTR(T2.SEND_STAT , 2,1)  ) = ?
           )  OCL
WHERE       OCL.QLTY_CD   =    QCD.QLTY_CD        
ORDER  BY   OCL.COIL_STEEL_NO , OCL.COIL_NO ,OCL.SMP_NO_TYPE, QCD.DISPLAY_SEQ ,OCL.QLTY_SEQ
</query>



<query id="UIB100203_COMM_01_1.SELECT" desc="按钢卷号查询">
SELECT      OCL.*
FROM        TBB10_QLTY_CD    QCD
           ,(
		   SELECT       T2.COIL_NO 
			           ,CASE WHEN T1.QLTY_CD IS NULL THEN       (SELECT  XX.QLTY_CD  FROM TBB10_QLTY_OPE XX WHERE XX.SMP_NO = T1.SMP_NO AND XX.SMP_CUT_LOC = T1.SMP_CUT_LOC
                                                                 AND XX.QLTY_CD_2 = T1.QLTY_CD_2 AND  XX.QLTY_CD IS NOT NULL AND ROWNUM = 1 )
                  		ELSE  T1.QLTY_CD END QLTY_CD  
                  	   ,CASE WHEN T1.QLTY_OPE_CD IN ('A1' ,'A2' ,'A3') THEN T1.QLTY_OPE_CD ELSE NULL END    QLTY_SEQ     	
			           ,T1.QLTY_MIN
			           ,T1.QLTY_MAX
			           ,T1.SMP_RMK
			           ,T1.QLTY_CD_AFTER
			           ,T1.QLTY_VAL
			           ,T1.SMP_NO_TYPE
			           ,T2.COIL_THK
			           ,T2.SPEC_STL_GRD
			           ,T1.REG_ID
			           ,T1.REG_DTIME
			           ,T1.SEND_DTIME
			           ,T1.SEND_ID
			           ,T1.EQUMT_ID
			           ,T2.COIL_STEEL_NO
			FROM        TBB10_QLTY_OPE    T1  
			           ,TBB10_QLTY_COIL   T2
			WHERE       T1.SMP_NO         =         T2.SMP_NO
			AND         T1.SMP_CUT_LOC    =         T2.SMP_CUT_LOC
			AND         T1.SMP_NO_TYPE    =         T2.SMP_NO_TYPE
			AND        (T1.QLTY_CD  IS  NOT NULL 
			         OR T1.QLTY_OPE_CD IN ('A1' ,'A2' ,'A3')  )
			AND         T1.QLTY_CD_1      =         NVL(? , T1.QLTY_CD_1)
			AND         T2.COIL_NO        =         ?        
--			AND         DECODE(? , 'LX' ,  SUBSTR(T2.SEND_STAT , 1,1) , 'JX' ,  SUBSTR(T2.SEND_STAT , 2,1)  ) = ?
            AND         T2.SMP_NO         =         ?
		  )OCL
WHERE      OCL.QLTY_CD   =  QCD.QLTY_CD
ORDER BY   QCD.DISPLAY_SEQ  ,OCL.QLTY_CD  ,OCL.QLTY_SEQ		
</query>

<query id="UIB100203_COMM_02.SELECT" desc="委托单所有检验项目">
			SELECT      DISTINCT
	                    T3.QLTY_CD_3 
	                   ,T3.QLTY_CD_3_NM 
	                   ,T3.QLTY_CD_2
	                   ,T3.DISPLAY_SEQ
	        FROM        TBB10_QLTY_OPE    T1  
	                   ,TBB10_QLTY_COIL   T2
	                   ,TBB10_QLTY_CD     T3
  	        WHERE       T1.SMP_NO         =         T2.SMP_NO
	        AND         T1.SMP_CUT_LOC    =         T2.SMP_CUT_LOC
	        AND         T1.SMP_NO_TYPE    =         T2.SMP_NO_TYPE
	        AND         T1.QLTY_CD        =         T3.QLTY_CD
	        AND         T1.QLTY_CD_1      =         NVL(? , T1.QLTY_CD_1)
	        AND         T3.QLTY_CD_3 IS NOT NULL
	        AND         T2.WEITO_NO       =         ?
--	        AND         DECODE(? , 'LX' ,  SUBSTR(T2.SEND_STAT , 1,1) , 'JX' ,  SUBSTR(T2.SEND_STAT , 2,1)  ) = ?
	        ORDER BY    T3.DISPLAY_SEQ
</query>

<query id="UIB100203_COMMZHB_02.SELECT" desc="委托单所有检验项目 c#调用">
			SELECT DISTINCT T3.QLTY_CD_3, T3.QLTY_CD_3_NM, T3.QLTY_CD_2, T3.DISPLAY_SEQ
  FROM TBB10_QLTY_OPE T1, TBB10_QLTY_COIL T2, TBB10_QLTY_CD T3
 WHERE T1.SMP_NO = T2.SMP_NO
   AND T1.SMP_CUT_LOC = T2.SMP_CUT_LOC
   AND T1.SMP_NO_TYPE = T2.SMP_NO_TYPE
 --  AND T1.QLTY_CD = T3.QLTY_CD
   AND T3.QLTY_CD = GETTMPLCD(T1.QLTY_CD)
   AND T1.QLTY_CD_1 = NVL(?, T1.QLTY_CD_1)
   AND T3.QLTY_CD IS NOT NULL
   AND T2.WEITO_NO = ?
--          AND         DECODE(? , 'LX' ,  SUBSTR(T2.SEND_STAT , 1,1) , 'JX' ,  SUBSTR(T2.SEND_STAT , 2,1)  ) = ?
 ORDER BY T3.DISPLAY_SEQ
</query>
<query id="UIB100203_COMM_03.SELECT" desc="获取检验代码，在JAVA代码UIB100203中被调用">
		    SELECT         T.QLTY_OPE_CD
	                      ,T.QLTY_DIS_SEQ
	                      ,T.QLTY_OPE_CFNM
	        FROM           TBB10_QLTY_TMPL    T
	        WHERE          T.QLTY_CD_2        =    ?
	        --AND          INSTR(T.QLTY_OPE_GRP , SUBSTR(? , 0 , 2)) >  0
</query>

<query id="UIB100203_COMM_04.SELECT" desc="纵转横">
SELECT        Q1.* 
             ,Q2.QLTY_MIN 
             ,Q2.QLTY_MAX 
             ,Q2.QLTY_VAL
             ,Q2.QLTY_CD 
             ,NVL(Q2.QLTY_CD_AFTER ,  Q2.QLTY_CD)   QLTY_CD_CFNM  --界面显示材质项目名称
             ,Q2.COIL_NO
             ,Q2.COIL_THK
             ,Q2.COIL_STEEL_NO
             ,Q2.QLTY_CD_3
FROM         (SELECT    T1.SMP_NO
                       ,T1.SMP_CUT_LOC
                       ,T1.SMP_NO_TYPE
                       ,T1.QLTY_CD_2
                       ,T2.SPEC_STL_GRD
                        {1}
              FROM      TBB10_QLTY_OPE   T1, TBB10_QLTY_COIL T2
              WHERE     T1.SMP_NO        =     T2.SMP_NO
              AND       T1.SMP_CUT_LOC   =     T2.SMP_CUT_LOC
              AND       T1.SMP_NO_TYPE   =     T2.SMP_NO_TYPE
              AND       T2.WEITO_NO      =     ?
              AND       T1.QLTY_CD_2     =     ?
              GROUP BY  T1.SMP_NO  ,T1.SMP_CUT_LOC  ,T1.SMP_NO_TYPE ,T1.QLTY_CD_2 ,T2.SPEC_STL_GRD
              )    Q1  
            ,(SELECT    X1.* , X2.QLTY_CD_CFNM  , X3.COIL_NO , X3.COIL_THK ,X3.COIL_STEEL_NO ,X2.QLTY_CD_3
              FROM      TBB10_QLTY_OPE X1 , TBB10_QLTY_CD X2  , TBB10_QLTY_COIL X3
              WHERE     X1.QLTY_CD_2     =     X2.QLTY_CD_2
              AND       X1.QLTY_CD       =     X2.QLTY_CD
              AND       X1.SMP_NO        =     X3.SMP_NO
              AND       X1.SMP_CUT_LOC   =     X3.SMP_CUT_LOC
              AND       X1.SMP_NO_TYPE   =     X3.SMP_NO_TYPE
              AND       X3.WEITO_NO      =     ?
              AND       X1.QLTY_CD_2     =     ?
              AND       X2.QLTY_CD_3     =     ?
--            AND       DECODE(? , 'LX' ,  SUBSTR(X3.SEND_STAT , 1,1) , 'JX' ,  SUBSTR(X3.SEND_STAT , 2,1)  ) = ?
              )    Q2
WHERE         Q1.SMP_NO       =   Q2.SMP_NO
AND           Q1.SMP_CUT_LOC  =   Q2.SMP_CUT_LOC
AND           Q1.SMP_NO_TYPE  =   Q2.SMP_NO_TYPE
AND           Q1.QLTY_CD_2    =   Q2.QLTY_CD_2
ORDER BY      Q2.COIL_STEEL_NO , Q2.COIL_NO
</query>

<query id="UIB100203_COMMZHB_04.SELECT" desc="纵转横  java类调用">
SELECT        Q1.* 
             ,Q2.QLTY_MIN 
             ,Q2.QLTY_MAX 
             ,Q2.QLTY_VAL
             ,Q2.QLTY_CD 
             ,NVL(Q2.QLTY_CD_AFTER ,  Q2.QLTY_CD)   QLTY_CD_CFNM  --界面显示材质项目名称
             ,Q2.COIL_NO
             ,Q2.COIL_THK
             ,Q2.COIL_STEEL_NO
             ,Q2.QLTY_CD_3
FROM         (SELECT    T1.SMP_NO
                       ,T1.SMP_CUT_LOC
                       ,T1.SMP_NO_TYPE
                       ,T1.QLTY_CD_2
                       ,T2.SPEC_STL_GRD
                        {1}
              FROM      TBB10_QLTY_OPE   T1, TBB10_QLTY_COIL T2
              WHERE     T1.SMP_NO        =     T2.SMP_NO
              AND       T1.SMP_CUT_LOC   =     T2.SMP_CUT_LOC
              AND       T1.SMP_NO_TYPE   =     T2.SMP_NO_TYPE
              AND       T2.WEITO_NO      =     ?
              AND       T1.QLTY_CD_2     =     ?
              GROUP BY  T1.SMP_NO  ,T1.SMP_CUT_LOC  ,T1.SMP_NO_TYPE ,T1.QLTY_CD_2 ,T2.SPEC_STL_GRD
              )    Q1  
            ,(SELECT    X1.* , X2.QLTY_CD_CFNM  , X3.COIL_NO , X3.COIL_THK ,X3.COIL_STEEL_NO ,X2.QLTY_CD_3
              FROM      TBB10_QLTY_OPE X1 , TBB10_QLTY_CD X2  , TBB10_QLTY_COIL X3
              WHERE     X1.QLTY_CD_2     =     X2.QLTY_CD_2
              --AND       X1.QLTY_CD       =     X2.QLTY_CD
              AND       x2.qlty_cd=GETTMPLCD(x1.QLTY_CD)
              AND       X1.SMP_NO        =     X3.SMP_NO
              AND       X1.SMP_CUT_LOC   =     X3.SMP_CUT_LOC
              AND       X1.SMP_NO_TYPE   =     X3.SMP_NO_TYPE
              AND       X3.WEITO_NO      =     ?
              AND       X1.QLTY_CD_2     =     ?
              AND       X2.QLTY_CD_3     =     ?
--            AND       DECODE(? , 'LX' ,  SUBSTR(X3.SEND_STAT , 1,1) , 'JX' ,  SUBSTR(X3.SEND_STAT , 2,1)  ) = ?
              )    Q2
WHERE         Q1.SMP_NO       =   Q2.SMP_NO
AND           Q1.SMP_CUT_LOC  =   Q2.SMP_CUT_LOC
AND           Q1.SMP_NO_TYPE  =   Q2.SMP_NO_TYPE
AND           Q1.QLTY_CD_2    =   Q2.QLTY_CD_2
ORDER BY      Q2.COIL_STEEL_NO , Q2.COIL_NO
</query>

<query id="UIB100203_COMM_05.SELECT" desc="原始数据录入查询">
            SELECT   TT.* 
                   /* ,LEAD(TT.COMP_CAL , 1 , NULL) OVER(ORDER BY TT.QLTY_DIS_SEQ)      NEXT_COMP_CAL
                    ,LEAD(TT.QLTY_OPE_CD , 1 , NULL) OVER(ORDER BY TT.QLTY_DIS_SEQ)   NEXT_OPE_CD
                    ,LEAD(TT.QLTY_DIS_LEN , 1 , NULL) OVER(ORDER BY TT.QLTY_DIS_SEQ)  NEXT_DIS_LEN
                    ,LEAD(TT.CRCT_REG , 1 , NULL) OVER(ORDER BY TT.QLTY_DIS_SEQ)      NEXT_CRCT_REG
                   */
            FROM    (
		            SELECT      DISTINCT
		                        T1.QLTY_OPE_CFNM
					           ,T2.QLTY_OPE_CD
					           ,CASE WHEN ? = 'L' AND T2.QLTY_OPE_CD != 'AVG' THEN '' ELSE T2.COMP_CAL END  COMP_CAL   
					           --,DECODE(? , 'L' , '' , T2.COMP_CAL)  COMP_CAL   --连退和热轧区分
					           ,T2.QLTY_DIS_LEN
					           ,T2.CRCT_REG
					           ,T2.QLTY_DIS_SEQ
					           ,T1.QLTY_VAL
					           ,T1.EDIT_TP
					FROM        TBB10_QLTY_OPE     T1
					           ,TBB10_QLTY_TMPL    T2
					WHERE       T1.QLTY_OPE_CD     =     T2.QLTY_OPE_CD
					AND         T1.QLTY_CD_2       =     T2.QLTY_CD_2
		            AND         T1.SMP_NO          =     ?
		            AND         T1.SMP_CUT_LOC     =     ?
		            AND         T1.SMP_NO_TYPE     =     ?
		            AND         INSTR(T2.QLTY_OPE_GRP ,  ?) >  0
		            AND         T2.QLTY_CD_2       =     ?
                    )  TT
           ORDER  BY   TT.QLTY_DIS_SEQ
</query>

<query id="UIB100203_COMM_06.SELECT" desc="备注、设备号等数据查询">
            SELECT      T1.EQUMT_ID
			           ,T1.SMP_RMK
			FROM        TBB10_QLTY_OPE     T1
			           ,TBB10_QLTY_CD      T2 
			WHERE       T1.QLTY_OPE_CD     =     T2.QLTY_OPE_CD
			AND         T1.SMP_NO          =     ? 
			AND         T1.SMP_CUT_LOC     =     ?
			AND         T1.SMP_NO_TYPE     =     ?
			AND         T1.QLTY_CD         =     ?
</query>	

<query id="UIB100203_COMM_07.SELECT" desc="隐藏的值和编码">
			SELECT      T1.QLTY_OPE_CD
			           ,T1.QLTY_VAL
			FROM        TBB10_QLTY_OPE     T1
			WHERE       T1.SMP_NO          =     ? 
			AND         T1.SMP_CUT_LOC     =     ?
			AND         T1.SMP_NO_TYPE     =     ?
			AND         T1.QLTY_CD_2       =     ?
</query>

<query id="UIB100203_COMM_08.SELECT" desc="拉力及弯曲原始记录导出">
			SELECT      T2.COIL_STEEL_NO
			           ,''''||T2.SPEC_STL_GRD  SPEC_STL_GRD
			           ,T2.COIL_NO
			           ,T2.COIL_THK
			           ,T2.SMP_NO_TYPE
			           ,MAX(DECODE(T1.QLTY_OPE_CD , 'a' ,  T1.QLTY_VAL ,NULL )) LA
			           ,MAX(DECODE(T1.QLTY_OPE_CD , 'b' ,  T1.QLTY_VAL ,NULL )) LB
			           ,MAX(DECODE(T1.QLTY_OPE_CD , 'Fe' , T1.QLTY_VAL ,NULL )) FE
			           ,MAX(DECODE(T1.QLTY_OPE_CD , 'Fm' ,  T1.QLTY_VAL ,NULL )) FM
			           ,MAX(DECODE(T1.QLTY_OPE_CD , 'Lo' ,  T1.QLTY_VAL ,NULL )) LO
			           ,MAX(DECODE(T1.QLTY_OPE_CD , 'Lu' ,  T1.QLTY_VAL ,NULL )) LU
			           ,MAX(DECODE(T1.QLTY_OPE_CD , 'ZJ' ,  T1.QLTY_VAL ,NULL )) ZJ
			           ,MAX(DECODE(T1.QLTY_OPE_CD , 'CB' ,  T1.QLTY_VAL ,NULL )) CB
			FROM        TBB10_QLTY_OPE  T1, TBB10_QLTY_COIL T2 
			WHERE       T1.SMP_NO       =       T2.SMP_NO
			AND         T1.SMP_CUT_LOC  =       T2.SMP_CUT_LOC
			AND         T1.SMP_NO_TYPE  =       T2.SMP_NO_TYPE
			AND         T1.QLTY_CD_2    IN(     'LL' , 'CB')
			AND         INSTR(?  , T2.COIL_NO) > 0 
			AND         INSTR(?  , T2.WEITO_NO) > 0
			GROUP BY    T2.COIL_STEEL_NO
			           ,T2.SPEC_STL_GRD
			           ,T2.COIL_NO
			           ,T2.COIL_THK
			           ,T2.SMP_NO_TYPE
			ORDER BY    T2.COIL_STEEL_NO
</query>

<query id="UIB100203_COMM_09.SELECT" desc="冲击导出">
		  SELECT      T2.COIL_STEEL_NO
	                 ,T2.SPEC_STL_GRD
	                 ,T2.COIL_NO
	                 ,T2.COIL_THK
	                 ,MAX(T3.QLTY_DIR)   QLTY_DIR
	                 ,MAX(T3.QLTY_SIZ)   QLTY_SIZ
	                 ,MAX(T3.QLTY_TEM)   QLTY_TEM
	                 ,MAX(DECODE(T1.QLTY_OPE_CD , 'A1' ,  T1.QLTY_VAL ,NULL ))   A1
	                 ,MAX(DECODE(T1.QLTY_OPE_CD , 'A2' ,  T1.QLTY_VAL ,NULL ))   A2
	                 ,MAX(DECODE(T1.QLTY_OPE_CD , 'A3' ,  T1.QLTY_VAL ,NULL ))   A3
	      FROM        TBB10_QLTY_OPE  T1, TBB10_QLTY_COIL T2 ,TBB10_QLTY_CD T3
	      WHERE       T1.SMP_NO       =       T2.SMP_NO
	      AND         T1.SMP_CUT_LOC  =       T2.SMP_CUT_LOC
	      AND         T1.SMP_NO_TYPE  =       T2.SMP_NO_TYPE
	      AND         T1.QLTY_CD_2    IN      ('PC' ,'SC')	      
       --   AND         T3.QLTY_CD_2    IN      ('PC' ,'SC')
          AND         T1.QLTY_CD      =       T3.QLTY_CD(+)
	      AND         INSTR(?  , T2.COIL_NO)  > 0 
	      AND         INSTR(?  , T2.WEITO_NO) > 0
	      GROUP BY    T2.COIL_STEEL_NO
	                 ,T2.SPEC_STL_GRD
	                 ,T2.COIL_NO
	                 ,T2.COIL_THK
	      ORDER BY    T2.COIL_STEEL_NO
</query>

<query id="UIB100203_COMM_091.SELECT" desc="冲击导出">
		 SELECT T2.COIL_STEEL_NO,
       T2.SPEC_STL_GRD,
       T2.COIL_NO,
       T2.COIL_THK,
      /* MAX(T3.QLTY_DIR) QLTY_DIR,
       MAX(DECODE(T4.QLTY_SIZE,
                  'A',
                  '10*10*55',
                  'B',
                  '10*7.5*55',
                  'C',
                  '10*5.0*55')) QLTY_SIZ,
       MAX(T3.QLTY_TEM) QLTY_TEM,*/
       MAX(decode(T3.QLTY_DIR,
                  'H',
                  '横向',
                  'L',
                  '横时',
                  'S',
                  '45度',
                  'X',
                  '纵时',
                  'Z',
                  '纵向')) QLTY_DIR,
       MAX(T4.QLTY_SIZE) QLTY_SIZ,
       MAX(decode(substr(T3.QLTY_TEM, 1, 1), '0', '-', '') ||
           substr(T3.QLTY_TEM, 3, 2)) QLTY_TEM,
       MAX(DECODE(T1.QLTY_OPE_CD, 'A1', T1.QLTY_VAL, NULL)) A1,
       MAX(DECODE(T1.QLTY_OPE_CD, 'A2', T1.QLTY_VAL, NULL)) A2,
       MAX(DECODE(T1.QLTY_OPE_CD, 'A3', T1.QLTY_VAL, NULL)) A3
  FROM TBB10_QLTY_OPE       T1,
       TBB10_QLTY_COIL      T2,
       TBB10_QLTY_CD        T3,
       tbb01_ord_qlty@xg3q  t4,
       tbh02_coil_comm@xg3q t5
 WHERE T1.SMP_NO = T2.SMP_NO
   AND T1.SMP_CUT_LOC = T2.SMP_CUT_LOC
   AND T1.SMP_NO_TYPE = T2.SMP_NO_TYPE
   and t4.ord_no = t5.ord_no
   and t4.ord_seq = t5.ord_seq
   and t5.sampl_no = t1.smp_no
   AND T1.QLTY_CD_2 IN ('PC', 'SC')
      --   AND         T3.QLTY_CD_2    IN      ('PC' ,'SC')
   AND T1.QLTY_CD = T3.QLTY_CD(+)
   --and t1.smp_no = 'J81-06907A030XX'
   AND         INSTR(?  , T2.COIL_NO)  > 0 
	 AND         INSTR(?  , T2.WEITO_NO) > 0
 GROUP BY T2.COIL_STEEL_NO, T2.SPEC_STL_GRD, T2.COIL_NO, T2.COIL_THK
 ORDER BY T2.COIL_STEEL_NO
</query>
<query id="UIB100203_COMM_092.SELECT" desc="冲击导出">
		 SELECT T2.COIL_STEEL_NO,
       T2.SPEC_STL_GRD,
       T2.COIL_NO,
       T2.COIL_THK,
       MAX(T3.QLTY_DIR) QLTY_DIR,
       MAX(DECODE(T4.QLTY_SIZE,
                  'A',
                  '10*10*55',
                  'B',
                  '10*7.5*55',
                  'C',
                  '10*5.0*55')) QLTY_SIZ,
       MAX(T3.QLTY_TEM) QLTY_TEM,
       MAX(DECODE(T1.QLTY_OPE_CD, 'A1', T1.QLTY_VAL, NULL)) A1,
       MAX(DECODE(T1.QLTY_OPE_CD, 'A2', T1.QLTY_VAL, NULL)) A2,
       MAX(DECODE(T1.QLTY_OPE_CD, 'A3', T1.QLTY_VAL, NULL)) A3
  FROM TBB10_QLTY_OPE       T1,
       TBB10_QLTY_COIL      T2,
       TBB10_QLTY_CD        T3,
       tbb01_ord_qlty@xg3q  t4,
       C_TBC02_COIL_COMM@xg3q t5
 WHERE T1.SMP_NO = T2.SMP_NO
   AND T1.SMP_CUT_LOC = T2.SMP_CUT_LOC
   AND T1.SMP_NO_TYPE = T2.SMP_NO_TYPE
   and t4.ord_no = t5.ord_no
   and t4.ord_seq = t5.ord_seq
   and t5.smp_no = t1.smp_no
   AND T1.QLTY_CD_2 IN ('PC', 'SC')
      --   AND         T3.QLTY_CD_2    IN      ('PC' ,'SC')
   AND T1.QLTY_CD = T3.QLTY_CD(+)
   --and t1.smp_no = 'J81-06907A030XX'
   AND         INSTR(?  , T2.COIL_NO)  > 0 
	 AND         INSTR(?  , T2.WEITO_NO) > 0
 GROUP BY T2.COIL_STEEL_NO, T2.SPEC_STL_GRD, T2.COIL_NO, T2.COIL_THK
 ORDER BY T2.COIL_STEEL_NO
</query>
<query id="UIB100203_COMM_10.SELECT" desc="获取式样号的所有大类，如拉力，冲击" >
		SELECT        DISTINCT
		              T2.QLTY_CD_2
		             ,T2.QLTY_CD_2_NM
		FROM          TBB10_QLTY_OPE        T1  
		             ,TBB10_QLTY_CD         T2
		WHERE         T1.QLTY_CD_2          =       T2.QLTY_CD_2
		AND           T1.SMP_NO             =       ?
		AND           T1.SMP_CUT_LOC        =       ?
		AND           T1.SMP_NO_TYPE        =       ?
		AND           T1.QLTY_CD_1          =       ?
		UNION 
		SELECT        'ALL'
		             ,'全部' 
		FROM          DUAL
		
</query>

<query id="UIB100203_COMM_01.UPDATE" desc="更新设备号">
		    UPDATE    TBB10_QLTY_OPE      T
			SET       T.EQUMT_ID          =      ?
			WHERE     T.SMP_NO            =      ?
			AND       T.SMP_CUT_LOC       =      ?
			AND       T.SMP_NO_TYPE       =      ?
			AND       T.QLTY_CD_2         =      ?
			AND       T.QLTY_CD           =      ?
</query>		

<query id="UIB100203_COMM_02.UPDATE" desc="备注">
		    UPDATE    TBB10_QLTY_OPE      T
			SET       T.SMP_RMK           =      ?
			WHERE     T.SMP_NO            =      ?
			AND       T.SMP_CUT_LOC       =      ?
			AND       T.SMP_NO_TYPE       =      ?
			AND       T.QLTY_CD_2         =      ?
			AND       T.QLTY_CD           =      ?
</query>		

<query id="UIB100203_COMM_03.UPDATE" desc="委托编号变更">
           UPDATE     TBB10_QLTY_COIL     T
		   SET        T.WEITO_NO          =      ?
		   WHERE      T.WEITO_NO          =      ?
</query>


<query id="UIB100203_COMM_04.UPDATE" desc="清除值"> 
		    UPDATE          TBB10_QLTY_OPE        T
			SET             T.QLTY_VAL            =       NULL
			WHERE           T.SMP_NO              =       ?
			AND             T.SMP_CUT_LOC         =       ?
			AND             T.SMP_NO_TYPE         =       ?
			AND             T.QLTY_CD_2           =       DECODE(? , 'ALL' , T.QLTY_CD_2 , ?)
			AND             T.QLTY_OPE_CD        !=       'Lo'
			AND             T.SMP_NO              =       (SELECT     X.SMP_NO   
			                                               FROM  	  TBB02_LOT_COM@XG3Q     X  
			                                               WHERE 	  X.SMP_NO               =    T.SMP_NO 
			                                               AND 		  X.SMP_PROG_CD          =    'C')
</query>

<query id="UIB100203_COMM_01.CALL" desc="原始数据保存">
	{call JHY_QLTY_BASE.SAVE_WORK_VAL(?,?,?,?,?,?,?,?,?,?,?,?)}
</query>

<query id="UIB100203_COMM_02.CALL" desc="发送">
	{call JHY_QLTY_BASE.SEND_WORK_VAL(?,?,?,?,?,?)}
</query>

<query id="UIB100203_COMM_03.CALL" desc="项目编码变更，如Rp，Rel等">
	{call JHY_QLTY_BASE.SAVE_CHGE_CDS(?,?,?,?,?,?,?)}
</query>

<query id="UIB100203_COMM_04.CALL" desc="钢印号变更">
	{call JHY_QLTY_BASE.SAVE_STEEL_NO(?,?,?,?,?,?)}
</query>

<query id="UIB100203_COMM_05.CALL" desc="数据归档">
    {call JHY_QLTY_BASE.PLACE_ON_FILE(?,?,?) }
</query>

</queryMap>