XinYu_RZMES/.svn/pristine/c4/c4665f7fd697a2bb850ee1458f18905c2e000669.svn-base

<?xml version="1.0" encoding='UTF-8'?>
<queryMap desc="HMI充当处理">

	<query id="UIE031030.RepSlab.Select" desc="" fetchSize="10">
		<![CDATA[
			SELECT
				SLAB_NO DSP_NO,
				SLAB_NO MAT_NO,						-- 板坯号
				STL_GRD,							-- 钢号
				SLAB_THK MAT_THK,					-- 板坯厚度
				SLAB_WTH MAT_WTH,					-- 板坯宽度
				SLAB_LEN MAT_LEN,					-- 板坯长度
				SLAB_WGT MAT_WGT,					-- 板坯重量
				PROD_DTIME,							-- 生产日期
				WOO_RSN,							-- 余材原因
				LOC,								-- 堆放位置
				NVL(KEEPWARM_YN, 'N') KEEPWARM_YN,	-- 是否需要进保温坑
				ORG_ORD_NO,							-- 最初合同号
				ORG_ORD_SEQ,						-- 最初订单号
				SLAB_WGT * (PROC_RATE / 100) ALLOW_REP_WGT
			FROM TBE04_REP_SLAB A, (
				SELECT PROC_RATE FROM TBE01_PROC_RATE WHERE PROC_CD = 'R') B
			WHERE ORD_FL = '2'
			  AND STL_GRD LIKE ?||'%'				-- 钢号
			  AND LOC||'&' LIKE ?||'%'				-- 堆置位置
			  AND SLAB_NO LIKE ?||'%'				-- 板坯号
			  AND WOO_RSN||'&' LIKE ?||'%'			-- 余材原因
			  AND SLAB_THK BETWEEN ? AND ?			-- 厚度
			  AND SLAB_WTH BETWEEN ? AND ?			-- 宽度
			ORDER BY SLAB_WGT DESC, LOC ASC
		]]>
	</query>
	<query id="UIE031030.RepCoil.Select" desc="" fetchSize="10">
		<![CDATA[
			SELECT
				B.OLD_SAMPL_NO DSP_NO,
				A.COIL_NO MAT_NO,			-- 钢卷号
				A.STL_GRD,					-- 钢号
				A.COIL_THK MAT_THK,			-- 钢卷厚度
				A.COIL_WTH MAT_WTH,			-- 钢卷宽度
				A.COIL_LEN MAT_LEN,			-- 钢卷长度
				A.COIL_WGT MAT_WGT,			-- 钢卷重量
				A.COIL_INDIA,				-- 钢卷内径
				A.COIL_OUTDIA,				-- 钢卷外径
				A.PROD_DTIME,				-- 生产日期
				A.WOO_RSN,					-- 余材原因
				A.LOC,						-- 堆放位置
				NVL(A.SAMPL_PICK_YN, 'N') SAMPL_PICK_YN,
				A.ORG_ORD_NO,				-- 最初合同号
				A.ORG_ORD_SEQ,				-- 最初订单号
				A.COIL_WGT ALLOW_REP_WGT
			FROM TBE04_REP_COIL A, TBH02_COIL_COMM B
			WHERE A.ORD_FL = '2'
			  AND A.COIL_NO = B.COIL_NO
			  AND A.STL_GRD LIKE ?||'%'		-- 钢号
			  AND A.LOC||'&' LIKE ?||'%'	-- 堆置位置
			  --AND A.COIL_NO LIKE ?||'%'		-- 钢卷号
			  ----------------------------------------------
			  --MODIFY BY SJW 091012
			  --DESC:  统一按钢卷号查询
			  AND B.OLD_SAMPL_NO  LIKE ?||'%'		-- 钢卷号
			  ----------------------------------------------
			  AND A.WOO_RSN||'&' LIKE ?||'%'-- 余材原因
			ORDER BY A.COIL_WGT DESC, A.LOC ASC
		]]>
	</query>
	<query id="UIE031030.RepOrd.Slab.Select" desc="" fetchSize="10">
		<![CDATA[
			SELECT
				A.ORD_NO,			-- 合同号
				A.ORD_SEQ,			-- 订单号
				A.CUST_CD,			-- 客户代码
				A.PRODNM_CD,		-- 产品代码
				A.STL_GRD,			-- 钢号
				A.SPEC_ABBSYM,		-- 标准号
				A.ORD_USEAGE_CD,	-- 订单用途
				A.ORD_THK,			-- 订单厚度
				A.ORD_WTH,			-- 订单宽度
				A.ORD_LEN,			-- 订单长度
				A.ORD_INDIA,		-- 订单内径
				A.ORD_OUTDIA,		-- 订单外径
				A.ORD_WGT_MIN,		-- 订单重量下限
				A.ORD_WGT_MAX,		-- 订单重量上限
				A.EMGMTR_NMG_CLF,	-- 紧急材代码
				A.DEL_TO_DATE,		-- 交货期结束
				A.KEEPWARM_YN,		-- 是否需要进保温坑
				A.DESIGN_SLAB_THK,	-- 设计板坯厚度
				A.DESIGN_SLAB_WTH,	-- 设计板坯宽度
				A.ORD_WGT,			-- 订单重量
				A.WGT_ACVAL_MIN,	-- 交付允许误差 最小
				A.WGT_ACVAL_MAX,	-- 交付允许误差 最大
				A.REP_WGT,			-- 充当对象产品重量
				A.REP_CONF_WGT,		-- 充当确定产品重量
				A.REP_REM_WGT		-- 充当余量产品重量
			FROM TBE04_REP_ORD A, TBE04_REP_SLAB B, (
				SELECT PROC_RATE FROM TBE01_PROC_RATE WHERE PROC_CD = 'R') C /*, TBG02_SLAB_COMM D */
			WHERE B.SLAB_NO = ?
			  AND A.REP_REM_WGT > 0
			  AND B.SLAB_WTH BETWEEN A.ORD_WTH AND A.ORD_WTH + 100
--			  AND D.SLAB_NO = B.SLAB_NO
			  AND ('Y' <> NVL(?, 'N') OR (B.STL_GRD = A.STL_GRD /* AND D.SLAB_INGR_DEC_GRD = '1' */))	-- 同牌号
			  AND (B.SLAB_WGT * C.PROC_RATE / 100) >= A.ORD_WGT_MIN
			  AND ('Y' <> NVL(?, 'N') OR GF_NIB028720(B.SLAB_NO, A.ORD_NO, A.ORD_SEQ) = 'YY')	-- 检查成分项目
			 ORDER BY DEL_TO_DATE
		]]>
	</query> 
	<query id="UIE031030.RepOrd.Coil.Select" desc="" fetchSize="10">
		<![CDATA[
			SELECT
				A.ORD_NO,			-- 合同号
				A.ORD_SEQ,			-- 订单号
				A.CUST_CD,			-- 客户代码
				A.PRODNM_CD,		-- 产品代码
				A.STL_GRD,			-- 钢号
				A.SPEC_ABBSYM,		-- 标准号
				A.ORD_USEAGE_CD,	-- 订单用途
				A.ORD_THK,			-- 订单厚度
				A.ORD_WTH,			-- 订单宽度
				A.ORD_LEN,			-- 订单长度
				A.ORD_INDIA,		-- 订单内径
				A.ORD_OUTDIA,		-- 订单外径
				A.ORD_WGT_MIN,		-- 订单重量下限
				A.ORD_WGT_MAX,		-- 订单重量上限
				A.EMGMTR_NMG_CLF,	-- 紧急材代码
				A.DEL_TO_DATE,		-- 交货期结束
				A.KEEPWARM_YN,		-- 是否需要进保温坑
				A.DESIGN_SLAB_THK,	-- 设计板坯厚度
				A.DESIGN_SLAB_WTH,	-- 设计板坯宽度
				A.ORD_WGT,			-- 订单重量
				A.WGT_ACVAL_MIN,	-- 交付允许误差 最小
				A.WGT_ACVAL_MAX,	-- 交付允许误差 最大
				A.REP_WGT,			-- 充当对象产品重量
				A.REP_CONF_WGT,		-- 充当确定产品重量
				A.REP_REM_WGT		-- 充当余量产品重量
			FROM TBE04_REP_ORD A, TBE04_REP_COIL B, TBH02_COIL_COMM C
				 -------------------------------------------
			      --MODIFY BY SJW 091010
			      --DESC:  成品同牌号更改为spec_stl_grd
			     ,TBA01_ORD_LINE D
			     -------------------------------------------
			WHERE B.COIL_NO = ?
			  AND A.REP_REM_WGT > 0
			  -----------------------------------------------------------
			   --MODIFY BY SJW 091010
			   --DESC:  成品同牌号更改为spec_stl_grd
			  AND A.ORD_NO = D.ORD_NO					-- 合同号
			  AND A.ORD_SEQ = D.ORD_SEQ						-- 订单号
			  -----------------------------------------------------------
			  AND B.COIL_WGT BETWEEN A.ORD_WGT_MIN AND A.ORD_WGT_MAX
			  --AND ('Y' <> NVL(?, 'N') OR B.STL_GRD = A.STL_GRD)									-- 同牌号
			  ------------------------------------------------------------------------------------------
			  --MODIFY BY SJW 091010
			  --DESC:  成品同牌号更改为spec_stl_grd
			  AND ('Y' <> NVL(?, 'N') OR C.SPEC_STL_GRD = D.SPEC_STL_GRD)						-- 同牌号
			  ------------------------------------------------------------------------------------------
			  AND B.COIL_NO = C.COIL_NO
			  AND GF_NIB028780(B.COIL_NO, A.ORD_NO, A.ORD_SEQ) = 'YY'							-- 检查尺寸通过
			  AND ('Y' <> NVL(?, 'N') OR GF_NIB028720(C.SLAB_NO, A.ORD_NO, A.ORD_SEQ) = 'YY')	-- 检查成分项目
			  AND ('Y' <> NVL(?, 'N') OR GF_NIB028750(B.COIL_NO, A.ORD_NO, A.ORD_SEQ) = 'YY')	-- 检查材质项目
			 ORDER BY DEL_TO_DATE
		]]>
	</query> 

</queryMap>