XinYu_RZMES/.svn/pristine/df/dfc5be3884d15cc4d699a228924cfae74e1a9c68.svn-base

<?xml version="1.0" encoding='UTF-8'?>
<queryMap desc="钢卷降级为余材处理">

	<query id="NIE031052.CoilComm.Select" desc="">
		<![CDATA[
			SELECT
				COIL_NO MAT_NO
			FROM TBH02_COIL_COMM
			WHERE COIL_NO IN (
				SELECT COLUMN_VALUE FROM TABLE(XB_PACKAGE.GF_TABSTR(?)))
			ORDER BY COIL_CRE_DTIME DESC
		]]>
	</query>
	<query id="NIE031052.OrdSts.Select" desc="NIE012070 接口参数查询" fetchSize="10">
		<![CDATA[
			SELECT
				ORD_NO BEF_ORD_NO,		-- 前合同号
				ORD_SEQ BEF_ORD_SEQ,	-- 前订单号
				'' ORD_NO,				-- 合同号
				'' ORD_SEQ,				-- 订单号
				CUR_PROG_CD BEF_PROG_CD,-- 前进程代码
				'SRC' PROG_CD,			-- 进程代码
				'AR' MAT_TYPE,			-- 物料类型
				COIL_NO MAT_NO,			-- 物料号
				ACT_WGT WGT,			-- 重量
				'NIE031052' PGMID
			FROM TBH02_COIL_COMM
			WHERE COIL_NO = ?
		]]>
	</query>

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

	<query id="NIE031052.CoilComm.Update" desc="">
		<![CDATA[
			UPDATE TBH02_COIL_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,
				-----------------------------------------------------------------
			    --MODIFY BY SJW :090825
			    --DESC          :降余材的时候记录前合同号和订单号
			    ORG_ORD_NO      = ORD_NO,
				ORG_ORD_SEQ     = ORD_SEQ,
			    BEF_SPEC_ABBSYM = SPEC_ABBSYM,
			    ----------------------------------------------------------------
				CUR_PROG_CD = 'SRC',
				CUR_PROG_CD_PGM = 'NIE031052',
				CUR_PROG_CD_DTIME = TO_CHAR(SYSTIMESTAMP, 'YYYYMMDDHH24MISS'),
				ORD_FL = '2',
				NONORD_CAUSE_CD = ?,
				NONORD_OCR_DTIME = TO_CHAR(SYSTIMESTAMP, 'YYYYMMDDHH24MISS'),
				ORD_NO = '',
				ORD_SEQ = '',
				CUST_CD = '',
				ORDCUST_CD = '',
				ORD_USE_CD = '',
				SPEC_ABBSYM = '',
				DEVLMT_DTIME = '',
				DEST_CD = ''
				-- INGR_DEC_GRD = '',
				-- MATLQLTY_DEC_GRD = ''
			WHERE COIL_NO = ?
		]]>
	</query>
	<query id="NIE031052.CoilCommD.Update" desc="">
		<![CDATA[
			UPDATE TBH02_COIL_COMM_D SET
				ORD_FL = '2'
			WHERE COIL_NO = ?
		]]>
	</query>

</queryMap>