XinYu_RZMES/.svn/pristine/fc/fc63920e0dac23a920f9391108ef49e737847f60.svn-base

<?xml version="1.0" encoding='UTF-8'?>
<queryMap desc="充当余材处理">
	
	<query id="UIE031047.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.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.8-->1.9
				  --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.7->1.8
				  --desc:  订单关闭条件已由达到上限关闭修改为订单下限关闭，所以取消余量为负控制
				  --AND A.ORD_REM_WGT > 0
				  ----------------------------------------------------------------
			   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="UIE031047.SlabComm.Select" desc="" fetchSize="10">
		<![CDATA[
			SELECT
				A.SLAB_NO DSP_NO,
				A.SLAB_NO MAT_NO,				-- 板坯号
				A.STL_GRD,						-- 钢号
			    '' SPEC_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
			    ,''                              JKB
			FROM TBG02_SLAB_COMM A, (
				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'
			ORDER BY A.STL_GRD,A.SLAB_NO
		]]>
	</query>
	<query id="UIE031047.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 OR NVL(A.COIL_OUTDIA,0) = 0 THEN '0' 
                      ELSE TO_CHAR(ROUND(A.COIL_OUTDIA/A.COIL_WTH,3))       END JKB
            FROM TBH02_COIL_COMM A
            WHERE A.CUR_PROG_CD = 'SRC'
              AND A.ORD_FL      = '2'
              AND A.QK_YN       =  DECODE(?,'清库合同','Y','N')
			  --AND A.COIL_STAT IN  ('2','4')	
			  ------------------------------------------
			  --MODIFY BY SJW 090922
			  --DESC:取消预装车
			  AND A.COIL_STAT = '2'
			  ------------------------------------------
			  AND A.OLD_SAMPL_NO IS NOT NULL
			  AND A.DLIV_DIRNO   IS NULL
			ORDER BY A.STL_GRD,A.OLD_SAMPL_NO

		]]>
	</query>
	
		<query id="UIE031047.repMatInfo.Select" desc="" fetchSize="10">
		<![CDATA[
WITH TBTEMP_MAT_INFO AS ( 
           SELECT
                A.SLAB_NO DSP_NO,
                A.SLAB_NO MAT_NO,                -- 板坯号
                A.STL_GRD,                        -- 钢号
                '' SPEC_STL_GRD,
                A.SLAB_THK MAT_THK,                -- 板坯厚度
                A.SLAB_WTH MAT_WTH,                -- 板坯宽度
                A.SLAB_LEN MAT_LEN,                -- 板坯长度
                A.SLAB_WGT MAT_WGT,                -- 板坯重量
                ''  MAT_INDIA,                      -- 钢卷内径
                ''  MAT_OUTDIA,                     -- 钢卷外径
                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
                ,''                              JKB
                ,'TM'                              MAT_TYPE
                ----------------------------------------------
                --ADD BY SJW 090830 1.6->1.7
                --DESC:增加次品标识
                ,''                                TOT_GRD_CLF
                ------------------------------------------------
			    ---------------------------------------------------------------------
                --ADD BY TL 091215 
                --DESC: 增加禁发区分标志
                ,'' REM_YARD
                ---------------------------------------------------------------------
            FROM TBG02_SLAB_COMM A, (
                SELECT PROC_RATE FROM TBE01_PROC_RATE WHERE PROC_CD = 'R') C
                ,TBE02_ORD_PRC D
            WHERE A.CUR_PROG_CD = 'RRC'
              AND D.ORD_NO      = ?
              AND D.ORD_SEQ     = ?
              AND A.ORD_FL = '2'
              AND A.SLAB_STAT = '2'
              AND ('Y' <> NVL(?, 'N') OR A.STL_GRD = D.STL_GRD)                        -- 同牌号

            UNION   ALL

           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,                -- 钢卷重量
                TO_CHAR(A.COIL_INDIA)  MAT_INDIA,                    -- 钢卷内径
                TO_CHAR(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 OR NVL(A.COIL_OUTDIA,0) = 0 THEN '0' 
                      ELSE TO_CHAR(ROUND(A.COIL_OUTDIA/A.COIL_WTH,3))       END JKB
                ,'AR'                              MAT_TYPE
                ---------------------------------------------------------------------
                 --ADD BY SJW 090830 1.6->1.7
                 --DESC:增加次品标识
                ,CASE WHEN A.TOT_DEC_GRD IN ('3','4') THEN 'Y' 
                      ELSE                             'N'        END TOT_GRD_CLF
                ---------------------------------------------------------------------
			    ---------------------------------------------------------------------
                --ADD BY TL 091215 
                --DESC: 增加禁发区分标志
                ,DECODE(A.REM_YARD,'1','禁发火车','2','卷径比超宽','3','卷规格异常','4','卷外型异常','5','禁发',NULL) REM_YARD
                ---------------------------------------------------------------------
            FROM TBH02_COIL_COMM A
                 ,TBA01_ORD_LINE  D
            WHERE A.CUR_PROG_CD = 'SRC'
              AND A.ORD_FL      = '2'
              AND A.QK_YN       =  DECODE(?,'清库合同','Y','N')
              AND D.ORD_NO      = ?
              AND D.ORD_SEQ     = ?
              AND ('Y' <> NVL(?, 'N') OR A.SPEC_STL_GRD = D.SPEC_STL_GRD)        
              --AND A.COIL_STAT IN  ('2','4')    
              ------------------------------------------
              --MODIFY BY SJW 090922
              --DESC:取消预装车
              AND A.COIL_STAT = '2'
              ------------------------------------------
              AND A.OLD_SAMPL_NO IS NOT NULL
              AND A.DLIV_DIRNO   IS NULL )

 SELECT DISTINCT * 
   FROM  TBTEMP_MAT_INFO 
 WHERE   MAT_TYPE                =       ?
  ORDER  BY  STL_GRD,DSP_NO

			  
		]]>
	</query>
</queryMap>