XinYu_RZMES/.svn/pristine/e9/e951788b8d00fc6c3f2fc1212d1b5f11298d1eb2.svn-base

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

	<query id="UIE031045.Rep.States" desc="" fetchSize="10">
		<![CDATA[
			SELECT PRC_STS					-- 进程状态
			FROM TBE05_JOB_DET
			WHERE PLT = 'R'					-- 参数：工厂
			  AND MAIN_PGMID = 'NIE031000'	-- 参数：主程序 ID
			  AND SEQ = 3
		]]>
	</query> 
	<query id="UIE031045.OrdPrc.Select" desc="" fetchSize="10">
		<![CDATA[
			SELECT A.ORD_NO, -- 合同号
				   A.ORD_SEQ, -- 订单号
				   XB_PACKAGE.GF_CUSTOMER_FIND(CUST_CD) CUST_CD, -- 客户代码
				   A.PRODNM_CD, --热轧交货状态
           		   A.C_PRODNM_CD,  --冷轧交货状态
                   A.PRD_TY ,      --产品类型
				   A.STL_GRD, -- 钢号
				   B.SPEC_STL_GRD,
				   A.SPEC_ABBSYM, -- 标准号
				   A.ORD_USEAGE_CD, -- 订单用途
				   NVL(A.KEEPWARM_YN, 'N') KEEPWARM_YN, -- 是否需要进保温坑
				   NVL(A.EACHLOT_YN, 'N') EACHLOT_YN, -- 是否需要全部取样
				   A.ORD_THK, -- 订单厚度
				   A.ORD_WTH, -- 订单宽度
				   A.ORD_LEN, -- 订单长度
				   A.ORD_INDIA, -- 订单内径
				   A.ORD_OUTDIA, -- 订单外径
				   A.ORD_UNIT_WGT_MIN, -- 订单重量下限
				   A.ORD_UNIT_WGT_MAX, -- 订单重量上限
				   NVL(EMGMTR_NMG_CLF, 'N') EMGMTR_NMG_CLF, -- 紧急材代码
				   A.DEL_TO_DATE, -- 交货期结束
				   XB_PACKAGE.GF_COMNNAME_FIND('A01001', RCVORD_CLF) RCVORD_CLF, -- 接受订单区分
				   A.ORD_WGT, -- 订单重量
				   A.ORD_PRC_WGT, -- 生产进程重量
				   A.ORD_REM_WGT, -- 订单余重量
				   A.SHIP_END_WGT, -- 发货完重量
				   XB_PACKAGE.GF_COMNNAME_FIND('A01012', B.DLIV_TP) DLIV_TP,
				   B.MK_CONTENT, --订单备注
				   -------------------------------------------------------------------
				   CASE
					   WHEN (C.ORD_NO IS NOT NULL) THEN
						'Y'
					   ELSE
						'N'
				   END DN_YN, --是否板坯设计中
				   DECODE(K.DSN_KIND, '1', 'Y', 'N') AS INGR_YN
			-------------------------------------------------------------------
			  FROM TBE02_ORD_PRC  A,
				   TBA01_ORD_LINE B
				   --------------------------------------------------------------------------------
				   --MODIFY BY SJW 090902 VERSION 1.26-->1.27
				   --DESC:板坯设计保存的是临时的结果，故在充当的时候检查改订单有无正在板坯设计中
				  ,
				   (SELECT DISTINCT ORD_NO, ORD_SEQ
					  FROM TBD01_SLABDN_RST
					
					UNION ALL
					
					SELECT DISTINCT ORD_NO, ORD_SEQ FROM TBD01_MATDN_RST) C,
				   (SELECT DISTINCT ORD_NO, ORD_SEQ, DSN_KIND
					  FROM TBB01_ORD_INGR
					 WHERE DSN_KIND = '1') K
			
			-------------------------------------------------------------------------------
			 WHERE A.ORD_NO = B.ORD_NO(+)
			   AND A.ORD_SEQ = B.ORD_SEQ(+)
				  ---------------------------------------------------------------------------------
				  --MODIFY BY SJW 090902 VERSION 1.26-->1.27
				  --DESC:板坯设计保存的是临时的结果，故在充当的时候检查改订单有无正在板坯设计中
			   AND A.ORD_NO = C.ORD_NO(+)
			   AND A.ORD_SEQ = C.ORD_SEQ(+)
			   AND A.ORD_NO = K.ORD_NO(+)
			   AND A.ORD_SEQ = K.ORD_SEQ(+)
				  --------------------------------------------------------------------------------- 
			   AND A.ORD_PROG_CD IN ('D', 'E')
				  ---------------------------------------------------------------
				  --modify by sjw 090901 version 1.25->1.26
				  --desc:  订单关闭条件已由达到上限关闭修改为订单下限关闭，所以取消余量为负控制
				  --AND A.ORD_REM_WGT > 0
				  ----------------------------------------------------------------
			   --AND A.RCVORD_CLF <> 'M'
			   AND ('R' IN (SELECT *
                 FROM TABLE(XB_PACKAGE.GF_TABSTR(A.ORD_PRC_LOCK,'|'))
                 )
                 or 
                 A.ORD_PRC_LOCK is null
                 )
			   AND A.PRODNM_CD LIKE ? || '%' -- 产品代码
			   AND A.CUST_CD || '&' LIKE ? || '%' -- 客户代码
			   AND A.STL_GRD LIKE ? || '%' -- 钢号
			   AND A.ORD_NO LIKE ? || '%' -- 合同号
			   AND A.ORD_SEQ LIKE ? || '%' -- 订单号
			   AND A.RCVORD_CLF || '&' LIKE ? || '%' -- 接受订单区分
			   AND A.DEL_TO_DATE BETWEEN ? AND ? -- 交货日期（到达）
			   AND A.ORD_USEAGE_CD || '&' LIKE ? || '%' -- 订单用途
			   AND A.SPEC_ABBSYM || '&' LIKE ? || '%' -- 标准号
			   AND A.ORD_THK BETWEEN ? AND ? -- 订单厚度
			   AND A.ORD_WTH BETWEEN ? AND ? -- 订单宽度
			   AND A.OVER_ORD IS NULL -- 订单关闭标志，上线初期使用，王黎添加
			 ORDER BY A.DEL_TO_DATE, A.ORD_NO, A.ORD_SEQ
		]]>
	</query> 
	<query id="UIE031045.SlabComm.Select" desc="" fetchSize="10">
		<![CDATA[
			SELECT
				A.SLAB_NO DSP_NO,
				A.SLAB_NO MAT_NO,				-- 板坯号
				A.STL_GRD,						-- 钢号
				A.SLAB_THK MAT_THK,				-- 板坯厚度
				A.SLAB_WTH MAT_WTH,				-- 板坯宽度
				A.SLAB_LEN MAT_LEN,				-- 板坯长度
				A.SLAB_WGT MAT_WGT,				-- 板坯重量
				A.SLAB_CUT_DTIME MAT_DTIME,		-- 板坯截断时间(生产日期)
				XB_PACKAGE.GF_COMNNAME_FIND('E01010', A.NONORD_CAUSE_CD) NONORD_CAUSE_CD,		-- 余材原因
				A.CUR_LOAD_LOC,					-- 现在堆置位置
				NVL(A.KEEPWARM_YN, 'N') KEEPWARM_YN,
				A.ORG_ORD_NO,					-- 最初合同号
				A.ORG_ORD_SEQ,					-- 最初订单号
				(A.SLAB_WGT * C.PROC_RATE / 100) MAT_REP_WGT
			FROM TBG02_SLAB_COMM A, TBE02_ORD_PRC B, (
				SELECT PROC_RATE FROM TBE01_PROC_RATE WHERE PROC_CD = 'R') C
			WHERE A.CUR_PROG_CD = 'RRC'
			  AND A.ORD_FL = '2'
			  AND A.SLAB_STAT = '2'
			  AND B.ORD_NO = :1					-- 合同号
			  AND B.ORD_SEQ = :2					-- 订单号
			  AND ('Y' <> NVL(:3, 'N') OR (A.STL_GRD = B.STL_GRD /* AND A.SLAB_INGR_DEC_GRD = '1' */))  -- 同牌号
        	  AND ('Y' <> NVL(:4, 'N') OR (GF_NIB028720(A.SLAB_NO, B.ORD_NO, B.ORD_SEQ) = 'YY'))  -- 检查成分项目
              AND ('Y' <> NVL(:5, 'N') OR (A.SLAB_WGT * PKG_UID.GET_PROC_RATE( B.ORD_NO, B.ORD_SEQ , '' )/100  ) BETWEEN B.ORD_UNIT_WGT_MIN*:6 AND B.ORD_UNIT_WGT_MAX*:7) --同单重
              AND ('Y' <> NVL(:8, 'N') OR (A.SLAB_WTH BETWEEN B.ORD_WTH AND B.ORD_WTH + 100)) --同尺寸
		]]>
	</query>
	<query id="UIE031045.CoilComm.Select" desc="" fetchSize="10">
		<![CDATA[
			SELECT
				A.OLD_SAMPL_NO DSP_NO,
				A.COIL_NO MAT_NO,					-- 钢卷号
				A.STL_GRD,							-- 钢号
				A.SPEC_STL_GRD,
				A.COIL_THK MAT_THK,					-- 钢卷厚度
				A.COIL_WTH MAT_WTH,					-- 钢卷宽度
				A.COIL_LEN MAT_LEN,					-- 钢卷长度
				A.ACT_WGT MAT_WGT,					-- 钢卷重量
				A.COIL_INDIA  MAT_INDIA,			-- 钢卷内径
				A.COIL_OUTDIA MAT_OUTDIA,			-- 钢卷外径
				A.COIL_CRE_DTIME MAT_DTIME,			-- 生产日期
				XB_PACKAGE.GF_COMNNAME_FIND('E01010', A.NONORD_CAUSE_CD) NONORD_CAUSE_CD,		-- 余材原因
				A.CUR_LOAD_LOC,						-- 现在堆置位置
				NVL(A.SAMPL_PICK_YN, 'N') SAMPL_PICK_YN,
				A.ORG_ORD_NO,						-- 最初合同号
				A.ORG_ORD_SEQ,						-- 最初订单号
				A.ACT_WGT MAT_REP_WGT,
				CASE WHEN NVL(A.COIL_WTH, 0) = 0 THEN 0
					ELSE ROUND(A.COIL_OUTDIA / A.COIL_WTH, 3) END JKB,
			    ---------------------------------------------------------------------
                --ADD BY TL 091215 
                --DESC: 增加禁发区分标志
                DECODE(A.REM_YARD,'1','禁发火车','2','卷径比超宽','3','卷规格异常','4','卷外型异常','5','禁发',NULL) REM_YARD
                ---------------------------------------------------------------------
			FROM TBH02_COIL_COMM A, TBE02_ORD_PRC B
			     -------------------------------------------
			      --MODIFY BY SJW 091010
			      --DESC:  成品同牌号更改为spec_stl_grd
			     ,TBA01_ORD_LINE C
			     -------------------------------------------
			WHERE NVL(A.QK_YN, 'N') <> 'Y'
			  AND A.CUR_PROG_CD = 'SRC'
			  AND A.ORD_FL = '2'
			  AND A.COIL_STAT = '2'
			  AND A.TOT_DEC_GRD NOT IN ('3', '4')	-- 次废品不可充
			  ------------------------------------------------------------
        		--MODIFY BY WXY 091210
        		--DESC: 改判完成 或则没有改判的可以充当
        	  AND (A.SMP_STATS IS NULL OR A.SMP_STATS = '3')
			  -----------------------------------------------------------
			   --MODIFY BY SJW 091010
			   --DESC:  成品同牌号更改为spec_stl_grd
			  AND B.ORD_NO = C.ORD_NO					-- 合同号
			  AND B.ORD_SEQ = C.ORD_SEQ						-- 订单号
			  -----------------------------------------------------------
			  AND B.ORD_NO = :1						-- 合同号
			  AND B.ORD_SEQ = :2						-- 订单号
			  ------------------------------------------------------------------------------------------
			  --MODIFY BY WXY 20101217
        	  --DESC:  成品同牌号更改为H_spec_stl_grd
        	  AND ('Y' <> NVL(:3, 'N') OR A.SPEC_STL_GRD = B.H_SPEC_STL_GRD)            -- 同牌号
        	  AND ('Y' <> NVL(:4, 'N') OR GF_NIB028720(A.SLAB_NO, B.ORD_NO, B.ORD_SEQ) = 'YY')  -- 检查成分项目
              AND ('Y' <> NVL(:5, 'N') OR GF_NIB028750(A.COIL_NO, B.ORD_NO, B.ORD_SEQ) = 'YY')  -- 检查材质项目
        	  AND ('Y' <> NVL(:6, 'N') OR A.ACT_WGT *( PKG_UID.GET_PROC_RATE( B.ORD_NO, B.ORD_SEQ , '' )/100 ) BETWEEN B.ORD_UNIT_WGT_MIN*:7 AND B.ORD_UNIT_WGT_MAX*:8)
        	  AND ('Y' <> NVL(:9, 'N') OR GF_NIB028780(A.COIL_NO, B.ORD_NO, B.ORD_SEQ) = 'YY')              -- 检查尺寸通过
		]]>
	</query>
	
	<query id="UIE031045.SLAB_CUR_LOAD_LOC.Select" desc="" fetchSize="10">
		<![CDATA[
           --ADD BY SJW :090728
		   --DESC: 余材充当的时候，需提供当前订单的物料信息
			SELECT SLAB_NO MAT_NO, CUR_LOAD_LOC, SLAB_WGT MAT_WGT
			FROM TBG02_SLAB_COMM
			WHERE SLAB_STAT     = '2'
			  AND ORD_FL        = '1'
			  AND CUR_PROG_CD   = 'RBA'
			  AND ORD_NO        = ?
			  AND ORD_SEQ       = ?
			ORDER BY SLAB_NO, CUR_LOAD_LOC			
		]]>
	</query>
	
	<query id="UIE031045.COIL_CUR_LOAD_LOC.Select" desc="" fetchSize="10">
		<![CDATA[
           --ADD BY SJW :090728
		   --DESC: 余材充当的时候，需提供当前订单的物料信息
			SELECT OLD_SAMPL_NO MAT_NO, CUR_LOAD_LOC, ACT_WGT MAT_WGT
			FROM TBH02_COIL_COMM
			WHERE COIL_STAT     = '2'
			  AND ORD_FL        = '1'
			  AND CUR_PROG_CD   = 'SFA'
			  AND DLIV_DIRNO    IS NULL
			  AND ORD_NO        = ?
			  AND ORD_SEQ       = ?
			ORDER BY OLD_SAMPL_NO, CUR_LOAD_LOC			
		]]>
	</query>

</queryMap>