XinYu_RZMES/.svn/pristine/16/16b41f982a7d83459f44efee0f1f36756c6f8f89.svn-base

<?xml version="1.0" encoding='UTF-8'?>
<queryMap desc="合同完成情况汇总">

	<query id="UID080010.rollwork.Select" desc="合同完成情况汇总" fetchSize="10">
		<![CDATA[
	    SELECT 'FALSE' AS CHK
			   ,T.ROLL_MANA_NO
			   ,T.ROLL_SLAB_SEQ
			   ,T.SLAB_NO
			   ,T.COIL_NO
			   ,T.SLAB_THK
			   ,T.SLAB_WTH
			   ,T.SLAB_LEN
			   ,T.SLAB_WGT
			   ,T.STL_GRD
			   ,T.SPEC_STL_GRD
			   ,T.ORD_NO
			   ,T.ORD_SEQ
	      FROM TBF02_SPEC_MILL T, TBH02_COIL_COMM S
		 WHERE T.STATUS_CD = 'A'
		   AND T.COIL_NO = S.COIL_NO(+)
		   AND S.COIL_NO IS NULL
		   AND T.HCR_CLF = 'C'
		   AND T.ROLL_MANA_NO LIKE :1 ||'%'
		 ORDER BY T.ROLL_MANA_NO ASC, T.ROLL_SLAB_SEQ ASC
        
		]]>
	</query> 
	<query id="UID080010.rollwork_bb.findRollManaNo" desc="轧辊号查询" fetchSize="10">
		<![CDATA[

			SELECT '%' AS ROLL_MANA_NO, '--全部--' AS ROLL_MANA_NO_2
 			 FROM DUAL
			 WHERE 1 = 1
			UNION ALL
			SELECT DISTINCT T.ROLL_MANA_NO, T.ROLL_MANA_NO AS ROLL_MANA_NO_2
			  FROM TBF02_SPEC_MILL T, TBH02_COIL_COMM S
			 WHERE T.STATUS_CD = 'A'
			   AND T.COIL_NO = S.COIL_NO(+)
			   AND S.COIL_NO IS NULL
			   AND T.HCR_CLF = 'C'
			 ORDER BY ROLL_MANA_NO ASC
			]]>
	</query> 
	<query id="UID080010.replaceSlab.Select" desc="可置换的板坯查询" fetchSize="10">
		<![CDATA[
			
			SELECT 'FALSE' AS CHK2
				   ,A.SLAB_NO
           ,A.SLAB_THK
           ,A.SLAB_WTH
           ,A.SLAB_LEN
           ,A.SLAB_WGT
           ,A.STL_GRD
           ,DECODE(A.ORD_FL, '1', '订单材', '余材') AS ORD_FL
           ,A.ORD_NO
           ,A.ORD_SEQ
           ,A.SLAB_CUT_DTIME
           ,XB_PACKAGE.GF_COMNNAME_FIND('E01002', A.CUR_PROG_CD) CUR_PROG_CD
			  FROM TBG02_SLAB_COMM A
			 WHERE A.SLAB_STAT = '2'
			   AND NOT EXISTS (SELECT  X.*   FROM TBF02_SPEC_MILL X WHERE X.SLAB_NO = A.SLAB_NO  AND X.STATUS_CD IN ('A' , 'B' , 'C'))
			   AND A.CUR_LOAD_LOC LIKE 'Z%'
			   AND A.CUR_PROG_CD IN ('RBA','RRC')
			   AND A.SLAB_THK = :1
			   AND A.SLAB_WTH = :2
			   AND A.SLAB_LEN = :3
			   AND A.STL_GRD = :4
			   AND GF_NIB028720(A.SLAB_NO, :5, :6) = 'YY'
			   AND DECODE(A.ORD_FL , 1, GF_NIB028720(:7, A.ORD_NO, A.ORD_SEQ), 'YY' ) = 'YY'
			   ORDER BY A.SLAB_CUT_DTIME DESC
			]]>
	</query> 
	<query id="UID080010.deleteSlab.Rht" desc="给2级发送删除加热炉板坯的信号" fetchSize="10">
		<![CDATA[
			UPDATE TBH06_L2_RHT_INS A
			   SET A.SEND_CLF = '3', A.MSG_FLAG = 'N'
			 WHERE A.SLAB_NO = :1
			   AND A.TRANS_DTIME = (SELECT MAX(B.TRANS_DTIME)
				                      FROM TBH06_L2_RHT_INS B
				                     WHERE B.SLAB_NO = :2
				                  GROUP BY B.SLAB_NO) 
			]]>
	</query> 
	<query id="UID080010.deleteSlab.Mill" desc="给2级发送删除轧线板坯的信号" fetchSize="10">
		<![CDATA[
			UPDATE TBH06_L2_MILL_INS A
			   SET A.TRANS_FLAG = '3', A.MSG_FLAG = 'N'
			 WHERE A.SLAB_NO = :1
			   AND A.TRANS_DTIME = (SELECT MAX(B.TRANS_DTIME)
				                      FROM TBH06_L2_MILL_INS B
				                     WHERE B.SLAB_NO = :2
				                  GROUP BY B.SLAB_NO) 
			]]>
	</query> 
	
	<query id="UID080010_UPDATE_SPECMILL_STATUSCD" desc="板坯替换时删除计划板坯" fetchSize="10">
		<![CDATA[
            UPDATE TBF02_SPEC_MILL T 
			   SET T.STATUS_CD = 'H' 
			 WHERE T.SLAB_NO = :1 
			   AND T.STATUS_CD = 'A'
			]]>
	</query>
	<query id="UID080010_UPDATE_SPECMILLD_STATUSCD" desc="板坯替换时删除计划板坯" fetchSize="10">
		<![CDATA[
             UPDATE TBF02_SPEC_MILL_D T 
			    SET T.STATUS_CD = 'H' 
			  WHERE T.SLAB_NO = :1 
			    AND T.STATUS_CD = 'A'
			]]>
	</query>
	<query id="UID080010_UPDATE_MILLIDX_STATUSCD" desc="板坯替换时删除计划板坯" fetchSize="10">
		<![CDATA[
             UPDATE TBF02_MILL_IDX T 
			    SET T.STATUS_CD = 'H' 
			  WHERE T.SLAB_NO = :1 
			    AND T.STATUS_CD = 'A'
			]]>
	</query>
	<query id="UID080010.SLAB_REP_EACHOTHER" desc=" 板坯订单更换  ，废除">
		{call UID080010.SLAB_REP_EACHOTHER(?,?,?)}
	</query>
	
	<query id="UIF023010.I_SCH_MILL" desc=" 新增计划信息  ，废除">
		{call UIF023010.I_SCH_MILL(?)}
	</query>
	
	<query id="UIF023010.I_TBF02_SCH_ROLL" desc=" 新增计划信息 ，废除 ">
		{call UIF023010.I_TBF02_SCH_ROLL}
	</query>
	
	<query id="UIF023010.INSSCH_MILL_D" desc=" 新增计划信息  ，废除">
		{call UIF023010.INSSCH_MILL_D}
	</query>
	
	<query id="UIF023020_TEST.CCR_INDICATION" desc=" 新增计划信息  ，废除">
		{call UIF023020_TEST.CCR_INDICATION(?,?,?,?,?)}
	</query>
	
	<query id="UIF023020_TEST.DELETE_CCR_TEMPINFO" desc=" 新增计划信息 ，废除 ">
		{call UIF023020_TEST.DELETE_CCR_TEMPINFO}
	</query>
	
	<query id="UID080010_ROLLNO_SELECT" desc="查询计划板坯的顺序信息并保存" fetchSize="10">
		<![CDATA[
            SELECT T.COIL_NO,
				   T.ROLL_EDT_SEQ,
				   T.ROLL_MANA_NO,
				   T.ROLL_NO,
				   T.ROLL_SLAB_SEQ
			  FROM TBF02_SPEC_MILL T
			 WHERE T.SLAB_NO = :1
			   AND T.STATUS_CD = 'A'
			]]>
	</query>
	
	<query id="UID080010_ROLLNO_SPEC_UPDATE" desc="更新顺序信息并保存" fetchSize="10">
		<![CDATA[
				UPDATE TBF02_SPEC_MILL T
				   SET T.COIL_NO       = :1,
					   T.ROLL_EDT_SEQ  = :2,
					   T.ROLL_MANA_NO  = :3,
					   T.ROLL_NO       = :4,
					   T.ROLL_SLAB_SEQ = :5
				 WHERE T.SLAB_NO = :6
				   AND T.STATUS_CD = 'A'
			]]>
	</query>
	
	<query id="UID080010_ROLLNO_MILLIDX_UPDATE" desc="更新顺序信息并保存" fetchSize="10">
		<![CDATA[
				UPDATE TBF02_MILL_IDX T
				   SET T.ROLL_EDT_SEQ = :1, T.ROLL_MANA_NO = :2
				 WHERE T.SLAB_NO = :3
				   AND T.STATUS_CD = 'A'
		]]>
	</query>
	
	<query id="L2SENDREPLACE.REP_L2_SEND_MAIN" desc=" 新增计划信息 ，废除">
		{call L2SENDREPLACE.REP_L2_SEND_MAIN(?,?,?,?)}
	</query>
	
	<query id= "UID080010_CALL" desc="板坯替换">
		{call PKG_UID.PROC_UID080010(?,?,?,?)}
	</query>
</queryMap>