XinYu_RZMES/.svn/pristine/4c/4c356c088c3641a7335a0e52862ccae22cb2b929.svn-base

<?xml version="1.0" encoding='UTF-8'?>
<queryMap desc="板坯余材充当结果录入">

	<query id="NIE031041.RepOrd.Select" desc="充当订单及其余量查询" fetchSize="10">
        <![CDATA[
			SELECT
				ORD_NO,
				ORD_SEQ
			FROM TBE04_REP_ORD
			WHERE REP_WGT > 0
		]]>
    </query> 
	<query id="NIE031041.RepSlab.Select" desc="充当物料及其重量查询" fetchSize="10">
        <![CDATA[
			SELECT
				SLAB_NO MAT_NO		-- 板坯号
			FROM TBE04_REP_SLAB
			WHERE ORD_NO = ?		-- 合同号
			  AND ORD_SEQ = ?		-- 订单号
        ]]>
    </query> 
	<query id="NIE031041.OrdSts.Select" desc="NIE012070 接口参数查询" fetchSize="10">
		<![CDATA[
			SELECT
				'' BEF_ORD_NO,			-- 前合同号
				'' BEF_ORD_SEQ,			-- 前订单号
				-- 合同号
				-- 订单号
				PROG_CD BEF_PROG_CD,	-- 前进程代码
				'RBA' PROG_CD,			-- 进程代码
				'TM' MAT_TYPE,			-- 物料类型
				SLAB_NO MAT_NO,			-- 物料号
				SLAB_WGT WGT,			-- 重量
				'NIE031041' PGMID
			FROM TBE04_REP_SLAB
			WHERE SLAB_NO = ?
		]]>
	</query>

	<query id="NIE031041.RepHis.Insert" desc="插入充当历史查询表" fetchSize="10">
		<![CDATA[
			INSERT INTO TBE04_REP_HIS
			(
				REP_TYP, REP_KND, REG_ID, MOD_PGM_ID, REG_DTIME,
				UPD_AFT_ORD_NO, UPD_AFT_ORD_SEQ, UPD_AFT_CUST_CD, MAT_TYPE,
				MAT_NO, UPD_BEF_ORD_NO, UPD_BEF_ORD_SEQ, UPD_BEF_CUST_CD
			)
			-- (1) 充当代码, 充当方法, 录入者, 变更程序ID, 录入时间,
			-- (2) 变更前合同号, 变更前订单号, 变更前客户代码, 物料类型,
			-- (3) 物料号, 变更后合同号, 变更后订单号, 变更后客户代码
			SELECT
				'A', 'S', ?, 'NIE031041', TO_CHAR(SYSTIMESTAMP, 'YYYYMMDDHH24MISS'),
				ORD_NO, ORD_SEQ, CUST_CD, 'TM', ?, '', '', ''
			FROM TBE04_REP_ORD
			WHERE ORD_NO = ?
			  AND ORD_SEQ = ?
		]]>
	</query>

	<query id="NIE031041.SlabComm.Update" desc="">
		<![CDATA[
			UPDATE TBG02_SLAB_COMM A SET
				BEF_PROG_CD = CUR_PROG_CD,
				BEF_PROG_CD_PGM = CUR_PROG_CD_PGM,
				BEF_PROG_CD_DTIME = CUR_PROG_CD_DTIME,
				CUR_PROG_CD = 'RBA',
				CUR_PROG_CD_PGM = 'NIE031041',
				CUR_PROG_CD_DTIME = TO_CHAR(SYSTIMESTAMP, 'YYYYMMDDHH24MISS'),
				ORD_FL = '1',
				NONORD_CAUSE_CD = '',
				NONORD_OCR_DTIME = '',
				REG_ID = ?,
				REG_DTIME = TO_CHAR(SYSTIMESTAMP, 'YYYYMMDDHH24MISS'),
				(ORD_NO, ORD_SEQ, CUST_CD, ORDCUST_CD, ORD_USE_CD, SPEC_ABBSYM, DEVLMT_DTIME, PRODNM_CD,
				 INSTR_COIL_THK, INSTR_COIL_WTH, INSTR_COIL_LEN, INSTR_COIL_WGT, INSTR_COIL_INDIA, INSTR_COIL_OUTDIA,
				 SLAB_INGR_DEC_GRD) =
				(SELECT B.ORD_NO, B.ORD_SEQ, C.CUST_CD, C.ORDCUST_CD, C.ORD_USEAGE_CD, C.SPEC_ABBSYM, C.DEL_TO_DATE, C.PRODNM_CD,
				 B.PROD_THK, B.PROD_WTH, B.PROD_LEN, B.PROD_WGT, B.COIL_INDIA, B.COIL_OUTDIA,
				 DECODE(GF_NIB028720(B.SLAB_NO, B.ORD_NO, B.ORD_SEQ), 'YY', '1', '2')
				 FROM TBE04_REP_SLAB B, TBE04_REP_ORD C
				 WHERE B.SLAB_NO = A.SLAB_NO
				   AND B.ORD_NO = C.ORD_NO
				   AND B.ORD_SEQ = C.ORD_SEQ)
			WHERE A.SLAB_NO = ?
		]]>
	</query>

	<query id="NIE031041.SlabCommD.Delete" desc="">
		<![CDATA[
			DELETE TBG02_SLAB_COMM_D
			WHERE SLAB_NO = ?
		]]>
	</query>
	<query id="NIE031041.SlabCommD.Insert" desc="" fetchSize="10">
		<![CDATA[
			INSERT INTO TBG02_SLAB_COMM_D
			( SLAB_NO, SLAB_CUT_SEQ, SLAB_THK, SLAB_WTH, SLAB_LEN,
			  ORD_THK, ORD_WTH, ORD_LEN, ORD_WGT, COIL_INDIA, 
			  COIL_OUTDIA, ORD_NO, ORD_SEQ, ORD_FL
			)
			SELECT SLAB_NO, SLAB_CUT_SEQ, SLAB_THK, SLAB_WTH, SLAB_LEN,
				PROD_THK, PROD_WTH, PROD_LEN, PROD_WGT, COIL_INDIA,
				COIL_OUTDIA, ORD_NO, ORD_SEQ, ORD_FL
			FROM TBE04_REP_SLAB_D
			WHERE SLAB_NO = ?
		]]>
	</query>

</queryMap>