XinYu_LZMES/WebRoot/WEB-INF/query/B03/UIB030320-query.xml

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

<queryMap desc="质保书发行，包括热轧、冷轧、板加">

<!--**************************************** 热轧质保书****************************************
******************************************************************************************-->
<query	id="UIB030320_HOST_01.SELECT" desc="查询信息">
	<![CDATA[	
	  SELECT   DISTINCT 
	  '热轧'                         PROD_LINE
	 ,B02MC.TMPL_NO
     ,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
	 ,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            --审核人
	 ,H02CC.INSTR_COIL_THK											 --规格
	 ,B02MC.CRET_PRINT_DTIME                                     	 --审核时间
--	 ,H02CC.TRNF_DTIME                                           	 --发货时间
	 ,SUBSTR(B02MCO.SHIP_DIR_DTIME,1,8)   TRNF_DTIME                 --发货日期
--	 ,PKG_QUALITY_COMM.FIB020200(H02CC.CRET_NO)       COIL_SUM_WGT   --总重量
--   ,PKG_QUALITY_COMM.FIB020201(H02CC.CRET_NO)       COIL_SUM_CNT   --总块数
	 ,A01ORD.ORD_DEVLMT_DATE                                         --交货日期
	 ,B02MCO.CAR_GP
	 ,B02MC.SPEC_ABBSYM
	 ,A01ORD.MK_CONTENT      CRET_NO_RMK
--	 ,B02MC.CRET_NO_RMK
	 ,B02MC.PRINT_CNT
	 ,B02MC.PRINT_ID
   	 ,B02MC.PRINT_DTIME
	  FROM   
	  TBB02_MS_COM             B02MC
	 ,TBH02_COIL_COMM          H02CC
	 ,TBB02_MS_COIL            B02MCO
	 ,TBJ01_DLIV_DIR           J01DD
	 ,TBA01_ORD_LINE           A01ORD
	 ,tbe02_ord_prc   t
	  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    T.ORD_NO                     = H02CC.ORD_NO
	  AND    T.ORD_SEQ                    = H02CC.ORD_SEQ
	  AND    J01DD.ISDELETED                  != '1'
	  --AND    H02CC.SHIP_PROG_CD                = '08'              --09为板加，08为热轧
	  AND ((H02CC.SHIP_PROG_CD = '08') OR (H02CC.SHIP_PROG_CD = '09' AND T.PRD_TY <> 'KP' AND T.PRD_TY <> 'HK')) --09为板加，08为热轧
	  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    NVL(B02MC.SEND_TP,'N') = DECODE(? , 'ALL' , NVL(B02MC.SEND_TP,'N') , ?)	
	  and 	 (CASE WHEN B02MC.IS_WRONG IS NULL THEN 'N' ELSE 'Y' END  ) = ?    --增加字段是否发送异常by pbs20161219,点击发送后异常的话再次查询屏蔽发送异常的质保书
	  ORDER BY B02MC.CRET_NO
	]]>
</query>

<query id="UIB030320_HOST_HEAD.SELECT">
    SELECT      XB_PACKAGE.GF_CUSTOMER_FIND(T1.CUST_CD)      CUST_CD            -- 订货单位
			   ,XB_PACKAGE.GF_CUSTOMER_FIND(T1.ORDCUST_CD)   ORDCUST_CD         -- 收货单位
			   ,T1.ORD_NO                                                       -- 合同号
			   ,T1.PRDNM_CD														--交货状态
			   ,NVL(T3.DDC_STL_GRD,T1.SPEC_STL_GRD) SPEC_STL_GRD     --T1.SPEC_STL_GRD 牌号
			   ,NVL(T3.BUY_ABBSYM ,T1.SPEC_ABBSYM)  SPEC_ABBSYM												-- 标准
	           ,NVL(T3.PRODUCT_LX,DECODE(T1.ORD_USE_ALIAS, NULL , PKG_QUALITY_COMM.FIB040000('A01007' , T1.ORD_USE_TP , 'Z') , PKG_QUALITY_COMM.FIB040000('A02003' , T1.ORD_USE_ALIAS , 'Z')))   ORD_USE       -- 产品名称
	           ,DECODE(T1.ORD_USE_ALIAS, NULL , PKG_QUALITY_COMM.FIB040000('A01007' , T1.ORD_USE_TP , 'E') , PKG_QUALITY_COMM.FIB040000('A02003' , T1.ORD_USE_ALIAS , 'E'))   ORD_USE_EN    -- 产品名称
			   ,T1.SHIP_DIRNO                                                   -- 发行指示编号
			   ,T1.CRET_NO                                                      -- 证明书编号
		       ,TO_CHAR(SYSDATE , 'YYYY-MM-DD HH24:MI')   CRET_NO_DTIME         -- 签发日期
			   ,TO_CHAR(TO_DATE(SUBSTR(T2.SHIP_DIR_DTIME,1,8), 'YYYYMMDD'),'YYYY-MM-DD') SHIP_DIR_DTIME  -- 发货日期
			   ,NVL(XB_PACKAGE.GF_USER_FIND(T1.CRET_PRINT_ID),' ')                       USERID
			   ,T1.INV_NO	                                                    --明细号
	  	       ,''  LICENSENO
	  	       ,T2.CAR_GP
	  	       ,TJ.COIL_SUM_CNT
	  	       ,TJ.COIL_SUM_WGT
	  	       ,T1.PRDNM_CD
               ,T2.CAR_GP
               ,T1.CRET_NO_RMK
               ,T1.PIC1
               ,T1.PIC2
               ,T1.PIC3
               ,T1.CRET_DESC
    FROM        TBB02_MS_COM   T1  ,  TBB02_MS_COIL  T2 , TBA01_ORD_LINE T3,  (SELECT      T.CRET_NO 
										                               ,TO_CHAR(SUM(T.COIL_WGT)/1000 , 'FM9999.000')   COIL_SUM_WGT 
										                               ,TO_CHAR(COUNT(1))                              COIL_SUM_CNT 
										                     FROM       TBB02_MS_COIL         T 
										                     WHERE      T.CRET_NO             =     ? 
										                     GROUP BY   T.CRET_NO )  TJ
    WHERE       T1.CRET_NO         =     T2.CRET_NO 
    AND         T1.CRET_NO         =     TJ.CRET_NO
     AND 		T1.ORD_NO		   =	T3.ORD_NO
    AND 		T1.ORD_SEQ         =	T3.ORD_SEQ
    AND         ROWNUM             =     1
</query>

<query id="UIB030320_HOST_CHEM.SELECT">
	  SELECT 	DISTINCT
	   A.OLD_SAMPL_NO	ROW_FLAG  				--在DataRowList用于区分，必须
      ,A.OLD_SAMPL_NO   COIL_NO
      ,DECODE( UPPER(C.COMP_DETAIL) , 'CE' , 'CE' , 'PCM' , 'PCM' , 'CEV' , 'CEV' , 'CEQ' , 'CEQ',  C.CHEM_CD) 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
      ,SUBSTR(F.SLAB_NO,1,10) CHARGE_NO   --A.CHARGE_NO
      ,NVL(T1.SPEC_STL_GRD,D.SPEC_STL_GRD) SPEC_STL_GRD
      ,A.COIL_THK
      ,A.COIL_WTH
      ,A.COIL_LEN
      ,TO_CHAR(A.COIL_WGT/1000)    COIL_WGT
      ,'L' PROC_TP
      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,TBA01_ORD_LINE T1
      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 D.ORD_NO = T1.ORD_NO
      AND D.ORD_SEQ =T1.ORD_SEQ
      AND E.CHEM_CD = B.CHEM_CD
      AND (E.CHEM_DEC_CD IS NULL OR E.CHEM_DEC_CD = 'B')
      ORDER BY A.OLD_SAMPL_NO , C.COMP_YN, C.DISPLAY_SEQ
</query>

<query id="UIB030320_HOST_QLTY.SELECT">
<![CDATA[
	SELECT      MCOL.OLD_SAMPL_NO             ROW_FLAG			--在DataRowList用于区分，必须
	           ,MCOL.OLD_SAMPL_NO             COIL_NO
	           ,ORDY.QLTY_CD
	           ,(CASE  WHEN WORY.QLTY_VAL_WK = 1  AND WORY.QLTY_UNIT_WK = 'Y'  THEN (CASE WHEN MCOM.TMPL_NO = 'BE0001' THEN 'OK' ELSE '合格' END) ELSE  (CASE WHEN WORY.QLTY_VAL_WK < 1 THEN '0' ELSE '' END)||TO_CHAR(WORY.QLTY_VAL_WK)  END )    QLTY_VAL_WK
	           ,RQLY.QLTY_VAL_WK             QLTY_SEQ_VAL          --针对冲击等项目
	          -- ,DECODE(SUBSTR(MCOM.TMPL_NO , 2,1) , 'E' , MSCD.MS_SMALL_EFNM , MSCD.MS_SMALL_CFNM )          SMALL_NAME
	          -- ,DECODE(SUBSTR(MCOM.TMPL_NO , 2,1) , 'E' , MSCD.MS_BIG_EFNM   , MSCD.MS_BIG_CFNM   )          BIG_NAME	         
              ,DECODE(SUBSTR(ORDY.QLTY_CD, 1, 2),
              'CB',
              DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_SMALL_EFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD),
                     MSCD.MS_SMALL_CFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD)),
              DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_SMALL_EFNM,
                     MSCD.MS_SMALL_CFNM)) SMALL_NAME --CB项目取标准数据备注加上质保书编码内容 同时注意中英文模板
       		,DECODE(SUBSTR(ORDY.QLTY_CD, 1, 2),
              'CB',
              DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_BIG_EFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD),
                     MSCD.MS_BIG_CFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD)),
              DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_BIG_EFNM,
                     MSCD.MS_BIG_CFNM)) BIG_NAME            
	           ,MSCD.MS_EXT_CODE             --补充码 
	           ,DECODE(SUBSTR(MCOM.TMPL_NO , 2,1) , 'E' , 'E' , 'Z')   ZE_TP
	           ,MSCD.MS_QLTY_DIR                           --方向，必须放在QLTY_SEQ前面
	           ,MSCD.MS_QLTY_TEM                           --温度，必须放在QLTY_SEQ前面
	           ,ORDY.QLTY_SIZE       MS_QLTY_SIZE          --尺寸，必须放在QLTY_SEQ前面
	           ,SUBSTR(RQLY.QLTY_SEQ , 2)    QLTY_SEQ
	           ,MCOL.SAMPL_CUT_LOC           SMP_CUT_LOC
	           ,MCOM.PRDNM_CD              
	           ,MSCD.DISPLAY_SEQ
	FROM        TBB02_MS_COM           MCOM  
	           ,TBH02_COIL_COMM        MCOL  
	           ,TBB02_WORK_QLTY        WORY
	           ,TBB02_REWORK_QLTY      RQLY
	           ,TBB02_MS_QLTYCD        MSCD
	           ,TBB01_ORD_QLTY         ORDY
	WHERE       MCOM.CRET_NO         	=      MCOL.CRET_NO
	AND         MCOL.SAMPL_NO           =      WORY.SMP_NO
    AND         MCOL.SAMPL_CUT_LOC      =      WORY.SMP_CUT_LOC
	AND         WORY.QLTY_CD         	=      MSCD.QLTY_CD
	AND         ORDY.ORD_NO          	=      MCOM.ORD_NO
	AND         ORDY.ORD_SEQ         	=      MCOM.ORD_SEQ
	AND         ORDY.DSN_KIND        	=      PKG_QUALITY_COMM.FIB010202(MCOM.ORD_NO , MCOM.ORD_SEQ)
	AND         ORDY.QLTY_CD         	=      MSCD.QLTY_CD
	AND         WORY.SMP_NO          	=      RQLY.SMP_NO(+)
	AND         WORY.SMP_CUT_LOC     	=      RQLY.SMP_CUT_LOC(+)
	AND         WORY.QLTY_CD         	=      RQLY.QLTY_CD(+)
	AND         SUBSTR(RQLY.QLTY_SEQ(+) , 1,1)  != 'B'
	AND        (ORDY.QLTY_DEC_CD IS NULL OR ORDY.QLTY_DEC_CD = 'B')
	AND         MCOM.CRET_NO         	=      ?
	ORDER BY    ROW_FLAG , MSCD.DISPLAY_SEQ , RQLY.QLTY_SEQ
		]]>
</query>

<!-- ****************************************开平质保书 ****************************************
*******************************************************************************************-->

<query id="UIB030320_BANJIA_01.SELECT" desc="查询信息">
<![CDATA[	
	SELECT   DISTINCT 
    '开平'                         PROD_LINE
   ,MC.TMPL_NO
   ,MC.SEND_TP                                                 --是否已发送
   ,MC.ACC_TP                  CRET_PRINT_TP                   --是否已审核
   ,MC.CRET_NO                                                 --质保书编号
   ,MC.INV_NO                                                  --明细号
   ,'' DLIV_DIRNO                                              --运送指示号
   ,MC.SHIP_DIRNO                                              --发货指示号
   ,MC.ORD_NO                                                  --合同号
   ,MC.ORD_SEQ                                                 --订单号
   ,MC.SPEC_STL_GRD                                            --钢号
   ,SQ_QD_COMMON.COMMCD_CDTOCFNM('A01007',MC.ORD_USE_TP)        ORD_USE_TP
   ,XB_PACKAGE.GF_CUSTOMER_FIND(MC.CUST_CD) CUST_CD            --订货单位
   ,XB_PACKAGE.GF_CUSTOMER_FIND(MC.ORDCUST_CD) ORDCUST_CD      -- 收货单位
   ,MP.CAR_GP                                                --车号
   ,NVL(XB_PACKAGE.GF_USER_FIND(MC.MOD_ID),' ')  CRET_PRINT_ID            --审核人
   ,AO.ORD_THK  INSTR_COIL_THK                       --规格
   ,MC.MOD_DTIME                            CRET_PRINT_DTIME                                        --审核时间
 --  ,'' TRNF_DTIME                                              --发货时间
 	,SUBSTR(MC.TRNF_DTIME,1,8)   TRNF_DTIME                 --发货日期
 --  ,PKG_QUALITY_COMM.FIB020200(MC.CRET_NO)       COIL_SUM_WGT  --总重量
 --  ,PKG_QUALITY_COMM.FIB020201(MC.CRET_NO)       COIL_SUM_CNT  --总块数
   ,AO.ORD_DEVLMT_DATE                                         --交货日期
   ,MP.CAR_GP
   ,MC.SPEC_ABBSYM
   ,AO.MK_CONTENT   CRET_NO_RMK
   --,MC.CRET_NO_RMK
   ,MC.PRINT_CNT
   ,MC.PRINT_ID
   ,MC.PRINT_DTIME
    FROM     
    TBB03_MS_COM             MC
   ,TBB03_MS_PAKG            MP
   ,TBA01_ORD_LINE           AO
    WHERE   MC.CRET_NO               =          MP.CRET_NO
    AND    AO.ORD_NO                 =          MC.ORD_NO
    AND    AO.ORD_SEQ                =          MC.ORD_SEQ
    AND    MC.USED_TP                =          'Y' 
    AND    NVL(MC.ORD_NO,' ') LIKE ?||'%'  
    AND    NVL(MC.ACC_TP,'N') LIKE  ?||'%'
    AND    NVL(SUBSTR(MC.CRET_NO_DTIME,1,8),'00000101') >= NVL(?,'00000101')
    AND    NVL(SUBSTR(MC.CRET_NO_DTIME,1,8),'99991231') <= NVL(?,'99991231')
    AND    NVL(MP.CAR_GP,' ')    LIKE ?||'%'
    AND    NVL(MC.SHIP_DIRNO,' ') LIKE ?||'%'
    AND    NVL(MC.INV_NO,' ')     LIKE ?||'%'  
    AND    NVL(MC.SPEC_STL_GRD , ' ') LIKE   ?||'%'
    AND    NVL(MC.SEND_TP,'N') = DECODE(? , 'ALL' , NVL(MC.SEND_TP,'N') , ?)  
    and 	 (CASE WHEN MC.IS_WRONG IS NULL THEN 'N' ELSE 'Y' END  ) = ?    --增加字段是否发送异常by pbs20161219,点击发送后异常的话再次查询屏蔽发送异常的质保书
    ORDER BY MC.CRET_NO

    	]]>
</query>

<query id="UIB030320_BANJIA_HEAD.SELECT" desc="表头">
<![CDATA[
		SELECT       XB_PACKAGE.GF_CUSTOMER_FIND(T1.CUST_CD)      CUST_CD            -- 订货单位
	         	    ,XB_PACKAGE.GF_CUSTOMER_FIND(T1.ORDCUST_CD)   ORDCUST_CD         -- 收货单位
	         		,T1.ORD_NO                                                       -- 合同号
	         		,T1.PRDNM_CD                            						--交货状态
	         		,T1.SPEC_STL_GRD   												-- 牌号
	         		,T1.SPEC_ABBSYM  												-- 标准	         		
	             	,DECODE(T1.ORD_USE_ALIAS, NULL , PKG_QUALITY_COMM.FIB040000('A01007' , T1.ORD_USE_TP , 'Z') , PKG_QUALITY_COMM.FIB040000('A02003' , T1.ORD_USE_ALIAS , 'Z'))   ORD_USE      -- 产品名称
	             	,DECODE(T1.ORD_USE_ALIAS, NULL , PKG_QUALITY_COMM.FIB040000('A01007' , T1.ORD_USE_TP , 'E') , PKG_QUALITY_COMM.FIB040000('A02003' , T1.ORD_USE_ALIAS , 'E'))   ORD_USE_EN   -- 产品名称
	         		,T1.SHIP_DIRNO                                                   -- 发行指示编号
	         		,T1.CRET_NO                                                      -- 证明书编号
	           		,TO_CHAR(SYSDATE , 'YYYY-MM-DD HH24:MI')   CRET_NO_DTIME         -- 签发日期
	         		,TO_CHAR(TO_DATE(SUBSTR(T1.TRNF_DTIME,1,8), 'YYYYMMDD'),'YYYY-MM-DD') SHIP_DIR_DTIME  -- 发货日期
	         		,NVL(XB_PACKAGE.GF_USER_FIND(T1.MOD_ID),' ')                       USERID
	         		,T1.INV_NO                                                      --明细号
	             	,''  LICENSENO
	             	,T2.CAR_GP
	             	,TJ.COIL_SUM_CNT
	             	,TJ.COIL_SUM_WGT
	             	,T1.PRDNM_CD
	               	,T2.CAR_GP
	               	,T1.CRET_NO_RMK
	               	,T1.PIC1
	               	,T1.PIC2
	               	,T1.PIC3
	               	,T1.CRET_DESC
	    FROM         TBB03_MS_COM   T1  ,  TBB03_MS_PAKG  T2 ,  (SELECT      T.CRET_NO 
	                                                   			,TO_CHAR(SUM(T.PAKG_ACT_WGT)/1000 , 'FM9999.000')   COIL_SUM_WGT 
	                                                   			,TO_CHAR(COUNT(1))                                  COIL_SUM_CNT 
	                                         				     FROM       TBB03_MS_PAKG         T 
						                                         WHERE      T.CRET_NO             =     ?
						                                         GROUP BY   T.CRET_NO )  TJ
	    WHERE       T1.CRET_NO         =     T2.CRET_NO 
	    AND         T1.CRET_NO         =     TJ.CRET_NO
	    AND         ROWNUM             =     1
     ]]>
</query>

<query id="UIB030320_BANJIA_CHEM.SELECT" desc="成分">
<![CDATA[
    SELECT             PAK.COIL_PAKG_NO                 ROW_FLAG      --在DataRowList用于区分，必须
                      ,PAK.COIL_PAKG_NO
                      ,SUBSTR(PAK.COIL_NO , 1,10)       COIL_NO
                      ,SEQ.COMP_YN                         --必须参数，在DataRowList中用于区分成分信息与钢卷其它信息，
	                  ,PAK.CHARGE_NO 
                 	  ,DECODE( UPPER(SEQ.COMP_DETAIL) , 'CE' , 'CE' , 'PCM' , 'PCM' , 'CEV' , 'CEV' , 'CEQ' , 'CEQ',  SEQ.CHEM_CD) CHEM_CD
					  ,WOR.CHEM_VAL 
					  ,MCOM.SPEC_STL_GRD
			          ,PAK.PAKG_THK
			          ,PAK.PAKG_WTH
			          ,PAK.PAKG_LEN
			          ,TO_CHAR(PAK.PAKG_ACT_WGT/1000 , 'FM99.000')     PAKG_ACT_WGT
			          ,PAK.PAKG_NUM
	FROM               TBB03_MS_PAKG         PAK 
					  ,TBB02_WORK_INGR       WOR 
					  ,TBB01_SEQ_INGR        SEQ 
					  ,TBB01_ORD_INGR        ORD 
					  ,TBB03_MS_COM          MCOM
	WHERE              PAK.CRET_NO           =       ?
	AND                PAK.CRET_NO           =       MCOM.CRET_NO
	AND                WOR.CHARGE_NO         =       PAK.CHARGE_NO
	AND                WOR.PROC_CD           =       PAK.PROC_CD
	AND                WOR.CHEM_SEQ          =       PAK.CHEM_SEQ
	AND                WOR.CHEM_CD           =       SEQ.CHEM_CD
	AND                WOR.CHEM_CD           =       ORD.CHEM_CD
	AND                ORD.DSN_KIND          =       '2'  --DECODE(PKG_QUALITY_COMM.FIB010201(MCOM.ORD_NO , MCOM.ORD_SEQ) , '1' , '3' , '2')
	AND                ORD.ORD_NO            =       MCOM.ORD_NO
	AND                ORD.ORD_SEQ           =       MCOM.ORD_SEQ
	AND               (ORD.CHEM_DEC_CD IS NULL OR ORD.CHEM_DEC_CD = 'B')
	ORDER BY           PAK.COIL_PAKG_NO , SEQ.COMP_YN , SEQ.DISPLAY_SEQ
	]]>
</query>
<query id="UIB030320_BANJIA_CHEM_KF.SELECT" desc="成分">
<![CDATA[
   SELECT PAK.COIL_PAKG_NO ROW_FLAG --在DataRowList用于区分，必须
      ,
      PAK.COIL_NO COIL_NO,
       SEQ.COMP_YN --必须参数，在DataRowList中用于区分成分信息与钢卷其它信息，
      ,
       PAK.CHARGE_NO,
       DECODE(UPPER(SEQ.COMP_DETAIL),
              'CE',
              'CE',
              'PCM',
              'PCM',
              'CEV',
              'CEV',
              'CEQ',
              'CEQ',
              SEQ.CHEM_CD) CHEM_CD,
       WOR.CHEM_VAL,
       MCOM.SPEC_STL_GRD,
       PAK.PAKG_THK COIL_THK,
       PAK.PAKG_WTH COIL_WTH,
       PAK.PAKG_LEN COIL_LEN,
       TO_CHAR(PAK.PAKG_ACT_WGT / 1000, 'FM99.000') COIL_WGT,
       PAK.PAKG_NUM
  FROM TBB03_MS_PAKG   PAK,
       TBB02_WORK_INGR WOR,
       TBB01_SEQ_INGR  SEQ,
       TBB01_ORD_INGR  ORD,
       TBB03_MS_COM    MCOM
 WHERE PAK.CRET_NO = ?
   AND PAK.CRET_NO = MCOM.CRET_NO
   AND WOR.CHARGE_NO = PAK.CHARGE_NO
   AND WOR.PROC_CD = PAK.PROC_CD
   AND WOR.CHEM_SEQ = PAK.CHEM_SEQ
   AND WOR.CHEM_CD = SEQ.CHEM_CD
   AND WOR.CHEM_CD = ORD.CHEM_CD
   AND ORD.DSN_KIND = '2' --DECODE(PKG_QUALITY_COMM.FIB010201(MCOM.ORD_NO , MCOM.ORD_SEQ) , '1' , '3' , '2')
   AND ORD.ORD_NO = MCOM.ORD_NO
   AND ORD.ORD_SEQ = MCOM.ORD_SEQ
   AND (ORD.CHEM_DEC_CD IS NULL OR ORD.CHEM_DEC_CD = 'B')
 ORDER BY PAK.COIL_PAKG_NO, SEQ.COMP_YN, SEQ.DISPLAY_SEQ
	]]>
</query>
<query id="UIB030320_BANJIA_QLTY.SELECT" desc="材质">
<![CDATA[
	SELECT      
	            MCOL.COIL_PAKG_NO                  ROW_FLAG      --在DataRowList用于区分，必须
               ,MCOL.COIL_PAKG_NO
               ,SUBSTR(MCOL.COIL_NO , 1,10)        COIL_NO
	           ,ORDY.QLTY_CD
	           ,(CASE  WHEN WORY.QLTY_VAL_WK = 1  AND WORY.QLTY_UNIT_WK = 'Y'  THEN (CASE WHEN MCOM.TMPL_NO = 'BE0001' THEN 'OK' ELSE '合格' END) ELSE  (CASE WHEN WORY.QLTY_VAL_WK < 1 THEN '0' ELSE '' END)||TO_CHAR(WORY.QLTY_VAL_WK)  END )    QLTY_VAL_WK
	           ,RQLY.QLTY_VAL_WK             QLTY_SEQ_VAL          --针对冲击等项目
	           --,DECODE(SUBSTR(MCOM.TMPL_NO , 2,1) , 'E' , MSCD.MS_SMALL_EFNM , MSCD.MS_SMALL_CFNM )          SMALL_NAME
	           --,DECODE(SUBSTR(MCOM.TMPL_NO , 2,1) , 'E' , MSCD.MS_BIG_EFNM   , MSCD.MS_BIG_CFNM   )          BIG_NAME
	           ,DECODE(SUBSTR(ORDY.QLTY_CD, 1, 2),
              'CB',
              DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_SMALL_EFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD),
                     MSCD.MS_SMALL_CFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD)),
              DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_SMALL_EFNM,
                     MSCD.MS_SMALL_CFNM)) SMALL_NAME --CB项目取标准数据备注加上质保书编码内容 同时注意中英文模板
       		,DECODE(SUBSTR(ORDY.QLTY_CD, 1, 2),
              'CB',
              DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_BIG_EFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD),
                     MSCD.MS_BIG_CFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD)),
              DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_BIG_EFNM,
                     MSCD.MS_BIG_CFNM)) BIG_NAME 
	           ,MSCD.MS_EXT_CODE             --补充码 
	           ,DECODE(SUBSTR(MCOM.TMPL_NO , 2,1) , 'E' , 'E' , 'Z')   ZE_TP
	           ,MSCD.MS_QLTY_DIR             --方向，必须放在QLTY_SEQ前面
	           ,MSCD.MS_QLTY_TEM             --温度，必须放在QLTY_SEQ前面
	           ,ORDY.QLTY_SIZE  MS_QLTY_SIZE             --尺寸，必须放在QLTY_SEQ前面
	           ,SUBSTR(RQLY.QLTY_SEQ , 2) QLTY_SEQ    --RQLY.QLTY_SEQ
	           ,MCOL.SMP_CUT_LOC
	           ,MCOM.PRDNM_CD              
	           ,MSCD.DISPLAY_SEQ
	FROM        TBB03_MS_COM           MCOM  
	           ,TBB03_MS_PAKG          MCOL  
	           ,TBB02_WORK_QLTY        WORY
	           ,TBB02_REWORK_QLTY      RQLY
	           ,TBB02_MS_QLTYCD        MSCD
	           ,TBB01_ORD_QLTY         ORDY
	WHERE       MCOM.CRET_NO           =      MCOL.CRET_NO
	AND         MCOL.SMP_NO            =      WORY.SMP_NO
	AND         MCOL.SMP_CUT_LOC       =      WORY.SMP_CUT_LOC
	AND         WORY.QLTY_CD           =      MSCD.QLTY_CD
	AND         ORDY.ORD_NO            =      MCOM.ORD_NO
	AND         ORDY.ORD_SEQ           =      MCOM.ORD_SEQ
	AND         ORDY.DSN_KIND          =      PKG_QUALITY_COMM.FIB010202(MCOM.ORD_NO , MCOM.ORD_SEQ)
	AND         ORDY.QLTY_CD           =      MSCD.QLTY_CD
	AND         WORY.SMP_NO            =      RQLY.SMP_NO(+)
	AND         WORY.SMP_CUT_LOC       =      RQLY.SMP_CUT_LOC(+)
	AND         WORY.QLTY_CD           =      RQLY.QLTY_CD(+)
	AND         SUBSTR(RQLY.QLTY_SEQ(+) , 1,1)  != 'B'
	AND        (ORDY.QLTY_DEC_CD IS NULL OR ORDY.QLTY_DEC_CD = 'B')
	AND         MCOM.CRET_NO           =      ?
	ORDER BY    ROW_FLAG , MSCD.DISPLAY_SEQ , RQLY.QLTY_SEQ
	]]>
</query>
<query id="UIB030320_BANJIA_QLTY_KF.SELECT" desc="材质">
<![CDATA[
	SELECT      
	            MCOL.COIL_PAKG_NO                  ROW_FLAG      --在DataRowList用于区分，必须
                ,MCOL.COIL_NO        COIL_NO
	           ,ORDY.QLTY_CD
	           ,(CASE  WHEN WORY.QLTY_VAL_WK = 1  AND WORY.QLTY_UNIT_WK = 'Y'  THEN (CASE WHEN MCOM.TMPL_NO = 'BE0001' THEN 'OK' ELSE '合格' END) ELSE  (CASE WHEN WORY.QLTY_VAL_WK < 1 THEN '0' ELSE '' END)||TO_CHAR(WORY.QLTY_VAL_WK)  END )    QLTY_VAL_WK
	           ,RQLY.QLTY_VAL_WK             QLTY_SEQ_VAL          --针对冲击等项目
	           --,DECODE(SUBSTR(MCOM.TMPL_NO , 2,1) , 'E' , MSCD.MS_SMALL_EFNM , MSCD.MS_SMALL_CFNM )          SMALL_NAME
	           --,DECODE(SUBSTR(MCOM.TMPL_NO , 2,1) , 'E' , MSCD.MS_BIG_EFNM   , MSCD.MS_BIG_CFNM   )          BIG_NAME
	           ,DECODE(SUBSTR(ORDY.QLTY_CD, 1, 2),
              'CB',
              DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_SMALL_EFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD),
                     MSCD.MS_SMALL_CFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD)),
              DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_SMALL_EFNM,
                     MSCD.MS_SMALL_CFNM)) SMALL_NAME --CB项目取标准数据备注加上质保书编码内容 同时注意中英文模板
       		,DECODE(SUBSTR(ORDY.QLTY_CD, 1, 2),
              'CB',
              DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_BIG_EFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD),
                     MSCD.MS_BIG_CFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD)),
              DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_BIG_EFNM,
                     MSCD.MS_BIG_CFNM)) BIG_NAME 
	           ,MSCD.MS_EXT_CODE             --补充码 
	           ,DECODE(SUBSTR(MCOM.TMPL_NO , 2,1) , 'E' , 'E' , 'Z')   ZE_TP
	           ,MSCD.MS_QLTY_DIR             --方向，必须放在QLTY_SEQ前面
	           ,MSCD.MS_QLTY_TEM             --温度，必须放在QLTY_SEQ前面
	           ,''  MS_QLTY_SIZE             --尺寸，必须放在QLTY_SEQ前面
	           ,RQLY.QLTY_SEQ
	           ,MCOL.SMP_CUT_LOC
	           ,MCOM.PRDNM_CD              
	           ,MSCD.DISPLAY_SEQ
	FROM        TBB03_MS_COM           MCOM  
	           ,TBB03_MS_PAKG          MCOL  
	           ,TBB02_WORK_QLTY        WORY
	           ,TBB02_REWORK_QLTY      RQLY
	           ,TBB02_MS_QLTYCD        MSCD
	           ,TBB01_ORD_QLTY         ORDY
	WHERE       MCOM.CRET_NO           =      MCOL.CRET_NO
	AND         MCOL.SMP_NO            =      WORY.SMP_NO
	AND         MCOL.SMP_CUT_LOC       =      WORY.SMP_CUT_LOC
	AND         WORY.QLTY_CD           =      MSCD.QLTY_CD
	AND         ORDY.ORD_NO            =      MCOM.ORD_NO
	AND         ORDY.ORD_SEQ           =      MCOM.ORD_SEQ
	AND         ORDY.DSN_KIND          =      PKG_QUALITY_COMM.FIB010202(MCOM.ORD_NO , MCOM.ORD_SEQ)
	AND         ORDY.QLTY_CD           =      MSCD.QLTY_CD
	AND         WORY.SMP_NO            =      RQLY.SMP_NO(+)
	AND         WORY.SMP_CUT_LOC       =      RQLY.SMP_CUT_LOC(+)
	AND         WORY.QLTY_CD           =      RQLY.QLTY_CD(+)
	AND         SUBSTR(RQLY.QLTY_SEQ(+) , 1,1)  != 'B'
	AND        (ORDY.QLTY_DEC_CD IS NULL OR ORDY.QLTY_DEC_CD = 'B')
	AND         MCOM.CRET_NO           =      ?
	ORDER BY    ROW_FLAG , MSCD.DISPLAY_SEQ , RQLY.QLTY_SEQ
	]]>
</query>
<!-- ****************************************酸轧质保书 ****************************************
*******************************************************************************************-->
<query id="UIB030320_SUAN_01.SELECT">
<![CDATA[
	SELECT   DISTINCT
    '酸轧'                         PROD_LINE
   ,T1.TMPL_NO
   ,CRET_PRINT_TP                                              --打印区分（审核区分）
   ,T1.SEND_TP                                                 --是否已发送
   ,T1.CRET_NO                                                 --质保书编号
   ,T1.INV_NO                                                  --明细号
   ,T2.DLIV_DIRNO                                              --运送指示号
   ,T1.SHIP_DIRNO                                              --发货指示号
   ,T1.ORD_NO                                                  --合同号
   ,T1.ORD_SEQ                                                 --订单号
   ,T1.SPEC_STL_GRD                                            --钢号
   ,SQ_QD_COMMON.COMMCD_CDTOCFNM('A01007',T1.ORD_USE_TP)        ORD_USE_TP
   ,XB_PACKAGE.GF_CUSTOMER_FIND(T1.CUST_CD) CUST_CD            --订货单位
   ,XB_PACKAGE.GF_CUSTOMER_FIND(T1.ORDCUST_CD) ORDCUST_CD      -- 收货单位
   ,T3.CAR_GP                                                  --车号
   ,T1.CRET_PRINT_ID                                           --审核人
   ,T4.ORD_THK             INSTR_COIL_THK                      --规格
   ,T1.CRET_PRINT_DTIME                                        --审核时间
--   ,T2.TRNF_DTIME                                              --发货时间
   ,SUBSTR(T3.SHIP_DIR_DTIME,1,8)   TRNF_DTIME             --发货日期
--   ,T5.COIL_SUM_WGT                                            --总重量
--   ,T5.COIL_SUM_CNT                                            --总块数
   ,T4.ORD_DEVLMT_DATE                                         --交货日期
   ,T3.CAR_GP
   ,T1.SPEC_ABBSYM
   ,T4.MK_CONTENT       CRET_NO_RMK
   ,T1.PRINT_CNT
   ,T1.PRINT_ID
   ,T1.PRINT_DTIME
--   ,T1.CRET_NO_RMK
    FROM   TBB02_MS_COM             T1
          ,C_TBL02_COIL_COMM        T2
          ,TBB02_MS_COIL            T3
          ,TBA01_ORD_LINE           T4
         -- ,(SELECT T.CRET_NO , TO_CHAR(SUM(T.COIL_WGT)) COIL_SUM_WGT , TO_CHAR(COUNT(1)) COIL_SUM_CNT FROM TBB02_MS_COIL T  GROUP BY T.CRET_NO)  T5
    WHERE  T1.CRET_NO               =                     T2.CRET_NO
    AND    T1.CRET_NO               =                     T3.CRET_NO
    AND    T4.ORD_NO                =                     T2.ORD_NO
    AND    T4.ORD_SEQ               =                     T2.ORD_SEQ
--    AND    T1.CRET_NO               =                     T5.CRET_NO
    AND    (T1.USED_TP      IS NULL OR T1.USED_TP = 'Y')
    AND    NVL(T1.ORD_NO,' ')           LIKE       ?||'%'
    AND    NVL(T1.CRET_PRINT_TP,'N')    LIKE       ?||'%'
    AND    NVL(SUBSTR(T1.CRET_NO_DTIME,1,8),'00000101') >= NVL(?,'00000101')
    AND    NVL(SUBSTR(T1.CRET_NO_DTIME,1,8),'99991231') <= NVL(?,'99991231')
    --AND    T1.CRET_NO_DTIME   BETWEEN  ?  AND  ?
    AND    NVL(T3.CAR_GP,' ')           LIKE       ?||'%'
    AND    NVL(T2.DLIV_DIRNO,' ')       LIKE       ?||'%'
    AND    NVL(T1.INV_NO,' ')           LIKE       ?||'%'
    AND    NVL(T1.SPEC_STL_GRD , ' ')   LIKE       ?||'%'
    AND    NVL(T1.SEND_TP,'N') = DECODE(? , 'ALL' , NVL(T1.SEND_TP,'N') , ?)
    and 	 (CASE WHEN T1.IS_WRONG IS NULL THEN 'N' ELSE 'Y' END  ) = ?    --增加字段是否发送异常by pbs20161219,点击发送后异常的话再次查询屏蔽发送异常的质保书
    ORDER BY T1.CRET_NO
    ]]>
</query>

<query id="UIB030320_SUAN_HEAD.SELECT">
<![CDATA[
    SELECT      DISTINCT
                XB_PACKAGE.GF_CUSTOMER_FIND(T1.CUST_CD)      CUST_CD            -- 订货单位
			   ,XB_PACKAGE.GF_CUSTOMER_FIND(T1.ORDCUST_CD)   ORDCUST_CD         -- 收货单位
			   ,T1.ORD_NO                                                       -- 合同号
			   ,T1.PRDNM_CD														--交货状态
			   ,NVL(T3.DDC_STL_GRD,T1.SPEC_STL_GRD) SPEC_STL_GRD--,T1.SPEC_STL_GRD   												-- 牌号
			   ,NVL(T3.BUY_ABBSYM ,T1.SPEC_ABBSYM)  SPEC_ABBSYM	  												-- 标准
	           ,NVL(T3.PRODUCT_LX,DECODE(T1.ORD_USE_ALIAS, NULL , PKG_QUALITY_COMM.FIB040000('A01007' , T1.ORD_USE_TP , 'Z') , PKG_QUALITY_COMM.FIB040000('A02003' , T1.ORD_USE_ALIAS , 'Z')))   ORD_USE       -- 产品名称
	           ,DECODE(T1.ORD_USE_ALIAS, NULL , PKG_QUALITY_COMM.FIB040000('A01007' , T1.ORD_USE_TP , 'E') , PKG_QUALITY_COMM.FIB040000('A02003' , T1.ORD_USE_ALIAS , 'E'))   ORD_USE_EN    -- 产品名称
			   ,T1.SHIP_DIRNO                                                   -- 发行指示编号
			   ,T1.CRET_NO                                                      -- 证明书编号
		       ,TO_CHAR(SYSDATE , 'YYYY-MM-DD HH24:MI')   CRET_NO_DTIME         -- 签发日期
			   ,TO_CHAR(TO_DATE(SUBSTR(T2.SHIP_DIR_DTIME,1,8), 'YYYYMMDD'),'YYYY-MM-DD') SHIP_DIR_DTIME  -- 发货日期
			   ,NVL(XB_PACKAGE.GF_USER_FIND(T1.CRET_PRINT_ID),' ')                       USERID
			   ,T1.INV_NO	                                                    --明细号
	  	       ,''  LICENSENO
	  	       ,T2.CAR_GP
	  	       ,TJ.COIL_SUM_CNT
	  	       ,TJ.COIL_SUM_WGT
	  	       ,T1.PRDNM_CD
               ,T2.CAR_GP
               ,T1.CRET_NO_RMK
               ,T1.PIC1
               ,T1.PIC2
               ,T1.PIC3
               ,T1.CRET_DESC
    FROM        TBB02_MS_COM   T1  ,  TBB02_MS_COIL  T2 , TBA01_ORD_LINE T3, (SELECT      T.CRET_NO 
										                               ,TO_CHAR(SUM(T.COIL_WGT)/1000 , 'FM9999.000')   COIL_SUM_WGT 
										                               ,TO_CHAR(COUNT(1))                              COIL_SUM_CNT 
										                     FROM       TBB02_MS_COIL         T 
										                     WHERE      T.CRET_NO             =     ? 
										                     GROUP BY   T.CRET_NO )  TJ
    WHERE       T1.CRET_NO         =     T2.CRET_NO 
    AND         T1.CRET_NO         =     TJ.CRET_NO
    AND 		T1.ORD_NO		   =	T3.ORD_NO
    AND 		T1.ORD_SEQ         =	T3.ORD_SEQ
    AND         ROWNUM             =     1
	    ]]>
</query>

<query id="UIB030320_SUAN_CHEM.SELECT" desc="成分">
<![CDATA[
	  SELECT             T1.COIL_NO      ROW_FLAG			-- 必须，DataRowList用于区分主键
	              	    ,T1.COIL_NO
	                    ,DECODE( UPPER(T3.COMP_DETAIL) , 'CE' , 'CE' , 'PCM' , 'PCM' , 'CEV' , 'CEV' , 'CEQ' , 'CEQ',  T3.CHEM_CD) CHEM_CD
	                  	,T2.CHEM_VAL 
	                  	,T3.COMP_YN                         --必须参数，在DataRowList中用于区分成分信息与钢卷其它信息，
	                  	,NVL(T6.DDC_STL_GRD,T5.SPEC_STL_GRD) SPEC_STL_GRD 
	                    ,T1.COIL_THK
	                    ,T1.COIL_WTH
	                    ,T1.COIL_LEN
	                    ,TO_CHAR(T1.COIL_WGT/1000)   COIL_WGT
	                    ,'L'    PROC_TP
	                    ,T1.CHARGE_NO 
	    FROM       
	    TBB02_MS_COIL      T1 
	   ,TBB02_WORK_INGR    T2 
	   ,TBB01_SEQ_INGR     T3 
	   ,TBB01_ORD_INGR     T4 
	   ,TBB02_MS_COM       T5
	   ,tba01_ord_line		T6
	    WHERE              T1.CRET_NO           =       ?
	    AND                T1.CRET_NO           =       T5.CRET_NO
	    AND                T2.CHARGE_NO         =       T1.CHARGE_NO
	    AND                T2.PROC_CD           =       T1.PROC_CD
	    AND                T2.CHEM_SEQ          =       T1.CHEM_SEQ
	    AND                T2.CHEM_CD           =       T3.CHEM_CD
	    AND                T2.CHEM_CD           =       T4.CHEM_CD
	    AND                T4.DSN_KIND          =       '2' 
	    AND                T4.ORD_NO            =       T5.ORD_NO
	    AND                T4.ORD_SEQ           =       T5.ORD_SEQ
	    AND                T4.ORD_NO            =       T6.ORD_NO
	    AND                T4.ORD_SEQ           =       T6.ORD_SEQ
	    ORDER BY           T1.COIL_NO , T3.COMP_YN , T3.DISPLAY_SEQ
]]>	  
</query>

<query id="UIB030320_SUAN_QLTY.SELECT" desc="材质">
<![CDATA[
	  SELECT      MCOL.COIL_NO                  ROW_FLAG      		 --在DataRowList用于区分，必须
	             ,MCOL.COIL_NO
	             ,ORDY.QLTY_CD
	             ,(CASE  WHEN WORY.QLTY_VAL_WK = 1  AND WORY.QLTY_UNIT_WK = 'Y'  THEN (CASE WHEN MCOM.TMPL_NO = 'BE0001' THEN 'OK' ELSE '合格' END) ELSE  (CASE WHEN WORY.QLTY_VAL_WK < 1 THEN '0' ELSE '' END)||TO_CHAR(WORY.QLTY_VAL_WK)  END )    QLTY_VAL_WK
	             ,RQLY.QLTY_VAL_WK             QLTY_SEQ_VAL          --针对冲击等项目
	             --,DECODE(SUBSTR(MCOM.TMPL_NO , 2,1) , 'E' , MSCD.MS_SMALL_EFNM , MSCD.MS_SMALL_CFNM )          SMALL_NAME
	             --,DECODE(SUBSTR(MCOM.TMPL_NO , 2,1) , 'E' , MSCD.MS_BIG_EFNM   , MSCD.MS_BIG_CFNM   )          BIG_NAME
	             ,DECODE(SUBSTR(ORDY.QLTY_CD, 1, 2),
              		'CB',
                     DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_SMALL_EFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD),
                     MSCD.MS_SMALL_CFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD)),
                   DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_SMALL_EFNM,
                     MSCD.MS_SMALL_CFNM)) SMALL_NAME --CB项目取标准数据备注加上质保书编码内容 同时注意中英文模板
       		   ,DECODE(SUBSTR(ORDY.QLTY_CD, 1, 2),
                   'CB',
                   DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                   MSCD.MS_BIG_EFNM ||
                   PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD),
                   MSCD.MS_BIG_CFNM ||
                   PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD)),
               DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_BIG_EFNM,
                     MSCD.MS_BIG_CFNM)) BIG_NAME 
	             ,MSCD.MS_EXT_CODE             						 --补充码 
	             ,DECODE(SUBSTR(MCOM.TMPL_NO , 2,1) , 'E' , 'E' , 'Z')   ZE_TP
	             ,MSCD.MS_QLTY_DIR             						 --方向，必须放在QLTY_SEQ前面
	             ,MSCD.MS_QLTY_TEM                                   --温度，必须放在QLTY_SEQ前面
	             ,ORDY.QLTY_SIZE       MS_QLTY_SIZE                  --尺寸，必须放在QLTY_SEQ前面
	             ,RQLY.QLTY_SEQ
	             ,MCOL.SMP_CUT_LOC
	             ,MCOM.PRDNM_CD              
	             ,MSCD.DISPLAY_SEQ
	  FROM        TBB02_MS_COM           MCOM  
	             ,TBB02_MS_COIL          MCOL  
	             ,TBB02_WORK_QLTY        WORY
	             ,TBB02_REWORK_QLTY      RQLY
	             ,TBB02_MS_QLTYCD        MSCD
	             ,TBB01_ORD_QLTY         ORDY
	  WHERE       MCOM.CRET_NO           =      MCOL.CRET_NO
	  AND         MCOL.SMP_NO            =      WORY.SMP_NO
	  AND         MCOL.SMP_CUT_LOC       =      WORY.SMP_CUT_LOC
	  AND         WORY.QLTY_CD           =      MSCD.QLTY_CD
	  AND         ORDY.ORD_NO            =      MCOM.ORD_NO
	  AND         ORDY.ORD_SEQ           =      MCOM.ORD_SEQ
	  AND         ORDY.DSN_KIND          =      PKG_QUALITY_COMM.FIB010202(MCOM.ORD_NO , MCOM.ORD_SEQ)
	  AND         ORDY.QLTY_CD           =      MSCD.QLTY_CD
	  AND         WORY.SMP_NO            =      RQLY.SMP_NO(+)
	  AND         WORY.SMP_CUT_LOC       =      RQLY.SMP_CUT_LOC(+)
	  AND         WORY.QLTY_CD           =      RQLY.QLTY_CD(+)
	  AND         ORDY.QLTY_DEC_CD IS NULL
	  AND         SUBSTR(RQLY.QLTY_SEQ(+) , 1,1)  != 'B'
	  AND         MCOM.CRET_NO           =      ?
	  ORDER BY    ROW_FLAG , MSCD.DISPLAY_SEQ , RQLY.QLTY_SEQ
]]>	  
</query>

<!--**************************************** 连退质保书****************************************
******************************************************************************************-->
<query id="UIB030320_LIAN_01.SELECT">
<![CDATA[
	SELECT   DISTINCT
    '连退'        PROD_LINE
   ,T1.TMPL_NO
   ,CRET_PRINT_TP                                              --打印区分（审核区分）
   ,T1.SEND_TP                                                 --是否已发送
   ,T1.CRET_NO                                                 --质保书编号
   ,T1.INV_NO                                                  --明细号
   ,T2.DLIV_DIRNO                                              --运送指示号
   ,T1.SHIP_DIRNO                                              --发货指示号
   ,T1.ORD_NO                                                  --合同号
   ,T1.ORD_SEQ                                                 --订单号
   ,T1.SPEC_STL_GRD                                            --钢号
   ,SQ_QD_COMMON.COMMCD_CDTOCFNM('A01007',T1.ORD_USE_TP)        ORD_USE_TP
   ,XB_PACKAGE.GF_CUSTOMER_FIND(T1.CUST_CD) CUST_CD            --订货单位
   ,XB_PACKAGE.GF_CUSTOMER_FIND(T1.ORDCUST_CD) ORDCUST_CD      -- 收货单位
   ,T3.CAR_GP                                                  --车号
   ,T1.CRET_PRINT_ID                                           --审核人
   ,T2.INSTR_COIL_THK                                   --规格
   ,T1.CRET_PRINT_DTIME                                        --审核时间
   --,T2.TRNF_DTIME                                              --发货时间
   ,SUBSTR(T3.SHIP_DIR_DTIME,1,8)   TRNF_DTIME                 --发货日期
   ,T3.CAR_GP
   ,T1.SPEC_ABBSYM
   ,T1.PRINT_CNT
   ,T1.PRINT_ID
   ,T1.PRINT_DTIME
    FROM   TBB02_MS_COM             T1
          ,C_TBC02_COIL_COMM        T2
          ,TBB02_MS_COIL            T3
    WHERE  T1.CRET_NO               =                     T2.CRET_NO
    AND    T1.CRET_NO               =                     T3.CRET_NO
    AND    (T1.USED_TP      IS NULL OR T1.USED_TP = 'Y')
    AND    NVL(T1.ORD_NO,' ')           LIKE       ?||'%'
    AND    NVL(T1.CRET_PRINT_TP,'N')    LIKE       ?||'%'
    AND    NVL(SUBSTR(T1.CRET_NO_DTIME,1,8),'00000101') >= NVL(?,'00000101')
    AND    NVL(SUBSTR(T1.CRET_NO_DTIME,1,8),'99991231') <= NVL(?,'99991231')
    --AND    T1.CRET_NO_DTIME   BETWEEN  ?  AND  ?
    AND    NVL(T3.CAR_GP,' ')           LIKE       ?||'%'
    AND    NVL(T2.DLIV_DIRNO,' ')       LIKE       ?||'%'
    AND    NVL(T1.INV_NO,' ')           LIKE       ?||'%'
    AND    NVL(T1.SPEC_STL_GRD , ' ')   LIKE       ?||'%'
    AND    NVL(T1.SEND_TP,'N') = DECODE(? , 'ALL' , NVL(T1.SEND_TP,'N') , ?)
    and 	 (CASE WHEN T1.IS_WRONG IS NULL THEN 'N' ELSE 'Y' END  ) = ?    --增加字段是否发送异常by pbs20161219,点击发送后异常的话再次查询屏蔽发送异常的质保书
    ORDER BY T1.CRET_NO
    ]]>
</query>


<query id="UIB030320_LIAN_HEAD.SELECT">
<![CDATA[
    SELECT      XB_PACKAGE.GF_CUSTOMER_FIND(T1.CUST_CD)      CUST_CD            -- 订货单位
			   ,XB_PACKAGE.GF_CUSTOMER_FIND(T1.ORDCUST_CD)   ORDCUST_CD         -- 收货单位
			   ,T1.ORD_NO                                                       -- 合同号
			   ,T1.PRDNM_CD														--交货状态
			   ,NVL(T3.DDC_STL_GRD,T1.SPEC_STL_GRD) SPEC_STL_GRD --,T1.SPEC_STL_GRD   												-- 牌号
			   ,(case when o.PRD_TY = 'LT' and d.C_WTH_ACCURACY is not null and d.C_ROUGHNESS_ACCUR is not null  then NVL(T3.BUY_ABBSYM,T1.SPEC_ABBSYM) || ';' || o.C_EXTSHAPE_REQ || '-'|| d.C_WTH_ACCURACY || '-'|| d.C_PLY_ACCURACY || '-'||d.C_ROUGHNESS_ACCUR
			   when o.PRD_TY = 'LT' and d.C_WTH_ACCURACY is not null and d.C_ROUGHNESS_ACCUR is null  then NVL(T3.BUY_ABBSYM,T1.SPEC_ABBSYM) || ';' || o.C_EXTSHAPE_REQ || '-'|| d.C_WTH_ACCURACY || '-'|| d.C_PLY_ACCURACY  
         		else NVL(T3.BUY_ABBSYM,T1.SPEC_ABBSYM)  end)  SPEC_ABBSYM -- 标准
	           ,NVL(T3.PRODUCT_LX,DECODE(T1.ORD_USE_ALIAS, NULL , PKG_QUALITY_COMM.FIB040000('A01007' , T1.ORD_USE_TP , 'Z') , PKG_QUALITY_COMM.FIB040000('A02003' , T1.ORD_USE_ALIAS , 'Z')))   ORD_USE       -- 产品名称
	           ,DECODE(T1.ORD_USE_ALIAS, NULL , PKG_QUALITY_COMM.FIB040000('A01007' , T1.ORD_USE_TP , 'E') , PKG_QUALITY_COMM.FIB040000('A02003' , T1.ORD_USE_ALIAS , 'E'))   ORD_USE_EN    -- 产品名称
			   ,T1.SHIP_DIRNO                                                   -- 发行指示编号
			   ,T1.CRET_NO                                                      -- 证明书编号
		       ,TO_CHAR(SYSDATE , 'YYYY-MM-DD HH24:MI')   CRET_NO_DTIME         -- 签发日期
			   ,TO_CHAR(TO_DATE(SUBSTR(T2.SHIP_DIR_DTIME,1,8), 'YYYYMMDD'),'YYYY-MM-DD') SHIP_DIR_DTIME  -- 发货日期
			   ,NVL(XB_PACKAGE.GF_USER_FIND(T1.CRET_PRINT_ID),' ')                       USERID
			   ,T1.INV_NO	                                                    --明细号
	  	       ,''  LICENSENO
	  	       ,T2.CAR_GP
	  	       ,TJ.COIL_SUM_CNT
	  	       ,TJ.COIL_SUM_WGT
	  	       ,T1.PRDNM_CD
               ,T2.CAR_GP
               ,T1.CRET_NO_RMK
               ,T1.PIC1
               ,T1.PIC2
               ,T1.PIC3
               ,T1.CRET_DESC
    FROM        TBB02_MS_COM   T1  ,TBA01_ORD_LINE T3,tbb01_ord_del d,TBE02_ORD_PRC o,  TBB02_MS_COIL  T2 ,  (SELECT      T.CRET_NO 
										                               ,TO_CHAR(SUM(T.COIL_WGT)/1000 , 'FM9999.000')   COIL_SUM_WGT 
										                               ,TO_CHAR(COUNT(1))                              COIL_SUM_CNT 
										                     FROM       TBB02_MS_COIL         T 
										                     WHERE      T.CRET_NO             =     ? 
										                     GROUP BY   T.CRET_NO )  TJ
    WHERE       T1.CRET_NO         =     T2.CRET_NO 
    AND         T1.CRET_NO         =     TJ.CRET_NO
    and T1.ORD_NO = d.ORD_NO
    and T1.ORD_SEQ = d.ORD_SEQ
    and T1.ORD_NO = o.ORD_NO
    and T1.ORD_SEQ = o.ORD_SEQ
    AND T1.ORD_NO=T3.ORD_NO
    AND T1.ORD_SEQ=T3.ORD_SEQ
    and d.DSN_KIND = '4'
    AND         ROWNUM             =     1
	    ]]>
</query>

<query id="UIB030320_LIAN_CHEM.SELECT" desc="成分">
<![CDATA[
	  SELECT             T1.COIL_NO      ROW_FLAG			-- 必须，DataRowList用于区分主键
	              	    ,T1.COIL_NO
	                    ,DECODE( UPPER(T3.COMP_DETAIL) , 'CE' , 'CE' , 'PCM' , 'PCM' , 'CEV' , 'CEV' , 'CEQ' , 'CEQ',  T3.CHEM_CD) CHEM_CD
	                  	,T2.CHEM_VAL 
	                  	,T3.COMP_YN                         --必须参数，在DataRowList中用于区分成分信息与钢卷其它信息，
	                  	,NVL(T6.DDC_STL_GRD,T5.SPEC_STL_GRD) SPEC_STL_GRD 
	                    ,T1.COIL_THK
	                    ,T1.COIL_WTH
	                    ,T1.COIL_LEN*1000
	                    ,TO_CHAR(T1.COIL_WGT/1000)   COIL_WGT
	                    ,'L'    PROC_TP
	                    ,T1.CHARGE_NO 
	    FROM       
	    TBB02_MS_COIL      T1 
	   ,TBB02_WORK_INGR    T2 
	   ,TBB01_SEQ_INGR     T3 
	   ,TBB01_ORD_INGR     T4 
	   ,TBB02_MS_COM       T5
	   ,TBA01_ORD_LINE 		T6
	    WHERE              T1.CRET_NO           =       ?
	    AND                T1.CRET_NO           =       T5.CRET_NO
	    AND                T2.CHARGE_NO         =       T1.CHARGE_NO
	    AND                T2.PROC_CD           =       T1.PROC_CD
	    AND                T2.CHEM_SEQ          =       T1.CHEM_SEQ
	    AND                T2.CHEM_CD           =       T3.CHEM_CD
	    AND                T2.CHEM_CD           =       T4.CHEM_CD
	    AND                T4.DSN_KIND          =       '2' 
	    AND                T4.ORD_NO            =       T5.ORD_NO
	    AND                T4.ORD_SEQ           =       T5.ORD_SEQ
	    AND                T4.ORD_NO            =       T6.ORD_NO
	    AND                T4.ORD_SEQ           =       T6.ORD_SEQ
	    AND 			   (T4.CHEM_DEC_CD IS NULL OR T4.CHEM_DEC_CD = 'B')--20160527根据品质设计结果判断此成分是否上质保书
	    ORDER BY           T1.COIL_NO , T3.COMP_YN , T3.DISPLAY_SEQ
]]>	  
</query>

<query id="UIB030320_LIAN_QLTY.SELECT" desc="材质">
<![CDATA[
	  SELECT      MCOL.COIL_NO                  ROW_FLAG      		 --在DataRowList用于区分，必须
	             ,MCOL.COIL_NO
	             ,ORDY.QLTY_CD
	             ,CASE WHEN WORY.QLTY_CD_AFTER IS NOT NULL THEN '*'ELSE NULL  END ||CASE  WHEN WORY.QLTY_VAL_WK = 1  AND WORY.QLTY_UNIT_WK = 'Y'  THEN (CASE WHEN MCOM.TMPL_NO = 'BE0001' THEN 'OK' ELSE '合格' END) ELSE  (CASE WHEN WORY.QLTY_VAL_WK < 1 THEN '0' ELSE '' END)||TO_CHAR(WORY.QLTY_VAL_WK)  END  QLTY_VAL_WK
	             ,RQLY.QLTY_VAL_WK             QLTY_SEQ_VAL          --针对冲击等项目
	            -- ,DECODE(SUBSTR(MCOM.TMPL_NO , 2,1) , 'E' , MSCD.MS_SMALL_EFNM , MSCD.MS_SMALL_CFNM )          SMALL_NAME
	             --,DECODE(SUBSTR(MCOM.TMPL_NO , 2,1) , 'E' , MSCD.MS_BIG_EFNM   , MSCD.MS_BIG_CFNM   )          BIG_NAME
	             ,DECODE(SUBSTR(ORDY.QLTY_CD, 1, 2),
              	 'CB',
                 DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_SMALL_EFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD),
                     MSCD.MS_SMALL_CFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD)),
                DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_SMALL_EFNM,
                     MSCD.MS_SMALL_CFNM)) SMALL_NAME --CB项目取标准数据备注加上质保书编码内容 同时注意中英文模板
       		  ,DECODE(SUBSTR(ORDY.QLTY_CD, 1, 2),
              'CB',
              DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_BIG_EFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD),
                     MSCD.MS_BIG_CFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD)),
              DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_BIG_EFNM,
                     MSCD.MS_BIG_CFNM)) BIG_NAME 
	             ,MSCD.MS_EXT_CODE             						 --补充码 
	             ,DECODE(SUBSTR(MCOM.TMPL_NO , 2,1) , 'E' , 'E' , 'Z')   ZE_TP
	             ,MSCD.MS_QLTY_DIR             						 --方向，必须放在QLTY_SEQ前面
	             ,MSCD.MS_QLTY_TEM                                   --温度，必须放在QLTY_SEQ前面
	             ,ORDY.QLTY_SIZE       MS_QLTY_SIZE                  --尺寸，必须放在QLTY_SEQ前面
	             ,RQLY.QLTY_SEQ
	             ,MCOL.SMP_CUT_LOC
	             ,MCOM.PRDNM_CD              
	             ,MSCD.DISPLAY_SEQ
	  FROM        TBB02_MS_COM           MCOM  
	             ,TBB02_MS_COIL          MCOL  
	             ,TBB02_WORK_QLTY        WORY
	             ,TBB02_REWORK_QLTY      RQLY
	             ,TBB02_MS_QLTYCD        MSCD
	             ,TBB01_ORD_QLTY         ORDY
	  WHERE       MCOM.CRET_NO           =      MCOL.CRET_NO
	  AND         MCOL.SMP_NO            =      WORY.SMP_NO
	  AND         MCOL.SMP_CUT_LOC       =      WORY.SMP_CUT_LOC
	  AND         WORY.QLTY_CD           =      MSCD.QLTY_CD
	  AND         ORDY.ORD_NO            =      MCOM.ORD_NO
	  AND         ORDY.ORD_SEQ           =      MCOM.ORD_SEQ
	  AND         ORDY.DSN_KIND          =      PKG_QUALITY_COMM.FIB010202(MCOM.ORD_NO , MCOM.ORD_SEQ)
	  AND         ORDY.QLTY_CD           =      MSCD.QLTY_CD
	  AND         WORY.SMP_NO            =      RQLY.SMP_NO(+)
	  AND         WORY.SMP_CUT_LOC       =      RQLY.SMP_CUT_LOC(+)
	  AND         WORY.QLTY_CD           =      RQLY.QLTY_CD(+)
	  AND         ORDY.QLTY_DEC_CD IS NULL
	  AND         SUBSTR(RQLY.QLTY_SEQ(+) , 1,1)  != 'B'
	  AND         MCOM.CRET_NO           =      ?
	  ORDER BY    ROW_FLAG , MSCD.DISPLAY_SEQ , RQLY.QLTY_SEQ
]]>	  
</query>



<!--**************************************** 热轧非计划转板加质保书****************************************
******************************************************************************************-->
<query	id="UIB030320_HOTBJ_01.SELECT" desc="查询信息">
	<![CDATA[	
	  SELECT   DISTINCT 
	  '板加(非)'                         PROD_LINE
	 ,B02MC.TMPL_NO
     ,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
	 ,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            --审核人
	 ,H02CC.INSTR_COIL_THK											 --规格
	 ,B02MC.CRET_PRINT_DTIME                                     	 --审核时间
	 --,H02CC.TRNF_DTIME                                           	 --发货时间
	 ,SUBSTR(B02MCO.SHIP_DIR_DTIME,1,8)   TRNF_DTIME                 --发货日期
	 ,A01ORD.ORD_DEVLMT_DATE                                         --交货日期
	 ,B02MCO.CAR_GP
	 ,B02MC.SPEC_ABBSYM
	 ,A01ORD.MK_CONTENT      CRET_NO_RMK
	 ,B02MC.PRINT_CNT
	 ,B02MC.PRINT_ID
   	 ,B02MC.PRINT_DTIME
	  FROM   
	  TBB02_MS_COM             B02MC
	 ,TBH02_COIL_COMM_BJ          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    J01DD.ISDELETED                  != '1'
	  AND    H02CC.SHIP_PROG_CD                = '06'           
	  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    NVL(B02MC.SEND_TP,'N') = DECODE(? , 'ALL' , NVL(B02MC.SEND_TP,'N') , ?)	
	  and 	 (CASE WHEN B02MC.IS_WRONG IS NULL THEN 'N' ELSE 'Y' END  ) = ?    --增加字段是否发送异常by pbs20161219,点击发送后异常的话再次查询屏蔽发送异常的质保书
	  ORDER BY B02MC.CRET_NO
	]]>
</query>

<query id="UIB030320_HOTBJ_HEAD.SELECT">
    SELECT      XB_PACKAGE.GF_CUSTOMER_FIND(T1.CUST_CD)      CUST_CD            -- 订货单位
			   ,XB_PACKAGE.GF_CUSTOMER_FIND(T1.ORDCUST_CD)   ORDCUST_CD         -- 收货单位
			   ,T1.ORD_NO                                                       -- 合同号
			   ,T1.PRDNM_CD														--交货状态
			   ,T1.SPEC_STL_GRD   												-- 牌号
			   ,T1.SPEC_ABBSYM  												-- 标准
	           ,DECODE(T1.ORD_USE_ALIAS, NULL , PKG_QUALITY_COMM.FIB040000('A01007' , T1.ORD_USE_TP , 'Z') , PKG_QUALITY_COMM.FIB040000('A02003' , T1.ORD_USE_ALIAS , 'Z'))   ORD_USE       -- 产品名称
	           ,DECODE(T1.ORD_USE_ALIAS, NULL , PKG_QUALITY_COMM.FIB040000('A01007' , T1.ORD_USE_TP , 'E') , PKG_QUALITY_COMM.FIB040000('A02003' , T1.ORD_USE_ALIAS , 'E'))   ORD_USE_EN    -- 产品名称
			   ,T1.SHIP_DIRNO                                                   -- 发行指示编号
			   ,T1.CRET_NO                                                      -- 证明书编号
		       ,TO_CHAR(SYSDATE , 'YYYY-MM-DD HH24:MI')   CRET_NO_DTIME         -- 签发日期
			   ,TO_CHAR(TO_DATE(SUBSTR(T2.SHIP_DIR_DTIME,1,8), 'YYYYMMDD'),'YYYY-MM-DD') SHIP_DIR_DTIME  -- 发货日期
			   ,NVL(XB_PACKAGE.GF_USER_FIND(T1.CRET_PRINT_ID),' ')                       USERID
			   ,T1.INV_NO	                                                    --明细号
	  	       ,''  LICENSENO
	  	       ,T2.CAR_GP
	  	       ,TJ.COIL_SUM_CNT
	  	       ,TJ.COIL_SUM_WGT
	  	       ,T1.PRDNM_CD
               ,T2.CAR_GP
               ,T1.CRET_NO_RMK
               ,T1.PIC1
               ,T1.PIC2
               ,T1.PIC3
               ,T1.CRET_DESC
    FROM        TBB02_MS_COM   T1  ,  TBB02_MS_COIL  T2 ,  (SELECT      T.CRET_NO 
										                               ,TO_CHAR(SUM(T.COIL_WGT)/1000 , 'FM9999.000')   COIL_SUM_WGT 
										                               ,TO_CHAR(COUNT(1))                              COIL_SUM_CNT 
										                     FROM       TBB02_MS_COIL         T 
										                     WHERE      T.CRET_NO             =     ? 
										                     GROUP BY   T.CRET_NO )  TJ
    WHERE       T1.CRET_NO         =     T2.CRET_NO 
    AND         T1.CRET_NO         =     TJ.CRET_NO
    AND         ROWNUM             =     1
</query>

<query id="UIB030320_HOTBJ_CHEM.SELECT">
	  SELECT 	DISTINCT
	   A.OLD_SAMPL_NO	ROW_FLAG  				--在DataRowList用于区分，必须
      ,A.OLD_SAMPL_NO   COIL_NO
      ,DECODE( UPPER(C.COMP_DETAIL) , 'CE' , 'CE' , 'PCM' , 'PCM' , 'CEV' , 'CEV' , 'CEQ' , 'CEQ',  C.CHEM_CD) CHEM_CD
      ,ROUND(B.CHEM_VAL*C.DISPLAY_LEN)    CHEM_VAL1
	  ,B.CHEM_VAL		
      ,C.DISPLAY_LEN
      ,C.DISPLAY_SEQ
      ,C.COMP_YN
      ,A.CHARGE_NO
      ,D.SPEC_STL_GRD
      ,A.COIL_THK
      ,A.COIL_WTH
      ,A.COIL_LEN
      ,TO_CHAR(A.COIL_WGT/1000)    COIL_WGT
      ,'L' PROC_TP
      FROM  TBB02_MS_COIL A, TBB02_WORK_INGR B, TBB01_SEQ_INGR C ,TBB02_MS_COM D,TBB01_ORD_INGR E,TBH02_COIL_COMM_BJ 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  =  '2'
      AND F.TOT_DEC_GRD = '1'
      AND (F.MATLQLTY_DEC_GRD = '1'    OR     F.MATLQLTY_DEC_GRD = '0')
      AND A.OLD_SAMPL_NO = F.OLD_SAMPL_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
      AND (E.CHEM_DEC_CD IS NULL OR E.CHEM_DEC_CD = 'B')
      ORDER BY A.OLD_SAMPL_NO , C.COMP_YN, C.DISPLAY_SEQ
</query>

<query id="UIB030320_HOTBJ_QLTY.SELECT">
<![CDATA[
	SELECT      MCOL.OLD_SAMPL_NO             ROW_FLAG			--在DataRowList用于区分，必须
	           ,MCOL.OLD_SAMPL_NO             COIL_NO
	           ,ORDY.QLTY_CD
	           ,(CASE  WHEN WORY.QLTY_VAL_WK = 1  AND WORY.QLTY_UNIT_WK = 'Y'  THEN (CASE WHEN MCOM.TMPL_NO = 'BE0001' THEN 'OK' ELSE '合格' END) ELSE  (CASE WHEN WORY.QLTY_VAL_WK < 1 THEN '0' ELSE '' END)||TO_CHAR(WORY.QLTY_VAL_WK)  END )    QLTY_VAL_WK
	           ,RQLY.QLTY_VAL_WK             QLTY_SEQ_VAL          --针对冲击等项目
	          -- ,DECODE(SUBSTR(MCOM.TMPL_NO , 2,1) , 'E' , MSCD.MS_SMALL_EFNM , MSCD.MS_SMALL_CFNM )          SMALL_NAME
	           --,DECODE(SUBSTR(MCOM.TMPL_NO , 2,1) , 'E' , MSCD.MS_BIG_EFNM   , MSCD.MS_BIG_CFNM   )          BIG_NAME
	           ,DECODE(SUBSTR(ORDY.QLTY_CD, 1, 2),
              'CB',
              DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_SMALL_EFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD),
                     MSCD.MS_SMALL_CFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD)),
              DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_SMALL_EFNM,
                     MSCD.MS_SMALL_CFNM)) SMALL_NAME --CB项目取标准数据备注加上质保书编码内容 同时注意中英文模板
       		,DECODE(SUBSTR(ORDY.QLTY_CD, 1, 2),
              'CB',
              DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_BIG_EFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD),
                     MSCD.MS_BIG_CFNM ||
                     PKG_QUALITY_COMM.CHECKQLTY(MCOM.ORD_NO,
                                                MCOM.ORD_SEQ,
                                                MCOM.SHIP_DIRNO,
                                                ORDY.QLTY_CD)),
              DECODE(SUBSTR(MCOM.TMPL_NO, 2, 1),
                     'E',
                     MSCD.MS_BIG_EFNM,
                     MSCD.MS_BIG_CFNM)) BIG_NAME 
	           ,MSCD.MS_EXT_CODE             --补充码 
	           ,DECODE(SUBSTR(MCOM.TMPL_NO , 2,1) , 'E' , 'E' , 'Z')   ZE_TP
	           ,MSCD.MS_QLTY_DIR                           --方向，必须放在QLTY_SEQ前面
	           ,MSCD.MS_QLTY_TEM                           --温度，必须放在QLTY_SEQ前面
	           ,ORDY.QLTY_SIZE       MS_QLTY_SIZE          --尺寸，必须放在QLTY_SEQ前面
	           ,SUBSTR(RQLY.QLTY_SEQ , 2)    QLTY_SEQ
	           ,MCOL.SAMPL_CUT_LOC           SMP_CUT_LOC
	           ,MCOM.PRDNM_CD              
	           ,MSCD.DISPLAY_SEQ
	FROM        TBB02_MS_COM           MCOM  
	           ,TBH02_COIL_COMM_BJ        MCOL  
	           ,TBB02_WORK_QLTY        WORY
	           ,TBB02_REWORK_QLTY      RQLY
	           ,TBB02_MS_QLTYCD        MSCD
	           ,TBB01_ORD_QLTY         ORDY
	WHERE       MCOM.CRET_NO         	=      MCOL.CRET_NO
	AND         MCOL.SAMPL_NO           =      WORY.SMP_NO
    AND         MCOL.SAMPL_CUT_LOC      =      WORY.SMP_CUT_LOC
	AND         WORY.QLTY_CD         	=      MSCD.QLTY_CD
	AND         ORDY.ORD_NO          	=      MCOM.ORD_NO
	AND         ORDY.ORD_SEQ         	=      MCOM.ORD_SEQ
	AND         ORDY.DSN_KIND        	=      PKG_QUALITY_COMM.FIB010202(MCOM.ORD_NO , MCOM.ORD_SEQ)
	AND         ORDY.QLTY_CD         	=      MSCD.QLTY_CD
	AND         WORY.SMP_NO          	=      RQLY.SMP_NO(+)
	AND         WORY.SMP_CUT_LOC     	=      RQLY.SMP_CUT_LOC(+)
	AND         WORY.QLTY_CD         	=      RQLY.QLTY_CD(+)
	AND         SUBSTR(RQLY.QLTY_SEQ(+) , 1,1)  != 'B'
	AND        (ORDY.QLTY_DEC_CD IS NULL OR ORDY.QLTY_DEC_CD = 'B')
	AND         MCOM.CRET_NO         	=      ?
	ORDER BY    ROW_FLAG , MSCD.DISPLAY_SEQ , RQLY.QLTY_SEQ
		]]>
</query>

<query id="UIB030320_ZBS_01.SELECT" desc="发送到外网的EXCEL质保书">
	  SELECT T.ZBSXLS FROM ZL_ZBS_MAIN_DATA T WHERE T.ZBS_BH = ? FOR UPDATE
</query>

<query id="UIB030320_ZBS_01.UPDATES" desc="发送到外网的EXCEL质保书">
	UPDATE    ZL_ZBS_MAIN_DATA    T
	SET	      T.ZBSXLS            =    ?
	WHERE     T.ZBS_BH            =    ?
</query>

<query id="UIB030320_ZBS_02.UPDATES" desc="打印次数">
	UPDATE    TBB02_MS_COM    T
	SET	      T.PRINT_CNT     =    T.PRINT_CNT+1
			 ,T.PRINT_ID	  =    ?
			 ,T.PRINT_DTIME   =    TO_CHAR(SYSDATE , 'YYYYMMDDHH24MISS')
	WHERE     T.CRET_NO       =    ?
</query>

<query id="UIB030320_MS_02.UPDATE" desc="">
	UPDATE    TBB02_MS_COM    T
	SET	      T.IS_WRONG     =    'Y'
	WHERE     T.CRET_NO       =    ?
</query>

<query id="UIB030320_MS_03.UPDATE" desc="">
	UPDATE    TBB03_MS_COM    T
	SET	      T.IS_WRONG     =    'Y'
	WHERE     T.CRET_NO       =    ?
</query>

<query id="UIB030320_ZBS_05.UPDATES" desc="若质保书内容发送到外网失败，则修改质保书为未发送">
	 UPDATE    TBB02_MS_COM    T  
      SET      T.SEND_TP       =       '' 
              ,T.SEND_DTIME    =       '' 
      WHERE    T.CRET_NO       =       ?
</query>

<query id="UIB030320_01.CALL" desc="热轧及冷轧审核，板加（非）">
	   {call ZL_HOST_DCS03.BOOK_CHECK_HC(?,?,?,?)}
</query>

<query id="UIB030320_02.CALL" desc="板加审核">
	   {call ZL_HOST_DCS03.BOOK_CHECK_BJ(?,?,?,?)}
</query>

<query id="UIB030320_HOST_01.CALL" desc="热轧、冷轧发送外网板加（非）">
	   {call ZL_HOST_DCS03.SEND_HOST_BOOK(?,?)}
</query>

<query id="UIB030320_BANJA_02.CALL" desc="板加发送外网"> 
	   {call ZL_HOST_DCS03.SEND_BANJ_BOOK(?,?)}
</query>

<!-- ############################################################### -->

<query id="UIB030320_01.INSERT" desc="赋给bob初始值，已废弃">
	INSERT    INTO		ZL_ZBS_MAIN_DATA(ZBS_BH , SENDID , ZBSXLS) VALUES(? , '12120' , EMPTY_BLOB())
</query>

<query id="UIB030320_01.DELETE" desc="已废弃">
	DELETE  FROM  ZL_ZBS_DETAIL_DATA     WHERE  ZBS_BH  =   ?
      
</query>

<query id="UIB030320_02.DELETE" desc="已废弃">
	DELETE  FROM  ZL_ZBS_MAIN_DATA       WHERE  ZBS_BH  =   ?
</query>

</queryMap>