XinYu_RZMES/.svn/pristine/27/27c9ae90a681964fd696643ffcd3a4704f7d8cf8.svn-base

<?xml version="1.0" encoding='UTF-8'?>
<queryMap desc="STEEL MAKING QUERY ">
	<query id="UIH051500_01.select" desc="查询钢卷在库信息">
        <![CDATA[
     select A.COIL_THK,A.COIL_WTH,A.COIL_LEN,A.ACT_WGT,A.CAL_WGT,
             A.REM_YARD REM,A.CRK_CD1,A.CRK_CD2,A.CRK_CD3,A.CRK_CD4,A.CRK_CD5,A.CUR_LOAD_LOC,a.YARD_XX_ENTRY_REG,a.YARD_XX_ENTRY_DTIME,
             (select B.PROD_WGT_MIN from tba01_ord_line b where b.ord_no = a.ord_no and b.ord_seq = a.ord_seq) PROD_WGT_MIN,
             (select B.PROD_WGT_MAX from tba01_ord_line b where b.ord_no = a.ord_no and b.ord_seq = a.ord_seq) PROD_WGT_MAX,
             (SELECT T.DEL_TOL_THK_MIN FROM TBB01_ORD_DEL t  WHERE T.ORD_NO = a.ord_no AND T.ORD_SEQ = a.ord_seq and t.DSN_KIND =(SELECT MIN(DSN_KIND) FROM TBB01_ORD_DEL C WHERE T.ORD_NO = C.ORD_NO AND T.ORD_SEQ = C.ORD_SEQ)) DEL_TOL_THK_MIN,
             (SELECT T.DEL_TOL_THK_MAX FROM TBB01_ORD_DEL t  WHERE T.ORD_NO = a.ord_no AND T.ORD_SEQ = a.ord_seq and t.DSN_KIND =(SELECT MIN(DSN_KIND) FROM TBB01_ORD_DEL C WHERE T.ORD_NO = C.ORD_NO AND T.ORD_SEQ = C.ORD_SEQ)) DEL_TOL_THK_MAX,
             (SELECT T.DEL_TOL_WTH_MIN FROM TBB01_ORD_DEL t  WHERE T.ORD_NO = a.ord_no AND T.ORD_SEQ = a.ord_seq and t.DSN_KIND =(SELECT MIN(DSN_KIND) FROM TBB01_ORD_DEL C WHERE T.ORD_NO = C.ORD_NO AND T.ORD_SEQ = C.ORD_SEQ)) DEL_TOL_WTH_MIN,
             (SELECT T.DEL_TOL_WTH_MAX FROM TBB01_ORD_DEL t  WHERE T.ORD_NO = a.ord_no AND T.ORD_SEQ = a.ord_seq and t.DSN_KIND =(SELECT MIN(DSN_KIND) FROM TBB01_ORD_DEL C WHERE T.ORD_NO = C.ORD_NO AND T.ORD_SEQ = C.ORD_SEQ)) DEL_TOL_WTH_MAX,
             (SELECT DECODE(D.ISACEPT,0,'结算未接收',1,'结算已接收') FROM TBJ02_COIL_COMM D WHERE A.OLD_SAMPL_NO = D.OLD_SAMPL_NO(+)) ISACEPT,
             (SELECT DECODE(D.ISCHANGEWGT,0,'结算未回退',1,'结算已回退') FROM TBJ02_COIL_COMM D WHERE A.OLD_SAMPL_NO = D.OLD_SAMPL_NO(+)) ISCHANGEWGT,
              A.WGT_REG,
              A.WGT_TIME  
                   from tbh02_coil_comm A WHERE A.OLD_SAMPL_NO = ? 
		]]>
    </query>
	<query  id="UIH051500_02.select" desc="初始化外观缺陷代码表">
	   SELECT 
		 'N' CHK
		, SM_CFNM
		, SM_CD
		FROM TBZ00_COMMCD WHERE LG_CD='H02001' 
	</query>
	<query  id="UIH051500_03.select" desc="获得理论重量">
		SELECT   
		TO_NUMBER(
		ROUND((
		nvl((select T.SLAB_WGT from tbg02_slab_comm T where T.SLAB_NO = 
		(SELECT A.SLAB_NO FROM TBH02_COIL_COMM A WHERE A.OLD_SAMPL_NO = ?)
		),0)*98)/100,1)) 
		SQL_WGT from  dual 
	</query>
	<query  id="UIH051500_04.select" desc="获得理论重量">
		SELECT   
		TO_NUMBER(
		ROUND((
		nvl((select T.SLAB_WGT from tbg02_slab_comm T where T.SLAB_NO = 
		(SELECT A.SLAB_NO FROM TBH02_COIL_COMM A WHERE A.OLD_SAMPL_NO = ?)
		),0)*98.5)/100,3)) 
		SQL_WGT from  dual 
	</query>
	<query  id="UIH051500_01.update" desc="获得理论重量">
		UPDATE TBH02_COIL_COMM A 
SET    A.COIL_THK = ?,
       A.COIL_WTH = ?,
       A.COIL_LEN = ?,
	   --记录修改前的钢卷重量
       A.BEF_ACT_WGT = A.ACT_WGT,
       A.ACT_WGT  = ?,
       A.CAL_WGT  = ?,
       --A.CRK_CD1  = ?,
       --A.CRK_CD2  = ?,
       --A.CRK_CD3  = ?,
       --A.CRK_CD4  = ?,
       --A.CRK_CD5  = ?,
       A.YARD_XX_ENTRY_SHIFT = ?,
       A.YARD_XX_ENTRY_GROUP = ?,
       A.YARD_XX_ENTRY_REG  =  ?,
       A.YARD_XX_ENTRY_DTIME = ?,
       A.REM_YARD            = ?,
       A.YARD_XX_ENTRY_USE_REG = ?,
       A.YARD_XX_ENTRY_USE_TIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
       
       WHERE A.OLD_SAMPL_NO = ? 
	</query>
	<query  id="UIH051500_02.update" desc="明细发行后，重量再次修改。并且销售重新接收">
		UPDATE TBH02_COIL_COMM A SET 
       A.ACT_WGT = ?,
       A.WGT_REG = ?,
       A.WGT_TIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD'),
       A.SEND_WGT = '1' 
       WHERE A.OLD_SAMPL_NO = ? 
	</query>
	<query  id="UIH051500_03.update" desc="明细发行后，重量再次修改。这里是库存内部修改使用">
		UPDATE TBJ02_COIL_COMM A SET 
       A.ACT_WGT = ?/1000
       
       WHERE A.OLD_SAMPL_NO = ? 
	</query>
	<query  id="UIH051500_04.update" desc="明细发行后，重量再次修改。这里是发送销售使用">
     UPDATE TBJ02_COIL_COMM A SET 
       a.ISACEPT = '0',
       a.ISCHANGEWGT = '0'
       
       WHERE A.DLIV_DIRNO = ? 
	</query>
	<query  id="UIH051500_05.update" desc="任何时间，都可以修改备注信息">
		UPDATE TBH02_COIL_COMM A SET 
       A.REM_YARD = ? ,A.YARD_XX_ENTRY_REG = ?,A.YARD_XX_ENTRY_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD') 
       WHERE A.OLD_SAMPL_NO = ? 
	</query>
	<query  id="PKG_TOTL_DCS01" desc="取消综合判定">
		{call ZL_HOST_DCS03.TOT_DCS_CANCEL(? ,?, ?)}
	</query>
	<query  id="UIH051500_06.update" desc="这里核对重量的时候记录相应的人和时间">
		UPDATE TBH02_COIL_COMM A 
SET    A.YARD_XX_ENTRY_SHIFT = ?,
       A.YARD_XX_ENTRY_GROUP = ?,
       A.YARD_XX_ENTRY_REG  =  ?,
       A.YARD_XX_ENTRY_DTIME = ?,
       A.REM_YARD            = ?,
       A.YARD_XX_ENTRY_USE_REG = ?,
       A.YARD_XX_ENTRY_USE_TIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
       
       WHERE A.OLD_SAMPL_NO = ? 
	</query>
</queryMap>