XinYu_RZMES/.svn/pristine/7b/7bb75107275f92d8849cd440ba9d94597f9e9836.svn-base

<?xml version="1.0" encoding='UTF-8'?>
<queryMap desc="进程管理 >> 异常材处理 >> 订单生产完成处理">

	<query id="UIE021010.OrdPrc.Select" desc="" fetchSize="10">
		<![CDATA[
SELECT A.ORD_NO, -- 合同号
       A.ORD_SEQ, -- 订单号
       XB_PACKAGE.GF_COMNNAME_FIND('E01001', A.ORD_PROG_CD) ORD_PROG_CD, -- 订单进度代码
       NVL2(A.PROD_END_GP, 'Y', 'N') CHK, -- 生产结束-指定
       A.PROD_END_GP, -- 生产结束区分
       A.PROD_END_DATE,  -- 生产结束日期
       A.SHIP_END_DATE,  -- 发货结束日期
       --DECODE(A.ORD_PROG_CD, 'G', A.SHIP_END_DATE, A.PROD_END_DATE) PROD_END_DATE, -- 生产结束日期
       A.PROD_END_ID, -- 生产结束者
       A.DEL_TO_DATE,
       A.ORD_WGT, -- 订单重量
       A.WGT_ACVAL_MIN, -- 交付允许误差 最小
       A.WGT_ACVAL_MAX, -- 交付允许误差 最大
       A.ORD_REM_WGT, -- 订单余重量
       A.ORD_PRC_WGT, -- 生产进程重量
       A.PROD_END_WGT, -- 生产结束重量
       A.SHIP_END_WGT, -- 发货完重量
       B.USER_NM AS MOD_ID, --王黎修改 8月12日
       A.ORD_MOD_DTIME
  FROM TBE02_ORD_PRC A, TBZ01_USER B
 WHERE -- ORD_PROG_CD IN ('D', 'E', 'H', 'F') AND
 A.ORD_NO LIKE ? || '%' -- 合同号
 AND A.ORD_SEQ LIKE ? || '%' -- 订单号
 AND A.PROD_END_GP || '&' LIKE ? || '%' -- 生产结束区分
 AND INSTR(NVL(?, A.PRD_TY), A.PRD_TY) > 0 -- 参数：产品类型
 AND (? IS NULL OR
 A.ORD_PROG_CD IN
 ( -- 参数：订单进度代码
   SELECT COLUMN_VALUE FROM TABLE(CAST(XB_PACKAGE.GF_TABSTR(?) AS TABSTR_T))))
   AND A.DEL_TO_DATE BETWEEN nvl(?,'00000000') AND nvl(?,'99999999')
   AND A.ORD_REM_WGT BETWEEN NVL(?, -99999999) AND NVL(?, 99999999)
   AND A.ORD_PRC_WGT BETWEEN NVL(?, -99999999) AND NVL(?, 99999999)
   AND A.PROD_END_WGT BETWEEN NVL(?, -99999999) AND NVL(?, 99999999)
   AND  ((? IS NULL AND ? IS NULL  AND NVL(A.ORD_MOD_DTIME,'00000000000000') BETWEEN nvl(?,'00000000000000') AND nvl(?,'99999999999999'))
         OR ((? IS NOT NULL OR ? IS NOT NULL) AND A.ORD_MOD_DTIME  BETWEEN nvl(?,'00000000000000') AND nvl(?,'99999999999999')))
 AND A.ORD_MOD_ID = B.USER_CD(+) --王黎添加 8月12日
			
		]]>
	</query> 

	<query id="UIE021010.OrdPrc.Update" desc="">
		<![CDATA[
			--CHK|CHK|PROD_END_GP|CHK|CHK|PROD_END_GP|ORD_NO|ORD_SEQ
			UPDATE TBE02_ORD_PRC SET
			    SHIP_END_DATE = DECODE(?,
                              'Y',
                              PKG_UIE.FUNC_UIE020020(ord_no, ord_seq),
                              SHIP_END_DATE),
				PROD_END_GP = DECODE(?, 'Y', ?, ''),				-- 生产结束区分
				PROD_END_DATE = DECODE(?, 'Y', TO_CHAR(SYSTIMESTAMP, 'yyyymmdd'), ''),	-- 生产结束日期
				ORD_PROG_CD = DECODE(?, 'Y', DECODE(?, '1', 'G',	-- 发货结束
													   '4', 'B',	-- 订单返送
													   'X', 'F',	-- 生产结束
													ORD_PROG_CD),
											DECODE(ORD_PROG_CD, 'B', 'D',	-- 订单返送 -> 投入确定
													   ORD_PROG_CD)),
				ORD_MOD_ID = ?,
			    ORD_MOD_DTIME = TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS')
			WHERE ORD_NO = ?			-- 合同号
			  AND ORD_SEQ = ?			-- 订单号
		]]>
	</query>
	<query id="UIE021010.OrdPrc.Update1" desc=" 为记录发货结束时间单独添加 ">
		<![CDATA[
			--CHK|PROD_END_GP|CHK|ORD_NO|ORD_SEQ|CHK|PROD_END_GP|ORD_NO|ORD_SEQ
			--TL  091221
      		UPDATE TBE02_ORD_PRC SET
				PROD_END_GP = DECODE(?, 'Y', ?, ''),        -- 生产结束区分
				SHIP_END_DATE = DECODE(?, 'Y', PKG_UIE.FUNC_UIE020010(?,?), ''),  -- 发货结束日期
				ORD_PROG_CD = DECODE(?, 'Y', DECODE(?, '1', 'G',  -- 发货结束
									 '4', 'B',  -- 订单返送
									 'X', 'F',  -- 生产结束
								  ORD_PROG_CD),
							  DECODE(ORD_PROG_CD, 'B', 'D',  -- 订单返送 -> 投入确定
									 ORD_PROG_CD)),
				ORD_MOD_ID = ?,
				  ORD_MOD_DTIME = TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS')
			  WHERE ORD_NO = ?      -- 合同号
				AND ORD_SEQ = ?      -- 订单号
		]]>
	</query>

	<query id="UIE021010.OrdLine-0.Update" desc="">
		<![CDATA[
			UPDATE TBA01_ORD_LINE A SET
				ORD_SEQ_PROG_CD = (
					SELECT DECODE(ORD_PROG_CD, 'A', 'A', 'C', 'C', 'D')
					FROM TBE02_ORD_PRC
					WHERE ORD_NO = A.ORD_NO AND ORD_SEQ = A.ORD_SEQ)
			WHERE ORD_NO = ?
			  AND ORD_SEQ = ?
		]]>
	</query>
	<query id="UIE021010.OrdLine-4.Update" desc="">
		<![CDATA[
			UPDATE TBA01_ORD_LINE A SET
				ORD_SEQ_PROG_CD = 'R'
			WHERE ORD_NO = ?
			  AND ORD_SEQ = ?
		]]>
	</query>

</queryMap>