XinYu_RZMES/.svn/pristine/52/52105aea7433cf2d5a9ad9515789a15eff594ff1.svn-base

<?xml version="1.0" encoding='UTF-8'?>
<queryMap desc="STEEL MAKING PROGRESS MONITORING  ">
	<query id="UIG040090_01.select_BAK" desc=" 取板坯运送前的信息，此时板坯在我方数据库。 ">
	   <![CDATA[
	SELECT '' CHK
		   ,A.SLAB_NO
		   ,A.STL_GRD
       ,J.L2_SCH_NO
       ,SUBSTR(A.SLAB_NO,1,10) CHARGE_NO
       ,A.SLAB_THK
       ,A.SLAB_WTH
       ,A.SLAB_LEN
       ,A.SLAB_WGT
       ,A.CUR_LOAD_LOC
       ,A.PLT_TRS_CAR_NO
       ,TO_CHAR(SYSDATE,'YYYYMMDD') PLT_TRS_INVOICE_NO
       ,'' PLT_TRS_INVOICE_NO_MANUAL
       ,A.PLT_PLANT_ARRV_LOC
       ,PLT_TRS_DTIME
       ,A.EXTSHAPE_GRD
       ,A.SLAB_INGR_DEC_GRD
       ,B.CRK_CD1
       ,C.CRK_CD2
       ,D.CRK_CD3
       ,E.CRK_CD4
       ,TO_CHAR(SYSDATE,'YYYYMMDD') SYS_DATE
       ,decode(a.SLAB_OUT_TP,'Y','允许出库','不允许出库') SLAB_OUT_TP
      FROM TBG02_SLAB_COMM A
           ,TBF01_SPEC_SLAB F
           ,TBD01_SLABDN_OBJ2 J
     ,(SELECT SM_CD, SM_CD||SM_CFNM AS CRK_CD1 FROM TBZ00_COMMCD WHERE LG_CD = 'G03004') B
     ,(SELECT SM_CD, SM_CD||SM_CFNM AS CRK_CD2 FROM TBZ00_COMMCD WHERE LG_CD = 'G03004') C
     ,(SELECT SM_CD, SM_CD||SM_CFNM AS CRK_CD3 FROM TBZ00_COMMCD WHERE LG_CD = 'G03004') D
     ,(SELECT SM_CD, SM_CD||SM_CFNM AS CRK_CD4 FROM TBZ00_COMMCD WHERE LG_CD = 'G03004') E    
      WHERE 1 = 1
    AND A.CRK_CD1 = B.SM_CD(+)
      AND A.CRK_CD2 = C.SM_CD(+)
    AND A.CRK_CD3 = D.SM_CD(+)
      AND A.CRK_CD4 = E.SM_CD(+)
      AND A.CUR_LOAD_LOC LIKE 'L%' 
      AND  A.SLAB_RT IN ('P','Z')
      AND  A.CUR_PROG_CD = 'RGB'
      AND  A.SLAB_STAT = '2'
      AND  A.PLT_TRS_CAR_NO IS  NULL 
      AND A.PLAN_SLAB_NO = F.SLAB_MANA_NO(+)
      AND F.DSN_SLAB_NO = J.DSN_SLAB_NO(+)
      AND A.SLAB_NO LIKE ?||'%'
        ]]> 
  </query>
  <query id="UIG040090_01.CALL" desc=" 中厚板移送 ">
	{call PKG_UIG.PROD_PLT_SLAB_TRANS(:1,:2)}
  </query>
  <query id="UIG040090_01.select" desc=" 取板坯运送前的信息，此时板坯在我方数据库。 ">
	   <![CDATA[
			SELECT '' CHK
			       ,A.SLAB_NO
			       ,A.STL_GRD
			       ,J.L2_SCH_NO
			       ,SUBSTR(A.SLAB_NO,1,10) CHARGE_NO
			       ,A.SLAB_THK
			       ,A.SLAB_WTH
			       ,A.SLAB_LEN
			       ,A.SLAB_WGT
			       ,A.WEIGHT_WGT*1000   WEIGHT_WGT --20130217
			       ,A.CUR_LOAD_LOC
			       ,A.PLT_TRS_CAR_NO
			       ,TO_CHAR(SYSDATE,'YYYYMMDD') PLT_TRS_INVOICE_NO
			       ,'' PLT_TRS_INVOICE_NO_MANUAL
			       ,A.PLT_PLANT_ARRV_LOC
			       ,PLT_TRS_DTIME
			       ,A.EXTSHAPE_GRD
			       ,A.SLAB_INGR_DEC_GRD
			       ,B.CRK_CD1
			       ,C.CRK_CD2
			       ,D.CRK_CD3
			       ,E.CRK_CD4
			       ,TO_CHAR(SYSDATE,'YYYYMMDD') SYS_DATE
			       ,decode(a.SLAB_OUT_TP,'Y','允许出库','不允许出库') SLAB_OUT_TP
			      FROM TBG02_SLAB_COMM A
			           ,TBD01_SLABDN_OBJ2 J
			     ,(SELECT SM_CD, SM_CD||SM_CFNM AS CRK_CD1 FROM TBZ00_COMMCD WHERE LG_CD = 'G03004') B
			     ,(SELECT SM_CD, SM_CD||SM_CFNM AS CRK_CD2 FROM TBZ00_COMMCD WHERE LG_CD = 'G03004') C
			     ,(SELECT SM_CD, SM_CD||SM_CFNM AS CRK_CD3 FROM TBZ00_COMMCD WHERE LG_CD = 'G03004') D
			     ,(SELECT SM_CD, SM_CD||SM_CFNM AS CRK_CD4 FROM TBZ00_COMMCD WHERE LG_CD = 'G03004') E    
			      WHERE 1 = 1
			    AND A.CRK_CD1 = B.SM_CD(+)
			      AND A.CRK_CD2 = C.SM_CD(+)
			    AND A.CRK_CD3 = D.SM_CD(+)
			      AND A.CRK_CD4 = E.SM_CD(+)
			      AND  (A.CUR_LOAD_LOC LIKE 'L%' OR A.CUR_LOAD_LOC LIKE 'H%')   --在库
			      AND  A.SLAB_RT IN ('P','Z')    --去向
			      AND  A.CUR_PROG_CD = 'RGB'     --物料进程
			      AND  A.SLAB_STAT = '2'         --物料状态
			      AND  A.PLT_TRS_CAR_NO IS  NULL --移送货单号
			      AND A.DSN_SLAB_NO = J.DSN_SLAB_NO(+)   
			      --AND A.ORD_FL = '1'
			      AND A.SLAB_NO LIKE :1||'%'
        ]]> 
  </query>
  <query id="UIG040090_05.select" desc=" 取板坯运送前的信息，此时板坯在我方数据库。 ">
	   <![CDATA[
			SELECT T.CC_DEVNO FROM tbg02_charge_comm t
WHERE t.charge_no like substr(:1,1,9)||'%'
        ]]> 
  </query>
  <query id="UIG040090_04.select" desc=" 取板坯运送前的信息，此时板坯在我方数据库。 ">
	   <![CDATA[
			SELECT '' CHK
			       ,A.SLAB_NO
			       ,A.STL_GRD
			       ,J.L2_SCH_NO
			       ,SUBSTR(A.SLAB_NO,1,10) CHARGE_NO
			       ,A.SLAB_THK
			       ,A.SLAB_WTH
			       ,A.SLAB_LEN
			       ,A.SLAB_WGT
			       ,A.CUR_LOAD_LOC
			       ,A.PLT_TRS_CAR_NO
			       ,TO_CHAR(SYSDATE,'YYYYMMDD') PLT_TRS_INVOICE_NO
			       ,'' PLT_TRS_INVOICE_NO_MANUAL
			       ,A.PLT_PLANT_ARRV_LOC
			       ,TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS') PLT_TRS_DTIME
			       ,A.EXTSHAPE_GRD
			       ,A.SLAB_INGR_DEC_GRD
			       ,B.CRK_CD1
			       ,C.CRK_CD2
			       ,D.CRK_CD3
			       ,E.CRK_CD4
			       ,TO_CHAR(SYSDATE,'YYYYMMDD') SYS_DATE
			       ,decode(a.SLAB_OUT_TP,'Y','允许出库','不允许出库') SLAB_OUT_TP
			      FROM TBG02_SLAB_COMM A
			           ,TBD01_SLABDN_OBJ2 J
			     ,(SELECT SM_CD, SM_CD||SM_CFNM AS CRK_CD1 FROM TBZ00_COMMCD WHERE LG_CD = 'G03004') B
			     ,(SELECT SM_CD, SM_CD||SM_CFNM AS CRK_CD2 FROM TBZ00_COMMCD WHERE LG_CD = 'G03004') C
			     ,(SELECT SM_CD, SM_CD||SM_CFNM AS CRK_CD3 FROM TBZ00_COMMCD WHERE LG_CD = 'G03004') D
			     ,(SELECT SM_CD, SM_CD||SM_CFNM AS CRK_CD4 FROM TBZ00_COMMCD WHERE LG_CD = 'G03004') E    
			      WHERE 1 = 1
			    AND A.CRK_CD1 = B.SM_CD(+)
			      AND A.CRK_CD2 = C.SM_CD(+)
			    AND A.CRK_CD3 = D.SM_CD(+)
			      AND A.CRK_CD4 = E.SM_CD(+)
			      AND A.CUR_LOAD_LOC LIKE 'A0%' 
			      AND A.SLAB_STAT = '2'
			      AND A.SLAB_NO > 'J91-00910A010'
			      AND  A.SLAB_RT IN ('P','Z')
			      AND  A.PLT_TRS_CAR_NO IS  NULL  
			      --AND A.ORD_FL = '1'
			      AND A.DSN_SLAB_NO = J.DSN_SLAB_NO
        ]]> 
  </query>
  <query id="UIG040090_04.select_BAK" desc=" 取板坯运送前的信息，此时板坯在我方数据库。 ">
	   <![CDATA[
	SELECT '' CHK
       ,A.SLAB_NO
       ,A.STL_GRD
       ,J.L2_SCH_NO
       ,SUBSTR(A.SLAB_NO,1,10) CHARGE_NO
       ,A.SLAB_THK
       ,A.SLAB_WTH
       ,A.SLAB_LEN
       ,A.SLAB_WGT
       ,A.CUR_LOAD_LOC
       ,A.PLT_TRS_CAR_NO
       ,TO_CHAR(SYSDATE,'YYYYMMDD') PLT_TRS_INVOICE_NO
       ,'' PLT_TRS_INVOICE_NO_MANUAL
       ,A.PLT_PLANT_ARRV_LOC
       ,TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS') PLT_TRS_DTIME
       ,A.EXTSHAPE_GRD
       ,A.SLAB_INGR_DEC_GRD
       ,B.CRK_CD1
       ,C.CRK_CD2
       ,D.CRK_CD3
       ,E.CRK_CD4
       ,TO_CHAR(SYSDATE,'YYYYMMDD') SYS_DATE
      FROM TBG02_SLAB_COMM A
		   ,TBF01_SPEC_SLAB F
           ,TBD01_SLABDN_OBJ2 J
     ,(SELECT SM_CD, SM_CD||SM_CFNM AS CRK_CD1 FROM TBZ00_COMMCD WHERE LG_CD = 'G03004') B
     ,(SELECT SM_CD, SM_CD||SM_CFNM AS CRK_CD2 FROM TBZ00_COMMCD WHERE LG_CD = 'G03004') C
     ,(SELECT SM_CD, SM_CD||SM_CFNM AS CRK_CD3 FROM TBZ00_COMMCD WHERE LG_CD = 'G03004') D
     ,(SELECT SM_CD, SM_CD||SM_CFNM AS CRK_CD4 FROM TBZ00_COMMCD WHERE LG_CD = 'G03004') E    
      WHERE 1 = 1
    AND A.CRK_CD1 = B.SM_CD(+)
      AND A.CRK_CD2 = C.SM_CD(+)
    AND A.CRK_CD3 = D.SM_CD(+)
      AND A.CRK_CD4 = E.SM_CD(+)
      AND A.CUR_LOAD_LOC LIKE 'A0%' 
      AND A.SLAB_STAT = '2'
      AND A.SLAB_NO > 'J91-00910A010'
      AND  A.SLAB_RT IN ('P','Z')
      AND  A.PLT_TRS_CAR_NO IS  NULL  
	  AND A.PLAN_SLAB_NO = F.SLAB_MANA_NO
      AND F.DSN_SLAB_NO = J.DSN_SLAB_NO
        ]]> 
  </query>
  <query id="UIG040090_02.select" desc=" 取板坯到达后信息，此时板坯在中厚板数据库。信息从对方取出 ">
	   <![CDATA[
		 SELECT    '' CHK
				   ,SLAB_NO
				   ,STL_GRD
				   ,ORD_NO
				   ,SLAB_THK
				   ,SLAB_WTH
				   ,SLAB_LEN
				   ,SLAB_WGT
				   ,TRS_CAR_NO PLT_TRS_CAR_NO
				   ,TRS_INVOICE_NO PLT_TRS_INVOICE_NO
				   ,ARRV_LOC PLT_PLANT_ARRV_LOC
				   ,TRS_DTIME PLT_TRS_DTIME
				   ,RECEV_FLAG 
				   ,RECEV_DTIME 
				   ,RECEV_REG_ID 
				   ,'' RTN_CUR_STORE_LOC
				   ,ZXISJS
       FROM TBG04_SLAB_TRANSF T
       LEFT JOIN CXUSER.KCG_STUFFLIST@XGCX A ON T.SLAB_NO = A.BILLETNO
	   WHERE TRS_DTIME LIKE :1||'%'
	   --AND  STAT_CD = '0'
       AND   TRS_CAR_NO LIKE :2||'%'
       AND   TRS_INVOICE_NO LIKE :3||'%'
       AND   SLAB_NO LIKE   :4||'%'
       AND   TRS_CAR_NO IS NOT NULL 
        ]]> 
  </query>
  <query id="UIG040090_SYNCHRONIZE.select" desc=" 取板坯到达后信息，此时板坯在中厚板数据库。信息从对方取出 ">
	   <![CDATA[
			 SELECT SLAB_NO, RECEV_FLAG, RECEV_DTIME, RECEV_REG_ID FROM TBG04_SLAB_TRANSF WHERE SLAB_NO = ?
        ]]> 
  </query>	
  <query id="UIG040090_SYNCHRONIZE_MES.select" desc=" 取板坯到达后信息，此时板坯在中厚板数据库。信息从对方取出 ">
	   <![CDATA[
			 SELECT SLAB_NO FROM TBG04_SLAB_TRANSF WHERE STAT_CD = '1'
        ]]> 
  </query>
  <query id="UIG040090_SYNCHRONIZE.update" desc=" 取板坯到达后信息，此时板坯在中厚板数据库。信息从对方取出 ">
	   <![CDATA[
			UPDATE  TBG04_SLAB_TRANSF 
			SET RECEV_FLAG = ?
			    ,RECEV_DTIME = ?
		        ,RECEV_REG_ID = ?
		        ,STAT_CD = ?
		   WHERE SLAB_NO = ?
        ]]> 
  </query>
  
 <query id="UIG040090_01.insert" desc=" " fetchSize="10">
		<![CDATA[		
			insert into tbg04_slab_transf 
			(
				TRS_INVOICE_NO,
				TRS_CAR_NO,
				SLAB_NO,
				TRS_DTIME,
				ARRV_LOC,
				CHARGE_NO,
				ORD_NO,
				STL_GRD,
				SLAB_THK,
				SLAB_WTH,
			
				SLAB_LEN,
				SLAB_WGT,
				SLAB_INGR_DEC_GRD,
				EXTSHAPE_GRD,
				CRK_CD1,
				CRK_CD1_NM,
				CRK_CD2,
				CRK_CD2_NM,
				CRK_CD3,
				CRK_CD3_NM,
			
				CRK_CD4,
				CRK_CD4_NM,
				C  , 
				MN , 
				S  , 
				P  , 
				SI , 
				CR , 
				NI , 
				CU , 
			
				MO , 
				V  , 
				TI , 
				ALS, 
				ALT, 
				NB , 
				AL , 
				N  , 
				L2_AS, 
				SN , 
			
				CA , 
				B  , 
				PB , 
				ZN , 
				L2_XTZ, 
				LA , 
				SB , 
				SE , 
				MG , 
				L2_CD , 
			
				O  , 
				H  , 
				FE , 
				L2_CS , 
				L2_ZR , 
				L2_PSR, 
				W  , 
			    HCR_CLF,
				STAT_CD,
			    RECEV_FLAG,
			
				DSN_SLAB_NO,
				L2AS,
				BI
				,CC_DEVNO    			
				 
			)values(?,?,?,TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS'),?,?,?,?,?,?,  
			        ?,?,?,?,?,?,?,?,?,?,
					?,?,?,?,?,?,?,?,?,?,
					?,?,?,?,?,?,?,?,?,?,
					?,?,?,?,?,?,?,?,?,?,
					?,?,?,?,?,?,?,?,'0','0'
					,?,
					?,?,?)
		]]>
 </query>
	<query id="UIG040090_01.update" desc=" " fetchSize="10">
		<![CDATA[	
			update TBG02_SLAB_COMM set  
			    SLAB_STAT   = '3' ,	
			    CUR_PROG_CD   = 'RGF' ,
			    CUR_PROG_CD_PGM = 'UIG040090' ,
			    CUR_PROG_CD_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS'),
			    BEF_PROG_CD = CUR_PROG_CD ,
			    BEF_PROG_CD_PGM = CUR_PROG_CD_PGM ,
			    BEF_PROG_CD_DTIME = CUR_PROG_CD_DTIME  
			where SLAB_NO = ? 	
		]]>
 </query>
 <query id="UIG040090_02.update" desc=" " fetchSize="10">
		<![CDATA[	
			update TBG02_SLAB_COMM set
				CUR_LOAD_LOC = 'zhb'
        		,CUR_PROG_CD = 'RGC'  --中厚板接收待机
        		,SLAB_STAT = '3'
				,PLT_TRS_CAR_NO     =  ?
				,PLT_TRS_INVOICE_NO = ?
				,PLT_PLANT_ARRV_LOC = ?
				,PLT_TRS_WKSHIFT = ?
				,PLT_TRS_WKGROUP = ?
				,PLT_TRS_EMP_NO = ?
				,PLT_TRS_DTIME =  TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')
				,SMS_YARD_EXT_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')
			where SLAB_NO = ? 	
		]]>
 </query> 
	 <query id="UIG040090_03.update" desc=" " fetchSize="10">
		<![CDATA[	
			update TBG02_SLAB_COMM set 
			    CUR_LOAD_LOC = ?
			    ,CUR_PROG_CD = 'RGB'
          		,SLAB_STAT = '2'
			    ,PLT_TRS_CAR_NO     =  ''
			    ,PLT_TRS_INVOICE_NO = ''
			    ,PLT_PLANT_ARRV_LOC = ''
			    ,PLT_TRS_WKSHIFT = ''
			    ,PLT_TRS_WKGROUP = ''
			    ,PLT_TRS_EMP_NO = ''
			    ,PLT_TRS_DTIME = ''
			    ,SMS_YARD_ENT_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')	
			
			where SLAB_NO = ? 	
		]]>
 </query> 
 <query id="UIG040090_STORELAY.select" desc=" " fetchSize="10">
		<![CDATA[	
			select storelay from tbg04_slab_yard 
			where slab_no is null and yard_addr  = ?
			and rownum= '1' 
			order by storelay	
		]]>
 </query> 
 <query id="UIG040090_04.update" desc=" " fetchSize="10">
		<![CDATA[	
			UPDATE TBG04_SLAB_TRANSF SET 
				STAT_CD = '0' 
			    ,RECEV_FLAG = '0'
			WHERE SLAB_NO = ? 
		]]>
 </query> 
 
 <query id="UIG040090_05.update" desc=" " fetchSize="10">
		<![CDATA[	
			DELETE FROM TBG04_SLAB_TRANSF WHERE SLAB_NO = ? AND TRS_INVOICE_NO = ? AND TRS_CAR_NO = ?
		]]>
 </query> 
 
 <query id="UIG040090_08.update" desc=" " fetchSize="10">
		<![CDATA[	
			DELETE FROM TBG04_SLAB_TRANSF WHERE SLAB_NO = ?
		]]>
 </query> 
 
 <query id="UIG040090_06.update" desc=" " fetchSize="10">
		<![CDATA[	
			DELETE FROM KCG_STUFFLIST@XGCX WHERE BILLETNO = ? AND ZXISJS = '0'
		]]>
 </query> 
 
 <query id="UIG040090_07.update" desc=" " fetchSize="10">
		<![CDATA[	
			INSERT INTO KCG_MTYPE@XGCX (BILLETNO,MTYPE,MTIME,MEMO,CREATOR)
                   VALUES(?,'出库撤销',sysdate, '出库记录删除','二钢板坯库管理')
		]]>
 </query> 
 
 <query id="UIG040090_SLAB_YARD.update" desc=" " fetchSize="10">
		<![CDATA[	
			UPDATE TBG04_SLAB_YARD SET SLAB_NO = '',BEF_STORE_LOC = '',CR_NO = '',REG_ID = '',REG_DTIME = '',ORD_FLAG =''
            WHERE SLAB_NO = ?
		]]>
 </query> 
 <query id="UIG040090_SLAB_YARD_02.update" desc=" " fetchSize="10">
		<![CDATA[	
			UPDATE TBG04_SLAB_YARD 
			SET SLAB_NO = ?
			,REG_ID = 'UIG040090'
			,REG_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')
            WHERE YARD_ADDR = ?
			AND STORELAY = ?
		]]>
 </query> 
	 <query id="UIG040090_SLAB_TRANSF.delete" desc=" " fetchSize="10">
		<![CDATA[	
			delete tbg04_slab_transf where slab_no  = ?
		]]>
 </query> 
	<query id="UIG040090_03.select" desc=" 查询出相应炉次的成分信息 ">
	   <![CDATA[
		select   a.CHARGE_NO,
       SUM(case when CHEM_CD = 'C' then CHEM_VAL else 0 end) C,
       SUM(case when CHEM_CD = 'Mn' then CHEM_VAL else 0 end) Mn,
       SUM(case when CHEM_CD = 'S' then CHEM_VAL else 0 end) S,
       SUM(case when CHEM_CD = 'P' then CHEM_VAL else 0 end) P,
       SUM(case when CHEM_CD = 'Si' then CHEM_VAL else 0 end) Si,
       SUM(case when CHEM_CD = 'Cr' then CHEM_VAL else 0 end) Cr,
       SUM(case when CHEM_CD = 'Ni' then CHEM_VAL else 0 end) Ni,
       SUM(case when CHEM_CD = 'Cu' then CHEM_VAL else 0 end) Cu,
       SUM(case when CHEM_CD = 'Mo' then CHEM_VAL else 0 end) Mo,
       SUM(case when CHEM_CD = 'V' then CHEM_VAL else 0 end) V,
       
       SUM(case when CHEM_CD = 'Ti' then CHEM_VAL else 0 end) Ti,
       SUM(case when CHEM_CD = 'Als' then CHEM_VAL else 0 end) Als,
       SUM(case when CHEM_CD = 'Alt' then CHEM_VAL else 0 end) Alt,
       SUM(case when CHEM_CD = 'Nb' then CHEM_VAL else 0 end) Nb,
       SUM(case when CHEM_CD = 'Al' then CHEM_VAL else 0 end) Al, 
       SUM(case when CHEM_CD = 'N' then CHEM_VAL else 0 end) N,
       SUM(case when CHEM_CD = 'L2_As' then CHEM_VAL else 0 end) "As",
       SUM(case when CHEM_CD = 'Sn' then CHEM_VAL else 0 end) Sn,
       SUM(case when CHEM_CD = 'Ca' then CHEM_VAL else 0 end) Ca,
       SUM(case when CHEM_CD = 'B' then CHEM_VAL else 0 end) B,
       
       SUM(case when CHEM_CD = 'Pb' then CHEM_VAL else 0 end) Pb,
       SUM(case when CHEM_CD = 'Zn' then CHEM_VAL else 0 end) Zn,
       SUM(case when CHEM_CD = 'L2_Xtz' then CHEM_VAL else 0 end) Xtz,
       SUM(case when CHEM_CD = 'La' then CHEM_VAL else 0 end) La,
       SUM(case when CHEM_CD = 'Sb' then CHEM_VAL else 0 end) Sb,
       SUM(case when CHEM_CD = 'Se' then CHEM_VAL else 0 end) Se,
       SUM(case when CHEM_CD = 'Mg' then CHEM_VAL else 0 end) Mg,
       SUM(case when CHEM_CD = 'L2_Cd' then CHEM_VAL else 0 end) Cd,
       SUM(case when CHEM_CD = 'O' then CHEM_VAL else 0 end) O,
       SUM(case when CHEM_CD = 'H' then CHEM_VAL else 0 end) H,  
       
       SUM(case when CHEM_CD = 'Fe' then CHEM_VAL else 0 end) Fe,
       SUM(case when CHEM_CD = 'L2_Cs' then CHEM_VAL else 0 end) Cs,
       SUM(case when CHEM_CD = 'L2_Zr' then CHEM_VAL else 0 end) Zr,
       SUM(case when CHEM_CD = 'L2_Psr' then CHEM_VAL else 0 end) Psr,
       SUM(case when CHEM_CD = 'W' then CHEM_VAL else 0 end) W,  
       SUM(case when CHEM_CD = 'As' then CHEM_VAL else 0 end) L2AS,
       SUM(case when CHEM_CD = 'Bi' then CHEM_VAL else 0 end) BI            
      from tbb02_work_ingr  a
    where  proc_cd = 'JJ' and  a.charge_no = ?
	and a.CHEM_SEQ = substr((select LST_INGR_CD from tbg02_charge_comm_D where charge_no = a.CHARGE_NO),3,2)
    group by a.CHARGE_NO
        ]]> 
    </query>
    <query id="UIG040090_03_chem_resend.update" desc=" 查询出相应炉次的成分信息 ">
	   <![CDATA[
		update TBG04_SLAB_TRANSF T1
SET (T1.RECEV_FLAG,T1.C,t1.MN,t1.S,t1.P,t1.SI
    ,t1.CR,t1.NI,t1.CU,t1.MO,t1.V
    ,t1.TI,t1.ALS,t1.ALT,t1.NB,t1.AL
    ,t1.N,t1.L2_AS,t1.SN,t1.CA,t1.B
    ,t1.PB,t1.ZN,t1.L2_XTZ,t1.LA,t1.SB
    ,t1.SE,t1.MG,t1.L2_CD,t1.O,t1.H
    ,t1.FE,t1.L2_Cs,t1.L2_Zr,t1.L2_Psr,t1.W)=
(select '0', 
       SUM(case when CHEM_CD = 'C' then CHEM_VAL else 0 end) C,
       SUM(case when CHEM_CD = 'Mn' then CHEM_VAL else 0 end) Mn,
       SUM(case when CHEM_CD = 'S' then CHEM_VAL else 0 end) S,
       SUM(case when CHEM_CD = 'P' then CHEM_VAL else 0 end) P,
       SUM(case when CHEM_CD = 'Si' then CHEM_VAL else 0 end) Si,
       
       SUM(case when CHEM_CD = 'Cr' then CHEM_VAL else 0 end) Cr,
       SUM(case when CHEM_CD = 'Ni' then CHEM_VAL else 0 end) Ni,
       SUM(case when CHEM_CD = 'Cu' then CHEM_VAL else 0 end) Cu,
       SUM(case when CHEM_CD = 'Mo' then CHEM_VAL else 0 end) Mo,
       SUM(case when CHEM_CD = 'V' then CHEM_VAL else 0 end) V,
       
       SUM(case when CHEM_CD = 'Ti' then CHEM_VAL else 0 end) Ti,
       SUM(case when CHEM_CD = 'Als' then CHEM_VAL else 0 end) Als,
       SUM(case when CHEM_CD = 'Alt' then CHEM_VAL else 0 end) Alt,
       SUM(case when CHEM_CD = 'Nb' then CHEM_VAL else 0 end) Nb,
       SUM(case when CHEM_CD = 'Al' then CHEM_VAL else 0 end) Al, 
       
       SUM(case when CHEM_CD = 'N' then CHEM_VAL else 0 end) N,
       SUM(case when CHEM_CD = 'L2_As' then CHEM_VAL else 0 end) L2_As,
       SUM(case when CHEM_CD = 'Sn' then CHEM_VAL else 0 end) Sn,
       SUM(case when CHEM_CD = 'Ca' then CHEM_VAL else 0 end) Ca,
       SUM(case when CHEM_CD = 'B' then CHEM_VAL else 0 end) B,
       
       SUM(case when CHEM_CD = 'Pb' then CHEM_VAL else 0 end) Pb,
       SUM(case when CHEM_CD = 'Zn' then CHEM_VAL else 0 end) Zn,
       SUM(case when CHEM_CD = 'L2_Xtz' then CHEM_VAL else 0 end) L2_Xtz,
       SUM(case when CHEM_CD = 'La' then CHEM_VAL else 0 end) La,
       SUM(case when CHEM_CD = 'Sb' then CHEM_VAL else 0 end) Sb,
       
       SUM(case when CHEM_CD = 'Se' then CHEM_VAL else 0 end) Se,
       SUM(case when CHEM_CD = 'Mg' then CHEM_VAL else 0 end) Mg,
       SUM(case when CHEM_CD = 'L2_Cd' then CHEM_VAL else 0 end) L2_Cd,
       SUM(case when CHEM_CD = 'O' then CHEM_VAL else 0 end) O,
       SUM(case when CHEM_CD = 'H' then CHEM_VAL else 0 end) H,  
       
       SUM(case when CHEM_CD = 'Fe' then CHEM_VAL else 0 end) Fe,
       SUM(case when CHEM_CD = 'L2_Cs' then CHEM_VAL else 0 end) L2_Cs,
       SUM(case when CHEM_CD = 'L2_Zr' then CHEM_VAL else 0 end) L2_Zr,
       SUM(case when CHEM_CD = 'L2_Psr' then CHEM_VAL else 0 end) L2_Psr,
       SUM(case when CHEM_CD = 'W' then CHEM_VAL else 0 end) W              
      from tbb02_work_ingr  a
    where  proc_cd = 'JJ' and  a.charge_no = SUBSTR(:1,1,10)
  and a.CHEM_SEQ = substr((select LST_INGR_CD from tbg02_charge_comm_D where charge_no = a.CHARGE_NO),3,2)
    group by a.CHARGE_NO)
   WHERE T1.SLAB_NO LIKE :2||'%'  
        ]]> 
    </query>
	<query id="UIG040090_DSN_SLAB_NO.select" desc=" " fetchSize="10">
		<![CDATA[	
			SELECT B.DSN_SLAB_NO 
			FROM TBF01_SPEC_SLAB A,
				 TBG02_SLAB_COMM B
			WHERE A.SLAB_MANA_NO = B.PLAN_SLAB_NO
			AND   B.SLAB_NO = ?
		]]>
 </query> 
 
<query id="UIG040090_CHEM_ZHB_HEAD.SELECT">
	SELECT         TO_CHAR(SYSDATE  , 'YYYY-MM-DD HH24:MI')         DATE_ 
	              ,T.PRINT_ZH_NO                                    --打印流水号
	              ,T.PLT_TRS_CAR_NO                                 CAR_NO
	              ,DECODE(T.SLAB_RT ,  'Z' , '中板线' , '厚板线')     CHAN_XIAN
	              ,DECODE(? , 'Y' , 'Y' , 'N')                      NEED_CHEM     --是否打印成分
	              ,NVL(XB_PACKAGE.GF_USER_FIND(?) , ' ')      REG_NM
	FROM           TBG02_SLAB_COMM     T  
	WHERE          INSTR(? , T.SLAB_NO )     >           0
	AND            ROWNUM                    =           1
</query>
 <query id="UIG040090_CHEM_ZHB.SELECT">
 <![CDATA[	
 SELECT    ROW_NUMBER() OVER (ORDER BY T1.SLAB_NO )              序号
          ,T1.SLAB_NO                                            连铸坯标识
          ,T1.STL_GRD                                            牌号
          ,T2.L2_SCH_NO                                          计划号
          ,T1.SLAB_THK||'*'||T1.SLAB_WTH||'*'||T1.SLAB_LEN       规格
          ,'1'                                                   数量
          ,T1.SLAB_WGT                                           重量
          ,T1.WEIGHT_WGT                                         称重重量
          ,DECODE(T1.SLAB_INGR_DEC_GRD , '1' , '合格' , '2' , '不合格' , '待判定')                               判定结果
          ,SUBSTR(T3.CC_DEVNO ,2,1)                              铸机号
          ,T1.BEF_STL_GRD                                        检验员 
        /*  ,T1.SLAB_INGR_DEC_EMP_ID                               原牌号
          ,T1.SLAB_DCS_DETAIL                                    备注*/
 FROM      TBG02_SLAB_COMM T1  , TBD01_SLABDN_OBJ2 T2  , TBG02_CHARGE_COMM  T3
 WHERE     T1.DSN_SLAB_NO               =     T2.DSN_SLAB_NO(+)      
 AND       SUBSTR(T1.SLAB_NO ,1,10)     =     T3.CHARGE_NO
 AND       INSTR(? , T1.SLAB_NO )       >     0
 ORDER BY  T1.SLAB_NO
 ]]>
 </query>
 <query id="UIG040090_CHEM_ZHB_CHFEN.SELECT">
SELECT  ROW_NUMBER() OVER (ORDER BY XXX.SLAB_NO ) 序号, XXX.*    FROM 
(
      SELECT
              T2.SLAB_NO 
              ,MAX(DECODE(T1.CHEM_CD , 'C'   , CHEM_VAL )) C
              ,MAX(DECODE(T1.CHEM_CD , 'Mn'  , CHEM_VAL )) MN
              ,MAX(DECODE(T1.CHEM_CD , 'S'   , CHEM_VAL )) S
              ,MAX(DECODE(T1.CHEM_CD , 'P'   , CHEM_VAL )) P
              ,MAX(DECODE(T1.CHEM_CD , 'Si'  , CHEM_VAL )) SI
              ,MAX(DECODE(T1.CHEM_CD , 'Cr'  , CHEM_VAL )) CR
              ,MAX(DECODE(T1.CHEM_CD , 'Ni'  , CHEM_VAL )) NI
              ,MAX(DECODE(T1.CHEM_CD , 'Cu'  , CHEM_VAL )) CU
              ,MAX(DECODE(T1.CHEM_CD , 'Nb'  , CHEM_VAL )) NB
              ,MAX(DECODE(T1.CHEM_CD , 'Mo'  , CHEM_VAL )) MO
              ,MAX(DECODE(T1.CHEM_CD , 'V'   , CHEM_VAL )) V
              ,MAX(DECODE(T1.CHEM_CD , 'Ti'  , CHEM_VAL )) TI
              ,MAX(DECODE(T1.CHEM_CD , 'Alt' , CHEM_VAL )) ALT
              ,MAX(DECODE(T1.CHEM_CD , 'Als' , CHEM_VAL )) ALS
              ,MAX(DECODE(T1.CHEM_CD , 'B'   , CHEM_VAL )) B
              ,MAX(DECODE(T1.CHEM_CD , 'N'   , CHEM_VAL )) N
      FROM     TBB02_WORK_INGR T1 , TBG02_SLAB_COMM T2 , TBG02_CHARGE_COMM_D T3
      WHERE    T1.CHARGE_NO              =    SUBSTR(T2.SLAB_NO , 1,10)
      AND      T1.CHARGE_NO              =    T3.CHARGE_NO
      AND      T1.PROC_CD||T1.CHEM_SEQ   =    T3.LST_INGR_CD
      AND      INSTR(?  ,  T2.SLAB_NO )  >    0  
      GROUP    BY     T2.SLAB_NO
)   XXX
ORDER BY XXX.SLAB_NO
 </query>
 
 <query id="UIG040090_CHEM_ZHB.UPDATE" desc="流水号">
     UPDATE      TBG02_SLAB_COMM      T
     SET	     T.PRINT_ZH_NO        =     (SELECT  'EG-'||TO_CHAR(SYSDATE , 'YYYYMMDD')||'-'||TO_CHAR( NVL(MAX(SUBSTR(X.PRINT_ZH_NO ,13 ,7)) , 0) +1 , '000')          
                                             FROM    TBG02_SLAB_COMM              X 
                                             WHERE   SUBSTR(X.PRINT_ZH_NO , 4,8)  =     TO_CHAR(SYSDATE , 'YYYYMMDD') 
                                            )
     WHERE      INSTR(? , T.SLAB_NO ) >     0 
 </query>
 
</queryMap>