XinYu_RZMES/.svn/pristine/08/081bdd4376f4fcb9cacebe3f9607231bc3a251ad.svn-base

<?xml version="1.0" encoding='UTF-8'?>
<queryMap desc="STEEL MAKING QUERY ">
	<query id="UIH020020_01.select" desc="init " fetchSize="10">
		<![CDATA[
			SELECT  a.SLAB_NO
                  , a.COIL_NO
                  , DECODE(RHF_STAT,'1','入炉','2','出炉','3','吊销')  RHF_STAT 
                  , a.DEVNO
                  , a.CHRGING_BEF_TEMP
                  , a.CHRGING_BEF_WGT
                  , a.EQ_HT_TEMP
                  , a.INFUR_HOUR
                  , a.CHARING_DTIME
                  , a.EXTRACT_DTIME
                  , a.EXTRACT_AVG_TEMP  
                  , b.MISSNO_CAUSE_CD 
                  , b.MISSNO_DTIME 
		 FROM TBH02_REHEATFUR a ,
		      TBH02_RHF_MISSNO b
		  WHERE   a.SLAB_NO = b.SLAB_NO(+)
			and   a.RHF_STAT IN ('1','2','3')  
			and   a.devno LIKE  ?||'%'  
			and   a.RHF_STAT <> '3'
			ORDER BY A.RHF_STAT,A.COIL_NO
		]]>
	</query>
	<query id="UIH020020_INIT.select" desc="init " fetchSize="10">
		<![CDATA[
		 SELECT   distinct b.SLAB_NO label1 
                ,b.SLAB_NO value1    
		            ,b.COIL_NO label2
		            ,b.COIL_NO value2
                ,b.ROLL_SLAB_SEQ
                ,b.ROLL_MANA_NO
              FROM  TBF02_MILL_IDX  a,
                    TBF02_SPEC_MILL b   
             WHERE   a.SLAB_NO = b.SLAB_NO
               AND   b.STATUS_CD  IN('A','B')
               AND  a.L2_SEND = 'Y'
            ORDER BY  b.ROLL_MANA_NO, 
                       b.ROLL_SLAB_SEQ 
  
		]]>
	</query>
	<query id="UIH020020_COIL_NO.select" desc="init " fetchSize="10">
		<![CDATA[ 
	   SELECT COIL_NO,SLAB_WGT FROM TBF02_SPEC_MILL
          WHERE SLAB_NO = ? 
            AND (STATUS_CD = 'A' or STATUS_CD = 'B')
		]]>
	</query>
	<query id="UIH020020_EMP.select" desc="init " fetchSize="10">
		<![CDATA[
		 SELECT  EMP_NM  label  
                ,EMP_NM  value  
         FROM   TBZ01_FAC_EMP_GROUP   
         WHERE  GROUP_CD = ? 
          AND   PROC_CD  = 'RB' 
          AND   FAC_CD = 'R' 
		]]>
	</query>
	<query id="UIH020020_GROUP.select" desc="init " fetchSize="10">
		<![CDATA[
		 SELECT SM_CFNM    label      
              , SM_CD   value
           FROM   TBZ00_COMMCD   
          WHERE LG_CD = 'Z05002' 
		]]>
	</query>
	<query id="UIH020020_SHIFT.select" desc="init " fetchSize="10">
		<![CDATA[
		  SELECT SM_CFNM    label      
               , SM_CD   value
           FROM  TBZ00_COMMCD   
          WHERE LG_CD = 'Z05001' 
		]]>
	</query>
	<query id="UIH020020_REJ_CD.select" desc="init " fetchSize="10">
		<![CDATA[
		 SELECT SM_CFNM    label 
               ,SM_CD      value  
          FROM  TBZ00_COMMCD   
         WHERE  LG_CD = 'H02008'   
		]]>
	</query>
	<query id="UIH020020_REJ_RES_CD.select" desc="init " fetchSize="10">
		<![CDATA[
		 SELECT SM_CFNM    label 
               ,SM_CD      value 
          FROM  TBZ00_COMMCD   
         WHERE  LG_CD = 'H02009'   
		]]>
	</query>
	<query id="UIH020020_02.select" desc="查询板坯详细信息,这里钢卷号来源轧制。没有钢卷号的情况说明在计划中不存在 " fetchSize="10">
		<![CDATA[
			select   a.DEVNO
			        ,a.CHRGING_WKSHIFT
			        ,a.CHRGING_WKGROUP
			        ,a.CHRGING_WK_EMP_NO
			        ,a.CHARING_DTIME
					,a.CHRGING_BEF_WGT
					,a.CHRGING_BEF_TEMP 
				   	,a.EXTRACT_WKSHIFT
				   	,a.EXTRACT_WKGROUP
				   	,a.EXTRACT_WK_EMP_NO
					,a.EXTRACT_DTIME
					,a.INFUR_HOUR
					,a.EXTRACT_AVG_TEMP
					,a.EQ_HT_INFUR_HOUR
					,a.EQ_HT_TEMP + 1000 EQ_HT_TEMP
                    ,DECODE(a.ROW_NUM,'1','一列','2','二列','0','长坯')  ROW_NUM 
			        ,b.MISSNO_WKSHIFT
			        ,b.MISSNO_WKGROUP
			        ,b.MISSNO_WK_EMP_NO
					,b.MISSNO_DTIME
					,b.MISSNO_CLF
					,b.MISSNO_CAUSE_CD
			
			from TBH02_REHEATFUR a
				 ,TBH02_RHF_MISSNO b 
			where a.SLAB_NO = b.SLAB_NO(+) 
				  and a.coil_no = b.coil_no(+)
				  and a.slab_no = ? and a.coil_no LIKE ?||'%' 	
		]]>
	</query>
	 
	<query id="UIH020020_03.select" desc="加热炉出炉 从TBF02_SPEC_MILL表插到TBH02_COIL_COMM中的数据" fetchSize="10">
		<![CDATA[
			select  STL_GRD                --牌号
					,SPEC_ABBSYM           --标准号
					,DELV_REQ_DATE         --交货期
					,ORD_USEAGE_CD         --定单用途代码
					,ROUTE                 --去向
			from TBF02_SPEC_MILL 
			where COIL_NO = ?	
		]]>
	</query>
	<query id="UIH020020_04.select" desc="加热炉出炉 从TBF02_SPEC_MILL_D表插到TBH02_COIL_COMM_D中的数据" fetchSize="10">
		<![CDATA[
			select COIL_CUT_SEQ
				   ,ORD_THK
				   ,ORD_WTH
				   ,ORD_LEN
				   ,ORD_WGT
				   ,ORD_WGT_MIN
				   ,ORD_WGT_MAX
				   ,ORD_INDIA
				   ,ORD_OUTDIA
				   ,ORD_NO
				   ,ORD_SEQ
				   ,ORD_FL
			from TBF02_SPEC_MILL_D
			where  SLAB_EDT_SEQ = ?		
		]]>
	</query>
	<query id="UIH020020_05.select" desc="从TBG02_SLAB_COMM表插到TBH02_SLAB_COMM中的数据" fetchSize="10">
		<![CDATA[
			select SLAB_WGT,CUR_PROG_CD,ORD_NO,ORD_SEQ from tbg02_slab_comm where SLAB_NO = ? AND SLAB_STAT = '2'
		]]>
	</query>
	<query id="UIH020020_06.select" desc="获取钢卷公共表中的卷号信息来进行炉前取消操作" fetchSize="10">
		<![CDATA[
			select a.OLD_SAMPL_NO from tbh02_coil_comm a where a.SLAB_NO = ? and a.COIL_NO = ?
		]]>
	</query>
	<query id="UIH020020_01.update" desc="加热炉入炉 TBH02_REHEATFUR修改 " fetchSize="10">
		<![CDATA[
			update TBH02_REHEATFUR set
                        CHARING_DTIME     = ?
                       ,CHRGING_BEF_WGT   = ?
                       ,CHRGING_BEF_TEMP  = ?
                       ,CHRGING_WKSHIFT   = ?
                       ,CHRGING_WKGROUP   = ?
                       ,CHRGING_WK_EMP_NO = ?
					   ,ROW_NUM           = ? 
			           ,MOD_ID            = 'UIH020020'
			           ,MOD_DTIME          = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
			where     slab_no = ? and coil_no = ? 
		]]>
	</query>
	<query id="UIH020020_02.update" desc="加热炉入炉 tbg02_slab_comm修改  " fetchSize="10">
		<![CDATA[
			update TBG02_SLAB_COMM set
					    RHF_CHARGING_STAT_CD = '1'
						,SLAB_RHF_IN_DTIME   = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
						,BEF_PROG_CD         = CUR_PROG_CD
						,BEF_PROG_CD_PGM = CUR_PROG_CD_PGM
						,BEF_PROG_CD_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
						,CUR_PROG_CD           = 'RBB'
						,CUR_PROG_CD_PGM   = 'UIH020020'
						,CUR_PROG_CD_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
						,SLAB_STOCK_EXT_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
						,CUR_LOAD_LOC = 'RFI'
						,CUR_LOAD_LOC_DTIME   = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
			where slab_no = ?
		]]>
	</query>
	<query id="UIH020020_03.update" desc="加热炉出炉 tbg02_slab_comm修改  " fetchSize="10">
		<![CDATA[
			update TBG02_SLAB_COMM set
						RHF_CHARGING_STAT_CD = '2' 
            			,MATRL_END_DTIME     = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
						,SLAB_RHF_OUT_DTIME   = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
						,CUR_PROG_CD           = 'RCB'
						,CUR_PROG_CD_PGM   = ?
						,CUR_PROG_CD_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
					    ,BEF_PROG_CD         = CUR_PROG_CD
						,BEF_PROG_CD_PGM = CUR_PROG_CD_PGM
						,BEF_PROG_CD_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
					
			where slab_no = ?  
		]]>
	</query>
	<query id="UIH020020_04.update" desc="板坯缺号 tbg02_slab_comm修改  " fetchSize="10">
		<![CDATA[
			update TBG02_SLAB_COMM set
						 SLAB_STAT = ?
						,MISSNO_CLF        = ?
                        ,MISSNO_CAUSE_CD   = ?
                        ,MISSNO_OCR_DTIME  = ?
                        ,MISSNO_EMP_ID     = ?
						,BEF_PROG_CD         = CUR_PROG_CD
						,BEF_PROG_CD_PGM = CUR_PROG_CD_PGM
						,BEF_PROG_CD_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
						--,CUR_PROG_CD           = 'RRC'
						,CUR_PROG_CD_PGM   = 'UIH020020'
						,CUR_PROG_CD_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
						,RHF_CHARGING_STAT_CD = ''
				        ,MILL_SCH_STAT = ''
			where slab_no = ?
		]]>
	</query>
	<query id="UIH020020_05.update" desc="加热炉出炉 TBH02_REHEATFUR修改 " fetchSize="10">
		<![CDATA[
			update TBH02_REHEATFUR set
                        EXTRACT_DTIME = ?
                       ,INFUR_HOUR = ?
                       ,EXTRACT_AVG_TEMP = ?
					   ,EQ_HT_INFUR_HOUR = ?
					   ,EQ_HT_TEMP       = ?
					   ,EXTRACT_WKSHIFT = ?
					   ,EXTRACT_WKGROUP = ?
					   ,EXTRACT_WK_EMP_NO = ?	
					   ,RHF_STAT   = ?
			           ,MOD_ID       = 'UIH020020'
                       ,MOD_DTIME    = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
			where      SLAB_NO = ? and COIL_NO = ? 
		]]>
	</query>
	<query id="UIH020020_06.update" desc=" 板坯缺号 TBH02_RHF_MISSNO修改 " fetchSize="10">
		<![CDATA[
			update TBH02_RHF_MISSNO set
             COIL_NO    = ?
                       ,MISSNO_DTIME = ?
                       ,MISSNO_CLF = ?
                       ,MISSNO_CAUSE_CD = ?
                       ,MISSNO_WKSHIFT = ?
                       ,MISSNO_WKGROUP = ?
                       ,MISSNO_WK_EMP_NO = ?
                 ,REG_USE_ID = ?
                 ,MOD_ID     =  'UIH020020'
                 ,MOD_DTIME  = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')
      where     SLAB_NO = ?  and  COIL_NO = ?
		]]>
	</query>
	<query id="UIH020020_07.update" desc=" 板坯缺号 TBH02_REHEATFUR修改 " fetchSize="10">
		<![CDATA[
			update TBH02_REHEATFUR set
				    RHF_STAT    = ?
			where     SLAB_NO = ? and  COIL_NO = ? 
		]]>
	</query>
	<query id="UIH020020_08.update" desc="板坯缺号 tbg02_slab_comm修改  " fetchSize="10">
		<![CDATA[
			update TBG02_SLAB_COMM set
				   SLAB_STAT = '3'
			     , MATRL_END_CAUSE_CD = '1'
                 , MATRL_END_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')			
			 	where slab_no = ?
		]]>
	</query>
	<query id="UIH020020_09.update" desc="轧回 tbg02_slab_comm修改  " fetchSize="10">
		<![CDATA[
			update TBG02_SLAB_COMM set
					   SLAB_WTH   = ?,
					   SLAB_THK   = ?,
					   SLAB_LEN   = ?,
					   REG_ID     = 'MissionNo',
					   REG_DTIME  =  TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')        
					 where slab_no = ? 
		]]>
	</query>
	<query id="UIH020020_10.update" desc="轧回 tbg04_slab_yard修改  " fetchSize="10">
		<![CDATA[
			update tbg04_slab_yard set
				   SLAB_NO   = ?,
				   REG_ID    = ?,
			       REG_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')  			
			 	where YARD_ADDR = ?
		]]>
	</query>
	<query id="UIH020020_11.update" desc="炉前取消 tbg04_slab_yard修改  " fetchSize="10">
		<![CDATA[
			update tbg04_slab_yard set
				   SLAB_NO   = ?,
				   REG_ID    = ?,
			       REG_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')  			
			 	where YARD_ADDR = ? AND STORELAY = ?
		]]>
	</query>
	<query id="UIH020020_01.insert" desc="加热炉入炉 " fetchSize="10">
		<![CDATA[
			insert into TBH02_REHEATFUR   
						(   slab_no
							,DEVNO
							,RHF_STAT
							,COIL_NO
							,CHARING_DTIME
							,CHRGING_BEF_WGT
							,CHRGING_BEF_TEMP
							,CHRGING_WKSHIFT
							,CHRGING_WKGROUP
							,CHRGING_WK_EMP_NO
							,ROW_NUM
			                ,REG_ID
			                ,REG_DTIME 
						)
						values
						(   ?
							,?
							,'1'
							,?
							,?
							,?
							,?
							,?
							,?
							,?
			                ,? 
			                ,'UIH020020'
			                ,TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')
						)
		]]>
	</query>
	<query id="UIH020020_02.insert" desc="加热炉出炉 " fetchSize="10">
		<![CDATA[
			insert into TBH02_REHEATFUR   
						(   SLAB_NO
							,DEVNO
							,RHF_STAT
							,COIL_NO
							,EXTRACT_DTIME
							,INFUR_HOUR
							,EXTRACT_AVG_TEMP
							,EQ_HT_INFUR_HOUR
							,EQ_HT_TEMP
							,EXTRACT_WKSHIFT
							,EXTRACT_WKGROUP
							,EXTRACT_WK_EMP_NO
			                ,REG_ID
                            ,REG_DTIME 
						)
						values
						(   ?
							,?
							,'2'
							,?
							,?
							,?
							,?
							,?
							,?
							,?
							,?
							,?
			                ,'UIH020020'
                            ,TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')
						)
		]]>
	</query>
	<query id="UIH020020_03.insert" desc="加热炉出炉 将TBF02_SPEC_MILL中的 钢号, 规格略号, 交货期, 订单用途代码, 产品代码, 订单去向 插入到TBH02_COIL_COMM表中 " fetchSize="10">
		<![CDATA[
		INSERT INTO   TBH02_COIL_COMM                                
                    (   COIL_NO                                                   
                       ,SLAB_NO                                          
                       ,STL_GRD                                                
                       ,SPEC_ABBSYM                                            
                       ,ORD_NO                                                 
                       ,ORD_SEQ                                                
                       ,ORD_USE_CD                                             
                       ,PRODNM_CD                                              
                       ,ORD_FL                                                  
                       ,SPM_YN                                                 
                       ,ORDCUST_CD                                            
                       ,DEVLMT_DTIME                                                                                          
                       ,PATH_MILL_CD                                           
                       ,Pack_Method_Cd       --包装方法 CODE                                     
                       ,INSTR_COIL_INDIA                                              
                       ,INSTR_COIL_OUTDIA                                             
                       ,INSTR_COIL_THK                                                
                       ,INSTR_COIL_WTH                                                
                       ,INSTR_COIL_WGT                                               
                       ,DEST_CD                   
                       ,EXTSHAPE_DEC_GRD     --外观判定等级     
                       ,COIL_STAT            --钢卷状态                                              
					   ,ROUTE
			           ,REG_ID
			           ,REG_PGM
			           ,REG_DTIME
			           ,CUST_CD
			           ,ORG_ORD_NO
			           ,ORG_ORD_SEQ
				   )                                                                  
                  VALUES                                                             
                  (    ?                                                              
                       ,?                                                                     
                       ,?                                                                     
                       ,?                                               
                       ,?                                                                  
                       ,?                                                                     
                       ,?                                                                     
                       ,?                                                                     
                       ,?                                                                     
                       ,?                                                                     
                       ,?                                                                     
                       ,?                                                                     
                       ,?                                                                     
                       ,?                                                                     
                       ,?                                                                     
                       ,?                                                                     
                       ,?                                                                     
                       ,?                                                                     
                       ,?                                                                     
                       ,?                                                                                                                                        
                       ,''                                                                  
                       ,'1'
			           ,?   
			           ,'UIH020020' 
			           ,'PosSaveOutHeatFunc'   
			           ,TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')    
			           ,?  
			           ,?
			           ,?                                                       
                     )
		]]>
	</query>
	<query id="UIH020020_04.insert" desc="加热炉出炉 将TBF02_SPEC_MILL_D中的数据插入到TBH02_COIL_COMM表中 " fetchSize="10">
		<![CDATA[
			insert into TBH02_COIL_COMM_D   
      		(       COIL_NO
					,CUT_SEQ     
					,ORD_THK
					,ORD_WTH
					,ORD_LEN
					,ORD_WGT
					,ORD_WGT_MIN
					,ORD_WGT_MAX
					,ORD_INDIA
					,ORD_OUTDIA
					,ORD_NO
					,ORD_SEQ
					,ORD_FL
			  )values
			  (     ?
					,?
					,?
					,?
					,?  
					,?
					,?
					,?
					,? 
					,?
					,?
					,?
					,?
			  )
		]]>
	</query>
	<query id="UIH020020_05.insert" desc="板坯缺号" fetchSize="10">
		<![CDATA[
			insert into TBH02_RHF_MISSNO   
						(   SLAB_NO
							,COIL_NO
							,MISSNO_DTIME
							,MISSNO_CLF
							,MISSNO_CAUSE_CD
							,MISSNO_WKSHIFT
							,MISSNO_WKGROUP
							,MISSNO_WK_EMP_NO
			                ,REG_USE_ID
			                ,REG_ID
			                ,REG_DTIME  
						)	
						values
						(   ?
							,?
							,?
							,?
							,?
							,?
							,?
							,?
			                ,? 
			                ,'UIH020020'
			                ,TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
						)
		]]>
	</query>
	<query id="UIH020020_COIL_COMM.update" desc="  " fetchSize="10">
        <![CDATA[
            update TBH02_COIL_COMM set
                   COIL_STAT   = ?         
                where COIL_NO = ? 
        ]]>
    </query>
</queryMap>