XinYu_LZMES/.svn/pristine/0c/0c1004ebf4886ed0b7639da11a8cb01d7b89634f.svn-base

<?xml version="1.0" encoding="UTF-8"?>
<queryMap desc="发运计划查询">
	<query id="UIJ060010_01.SELECT"  desc="查询运输单位">
		<![CDATA[
		SELECT SHIP_COMP_NM AS LABEL, SHIP_COMP_CD AS VALUE
		FROM TBJ00_SHIP_COMP
		ORDER BY 1
		 ]]>
	</query>
	<query id="UIJ060010_02.SELECT"  desc="查询排车计划">
		<![CDATA[
		SELECT '' CHK,
		B.SHIP_DIRNO,
		--B.GET_ON_PCD,
		--B.DEST_PCD,
		(SELECT sm_cfnm   FROM TBZ00_COMMCD      WHERE LG_CD = 'A01009'     AND b.DEST_PCD = SM_CD) DEST_PCD_DESC,
		--B.EXLV_LINE_CD,
		--(SELECT x.SM_CFNM   FROM TBZ00_COMMCD   x   WHERE LG_CD = 'A01015'     AND b.EXLV_LINE_CD = SM_CD) EXLV_LINE_CD_DESC,
		(select CUST_NM FROM TBZ00_CUSTOMER WHERE CUST_CD = b.CUST_CD and REC_TP='01') CUST_NM, 
		(select CUST_NM ORD_NM FROM TBZ00_CUSTOMER WHERE CUST_CD = b.ORD_CUST_CD and REC_TP='02') ORD_NM,
		-- B.GET_OFF_PCD,
		--B.DLIV_TP,
		--D.SM_CFNM AS DLIV_TP_NM,
		--B.SHIP_COMP_CD,
		--C.SHIP_COMP_NM SM_CFNM,
		B.TRAIN_DLIVNO,
		B.DLIV_DIRNO,
		NVL(B.CNT,0) AS CNT,
		NVL(B.ACT_WGT,0) AS ACT_WGT,
		B.ALLOC_SEQ,
		 B.TRANS_CAR_NO,
		B.LANE_TP,
		B.ENTERANCE_SEQ,
		B.ORD_NO,
		B.ORD_SEQ,
		B.SPEC_STL_GRD,
		to_char(B.INSTR_COIL_THK,'FM990.099')||'*'||B.INSTR_COIL_WTH T_W   
		FROM(SELECT *
		FROM TBJ01_SHIP_DIR
		WHERE 1 = 1
		AND SHIP_PROG_CD = ?           -- SHIP_PROG_CD = '03' 发货指示状态
		AND SHIP_DIRNO BETWEEN NVL(?,'00000101')||'0000' AND NVL(?,'99991231')||'9999'
		AND SHIP_DIRNO LIKE ?||'%') A       
		,(SELECT X.*, Y.CNT CNT, Y.ACT_WGT ACT_WGT,Y.ORD_NO,Y.ORD_SEQ,Y.SPEC_STL_GRD,Y.INSTR_COIL_THK,Y.INSTR_COIL_WTH 
		FROM TBJ01_DLIV_DIR X
		,(SELECT DLIV_DIRNO
		, COUNT(*)            AS CNT
		, NVL(SUM(ACT_WGT),0) AS ACT_WGT
		, MAX(ORD_NO)         AS ORD_NO
		, MAX(ORD_SEQ)        AS ORD_SEQ
		, MAX(SPEC_STL_GRD)   AS SPEC_STL_GRD
		, MAX(INSTR_COIL_THK) AS INSTR_COIL_THK
		, MAX(INSTR_COIL_WTH) AS INSTR_COIL_WTH
		FROM C_TBL02_COIL_COMM
		WHERE 1 = 1
		AND CUR_PROG_CD like ?||'%'            -- CUR_PROG_CD = 'SFB'(物料进度)
		AND LINE_TP='S'  --酸洗线
		AND SHIP_DIRNO BETWEEN NVL(?,'00000101')||'0000' AND NVL(?,'99991231')||'9999'
		GROUP BY DLIV_DIRNO) Y
		WHERE X.DLIV_DIRNO = Y.DLIV_DIRNO
		AND X.DLIV_TP LIKE ?||'%'
		AND NVL(X.LANE_TP,'*') LIKE ?||'%'
		AND NVL(X.ENTERANCE_SEQ,0) = NVL(?,0)) B
		,(SELECT *
		FROM TBJ00_SHIP_COMP
		WHERE SHIP_COMP_CD LIKE ?||'%') C
		,(SELECT SM_CD, SM_CFNM FROM TBZ00_COMMCD WHERE LG_CD = 'A01012' AND SM_CD LIKE ?||'%') D
		WHERE A.SHIP_DIRNO = B.SHIP_DIRNO(+)
		AND B.SHIP_COMP_CD = C.SHIP_COMP_CD(+)
		AND D.SM_CD = B.DLIV_TP 
		AND B.ISDELETED = 0
		AND B.ISCANCEL = 0
		ORDER BY B.ALLOC_SEQ,B.DLIV_DIRNO
		 ]]>
	</query>
	<query id="UIJ060010_03.SELECT"  desc="查询待装车钢卷">
		<![CDATA[
		SELECT '' CHK,
		A.OLD_SAMPL_NO,
		A.COIL_NO,
		DECODE(A.TOT_DEC_GRD,'1','合格','2','次品',' ') TOT_DEC_GRD,
		--DECODE(A.MATRL_END_CAUSE_CD,'1','合格','2','次品',' ') MATRL_END_CAUSE_CD,
		a.instr_coil_wth COIL_WTH,
		a.instr_coil_thk COIL_THK,
		a.ORD_NO,
		a.ORD_SEQ,
		a.spec_stl_grd,
		A.COIL_OUTDIA,
		NVL(A.ACT_WGT,0) ACT_WGT,
		NVL(A.CAL_WGT,0) CAL_WGT,
		A.CUR_LOAD_LOC,
		B.DEST_PCD,
		B.ALLOC_SEQ,
		B.TRANS_CAR_NO,
		B.DLIV_DIRNO,
		B.SHIP_DIRNO,
		(SELECT sm_cfnm   FROM TBZ00_COMMCD      WHERE LG_CD = 'A01009'     AND b.DEST_PCD = SM_CD) DEST_PCD_DESC,
		--(SELECT x.SM_CFNM   FROM TBZ00_COMMCD   x   WHERE LG_CD = 'A01015'     AND b.EXLV_LINE_CD = SM_CD) EXLV_LINE_CD_DESC,
		(select CUST_NM FROM TBZ00_CUSTOMER WHERE CUST_CD = B.CUST_CD and REC_TP='01') CUST_NM, 
		(select CUST_NM ORD_NM FROM TBZ00_CUSTOMER WHERE CUST_CD = B.ORD_CUST_CD and REC_TP='02') ORD_NM,
		A.HCOLOUR_REM    
		FROM C_TBL02_COIL_COMM A,TBJ01_DLIV_DIR B,TBJ01_SHIP_DIR C
		WHERE A.DLIV_DIRNO = B.DLIV_DIRNO
		AND B.SHIP_DIRNO = C.SHIP_DIRNO
		AND A.SHIP_PROG_CD = '04'
		AND B.DLIV_TP  = ? 
		ORDER BY B.ALLOC_SEQ
		 ]]>
	</query>
	<query id="UIJ060010_04.SELECT"  desc="查询下达排车计划时排车计划对应的钢卷信息">
		<![CDATA[
		SELECT substr(A.DLIV_NO,5,8) DLIV_NO,A.COIL_NO,A.COIL_STEEL,A.COIL_HEIGHT||'*'||A.COIL_WIDTH T_W FROM TBJ01_DLIVNO_COIL A 
		WHERE A.DLIV_NO = ?  
		order by a.COIL_NO
		 ]]>
	</query>
	<query id="UIJ060010_05.SELECT"  desc="查询发运计划下钢卷详细信息">
		<![CDATA[
		SELECT T.COIL_NO,
		       T.SPEC_STL_GRD,
		       TO_CHAR(O.ORD_THK, 'FM990.099') || '*' || O.ORD_WTH ORD_SIZE,
		       T.ACT_WGT,
		       T.CUR_LOAD_LOC
		  FROM C_TBL02_COIL_COMM T, TBA01_ORD_LINE O
		 WHERE T.ORD_NO = O.ORD_NO
		   AND T.ORD_SEQ = O.ORD_SEQ
		   AND T.DLIV_DIRNO = ?
		 ]]>
	</query>
	<query id="UIJ060010_06.SELECT"  desc="查询同合同号下可发钢卷">
		<![CDATA[
		SELECT 'FALSE' CHK,
		       T.COIL_NO,
		       T.SPEC_STL_GRD,
		       T.COIL_THK,
		       T.COIL_WTH,
		       T.INSTR_COIL_THK,
		       T.INSTR_COIL_WTH,
		       T.ACT_WGT,
		       T.COIL_LEN,
		       T.COIL_INDIA,
		       T.COIL_OUTDIA,
		       T.CUR_LOAD_LOC,
		       T.CUR_PROG_CD,
		       T.ORD_NO,
		       T.ORD_SEQ,
		       DECODE(T.ORD_FL, '1', '订单材', '2', '余材') ORD_FL,
		       O.ORDCUST_CD,
		       O.CUST_CD,
		       O.DEST_CD
		  FROM C_TBL02_COIL_COMM T, TBE02_ORD_PRC O
		 WHERE T.ORD_NO = O.ORD_NO
		   AND T.ORD_SEQ = O.ORD_SEQ
		   AND T.CUR_PROG_CD = 'DFA'
		   AND T.ORD_NO = ?
		   AND T.ORD_SEQ = ?
		   AND T.COIL_NO || '&' LIKE ? || '%'
		   AND T.COIL_THK BETWEEN NVL(?, '0') AND NVL(?, '999')
		   AND T.COIL_WTH BETWEEN NVL(?, '0') AND NVL(?, '9999')
		 ]]>
	</query>
	<!-- 待装车取消 -->
	<query id="UIJ060010_01.UPDATE"  desc="取消运输表中排车顺序及车辆号">
		<![CDATA[
		update tbj01_dliv_dir
		set 
		ALLOC_SEQ = '',
		TRANS_CAR_NO = '',
		LANE_TP = '',
		ENTERANCE_SEQ = ''   
		where DLIV_DIRNO = ? 
		 ]]>
	</query>
	<query id="UIJ060010_02.UPDATE"  desc="取消公共表中车辆号">
		<![CDATA[
		update C_TBL02_COIL_COMM
			set 
			TRAIN_STEP_NO = '',
			TRANS_CAR_NO = '',
			SHIP_PROG_CD = '03' 
			where DLIV_DIRNO =?
			AND SHIP_PROG_CD = '04' 
		 ]]>
	</query>
	<query id="UIJ060010_03.UPDATE"  desc="更新发货表发运状态">
		<![CDATA[
		update tbj01_ship_dir
			set 
			ship_prog_cd = '03' 
			where ship_dirno =?
		 ]]>
	</query>
	<!-- 确认排车操作 -->
	<query id="UIJ060010_04.UPDATE"  desc="生成发货清单号">
		<![CDATA[
		UPDATE   TBJ01_DLIV_DIR
		SET      INV_NO = (select 'LJ'||to_char(sysdate,'y')||'-'||
	    nvl((select to_char(to_number(nvl(substr(max(inv_no),5,6),0))+1,'FM000000') from tbj01_dliv_dir
	    where inv_no like 'LJ'||to_char(sysdate,'y')||'%'),'000001')
	    from dual) 
		, INV_DTIME  = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')
		WHERE   DLIV_DIRNO = ?
		 ]]>
	</query>
	<query id="UIJ060010_05.UPDATE"  desc="发货清单号更新到钢卷公共表">
		<![CDATA[
		update C_TBL02_COIL_COMM X SET 
				X.SHIP_INVNO = ?
				WHERE X.DLIV_DIRNO = ?
		 ]]>
	</query>
	<query id="UIJ060010_06.UPDATE"  desc="更新钢卷公共表排车顺序和车辆号">
		<![CDATA[
		update C_TBL02_COIL_COMM
			set 
			TRANS_CAR_NO = ?,
			TRAIN_STEP_NO = ?,
			DLIV_DIRNO = ?,
			SHIP_DIRNO = ?,
			ACT_WGT    = ?,
			SHIP_PROG_CD = '06',
			BEF_LOAD_LOC = CUR_LOAD_LOC,
			BEF_LOAD_LOC_DTIME = CUR_LOAD_LOC_DTIME,
			CUR_LOAD_LOC = '',CUR_LOAD_LOC_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')
			where OLD_SAMPL_NO =? 
		 ]]>
	</query>
	<query id="UIJ060010_07.UPDATE"  desc="清除垛位表钢卷信息">
		<![CDATA[
		update C_TBK08_COIL_YARD A SET
			A.COIL_NO = '',
			A.MOD_ID = '',
			A.MOD_TIME = ''
			WHERE A.COIL_NO = ?
		 ]]>
	</query>
	<query id="UIJ060010_08.UPDATE"  desc="更新发运表发运状态">
		<![CDATA[
		update tbj01_ship_dir
				set 
				ship_prog_cd = '05'
				where ship_dirno =?
		 ]]>
	</query>
	<query id="UIJ060010_09.UPDATE"  desc="将钢卷加入发运计划">
		<![CDATA[
		UPDATE C_TBL02_COIL_COMM T
		   SET T.BEF_PROG_CD       = T.CUR_PROG_CD,
		       T.BEF_PROG_CD_DTIME = T.CUR_PROG_CD_DTIME,
		       T.BEF_PROG_CD_PGM   = T.CUR_PROG_CD_PGM,
		       T.CUR_PROG_CD       = 'DFB',
		       T.CUR_PROG_CD_DTIME = TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS'),
		       T.CUR_PROG_CD_PGM   = 'UIJ030021',
		       T.DLIV_DIRNO        = (SELECT max(A.DLIV_DIRNO) FROM C_TBL02_COIL_COMM A WHERE A.COIL_NO IN(?)),
		       T.SHIP_DIRNO        = (SELECT max(A.SHIP_DIRNO) FROM C_TBL02_COIL_COMM A WHERE A.COIL_NO IN(?)),
		       T.SHIP_PROG_CD      = (SELECT max(A.SHIP_PROG_CD) FROM C_TBL02_COIL_COMM A WHERE A.COIL_NO IN(?)),
		       T.SHIP_DIR_DTIME    = (SELECT max(A.SHIP_DIR_DTIME) FROM C_TBL02_COIL_COMM A WHERE A.COIL_NO IN(?)),
		       T.DLIV_TP           = (SELECT max(A.DLIV_TP) FROM C_TBL02_COIL_COMM A WHERE A.COIL_NO IN(?)),
		       T.TRANS_CAR_NO      = (SELECT max(A.TRANS_CAR_NO) FROM C_TBL02_COIL_COMM A WHERE A.COIL_NO IN(?)),
			   T.TRAIN_STEP_NO     = (SELECT max(A.TRAIN_STEP_NO) FROM C_TBL02_COIL_COMM A WHERE A.COIL_NO IN(?))
		 WHERE T.COIL_NO IN (?)
		 ]]>
	</query>
	<query id="UIJ060010_10.UPDATE"  desc="将钢卷从发运计划中删除">
		<![CDATA[
		UPDATE C_TBL02_COIL_COMM T
		   SET T.BEF_PROG_CD       = T.CUR_PROG_CD,
		       T.BEF_PROG_CD_DTIME = T.CUR_PROG_CD_DTIME,
		       T.BEF_PROG_CD_PGM   = T.CUR_PROG_CD_PGM,
		       T.CUR_PROG_CD       = 'DFA',
		       T.CUR_PROG_CD_DTIME = TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS'),
		       T.CUR_PROG_CD_PGM   = 'UIJ030021',
		       T.DLIV_DIRNO        = '',
		       T.SHIP_DIRNO        = '',
		       T.SHIP_PROG_CD      = '',
		       T.SHIP_DIR_DTIME    = '',
		       T.DLIV_TP           = '',
		       T.TRANS_CAR_NO      = '',
			   T.TRAIN_STEP_NO     = ''
		 WHERE T.COIL_NO IN (?)
		 ]]>
	</query>
	<query id="UIJ060010_01.CALL"  desc="">
		<![CDATA[
		{call ZL_SUAN_DCS01.CRET_BOOK_GENT(?,?,?)}
		 ]]>
	</query>
	<query id="UIJ060010_02.CALL"  desc="">
		<![CDATA[
		{call C_PKG_OS_COMM.ORD_STS_MAIN(?,?,?)}
		 ]]>
	</query>
	<query id="UIJ060010_03.CALL"  desc="">
		<![CDATA[
		{call C_PKG_OS_COMM.SAVE_ORD_STS(?,?,?,?,?,?,?,?,?,?,?)}
		 ]]>
	</query>
</queryMap>