XinYu_RZMES/.svn/pristine/3d/3ddd4a84a65bdf15c3e490bcc5c999e273eb79b1.svn-base

<?xml version="1.0" encoding='UTF-8'?>
<queryMap desc="STEEL MAKING QUERY ">
	<query id="UIJ020200_01.select" desc=" 查询运送指示信息 " fetchSize="10">
		<![CDATA[
/*********************************************************************************************
SELECT '' CHK,
       B.SHIP_DIRNO,
       B.GET_ON_PCD,
       B.DEST_PCD,
       B.EXLV_LINE_CD,
       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  
FROM(SELECT *
     FROM TBJ01_SHIP_DIR
     WHERE 1 = 1
     AND SHIP_PROG_CD = :1               -- SHIP_PROG_CD = '03':瞒樊硅瞒措扁
     AND SHIP_DIRNO BETWEEN NVL(:2,'00000101')||'0000' AND NVL(:3,'99991231')||'9999'
     AND SHIP_DIRNO LIKE :4||'%') A       
   ,(SELECT X.*, Y.CNT CNT, Y.ACT_WGT ACT_WGT
     FROM TBJ01_DLIV_DIR X
        ,(SELECT DLIV_DIRNO
               , COUNT(*)            AS CNT
               , NVL(SUM(ACT_WGT),0) AS ACT_WGT
          FROM TBH02_COIL_COMM_BJ
          WHERE 1 = 1
          AND CUR_PROG_CD like :5||'%'            -- CUR_PROG_CD = 'SFB'(款价措扁)
          AND SHIP_DIRNO BETWEEN NVL(:6,'00000101')||'0000' AND NVL(:7,'99991231')||'9999'
          GROUP BY DLIV_DIRNO) Y
     WHERE X.DLIV_DIRNO = Y.DLIV_DIRNO
     AND X.DLIV_TP LIKE :8||'%') B
   ,(SELECT *
     FROM TBJ00_SHIP_COMP
     WHERE SHIP_COMP_CD LIKE :9||'%') C
   ,(SELECT SM_CD, SM_CFNM FROM TBZ00_COMMCD WHERE LG_CD = 'A01012') 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.DLIV_DIR_DATE BETWEEN NVL(:10,' ') AND NVL(:11,' ')
AND NVL(A.SHIP_DIRNO,' ') LIKE :12||'%'
AND NVL(B.DLIV_TP,' ') LIKE :13||'%'
AND NVL(B.SHIP_COMP_CD,' ') LIKE :14||'%'
AND NVL(B.LANE_TP,' ') LIKE :15||'%'
AND B.ENTERANCE_SEQ LIKE :16||'%'
*******************************************************************************************************/
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,
       B.INSTR_COIL_THK||'*'||B.INSTR_COIL_WTH T_W   
FROM(SELECT *
     FROM TBJ01_SHIP_DIR
     WHERE 1 = 1
     AND SHIP_PROG_CD = :1           -- SHIP_PROG_CD = '03':?樊硅?措扁
     AND SHIP_DIRNO BETWEEN NVL(:2,'00000101')||'0000' AND NVL(:3,'99991231')||'9999'
     AND SHIP_DIRNO LIKE :4||'%') 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 TBH02_COIL_COMM_BJ
          WHERE 1 = 1
          AND CUR_PROG_CD like :5||'%'            -- CUR_PROG_CD = 'SFB'(款价措扁)
          AND SHIP_DIRNO BETWEEN NVL(:6,'00000101')||'0000' AND NVL(:7,'99991231')||'9999'
          GROUP BY DLIV_DIRNO) Y
     WHERE X.DLIV_DIRNO = Y.DLIV_DIRNO
     AND X.DLIV_TP LIKE :8||'%'
     AND NVL(X.LANE_TP,'*') LIKE :9||'%'
     AND NVL(X.ENTERANCE_SEQ,0) = NVL(:10,0)) B
   ,(SELECT *
     FROM TBJ00_SHIP_COMP
     WHERE SHIP_COMP_CD LIKE :11||'%') C
   ,(SELECT SM_CD, SM_CFNM FROM TBZ00_COMMCD WHERE LG_CD = 'A01012' AND SM_CD LIKE :12||'%') 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="UIJ020200_02.select" desc=" 这里的发货状态同一批次一起改变，所以取钢卷公共表中的状态 " fetchSize="10">
		<![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 TBH02_COIL_COMM_BJ 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.LANE_TP = ? 
AND B.ENTERANCE_SEQ = ? 
ORDER BY B.ALLOC_SEQ 
		]]>
	</query>
	<query id="UIJ010040_03.select" desc="  " fetchSize="10">
		<![CDATA[
			SELECT SLAB_NO,BEF_PROG_CD,ORD_NO,ORD_SEQ,ACT_WGT FROM tbh02_coil_comm_BJ WHERE OLD_SAMPL_NO = ?
		]]>
	</query>
	<query id="UIJ020200_04.select" desc=" 查询同合同同订单号下未下计划的钢卷,这里改为查询同合同号下的卷对订单号不做限制 " fetchSize="10">
		<![CDATA[
            select distinct a.OLD_SAMPL_NO||'*'||A.CUR_LOAD_LOC||'*'||A.INSTR_COIL_THK||'*'||A.INSTR_COIL_WTH||'*'||A.ACT_WGT LABEL,a.OLD_SAMPL_NO VALUE from tbh02_coil_comm_BJ a  
                where a.ORD_NO = ?  
            and a.COIL_STAT = '2'
            and a.CUR_PROG_CD = 'SFA'
            AND A.CUR_LOAD_LOC IS NOT NULL
            AND A.TOT_DEC_GRD = '1'
            AND A.ISUSED = '0'
            order by a.OLD_SAMPL_NO
		]]>
	</query>
	<query id="UIJ020200_05.select" desc=" 查询原始钢卷的相关信息 " fetchSize="10">
		<![CDATA[
      select  a.SHIP_DIRNO,a.DLIV_DIRNO,a.SHIP_PROG_CD,a.DEST_CD,
        a.ISUSED,A.SHIP_DIR_DTIME,A.TRANS_CAR_NO,A.TRAIN_STEP_NO,CUR_PROG_CD,a.DLIV_TP,A.HCOLOUR_REM 
        from tbh02_coil_comm_BJ a   
          where a.OLD_SAMPL_NO = ? 
		]]>
	</query>
	<query id="UIJ020200_06.select" desc=" 查询同合同同订单号下已下计划的钢卷 " fetchSize="10">
		<![CDATA[
      select distinct a.OLD_SAMPL_NO||'*'||A.DLIV_DIRNO||'*'||b.dliv_tp||'*'||A.INSTR_COIL_THK||'*'||A.INSTR_COIL_WTH||'*'||A.ACT_WGT LABEL,a.OLD_SAMPL_NO VALUE  
                 from tbh02_coil_comm_BJ a,tbj01_dliv_dir b  
                 where a.ORD_NO = ? 
                 and a.dliv_dirno = b.dliv_dirno
                 and a.COIL_STAT = '2'
                 and a.CUR_PROG_CD = 'SFB'
                 AND A.DLIV_DIRNO <> ?
                 AND A.CUR_LOAD_LOC IS NOT NULL
                 AND A.DLIV_DIRNO IS NOT NULL 
                 AND A.SHIP_DIRNO IS NOT NULL
                 AND A.SHIP_PROG_CD IN('03','04')
                 AND A.TOT_DEC_GRD = '1'
                 AND A.ISUSED = '1'
        order by a.OLD_SAMPL_NO
		]]>
	</query>
	<query id="UIJ020200_07.select" desc=" 查询同列的钢卷信息,这里提供列的输入功能 " fetchSize="10">
		<![CDATA[
			 SELECT
        A.OLD_SAMPL_NO,
        A.SPEC_STL_GRD,            -- 钢号
        A.COIL_THK,        -- 钢卷厚度
        A.COIL_WTH,        -- 钢卷宽度
        A.INSTR_COIL_THK,
        A.INSTR_COIL_WTH,
        A.COIL_LEN,        -- 钢卷长度
        A.ACT_WGT,        -- 钢卷重量
        A.CUR_LOAD_LOC,
        DECODE(A.CUR_PROG_CD,'SFA','发货指示待机','SED','判定待机','SRC','充当待机','SFB','运送待机','SFF','发货完成') CUR_PROG_CD,
        DECODE(A.ORD_FL,'1','订单材','余材') ORD_FL,
        DECODE(A.ORD_FL,'1',A.ORD_NO,'')   ORD_NO,
        DECODE(A.ORD_FL,'1',A.ORD_SEQ,'')  ORD_SEQ,
        A.COIL_OUTDIA,
        (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,
        (SELECT sm_cfnm   FROM TBZ00_COMMCD      WHERE LG_CD = 'A01009'     AND b.DEST_PCD = SM_CD) DEST_PCD_DESC
      FROM TBH02_COIL_COMM_BJ A,TBJ01_DLIV_DIR B
      WHERE A.COIL_STAT = '2'
            AND A.DLIV_DIRNO = B.DLIV_DIRNO(+)
            AND A.OLD_SAMPL_NO LIKE ?||'%'
            AND   A.COIL_THK >= NVL(?,'000')
            AND   A.COIL_THK <= NVL(?,'999')
            AND   A.COIL_WTH >= NVL(?,'00000')
            AND   A.COIL_WTH <= NVL(?,'99999') 
			AND A.OLD_SAMPL_NO <> ? 
		]]>
	</query>
	<query id="UIJ020200_08.select" desc=" 查询库里所有的钢卷信息 " fetchSize="10">
		<![CDATA[
			 SELECT
        A.OLD_SAMPL_NO,
        A.SPEC_STL_GRD,            -- 钢号
        A.COIL_THK,        -- 钢卷厚度
        A.COIL_WTH,        -- 钢卷宽度
        A.INSTR_COIL_THK,
        A.INSTR_COIL_WTH,
        A.COIL_LEN,        -- 钢卷长度
        A.ACT_WGT,        -- 钢卷重量
        A.CUR_LOAD_LOC,
        DECODE(A.CUR_PROG_CD,'SFA','发货指示待机','SED','判定待机','SRC','充当待机','SFB','运送待机','SFF','发货完成') CUR_PROG_CD,
        DECODE(A.ORD_FL,'1','订单材','余材') ORD_FL,
        DECODE(A.ORD_FL,'1',A.ORD_NO,'')   ORD_NO,
        DECODE(A.ORD_FL,'1',A.ORD_SEQ,'')  ORD_SEQ,
        A.COIL_OUTDIA,
        (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,
        (SELECT sm_cfnm   FROM TBZ00_COMMCD      WHERE LG_CD = 'A01009'     AND b.DEST_PCD = SM_CD) DEST_PCD_DESC
      FROM TBH02_COIL_COMM_BJ A,TBJ01_DLIV_DIR B
      WHERE A.COIL_STAT = '2'
            AND A.DLIV_DIRNO = B.DLIV_DIRNO(+)
            AND A.OLD_SAMPL_NO LIKE ?||'%'
			AND A.OLD_SAMPL_NO <> ? 
		]]>
	</query>
	<query id="UIJ020200_09.select" desc=" 查询库里所有的钢卷信息 " fetchSize="10">
		<![CDATA[
       SELECT
        A.OLD_SAMPL_NO,
        A.SPEC_STL_GRD,            -- 钢号
        A.COIL_THK,        -- 钢卷厚度
        A.COIL_WTH,        -- 钢卷宽度
        A.INSTR_COIL_THK,
        A.INSTR_COIL_WTH,
        A.COIL_LEN,        -- 钢卷长度
        A.ACT_WGT,        -- 钢卷重量
        A.CUR_LOAD_LOC,
        DECODE(A.CUR_PROG_CD,'SFA','发货指示待机','SED','判定待机','SRC','充当待机','SFB','运送待机','SFF','发货完成') CUR_PROG_CD,
        DECODE(A.ORD_FL,'1','订单材','余材') ORD_FL,
        DECODE(A.ORD_FL,'1',A.ORD_NO,'')   ORD_NO,
        DECODE(A.ORD_FL,'1',A.ORD_SEQ,'')  ORD_SEQ,
        A.COIL_OUTDIA,
        (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,
        (SELECT sm_cfnm   FROM TBZ00_COMMCD      WHERE LG_CD = 'A01009'     AND b.DEST_PCD = SM_CD) DEST_PCD_DESC
      FROM TBH02_COIL_COMM_BJ A,TBJ01_DLIV_DIR B
      WHERE A.COIL_STAT = '2'
            AND A.DLIV_DIRNO = B.DLIV_DIRNO(+)
            AND A.OLD_SAMPL_NO LIKE ?||'%'
            AND A.SPEC_STL_GRD LIKE ?||'%'
            AND A.OLD_SAMPL_NO <> ? 
		]]>
	</query>
	<query id="UIJ020200_10.select" desc=" 检验钢卷的发货状态，为03，04的可以进行钢卷的互换 " fetchSize="10">
		<![CDATA[
           select A.SHIP_PROG_CD from tbh02_coil_comm_BJ a where a.old_sampl_no = ? 
		]]>
	</query>
	<query id="UIJ020200_11.select" desc=" 检验钢卷的状态，是否满足相应的条件 " fetchSize="10">
		<![CDATA[
           SELECT A.CUR_PROG_CD,A.SPEC_STL_GRD FROM TBH02_COIL_COMM_BJ A WHERE A.OLD_SAMPL_NO = ? 
		]]>
	</query>
	<query id="UIJ020200_12.select" desc=" 这里用来获取清单号所需要的信息,已废弃 " fetchSize="10">
		<![CDATA[
           SELECT max(A.QDNO) QDNO,TO_CHAR(SYSDATE,'YY') YY,SUBSTR(MAX(A.INV_NO),3,2) INV_YY  FROM TBJ01_DLIV_DIR A
		]]>
	</query>
	<query id="UIJ020200_13.select" desc=" 这里用来获取清单号所需要的信息 " fetchSize="10">
		<![CDATA[
           SELECT A.INV_NO FROM TBJ01_DLIV_DIR  A WHERE A.DLIV_DIRNO = ? 
		]]>
	</query>
	<query id="UIJ020200_14.select" desc=" 获取下车时候的钢卷号信息 " fetchSize="10">
		<![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="UIJ020200_15.select" desc=" 获取钢卷的重量信息，在换卷的时候做对比 " fetchSize="10">
		<![CDATA[
			   SELECT A.ACT_WGT,a.instr_coil_thk||'*'||a.instr_coil_wth IT_IW FROM TBH02_COIL_COMM A WHERE A.OLD_SAMPL_NO = ?
		]]>
	</query>
	<query id="UIJ020200_16.select" desc=" 在换卷的时候获取合同备注信息， " fetchSize="10">
		<![CDATA[
			   SELECT T.MK_COIL FROM TBA01_ORD_LINE T 
				      WHERE T.ORD_NO = (SELECT A.ORD_NO FROM TBH02_COIL_COMM A WHERE A.OLD_SAMPL_NO = ?)
                      AND   T.ORD_SEQ = (SELECT A.ORD_SEQ FROM TBH02_COIL_COMM A WHERE A.OLD_SAMPL_NO = ?)
		]]>
	</query>
	<query id="UIJ020200_init_01" desc=" 初始化运输方式 " fetchSize="10">
		<![CDATA[
			SELECT SM_CD VALUE, SM_CFNM LABEL FROM TBZ00_COMMCD WHERE LG_CD = 'A01012'
		]]>
	</query>
	<query id="UIJ020200_init_02" desc=" 初始化运输单位 " fetchSize="10">
		<![CDATA[
			/***** select a.sm_cfnm LABEL,a.sm_cd VALUE from tbz00_commcd a where lg_cd = 'J01002'  *****/
            SELECT SHIP_COMP_NM AS LABEL, SHIP_COMP_CD AS VALUE
			FROM TBJ00_SHIP_COMP
			ORDER BY 1
			/***** ORDER BY 1 : SHIP_COMP_NM ASC
			 ***** ORDER BY 2 : SHIP_COMP_CD ASC
			 *****/
		]]>
	</query>
	<query id="UIJ020200_select_ship" desc=" 查询钢卷公共表中的SHIP_PROG_CD状态。看是否全部改变 " fetchSize="10">
		<![CDATA[
			select a.SHIP_PROG_CD from tbh02_coil_comm_BJ a  where a.ship_dirno = ? 
		]]>
	</query>
	<query id="UIJ020200_01.update" desc=" 只更新排车顺序和车厢号 " fetchSize="10">
		<![CDATA[
			update tbj01_dliv_dir
			set 
			ALLOC_SEQ = ?,
			TRANS_CAR_NO = ?,
			LANE_TP = ?,
			ENTERANCE_SEQ = ?  
			where DLIV_DIRNO = ? 
		]]>
	</query>
	<query id="UIJ020200_01.return" desc=" 取消当前发货指示号下的排车顺序和车厢号 " fetchSize="10">
		<![CDATA[
			update tbj01_dliv_dir
			set 
			ALLOC_SEQ = '',
			TRANS_CAR_NO = '',
			LANE_TP = '',
			ENTERANCE_SEQ = ''   
			where DLIV_DIRNO = ? 
		]]>
	</query>
	<query id="UIJ020200_02.update" desc=" 更新钢卷公共表，发货状态改为06.跳过行车。不走进程 火运当前位置默认为T" fetchSize="10">
		<![CDATA[
			update TBH02_COIL_COMM_BJ
			set 
			TRANS_CAR_NO = ?,
			TRAIN_STEP_NO = ?,
			DLIV_DIRNO = ?,
			SHIP_DIRNO = ?,
			ACT_WGT    = ?,
			SHIP_PROG_CD = '06',
			BEF_LOAD_LOC = CUR_LOAD_LOC,
			CUR_LOAD_LOC = 'T'    
			--CUR_PROG_CD = 'SFB',
			--CUR_PROG_CD_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS'),
			--CUR_PROG_CD_PGM = 'UIJ010040',
			--BEF_PROG_CD = CUR_PROG_CD,
			--BEF_PROG_CD_DTIME = CUR_PROG_CD_DTIME,
			--BEF_PROG_CD_PGM = CUR_PROG_CD_PGM 
			where OLD_SAMPL_NO =? 
			
		]]>
	</query>
	<query id="UIJ020200_03.update" desc=" 更新发货表的状态标志字段3-4 " fetchSize="10">
		<![CDATA[
			update tbj01_ship_dir
			set 
			ship_prog_cd = '04' 
			where ship_dirno =?
			
		]]>
	</query>
	<query id="UIJ020200_03.return" desc=" 取消发货表的状态标志字段4-3 " fetchSize="10">
		<![CDATA[
			update tbj01_ship_dir
			set 
			ship_prog_cd = '03' 
			where ship_dirno =?
			
		]]>
	</query>
	<query id="ExecuteProcedure_NIB029020" desc="" fetchSize="10">
		<![CDATA[				
		call NIB029021(:1, :2, :3, :4)
		/*******
		 :1 - P_SHIP_DIRNO
		 :2 - P_CRET_NO
		 :3 - P_RETURN_CD
		 :4 - P_RETURN_MSG
		 *******/
		]]>
	</query>
	<query id="UIJ010040_05.update" desc=" 更新发货表的状态标志字段4-5 " fetchSize="10">
		<![CDATA[
			update tbj01_ship_dir
			set 
			ship_prog_cd = '05' 
			where ship_dirno =?
			
		]]>
	</query>
	<query id="UIJ020200_04.update" desc=" 更新钢卷公共表中的车辆号和排车顺序号 " fetchSize="10">
		<![CDATA[
			update TBH02_COIL_COMM_BJ
			set 
			TRAIN_STEP_NO = ?,
			TRANS_CAR_NO = ?,
			SHIP_PROG_CD = '04'   
			where DLIV_DIRNO =?
			
		]]>
	</query>
	<query id="UIJ020200_04.return" desc=" 取消钢卷公共表中的车辆号和排车顺序号 " fetchSize="10">
		<![CDATA[
			update TBH02_COIL_COMM_BJ
			set 
			TRAIN_STEP_NO = '',
			TRANS_CAR_NO = '',
			SHIP_PROG_CD = '03'   
			where DLIV_DIRNO =?
			
		]]>
	</query>
	<query id="UIJ020200_06.update" desc=" 只更新排车顺序和车厢号 " fetchSize="10">
		<![CDATA[
			update tbj01_dliv_dir
			set 
			ALLOC_SEQ = ?,
			TRANS_CAR_NO = ? 
			where DLIV_DIRNO = ? 
		]]>
	</query>
	<query id="UIJ020200_07.update" desc=" 更新换入卷的发货信息，充当使用 " fetchSize="10">
		<![CDATA[
      update TBH02_COIL_COMM_BJ A
              set 
              A.SHIP_PROG_CD = ?,
              A.SHIP_DIRNO = ?,
              A.DLIV_DIRNO = ?,
              A.DEST_CD = ?,
              A.ISUSED = ?,
              A.SHIP_DIR_DTIME = ?,
              A.CUR_PROG_CD = ?,
              A.TRANS_CAR_NO = ?,
              A.TRAIN_STEP_NO = ?,
              A.HCOIL_REG = ?,
              A.HCOIL_REM = ?,
              A.DLIV_TP = ?,
              A.HCOLOUR_REM = ?,
              A.HCOIL_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')       
            where A.OLD_SAMPL_NO = ? 
		]]>
	</query>
	<query id="UIJ020200_08.update" desc=" 清楚换出卷的发货信息 " fetchSize="10">
		<![CDATA[
      update TBH02_COIL_COMM_BJ A
              set 
            A.SHIP_PROG_CD = '',
            A.SHIP_DIRNO = '',
            A.DLIV_DIRNO = '',
            A.DEST_CD = '',
            A.ISUSED = '0',
                A.SHIP_DIR_DTIME = '',
            A.CUR_PROG_CD = 'SFA',
            A.TRANS_CAR_NO = '',
              A.TRAIN_STEP_NO = '',
              a.DLIV_TP = ''      
            where A.OLD_SAMPL_NO = ? 
		]]>
	</query>
	<query id="UIJ020200_09.update" desc=" 暂时处理清楚相应的垛位信息 " fetchSize="10">
		<![CDATA[
			update TBH05_COIL_YARD A SET 
     			  A.COIL_NO = '',
				   A.REG_ID = '',
				   A.REG_DTIME = ''
				   WHERE A.COIL_NO = ? 
		]]>
	</query>
	<query id="UIJ020200_10.update" desc=" 确认的时候再次更新排车顺序和车厢号 " fetchSize="10">
		<![CDATA[
			update tbj01_dliv_dir
			set 
			ALLOC_SEQ = ?,
			TRANS_CAR_NO = ?  
			where DLIV_DIRNO = ? 
		]]>
	</query>
	<query id="UIJ020200_11.update" desc=" 获取运输表的发货清单号，放入钢卷公共表 " fetchSize="10">
		<![CDATA[
			update tbh02_coil_comm_BJ X SET 
     			   X.SHIP_INVNO = ?
				   WHERE X.DLIV_DIRNO = ?  
		]]>
	</query>
	<query id="UIJ020200_12.update" desc=" 更新换入卷的发货信息,不同合同互换使用。不能更新进程状态 " fetchSize="10">
		<![CDATA[
			update TBH02_COIL_COMM_BJ A
     				 set 
					  A.SHIP_PROG_CD = ?,
					  A.SHIP_DIRNO = ?,
					  A.DLIV_DIRNO = ?,
					  A.DEST_CD = ?,
					  A.ISUSED = ?,
					  A.SHIP_DIR_DTIME = ?,
			          A.TRANS_CAR_NO = ?,
				      A.TRAIN_STEP_NO = ?      
					  where A.OLD_SAMPL_NO = ? 
		]]>
	</query>
	<query id="NIE03_SERVEAS.MAT_REP_EACH_OTHER" desc=" 两个钢卷号的合同信息互换 " fetchSize="1">
        <![CDATA[					
            {call NIE03_SERVEAS.MAT_REP_EACH_OTHER_FH(?,?,?,?,?,?,?,?,?)}
        ]]>
    </query>
</queryMap>