XinYu_RZMES/.svn/pristine/b0/b0cee1d852e5699ea713ac79fb6e9ac2d57e7953.svn-base

<?xml version="1.0" encoding='UTF-8'?>
<queryMap desc="购入板坯信息录入">
	<query id="UIE012130.CHEM_NM.Select" desc="动态成份的成份代码查询" fetchSize="10">
		<![CDATA[
			SELECT CHEM_CD
			FROM TBB01_SEQ_INGR
--			WHERE COMP_YN = 'N'
			ORDER BY COMP_YN, DISPLAY_SEQ
        ]]>
	</query> 
	<query id="UIE012130.Houseware.Select" desc="购入板坯的炉次信息" fetchSize="10">
		<![CDATA[
			SELECT
				YARD_ADDR LOAD_LOC
			FROM TBG04_STD_SLAB_YARD
			WHERE YARD_ADDR LIKE 'P%'
		]]>
	</query>
	<query id="UIE012130.Charge.Select" desc="购入板坯的炉次信息" fetchSize="10">
		<![CDATA[
			SELECT
				CHARGE_NO,
				STL_GRD,
				SLAB_CNT,
				SLAB_WGT
			FROM TBG02_CHARGE_COMM
			WHERE CHARGE_NO = ?		-- 参数：炉次号
		]]>
	</query>
	<query id="UIE012130.WorkIngr.Select" desc="购入板坯的成份信息" fetchSize="10">
		<![CDATA[
			SELECT
				CHEM_CD,			-- 成分项目
				CHEM_VAL			-- 成分实绩
			FROM TBB02_WORK_INGR
			WHERE CHARGE_NO = ?		-- 参数：炉次号
			  AND PROC_CD = 'JJ'
			  AND CHEM_SEQ = '01'
			  AND CHEM_VAL_TP = 'L'
		]]>
	</query>
	<query id="UIE012130.Slab.Select" desc="购入板坯信息" fetchSize="10">
		<![CDATA[
			SELECT
				SLAB_NO,				-- 板坯号
				BUY_CHARGE_NO,			-- 购入炉次号
				BUY_SLAB_NO,			-- 购入板坯码
				SLAB_THK,				-- 厚度
				SLAB_WTH,				-- 宽度
				SLAB_LEN,				-- 长度
				SLAB_WGT,				-- 重量
				SLAB_RT,				-- 板坯去向
				STL_GRD,				-- 钢号
				CUR_LOAD_LOC,
				BUY_MKR_NAME,			-- 购入MAKER名称
				BUY_SLAB_RECEPT_DTIME,	-- 购入板坯卸货日期
				XB_PACKAGE.GF_COMNNAME_FIND('E01002', CUR_PROG_CD) CUR_PROG_CD,			-- 现在进度
				SLAB_STAT,				-- 板坯生成区分
				CUT_WKSHIFT,			-- 作业班次
				CUT_WKGROUP,			-- 作业组
				CUT_EMP_ID,				-- 录入者
				ORD_FL
			FROM TBG02_SLAB_COMM
			WHERE SLAB_NO LIKE ?||'%'	-- 参数：炉次号(板坯号=炉次号+'000')
			ORDER BY SLAB_NO
		]]>
	</query>
	<query id="UIE012130.FacIngr.Select" desc="成份信息" fetchSize="10">
		<![CDATA[
			SELECT
				B.CHEM_CD,		-- 成份名
				B.CHEM_AIM,		-- 建议值
				B.CHEM_MIN,		-- 最小值
				B.CHEM_MAX		-- 最大值
			FROM TBB01_SEQ_INGR A, TBB01_FAC_INGR B
			WHERE A.CHEM_CD = B.CHEM_CD
			  AND B.FAC_STL_GRD = ?
			ORDER BY A.DISPLAY_SEQ
		]]>
	</query>
	<query id="UIE012130.Charge.Count" desc="获取计算出的最大炉次编号" fetchSize="10">
		<![CDATA[
			SELECT (TO_NUMBER(NVL(CHARGE_NO, 0)) + 1) CNT FROM (
				SELECT DISTINCT SUBSTR(MAX(CHARGE_NO), 5, 5) CHARGE_NO
				FROM TBG02_CHARGE_COMM
				WHERE CHARGE_NO LIKE 'J'||SUBSTR(?, 4)||'W-_____A')
		]]>
	</query>
	<query id="UIE012130.Charge.Exist" desc="是否存在相应的购入炉次" fetchSize="10">
		<![CDATA[
			SELECT SUBSTR(SLAB_NO, 1, 10) CHARGE_NO
			FROM TBG02_SLAB_COMM
			WHERE BUY_MKR_NAME = ?
			  AND BUY_CHARGE_NO = ?
		]]>
	</query>

	<query id="UIE012130.Charge.Update" desc="">
		<![CDATA[
			UPDATE TBG02_CHARGE_COMM SET
				SLAB_CNT = ?,		-- 数量
				SLAB_WGT = ?		-- 重量
			WHERE CHARGE_NO = ?		-- 参数：炉次号
		]]>
	</query>
	<query id="UIE012130.WorkIngr.pdate" desc="">
		<![CDATA[
			UPDATE TBB02_WORK_INGR SET
				CHEM_VAL = ?,		-- 成分实绩
				MOD_ID = ?,
				MOD_DTIME = TO_CHAR(SYSTIMESTAMP, 'yyyymmddhh24miss')
			WHERE CHARGE_NO = ?		-- 参数：炉次号
			  AND PROC_CD = 'JJ'
			  AND CHEM_SEQ = '01'
			  AND CHEM_VAL_TP = 'L'
			  AND CHEM_CD = ?		-- 成分项目
		]]>
	</query>
	<query id="UIE012130.Slab.Update" desc="">
		<![CDATA[
			UPDATE TBG02_SLAB_COMM SET
				BUY_SLAB_NO = ?,		-- 购入板坯码
				SLAB_THK = ?,			-- 厚度
				SLAB_WTH = ?,			-- 宽度
				SLAB_LEN = ?,			-- 长度
				SLAB_WGT = ?,			-- 重量
				SLAB_RT = ?,			-- 板坯去向
				CUT_EMP_ID = ?
			WHERE SLAB_NO = ?			-- 参数：炉次号
		]]>
	</query>

	<query id="UIE012130.Charge.Insert" desc="">
		<![CDATA[
			INSERT INTO TBG02_CHARGE_COMM
			( CHARGE_NO, STL_GRD, SLAB_CNT, SLAB_WGT, CHARGE_STAT, ORD_FL, HCR_CLF, LST_INGR_CD, INGR_DEC_GRD, LST_INGR_REG_DTIME )
			-- 炉次号, 钢号, 块数, 重量
			VALUES( ?, ?, ?, ?, '3', '2', 'C', 'JJ01', '1', TO_CHAR(SYSTIMESTAMP, 'yyyymmddhh24miss') )
		]]>
	</query>
	
	<query id="UIE012130.ChargeD.Insert" desc="">
		<![CDATA[
			INSERT INTO TBG02_CHARGE_COMM_D
			( CHARGE_NO, SUB_CHARGE_NO, STL_GRD, LST_INGR_CD )
    		VALUES( ?, ?, ?, 'JJ01')
		]]>
	</query>
	
	<query id="UIE012130.WorkIngr.Insert" desc="">
		<![CDATA[
			INSERT INTO TBB02_WORK_INGR
			( CHARGE_NO, CHEM_CD, CHEM_VAL, PROC_CD, CHEM_SEQ, CHEM_VAL_TP, MOD_ID, MOD_DTIME )
			-- 炉次号, 成分项目, 成分实绩
			VALUES( ?, ?, ?, 'JJ', '01', 'L', ?, TO_CHAR(SYSTIMESTAMP, 'yyyymmddhh24miss') )
		]]>
	</query>
	
	<query id="UIE012130.Slab.Insert" desc="">
		<![CDATA[
			INSERT INTO TBG02_SLAB_COMM
			( SLAB_NO, PLAN_SLAB_NO, SUB_SLAB_NO, STL_GRD, SLAB_THK, SLAB_WTH, SLAB_LEN, SLAB_WGT, SLAB_RT,
			  BUY_MKR_NAME, BUY_CHARGE_NO, BUY_SLAB_NO, CUT_WKSHIFT, CUT_WKGROUP, CUT_EMP_ID,
			  SLAB_STAT, SLAB_CUT_DTIME, CUR_PROG_CD,
			  CUR_PROG_CD_DTIME, CUR_PROG_CD_PGM, ORD_FL,
			  BUY_SLAB_RECEPT_DTIME, CUR_LOAD_LOC, CUR_LOAD_LOC_DTIME,
			  HCR_CLF, REG_DTIME, MOD_DTIME,
			  DEVLMT_DTIME, NONORD_CAUSE_CD, NONORD_OCR_DTIME,SLAB_STOCK_ENT_DTIME,SLAB_OUT_TP,SLAB_INGR_DEC_GRD )
			-- 板坯号, 计划板坯号, 钢号, 厚度, 宽度, 长度, 重量, 板坯去向,
			-- 购入MAKER名称, 购入炉次, 购入板坯码, 作业班次, 作业组, 录入者
			VALUES( ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,
			  '2', TO_CHAR(SYSTIMESTAMP, 'yyyymmddhh24miss'), 'RRC',
			  TO_CHAR(SYSTIMESTAMP, 'yyyymmddhh24miss'), 'UIE012130', '2',
			  TO_CHAR(SYSTIMESTAMP, 'yyyymmddhh24miss'), ?, TO_CHAR(SYSTIMESTAMP, 'yyyymmddhh24miss'),
			  'C', TO_CHAR(SYSTIMESTAMP, 'yyyymmddhh24miss'), TO_CHAR(SYSTIMESTAMP, 'yyyymmddhh24miss'),
			  TO_CHAR(SYSTIMESTAMP, 'yyyymmdd'), '6A', TO_CHAR(SYSTIMESTAMP, 'yyyymmddhh24miss'),TO_CHAR(SYSTIMESTAMP, 'yyyymmddhh24miss'),'Y','1' )
		]]>
	</query>

	<query id="UIE012130.Charge.Delete" desc="">
		<![CDATA[
			DELETE FROM TBG02_CHARGE_COMM
			WHERE CHARGE_NO = ?
		]]>
	</query>    
	
	<query id="UIE012130.ChargeD.Delete" desc="">
		<![CDATA[
			DELETE FROM TBG02_CHARGE_COMM_D
			WHERE CHARGE_NO = ?
		]]>
	</query> 
	
	<query id="UIE012130.WorkIngr.Delete" desc="">
		<![CDATA[
			DELETE FROM TBB02_WORK_INGR
			WHERE CHARGE_NO = ?
		]]>
	</query>    
	<query id="UIE012130.Slab.Delete" desc="">
		<![CDATA[
			DELETE FROM TBG02_SLAB_COMM
			WHERE SLAB_NO LIKE ?||'%'
		]]>
	</query>    

	<query id="UIE012130.YARD.Update" desc="">
		<![CDATA[
			UPDATE TBG04_SLAB_YARD A SET
				SLAB_NO = ?,
				BEF_STORE_LOC = '',
				CR_NO = '',
				REG_ID = ?,
				REG_DTIME = TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS')
			WHERE YARD_ADDR = ?
			  AND STORELAY = (
					SELECT LPAD(NVL(MAX(STORELAY) + 1, '01'), 2, '0')
					FROM TBG04_SLAB_YARD
					WHERE YARD_ADDR = A.YARD_ADDR
					  AND SLAB_NO IS NOT NULL)
		]]>
	</query>
	<query id="UIE012130.YARD.Delete" desc="">
		<![CDATA[
			UPDATE TBG04_SLAB_YARD SET
				SLAB_NO = '',
				BEF_STORE_LOC = '',
				CR_NO = '',
				REG_ID = '',
				REG_DTIME = ''
			WHERE SLAB_NO = ?
		]]>
	</query>    
	<query id="UIE012130.YARD.AllDelete" desc="">
		<![CDATA[
			UPDATE TBG04_SLAB_YARD SET
				SLAB_NO = '',
				BEF_STORE_LOC = '',
				CR_NO = '',
				REG_ID = '',
				REG_DTIME = ''
			WHERE SLAB_NO LIKE ?||'%'
		]]>
	</query>    
</queryMap>