XinYu_RZMES/.svn/pristine/87/87cc45248f81f87102e6502b872557fef09fc32e.svn-base

<?xml version="1.0" encoding='UTF-8'?>
<queryMap desc="STEEL MAKING QUERY ">	
	<query id="REPLACE_CHARGE_COMM.select" desc="  " fetchSize="10">
		<![CDATA[
		   select '' CHK,CHARGE_NO,CUR_PROG_CD,STL_GRD,SLAB_RT from tbg02_charge_comm t 
			where  T.CHARGE_STAT = '2' 
			ORDER BY T.CHARGE_NO ASC
		]]>
	</query> 
	<query id="ORL_SLAB_COMM.select" desc="  " fetchSize="10">
		<![CDATA[
		   select '' CHK,SLAB_NO,INSTR_SLAB_THK||'*'||INSTR_SLAB_WTH||'*'||INSTR_SLAB_LEN SLAB_SIZE,ORD_NO 
			from tbg02_slab_comm t where t.SLAB_NO like ?||'%'
			ORDER BY SLAB_NO ASC
		]]>
	</query> 
	<query id="NIG020061_01.CALLSTATEMENT" desc=" 切割计划变更处理 ">
		{call NIG020061(?,?,?,?,?,?,?,?,?,?,?,?,?,?)}
	</query>
	<query id="NIG020062_01.CALLSTATEMENT" desc=" 切割计划变更处理 ">
		{call NIG020062(?)}
	</query>
	<query id="UIG020061_CHARGE_COMM.select" desc="  " fetchSize="10">
		<![CDATA[
		   SELECT CHARGE_NO,CHARGE_WGT,CUR_PROG_CD FROM TBG02_CHARGE_COMM T WHERE CHARGE_NO = ?
		]]>
	</query>
	<query id="UIG020061_REPLACE_CHARGE.select" desc=" 获得要移动板坯的两个炉次号 " fetchSize="10">
		<![CDATA[
		   SELECT DISTINCT PLAN_CHARGE_NO FROM TBG06_L2_SLAB_CUT_MOVE ORDER BY PLAN_CHARGE_NO ASC
		]]>
	</query>
	<query id="UIG020061_REPLACE_CHECK.select" desc=" 确定移动的两个炉次的牌号，规格，去向一致 " fetchSize="10">
		<![CDATA[
		    SELECT A.STL_GRD,A.SLAB_THK,A.SLAB_WTH,A.SLAB_RT
			FROM
				(SELECT T.STL_GRD,T.INSTR_SLAB_THK SLAB_THK,T.INSTR_SLAB_WTH SLAB_WTH,T.SLAB_RT FROM TBG02_SLAB_COMM T WHERE T.SLAB_NO =  ?)A
				,(SELECT T.STL_GRD,T.INSTR_SLAB_THK SLAB_THK,T.INSTR_SLAB_WTH SLAB_WTH,T.SLAB_RT FROM TBG02_SLAB_COMM T WHERE T.SLAB_NO =  ?)B
			WHERE A.STL_GRD  = B.STL_GRD
			AND   A.SLAB_THK = B.SLAB_THK
			AND   A.SLAB_WTH = B.SLAB_WTH
			AND   A.SLAB_RT  = B.SLAB_RT
		]]>
	</query>
	<query id="UIG020061_ORAL_CHARGE_NO.select" desc=" 获得要移动板坯的两个炉次号 " fetchSize="10">
		<![CDATA[
		   SELECT T.CHARGE_MANA_NO
             ,T.CHARGE_SLAB_SEQ
           	,B.SLAB_NO SLAB_MANA_NO
			   ,T.CAST_MANA_NO
			   ,TT.CAST_CHARGE_SEQ
			   ,TT.CAST_EDT_CHARGE_CNT
			   ,T.STL_GRD,TT.SPEC_ABBSYM
			   ,T.SLAB_THK
			   ,T.SLAB_WTH
			   ,T.SLAB_LEN
			   ,T.HCR_CLF
		  FROM TBF01_SPEC_SLAB T 
			 ,TBF01_SPEC_CHARGE TT
			 ,TBG02_SLAB_COMM B
		  WHERE '1' = '1' 
		  AND  T.CHARGE_MANA_NO = ?
		  AND  T.SLAB_MANA_NO =  B.PLAN_SLAB_NO
		  AND  T.CHARGE_MANA_NO = TT.CHARGE_MANA_NO
		  ORDER BY T.CHARGE_SLAB_SEQ DESC
		]]>
	</query>
	<query id="UIG020061_SLAB_CUT_INS_01.insert" desc=" 移动过的板坯的指示重新下发 " fetchSize="10">
		<![CDATA[
		    INSERT INTO TBG06_L2_SLAB_CUT_INS 
			SELECT                       D.SEQ_NO + ROW_NUMBER() OVER (ORDER BY A.SEQ_NO)   SEQ_NO
										,'N'                                   MSG_FLAG
										,'L3KR00005'                           TC_ID
										,TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS')  TRANS_DTIME
										,LPAD(TO_CHAR(D.SEQ_NO + ROW_NUMBER() OVER (ORDER BY A.SEQ_NO)),4,'0')                             SEND_SEQ
										,''                                    SEND_RESERV
										,DECODE(SEND_CLF,'R','U',SEND_CLF)      SEND_CLF
										,'3'||SUBSTR(PLAN_CHARGE_NO,2,9) PLAN_CHARGE_NO
										,'3'||SUBSTR(PLAN_SLAB_NO,2,12) PLAN_SLAB_NO
										,CAST_NO
										,CAST_EDT_CHARGE_CNT
										,CAST_CHARGE_SEQ
										,STL_GRD
										,SPEC_ABBSYM
										,SLAB_THK
										,SLAB_WTH
										,SLAB_LEN
										,HCR_CLF
									 FROM  TBG06_L2_SLAB_CUT_MOVE  A
										,(SELECT  NVL(MAX(SEQ_NO),0) SEQ_NO
											FROM  TBG06_L2_SLAB_CUT_INS
										   WHERE  TRANS_DTIME  LIKE  TO_CHAR(SYSDATE, 'YYYYMMDD') || '%') D
					   where a.send_clf <> 'R'    
								  ORDER  BY  A.SEQ_NO
		]]>
	</query>
	<query id="UIG020061_SLAB_CUT_INS_02.insert" desc=" 移动过的板坯的指示重新下发 " fetchSize="10">
		<![CDATA[
		    INSERT INTO TBG06_L2_SLAB_CUT_INS 
			SELECT                       D.SEQ_NO + ROW_NUMBER() OVER (ORDER BY A.SEQ_NO)   SEQ_NO
										,'N'                                   MSG_FLAG
										,'L3KR00005'                           TC_ID
										,TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS')  TRANS_DTIME
										,LPAD(TO_CHAR(D.SEQ_NO + ROW_NUMBER() OVER (ORDER BY A.SEQ_NO)),4,'0')                             SEND_SEQ
										,''                                    SEND_RESERV
										,DECODE(SEND_CLF,'R','U',SEND_CLF)      SEND_CLF
										,'3'||SUBSTR(PLAN_CHARGE_NO,2,9) PLAN_CHARGE_NO
										,'3'||SUBSTR(PLAN_SLAB_NO,2,12) PLAN_SLAB_NO
										,CAST_NO
										,CAST_EDT_CHARGE_CNT
										,CAST_CHARGE_SEQ
										,STL_GRD
										,SPEC_ABBSYM
										,SLAB_THK
										,SLAB_WTH
										,SLAB_LEN
										,HCR_CLF
									 FROM  TBG06_L2_SLAB_CUT_MOVE  A
										,(SELECT  NVL(MAX(SEQ_NO),0) SEQ_NO
											FROM  TBG06_L2_SLAB_CUT_INS
										   WHERE  TRANS_DTIME  LIKE  TO_CHAR(SYSDATE, 'YYYYMMDD') || '%') D
					   where a.send_clf = 'R'    
								  ORDER  BY  A.SEQ_NO
		]]>
	</query>
	<query id="UIG020061_SLAB_CUT_INS_03.insert" desc=" 移动过后 下一炉次需要删除的计划板坯信息 " fetchSize="10">
		<![CDATA[
		    INSERT INTO TBG06_L2_SLAB_CUT_INS 
	        SELECT        D.SEQ_NO + ROWNUM  SEQ_NO
								,'N'                                   MSG_FLAG
								,'L3KR00005'                           TC_ID
								,TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS')  TRANS_DTIME
								,LPAD(TO_CHAR(D.SEQ_NO + ROW_NUMBER() OVER (ORDER BY A.SEQ_NO)),4,'0')                             SEND_SEQ
								,''                                    SEND_RESERV
								,DECODE(SEND_CLF,'I','D','I')      SEND_CLF
								,?-- PLAN_CHARGE_NO
								,?-- PLAN_SLAB_NO
								,?--CAST_NO
								,?--CAST_EDT_CHARGE_CNT
								,?--CAST_CHARGE_SEQ
								,?--STL_GRD
								,?--SPEC_ABBSYM
								,?--SLAB_THK
								,?--SLAB_WTH
								,?--SLAB_LEN
								,?--HCR_CLF
							 FROM  TBG06_L2_SLAB_CUT_MOVE  A
								,(SELECT  NVL(MAX(SEQ_NO),0) SEQ_NO
									FROM  TBG06_L2_SLAB_CUT_INS
								   WHERE  TRANS_DTIME  LIKE  TO_CHAR(SYSDATE, 'YYYYMMDD') || '%') D
               where a.send_clf <> 'R'    
               AND ROWNUM = '1'
						  ORDER  BY  A.SEQ_NO
		]]>
	</query>
	<query id="UIG020061_MOVE_SLAB_CNT.select" desc=" 获得要移动板坯的两个炉次号 " fetchSize="10">
		<![CDATA[
		   select COUNT(T.SEQ_NO) SLAB_CNT from TBG06_L2_SLAB_CUT_MOVE t where   t.send_clf = 'R'
		]]>
	</query>
	<query id="UIG020061_SLAB_CUT_INS_04.insert" desc=" 移动过后 下一炉次需要修改的计划板坯信息 " fetchSize="10">
		<![CDATA[
			INSERT INTO TBG06_L2_SLAB_CUT_INS
		    SELECT                       D.SEQ_NO + ROW_NUMBER() OVER (ORDER BY A.SEQ_NO)   SEQ_NO
										,'N'                                   MSG_FLAG
										,'L3KR00005'                           TC_ID
										,TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS')  TRANS_DTIME
										,LPAD(TO_CHAR(D.SEQ_NO + ROW_NUMBER() OVER (ORDER BY A.SEQ_NO)),4,'0')                             SEND_SEQ
										,''                                    SEND_RESERV
										,DECODE(SEND_CLF,'R','U',SEND_CLF)      SEND_CLF
										,'3'||SUBSTR(PLAN_CHARGE_NO,2,9) PLAN_CHARGE_NO
										,'3'||SUBSTR(PLAN_SLAB_NO,2,12) PLAN_SLAB_NO
										,CAST_NO
										,CAST_EDT_CHARGE_CNT
										,CAST_CHARGE_SEQ
										,STL_GRD
										,SPEC_ABBSYM
										,SLAB_THK
										,SLAB_WTH
										,SLAB_LEN
										,HCR_CLF
									 FROM  TBG06_L2_SLAB_CUT_MOVE  A
										,(SELECT  NVL(MAX(SEQ_NO),0) SEQ_NO
                      FROM  TBG06_L2_SLAB_CUT_INS
                       WHERE  TRANS_DTIME  LIKE  TO_CHAR(SYSDATE, 'YYYYMMDD') || '%') D
             where a.send_clf = 'R'    
             and   rownum <= ?
                  ORDER  BY  A.SEQ_NO
		]]>
	</query>
	<query id="UIG020061_SLAB_CUT_INS_05.insert" desc=" 移动过后 下一炉次需要修改的计划板坯信息 " fetchSize="10">
		<![CDATA[
		    INSERT INTO TBG06_L2_SLAB_CUT_INS 
			select SEQ_NO,MSG_FLAG,TC_ID,TRANS_DTIME,SEND_SEQ,SEND_RESERV,decodE(send_clf,'R','I',SEND_CLF) SEND_CLF,PLAN_CHARGE_NO,PLAN_SLAB_NO,CAST_NO,CAST_EDT_CHARGE_CNT
				   ,CAST_CHARGE_SEQ,STL_GRD,SPEC_ABBSYM,SLAB_THK,SLAB_WTH,SLAB_LEN,HCR_CLF from 
						(SELECT                       D.SEQ_NO + ROW_NUMBER() OVER (ORDER BY A.SEQ_NO)   SEQ_NO
													,'N'                                   MSG_FLAG
													,'L3KR00005'                           TC_ID
													,TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS')  TRANS_DTIME
													,LPAD(TO_CHAR(D.SEQ_NO + ROW_NUMBER() OVER (ORDER BY A.SEQ_NO)),4,'0')                             SEND_SEQ
													,''                                    SEND_RESERV
													,SEND_CLF
													,'3'||SUBSTR(PLAN_CHARGE_NO,2,9) PLAN_CHARGE_NO
													,'3'||SUBSTR(PLAN_SLAB_NO,2,12) PLAN_SLAB_NO
													,CAST_NO
													,CAST_EDT_CHARGE_CNT
													,CAST_CHARGE_SEQ
													,STL_GRD
													,SPEC_ABBSYM
													,SLAB_THK
													,SLAB_WTH
													,SLAB_LEN
													,HCR_CLF
												 FROM  TBG06_L2_SLAB_CUT_MOVE  A
													,(SELECT  NVL(MAX(SEQ_NO),0) SEQ_NO
								  FROM  TBG06_L2_SLAB_CUT_INS
								   WHERE  TRANS_DTIME  LIKE  TO_CHAR(SYSDATE, 'YYYYMMDD') || '%') D
						 where a.send_clf = 'R'    
						 ORDER  BY  A.SEQ_NO desc)
						 where rownum <= ?
						 ORDER  BY  SEQ_NO
		]]>
	</query>
</queryMap>