XinYu_RZMES/.svn/pristine/eb/ebe1e4b91a3ac8e8e330426bc77bef5a2ac92fe1.svn-base

<?xml version="1.0" encoding='UTF-8'?>
<queryMap desc="质保书发行">
	<query  id="UIB021100_01.SELECT" desc="查询证明书号">
		<![CDATA[
				select 
				CRET_NO             --证明书编号
				from TBB02_MS_COM   --table证明书_共用
				where ORD_NO =?     --订单号
				and ORD_SEQ =?      --订单序号
		]]>	
	</query>
	<query  id="UIB021100_02.SELECT" desc="查询证明书号信息">
		<![CDATA[
				SELECT T1.CRET_NO,  
				--SQ_QD_COMMON.COMMCD_CDTOCFNM('B01003',EXAMORG_CD) EXAMORG_CD,                       --检查机关代码
				DECODE(CRET_PRINT_TP,'Y','可以打印','不可以打印') CRET_PRINT_TP,
				ORD_NO,                                                                               --订单号
				ORD_SEQ,                                                                              --订单序号
				SQ_QD_COMMON.COMMCD_CDTOCFNM('A01007',ORD_USE_TP) ORD_USE_TP,                         --订单用途编码
				SPEC_ABBSYM,                                                                          --标准号
				SPEC_STL_GRD,                                                                         --标准钢号 
				T1.SHIP_DIRNO,                                                                        --发行指示编号
				SUBSTR(CRET_NO_DTIME,1,4)||'-'||SUBSTR(CRET_NO_DTIME,5,2)||
				'-'||SUBSTR(CRET_NO_DTIME,7,2)||' '||SUBSTR(CRET_NO_DTIME,9,2)||
				':'||SUBSTR(CRET_NO_DTIME,11,2) 
				CRET_NO_DTIME                                                                         --证明书编时间
				FROM TBB02_MS_COM T1,TBJ01_SHIP_DIR T2
				WHERE T1.SHIP_DIRNO = T2.SHIP_DIRNO(+) AND T1.CRET_NO = :1                            --证明书编号
		]]>
	</query>
	<query id="UIB021100_03.SELECT" desc="查询证明书对应的成分代码">
		<![CDATA[	
				select distinct a.CHEM_CD,     --成分代码
				c.display_seq,                 --标示序列
				c.display_len                  --标示格式 
				from TBB02_WORK_INGR a,TBB02_MS_COIL b,tbb01_seq_ingr c,tbb02_ms_com d
				where a.charge_no = b.charge_no and a.proc_cd = b.proc_cd and a.chem_seq = b.chem_seq and a.chem_cd = c.chem_cd
				AND b.CRET_NO = d.CRET_NO
				AND EXISTS (SELECT 'X' FROM TBB01_ORD_INGR OI WHERE OI.ORD_NO = D.ORD_NO AND OI.ORD_SEQ = D.ORD_SEQ
				AND OI.CHEM_CD = A.CHEM_CD and (OI.DSN_KIND = '1' OR OI.DSN_KIND = '2'))
				and b.CRET_NO = ?              --证明书编号
				order by c.display_seq ASC
		]]>	 
	</query>
	<query id="UIB021100_04.SELECT" desc="查询证明书对应的成分信息">
		<![CDATA[	
				select b.OLD_SAMPL_NO COIL_NO,         --钢卷号
				b.CHARGE_NO,                           --炉次号
				b.PROC_CD,                             --工序
				a.CHEM_SEQ,                            --成分实绩次数  
				a.CHEM_CD,                             --成分项目
				a.CHEM_VAL CHEM_VAL,                   --成分实绩结果
				a.CHEM_VAL_TP                          --实绩编码
				from TBB02_WORK_INGR a,TBB02_MS_COIL b,tbb01_seq_ingr c,tbb02_ms_com d
				where a.charge_no = b.charge_no and a.proc_cd = b.proc_cd and a.chem_seq = b.chem_seq and a.chem_cd = c.chem_cd  
				AND b.CRET_NO = d.CRET_NO
				AND EXISTS (SELECT 'X' FROM TBB01_ORD_INGR OI WHERE OI.ORD_NO = D.ORD_NO AND OI.ORD_SEQ = D.ORD_SEQ
				AND OI.CHEM_CD = A.CHEM_CD and (OI.DSN_KIND = '1' OR OI.DSN_KIND = '2'))
				and b.CRET_NO = ?                      --证明书编号 
		]]>	
	</query>
	<query id="UIB021100_05.SELECT" desc="查询证明书对应的钢卷信息">
		<![CDATA[	
				select 'false' CHK,
				B02MC.CRET_NO,
				H02CC.TOT_DEC_GRD,
				B02MC.OLD_SAMPL_NO COIL_NO,           --钢卷号
				B02MC.CHARGE_NO,         --炉次号
				B02MC.COIL_THK,          --钢卷厚度
				B02MC.COIL_WTH,          --钢卷宽度
				B02MC.COIL_LEN,          --钢卷长度
				B02MC.COIL_WGT           --钢卷重量
				from TBB02_MS_COIL B02MC,TBH02_COIL_COMM H02CC
				WHERE B02MC.COIL_NO = H02CC.COIL_NO               
				AND   B02MC.CRET_NO = ?
		]]>	
	</query>
	<query id="UIB021100_06.SELECT" desc="查询证明书对应的材质代码">
		<![CDATA[	
				SELECT DISTINCT a.QLTY_CD,          --材质代码
				a.smp_cut_loc,
				MAX(a.qlty_val_wk) qlty_val_wk,
				MAX(a.qlty_unit_wk) qlty_unit_wk,
				c.qlty_cd_cfnm,                     --材质代码
				c.display_seq                       --标示序列                                                                  
				FROM TBB02_WORK_QLTY a,TBB02_MS_COIL b,tbb01_seq_qlty c
				WHERE a.SMP_NO = b.SMP_NO 
				AND UPPER(A.SMP_CUT_LOC) IN (DECODE(UPPER(B.SMP_CUT_LOC),'W','1',UPPER(B.SMP_CUT_LOC)),DECODE(UPPER(B.SMP_CUT_LOC),'W','2',UPPER(B.SMP_CUT_LOC))) 
				AND a.qlty_cd = c.qlty_cd(+)
				AND b.CRET_NO = :1 
				GROUP BY a.QLTY_CD,a.smp_cut_loc,c.qlty_cd_cfnm,c.display_seq 
				order by c.display_seq
		]]>
	</query>
	<query id="UIB021100_07.SELECT" desc="查询证明书对应的材质信息">
		<![CDATA[	
				select b.OLD_SAMPL_NO COIL_NO,--钢卷号
				A.SMP_CUT_LOC,
				b.CHARGE_NO,                  --炉次号
				a.QLTY_CD,                    --材质代码
				a.QLTY_VAL_WK,                --材质实绩值
				a.qlty_unit_wk  QLTY_TYPE_WK  --材质TYPE实绩
				from TBB02_WORK_QLTY a,TBB02_MS_COIL b
				where a.SMP_NO = b.SMP_NO 
				AND UPPER(A.SMP_CUT_LOC) IN (DECODE(UPPER(B.SMP_CUT_LOC),'W','1',UPPER(B.SMP_CUT_LOC)),DECODE(UPPER(B.SMP_CUT_LOC),'W','2',UPPER(B.SMP_CUT_LOC))) 
				and b.CRET_NO = ?       --证明书编号
				ORDER BY b.COIL_NO,a.QLTY_CD 	
		]]>	
	</query>
	<query id="UIB021100_08.SELECT" desc="查询证明书号">
		<![CDATA[	
				SELECT CRET_NO  FROM TBB02_MS_COM
		]]>	
	</query>
	
	<query id="UIB021100_09.SELECT" desc="查询证明书号">
		<![CDATA[	
				SELECT DISTINCT ORD_NO FROM TBB02_MS_COM 
				WHERE CRET_NO = ?
		]]>	
	</query>
	
	<query id="UIB021100_10.SELECT" desc="查询证明书号">
		<![CDATA[
				SELECT DISTINCT ORD_SEQ FROM TBB02_MS_COM 
				WHERE ORD_NO = ?
		]]>	
	</query>
	
	<query id="UIB021100.CRET_NO.SELECT" desc="">
		<![CDATA[
                SELECT DISTINCT B02MC.CRET_NO FROM TBB02_MS_COM B02MC,TBH02_COIL_COMM H02CC 
                WHERE B02MC.CRET_NO = H02CC.CRET_NO
			    AND   DECODE(:1,NULL,1,SUBSTR(B02MC.CRET_NO_DTIME,1,8)) >= DECODE(:2,NULL,1,:3)
                AND   DECODE(:4,NULL,1,SUBSTR(B02MC.CRET_NO_DTIME,1,8)) <= DECODE(:5,NULL,1,:6)
                AND   B02MC.ORD_NO LIKE :7||'%'
                ORDER BY B02MC.CRET_NO
		]]>	
	</query>
	<!--下面的才起作用，上面代码已失效
############################################################################################################
############################################################################################################				
############################################################################################################
############################################################################################################
############################################################################################################						
	-->
	
	<query id="UIB021100.CRET_PRINT_TP.SELECT" desc="审核相关查询">
		<![CDATA[
		 SELECT  DISTINCT 
		  (CASE WHEN  B02MC.SEND_TP = 'Y' AND B02MC.CRET_PRINT_TP = 'Y' THEN 'Y' ELSE '' END )	  CHK
         ,CRET_PRINT_TP                                              --打印区分
         ,B02MC.SEND_TP                                              --是否已发送
		 ,B02MC.CRET_NO                                              --质保书编号
		 ,B02MC.INV_NO                                               --明细号
		 ,H02CC.DLIV_DIRNO                                           --运送指示号
		 ,H02CC.SHIP_DIRNO                                           --发货指示号
		 ,B02MC.ORD_NO                                               --合同号
		 ,B02MC.ORD_SEQ                                              --订单号
		 ,B02MC.SPEC_STL_GRD                                         --钢号
		 ,SQ_QD_COMMON.COMMCD_CDTOCFNM('A01007',B02MC.ORD_USE_TP)          ORD_USE_TP
		 --,NVL(MAX(B02MCO.CRET_CNT),'0') CRET_CNT                   --打印次数
		 ,(SELECT CRET_CNT FROM TBB02_MS_COIL WHERE CRET_NO =B02MC.CRET_NO AND ROWNUM = 1) CRET_CNT
		 ,B02MC.SPEC_ABBSYM                                          --标准号
		 ,XB_PACKAGE.GF_CUSTOMER_FIND(B02MC.CUST_CD) CUST_CD         --订货单位
		 ,XB_PACKAGE.GF_CUSTOMER_FIND(B02MC.ORDCUST_CD) ORDCUST_CD   -- 收货单位
		 ,B02MCO.CAR_GP                                              --车号
		 ,NVL(XB_PACKAGE.GF_USER_FIND(B02MC.CRET_PRINT_ID),' ') CRET_PRINT_ID                                        --审核人
		 ,B02MC.CRET_PRINT_DTIME                                     --审核时间
		 ,H02CC.INSTR_COIL_THK
		 ,H02CC.TRNF_DTIME                                           --发货时间
		 ,PKG_QUALITY_COMM.FIB020200(H02CC.CRET_NO)       SUM_WGT        --总重量
		 ,PKG_QUALITY_COMM.FIB020201(H02CC.CRET_NO)       SUM_CNT        --总块数
		 ,A01ORD.ORD_DEVLMT_DATE                                         --交货日期
		 FROM   TBB02_MS_COM         B02MC
		 ,TBH02_COIL_COMM          H02CC
		 ,TBB02_MS_COIL            B02MCO
		 ,TBJ01_DLIV_DIR           J01DD
		 ,TBA01_ORD_LINE           A01ORD
		 WHERE B02MC.CRET_NO                     = H02CC.CRET_NO
		 AND   B02MC.CRET_NO                     = B02MCO.CRET_NO
		 AND   H02CC.DLIV_DIRNO                  = J01DD.DLIV_DIRNO
		 AND   A01ORD.ORD_NO                     = H02CC.ORD_NO
		 AND   A01ORD.ORD_SEQ                    = H02CC.ORD_SEQ
		 AND   H02CC.SHIP_PROG_CD                = '08'              --09为板加，08为热轧
		 AND   J01DD.ISDELETED                  != '1'
		 AND   NVL(B02MC.ORD_NO,' ') LIKE :1||'%'  
		 AND   NVL(B02MC.CRET_PRINT_TP,'N') LIKE :2||'%'
		 AND   NVL(SUBSTR(B02MC.CRET_NO_DTIME,1,8),'00000101') >= NVL(:3,'00000101')
         AND   NVL(SUBSTR(B02MC.CRET_NO_DTIME,1,8),'99991231') <= NVL(:4,'99991231')
		 AND   NVL(B02MCO.CAR_GP,' ')    LIKE :5||'%'
		 AND   NVL(H02CC.DLIV_DIRNO,' ') LIKE :6||'%'
		 AND   NVL(B02MC.INV_NO,' ')     LIKE :7||'%'  
		 AND   NVL(B02MC.SPEC_STL_GRD , ' ') LIKE   ?||'%'
		 AND   (CASE WHEN B02MC.SEND_TP IS NULL THEN 'N' ELSE 'Y' END  ) = DECODE(? , 'ALL' , (CASE WHEN B02MC.SEND_TP IS NULL THEN 'N' ELSE 'Y' END  ) , ?)	
		 ORDER BY B02MC.CRET_NO
	]]>		
	</query>
		
	<query id="UIB021100.Header.Select" desc="质保书头部">
		<![CDATA[
				SELECT DISTINCT 
				XB_PACKAGE.GF_CUSTOMER_FIND(A.CUST_CD) CUST_CD,               -- 订货单位
				XB_PACKAGE.GF_CUSTOMER_FIND(A.ORDCUST_CD) ORDCUST_CD,         -- 收货单位
				A.ORD_NO,                                                     -- 合同号
			    DECODE(A.ORD_USE_ALIAS, NULL , PKG_QUALITY_COMM.FIB040000('A01007' , A.ORD_USE_TP , ?) , PKG_QUALITY_COMM.FIB040000('A02003' , A.ORD_USE_ALIAS , 'Z'))   PROC_NM ,  -- 产品名称   PROC_NM ,  -- 产品名称
				A.SPEC_ABBSYM SPEC_ABBSYM,                                    -- 标准
				A.SHIP_DIRNO,                                                 -- 发行指示编号
				B.CNT,                                                        -- 数量合计
				TO_CHAR((B.WGT / 1000),'FM9999.000') WGT,                     -- 重量合计
				A.CRET_NO,                                                    -- 证明书编号
				TO_CHAR(TO_DATE(SUBSTR(A.CRET_NO_DTIME,1,8), 'YYYYMMDD'),
				'YYYY-MM-DD') CRET_NO_DTIME,  -- 签发日期
				TO_CHAR(TO_DATE(SUBSTR(C.SHIP_DIR_DTIME,1,8), 'YYYYMMDD'),
				'YYYY-MM-DD') SHIP_CFM_DTIME                                  -- 发货日期
				,NVL(XB_PACKAGE.GF_USER_FIND(A.CRET_PRINT_ID),' ') USERID
				,A.INV_NO
			    ,'111'  LICENSENO
			    ,A.CRET_NO_RMK   
				FROM TBB02_MS_COM A, (
				SELECT A.CRET_NO, COUNT(*) CNT, SUM(ACT_WGT) WGT
				FROM TBB02_MS_COIL A,TBH02_COIL_COMM B
				WHERE A.COIL_NO = B.COIL_NO
				AND   A.CRET_NO = ?
				AND   B.TOT_DEC_GRD = '1'
				AND   (B.MATLQLTY_DEC_GRD = '1'
				OR     B.MATLQLTY_DEC_GRD = '0')
			    GROUP BY A.CRET_NO) B,TBH02_COIL_COMM C
				WHERE A.CRET_NO = B.CRET_NO AND
				A.CRET_NO       = C.CRET_NO
		]]>
	</query>
	
	<query id="UIB021100.Size.Select" desc="钢卷尺寸">
		<![CDATA[
			SELECT
			A.OLD_SAMPL_NO COIL_NO,                               -- 钢卷号
			A.CHARGE_NO,                                          -- 炉号
			B.SPEC_STL_GRD,                                       -- 牌号
			C.INSTR_COIL_THK COIL_THK,                            -- 厚度
			C.INSTR_COIL_WTH COIL_WTH,                            -- 宽度
			A.COIL_LEN,                                           -- 长度
            TO_CHAR((C.ACT_WGT / 1000),'FM90.000') COIL_WGT,                         -- 重量
			DECODE(A.PROC_CD, 'JJ', 'L', 'CO', 'P', '') PROC_TP,  -- 分析区分
			C.TRANS_CAR_NO     CAR_GP                                -- 车号
			FROM TBB02_MS_COIL A, TBB02_MS_COM B,TBH02_COIL_COMM C
			WHERE A.CRET_NO = ? 
			AND   C.TOT_DEC_GRD = '1'
			AND   (C.MATLQLTY_DEC_GRD = '1'
			OR     C.MATLQLTY_DEC_GRD = '0') 
 			AND   A.CRET_NO = B.CRET_NO
			AND   A.COIL_NO = C.COIL_NO
			ORDER BY A.OLD_SAMPL_NO  		
		]]>
	</query>
	
	<query id="UIB021100.Chem.Select" desc="钢卷成份">
		<![CDATA[
	  SELECT DISTINCT  
      A.OLD_SAMPL_NO COIL_NO
      ,REPLACE(CASE  WHEN  C.COMP_YN = 'N'             THEN    B.CHEM_CD 
                     WHEN  C.COMP_DETAIL = '复合元素'   THEN    C.COMP_CAL  
                     ELSE  C.COMP_DETAIL
               END , '='
               )     CHEM_CD
    --  ,TO_CHAR(B.CHEM_VAL,DECODE(LENGTH(TRUNC(B.CHEM_VAL)),'1','0','2','00','3','000')||'.'||SUBSTR(c.display_len,2,LENGTH(c.display_len)-1)) CHEM_VAL    -- 成份值
      ,ROUND(B.CHEM_VAL*C.DISPLAY_LEN) CHEM_VAL1
	  ,B.CHEM_VAL		
      ,C.DISPLAY_LEN
      ,C.DISPLAY_SEQ
      ,C.COMP_YN
      FROM TBB02_MS_COIL A, TBB02_WORK_INGR B, TBB01_SEQ_INGR C ,TBB02_MS_COM D,TBB01_ORD_INGR E,TBH02_COIL_COMM F
      WHERE A.CRET_NO =  ? AND 
      ((A.PROC_CD = 'JJ' AND A.CHARGE_NO = B.CHARGE_NO)
      OR (A.PROC_CD = 'CO' AND A.COIL_NO = B.CHARGE_NO))
      AND A.PROC_CD = B.PROC_CD
    --AND (E.DSN_KIND = '1' OR E.DSN_KIND = '2') 
	  AND E.DSN_KIND  =  '2'
      AND F.TOT_DEC_GRD = '1'
      AND (F.MATLQLTY_DEC_GRD = '1'    OR     F.MATLQLTY_DEC_GRD = '0')
      AND A.COIL_NO = F.COIL_NO
      AND A.CHEM_SEQ = B.CHEM_SEQ
      AND B.CHEM_CD = C.CHEM_CD
      AND A.CRET_NO = D.CRET_NO
      AND D.ORD_NO = E.ORD_NO
      AND D.ORD_SEQ = E.ORD_SEQ
      AND E.CHEM_CD = B.CHEM_CD
      ORDER BY A.OLD_SAMPL_NO , C.COMP_YN, C.DISPLAY_SEQ
		]]>	
	</query>

	<query id="UIB021100.Sample.Select" desc="钢卷试样">
		<![CDATA[
      SELECT      DISTINCT
      A.OLD_SAMPL_NO   COIL_NO,
      A.SMP_NO,                -- 试样号
      A.SMP_CUT_LOC ,          -- 试样位置
    --  XB_PACKAGE.GF_COMNNAME_FIND('B01118', A.MET_DEF) MET_DEF,          -- 交货状态
	  G.PRDNM_CD		  MET_DEF , 
      CASE WHEN B.QLTY_UNIT_WK = 'Y' THEN '合格' 
      WHEN B.QLTY_VAL_WK <1 THEN to_char(B.QLTY_VAL_WK,'0.90')
        WHEN SUBSTR(C.QLTY_CD, 1, 2) = 'EL' THEN to_char(B.QLTY_VAL_WK,'99.0')
      ELSE to_char(B.QLTY_VAL_WK) END QLTY_VAL_WK          -- 指标值
	/*, DECODE(XB_PACKAGE.GF_COMNNAME_FIND('B01123', C.MS_QLTY_DIR) 
      ,'横向'
      ,'T'
      ,'纵向'
      ,'L')
      MS_QLTY_DIR      */                              -- 方向
      ,(SELECT SQ.QLTY_SIZE FROM TBB01_SPEC_QLTY  SQ WHERE SQ.PRDNM_CD = G.PRDNM_CD AND SQ.SPEC_ABBSYM = G.SPEC_ABBSYM AND SQ.SPEC_STL_GRD = G.SPEC_STL_GRD  AND A.COIL_THK >= SQ.THK_MIN AND A.COIL_THK <= SQ.THK_MAX  AND SQ.ORD_USE_TP = G.ORD_USE_TP  AND SQ.QLTY_CD = B.QLTY_CD AND ROWNUM = 1 )    MS_QLTY_SIZ                                                                                                          
      ,A.COIL_THK COILTHK
      ,DECODE(SUBSTR(C.MS_QLTY_TEM,1,1)
      ,'0','-'||TO_NUMBER(SUBSTR(C.MS_QLTY_TEM,2,3))
      ,'1',TO_NUMBER(SUBSTR(C.MS_QLTY_TEM,2,3))
      ,'2','') MS_QLTY_TEM,         -- 温度
      MS_QLTY_TEM MS_QLTY_TEM1,     -- 温度
      C.MS_QLTY_RP,    -- Rp
      (CASE WHEN SUBSTR(C.QLTY_CD,1,3) = 'IMS' THEN 'TT' ELSE SUBSTR(C.QLTY_CD, 1, 2) END) QLTY_CD,
      C.QLTY_CD_CFNM    -- 指标名
      ,C.MS_QLTY_DIR
      FROM TBB02_MS_COIL A, TBB02_WORK_QLTY B, TBB01_SEQ_QLTY C,TBB02_MS_COM D ,TBH02_COIL_COMM F
      ,TBB01_ORD_HEAD G , TBB01_ORD_QLTY OQ
      WHERE A.CRET_NO =  ?
      AND A.SMP_NO = B.SMP_NO
      AND A.SMP_CUT_LOC = DECODE(B.SMP_CUT_LOC, '1', 'W', '2', 'W', B.SMP_CUT_LOC)
      AND B.QLTY_CD = C.QLTY_CD
      AND A.CRET_NO = D.CRET_NO
      AND F.TOT_DEC_GRD = '1'
      AND (F.MATLQLTY_DEC_GRD = '1'    OR     F.MATLQLTY_DEC_GRD = '0')
      AND A.COIL_NO = F.COIL_NO
      AND D.ORD_NO  = G.ORD_NO
      AND D.ORD_SEQ = G.ORD_SEQ
      AND B.QLTY_CD = OQ.QLTY_CD
      AND G.ORD_NO  = OQ.ORD_NO
      AND G.ORD_SEQ = OQ.ORD_SEQ
      AND OQ.QLTY_DEC_CD IS NULL 
      AND OQ.DSN_KIND =    (SELECT MIN(BO.DSN_KIND) FROM TBB01_ORD_QLTY BO  WHERE BO.ORD_NO = OQ.ORD_NO AND BO.ORD_SEQ = OQ.ORD_SEQ )     
      ORDER BY A.OLD_SAMPL_NO , QLTY_CD , QLTY_CD_CFNM

		]]>
	</query>

	<query id="UIB021100.Qlty.Select" desc="钢卷材质">
		<![CDATA[
			SELECT
			A.OLD_SAMPL_NO COIL_NO,
			SUBSTR(B.QLTY_CD, 1, 2) QLTY_CD,
			C.QLTY_VAL_WK,    -- 指标值
			C.QLTY_SEQ,
			E.MS_QLTY_DIR
			FROM TBB02_MS_COIL A, TBB02_WORK_QLTY B, TBB02_REWORK_QLTY C,TBH02_COIL_COMM D,TBB01_SEQ_QLTY E
			WHERE A.CRET_NO = ? 
			AND   D.TOT_DEC_GRD = '1'
			AND (D.MATLQLTY_DEC_GRD = '1'
			OR     D.MATLQLTY_DEC_GRD = '0')
			AND A.COIL_NO = D.COIL_NO
			AND B.QLTY_CD = E.QLTY_CD
			AND SUBSTR(B.QLTY_CD, 1, 2) IN ('IM', 'HD')
			AND A.SMP_NO = B.SMP_NO
			AND A.SMP_CUT_LOC = DECODE(B.SMP_CUT_LOC, '1', 'W', '2', 'W', B.SMP_CUT_LOC)
			AND B.SMP_NO = C.SMP_NO(+)
			AND B.SMP_CUT_LOC = C.SMP_CUT_LOC(+)
			AND B.QLTY_CD = C.QLTY_CD(+)
			ORDER BY A.OLD_SAMPL_NO, A.SMP_NO, B.SMP_CUT_LOC
				/*
					拉伸试验
						屈服		QLTY_CD = ‘YS’
						抗拉		QLTY_CD = ‘TE’
						伸长		QLTY_CD = ‘EL’
						R.A		QLTY_CD = ‘RA’
						Y.R		QLTY_CD = ‘YR’
					冲击试验(QLTY_CD = ‘IM’)
						1		QLTY_SEQ=‘A1’
						2		QLTY_SEQ=‘A2’
						3		QLTY_SEQ=‘A3’
						AVE
					Z向断面收缩率(QLTY_CD = ?)
						1		QLTY_SEQ=‘A1’
						2		QLTY_SEQ=‘A2’
						3		QLTY_SEQ=‘A3’
						AVE
					硬度(QLTY_CD = ‘DH’)
						1		QLTY_SEQ=‘A1’
						2		QLTY_SEQ=‘A2’
						3		QLTY_SEQ=‘A3’
						AVE
					其它
				*/
		]]>
	</query>
	
	
	<query id="UIB021100.COIL.UPDATE" desc="">
		<![CDATA[
				UPDATE TBB02_MS_COIL
				SET 
				CRET_CNT = DECODE(NVL(CRET_CNT,'0'), '0','1',TO_NUMBER(CRET_CNT) + 1)
				WHERE CRET_NO = ?
	]]>		
	</query>

	<query id="UIB021100.CRET_PRINT_TP_1.SELECT" desc="">
		<![CDATA[
		SELECT B02MC.CRET_PRINT_TP FROM TBB02_MS_COM B02MC 
        WHERE B02MC.CRET_NO      = :1
													]]>		
	</query>	
	<query id="UIB021100.CRET_PRINT_TP.UPDATE" desc="审核">
		<![CDATA[
				UPDATE tbb02_ms_com
				SET CRET_PRINT_TP = DECODE(:1,'Y','Y','N','')
				,CRET_PRINT_ID     = :2
				,CRET_PRINT_DTIME  = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')
				WHERE CRET_NO     = :3
	]]>		
	</query>
	
	<query id="UIB021100.CRET_PRINT_TP.CHECK" desc="">
		<![CDATA[
				SELECT T.CRET_PRINT_TP FROM TBB02_MS_COM T
				WHERE T.CRET_NO = :1
	]]>		
	</query>	
	
	<query id="UIB021100.CHECK.GRD" desc="">
		<![CDATA[
		SELECT  DECODE(COUNT(*),0,'Y','N') CHECK_DATA
		FROM    TBB02_MS_COIL A,TBH02_COIL_COMM B,TBB02_MS_COM  C
		WHERE   A.COIL_NO             =       B.COIL_NO
		AND     A.CRET_NO             =       C.CRET_NO
		AND     A.CRET_NO             =       :1
		AND    (B.TOT_DEC_GRD        !=       '1'       OR      B.MATLQLTY_DEC_GRD    =   '2')
		ORDER   BY A.CRET_NO 
	]]>		
	</query>		
	
	<query id="UIB021100_01.INSERT" desc="">
		
		INSERT     INTO     ZL_ZBS_MAIN_DATA(
		 SENDID         --明细号
		,PACTID         --合同号
		,ORDERID        --订单号
		,SUBSCRIBER     --订货单位
		,CONSIGNEE      --收货单位
		,PRODUCTNAME    --产品名称
		,STANDARDDOC    --标准号
		,CARNO          --车号
		,WEIGHT         --总重
		,QUANTITY       --块数
		,ZBSXLS         --质保书(xls格式)
		,ZBS_BH         --质保书号
		,SENDTIME       --发货日期
		,DELIVERYTIME   --交货日期
		) 
		VALUES              
		(? 
		,?
		,?
		,?
		,?
		,?
		,?
		,?
		,?
		,?
		,?
		,?
		,TO_DATE(SUBSTR(?,1,8) , 'YYYYMMDD')
		,TO_DATE(SUBSTR(?,1,8) , 'YYYYMMDD')
		)
	</query>
	
	<query id="UIB021100_02.INSERT" desc="">
		
		INSERT INTO ZL_ZBS_DETAIL_DATA
		(
		 SENDID                  --发货明细码
		,P_CB_ID                 --批号
		,SMELTINGID              --炼钢炉号
		,STEELNAME               --牌号
		,HEIGHT                  --厚度或直径
		,LENGTH                  --长度
		,WIDTH                   --宽度
		,QUANTITY                --数量
		,WEIGHT                  --重量
		,DELIVERYSTATE           --交货状态
		,ZBS_BH
		)
		VALUES
		(
		 ?
		,?
		,?
		,?
		,?
		,?
		,?
		,?
		,?
		,?
		,?
		)
	</query>
	
	<query id="UIB021100_001.SELECT" desc="">
		   SELECT    
           CCM.SHIP_INVNO
          ,SUBSTR(CCM.OLD_SAMPL_NO , 1,10 )    OLD_SAMPL_NO
          ,SUBSTR(CCM.SLAB_NO , 1,10)          SLAB_NO
          ,CCM.SPEC_STL_GRD
          ,CCM.INSTR_COIL_THK
          ,CCM.COIL_LEN
          ,CCM.INSTR_COIL_WTH
          ,COUNT(*)            SUM_CNT
          ,SUM(DECODE(CCM.ACT_WGT , NULL , 0 , CCM.ACT_WGT))    SUM_WGT
          ,CCM.PRODNM_CD
           FROM TBH02_COIL_COMM  CCM WHERE CCM.CRET_NO   =   ?
           GROUP BY
           CCM.SHIP_INVNO
          ,SUBSTR(CCM.OLD_SAMPL_NO , 1,10 )
          ,SUBSTR(CCM.SLAB_NO , 1,10)
          ,CCM.SPEC_STL_GRD
          ,CCM.INSTR_COIL_THK
          ,CCM.COIL_LEN
          ,CCM.INSTR_COIL_WTH
          ,CCM.PRODNM_CD     
	</query>
	
</queryMap>