XinYu_LZMES/WebRoot/WEB-INF/query/M/M01/UIM010090-query.xml

<?xml version="1.0" encoding="UTF-8"?>
<queryMap desc="原料库出库">
	<query id="UIM010090_01.SELECT"  desc="查询库存数据">
		<![CDATA[
SELECT       A.OLD_SAMPL_NO
            ,A.STL_GRD                 SPEC_STL_GRD
            ,A.COIL_THK
            ,A.COIL_WTH
            ,C.ORD_THK                 INSTR_COIL_THK
            ,C.ORD_WTH                 INSTR_COIL_WTH
            ,A.ACT_WGT
            ,A.COIL_INDIA
            ,A.COIL_OUTDIA
            ,A.FM_EXT_STRIP_TEMP_AVG
            ,A.DC_TEMP_AVG 
            ,DECODE(A.ORD_FL,'1','订单材','2','余材','','未判') ORD_FL
            ,A.ORD_NO
            ,A.ORD_SEQ,A.CUR_LOAD_LOC,DECODE(A.TOT_DEC_GRD,'1','合格','2','不合格','3','次品','4','废品')   TOT_DEC_GRD
            ,DECODE(A.INGR_DEC_GRD,'0','综合判定取消','1','合格','2','不合格')                              INGR_DEC_GRD
            ,DECODE(A.MATLQLTY_DEC_GRD,'0','无性能要求','1','合格','2','不合格')                            MATRL_END_CAUSE_CD
            ,DECODE(A.SIZE_DEC_RST,'1','合格','2','不合格')                                                 SIZE_DEC_RST
            ,DECODE(A.EXTSHAPE_DEC_GRD,'1','合格','2','订单外合格','3','次品','4','废品')                   EXTSHAPE_DEC_GRD
            ,DECODE(A.WGT_DEC_RST,'1','合格','2','不合格')                                                  WGT_DEC_RST
            ,C_PKG_UIM.GET_STDDATESTR(A.YARD_ENTRY_DTIME)                                                   YARD_ENTRY_DTIME
            ,C_PKG_UIM.GET_STDTIMESTR(A.YARD_ENTRY_USE_TIME)                                                YARD_ENTRY_USE_TIME
            ,(SELECT USERNAME FROM CORE_APP_USER U WHERE U.USERID = A.YARD_ENTRY_REG)                       YARD_ENTRY_REG
            ,DECODE(A.YARD_ENTRY_SHIFT,'0','常白班','1','早班','2','中班','3','晚班')                       YARD_ENTRY_SHIFT
            ,DECODE(A.YARD_ENTRY_GROUP,'0','常白班','1','甲班','2','乙班','3','丙班','4','丁班')            YARD_ENTRY_GROUP
            ,SUBSTR(B.SLAB_NO,0,10) CHARGE_NO,(SELECT T.SM_CFNM FROM TBZ00_COMMCD T  WHERE T.LG_CD = 'A01012' AND T.SM_CD = C.DLIV_TP) DLIV_TP
            ,(SELECT T.CUST_NM FROM TBZ00_CUSTOMER T WHERE T.CUST_CD = D.ORDCUST_CD) ORDCUST_CD
            ,DECODE(A.CUR_PROG_CD,'PRC','基料卷充当待机','PCA','酸轧作业指示待机','PCB','酸轧轧制待机','PCC','酸轧卷取待机') CUR_PROG_CD
            ,C.ORD_DEVLMT_DATE
            ,C_PKG_UIM.GET_STDTIMESTR(A.MILL_DTIME)              MILL_DTIME
            ,C.XSQY
            ,C.ORD_PLAN_DATA
FROM         C_TBK02_COIL_COMM            A
            ,TBG02_SLAB_COMM              B
            ,TBA01_ORD_LINE               C
            ,TBA01_ORD_COMM               D
            ,TBE02_ORD_PRC                E 
WHERE        '1' = '1' 
AND          A.SLAB_NO                    =         B.SLAB_NO(+) 
AND          A.ORD_NO                     =         C.ORD_NO(+) 
AND          A.ORD_SEQ                    =         C.ORD_SEQ(+) 
AND          A.ORD_NO                     =         D.ORD_NO(+) 
AND          A.ORD_NO                     =         E.ORD_NO(+) 
AND          A.ORD_SEQ                    =         E.ORD_SEQ(+)
AND          A.COIL_STAT                  =         '2' 
AND          A.CUR_PROG_CD                =         'PRC'
AND          A.CUR_LOAD_LOC     IS        NOT   NULL
AND          A.ORD_NO||'&'                LIKE      ?||'%'
AND          A.ORD_SEQ||'&'               LIKE      ?||'%'
AND          A.OLD_SAMPL_NO||'&'          LIKE      ?||'%' 
		 ]]>
	</query>
	<query id="UIM010090_02.SELECT"  desc="查询钢卷信息">
		<![CDATA[
		SELECT K.ORD_NO,K.ORD_SEQ,K.BEF_PROG_CD,K.CUR_PROG_CD,K.ACT_WGT FROM C_TBK02_COIL_COMM K WHERE K.COIL_NO = :1
		]]>
	</query>
		<query id="UIM010090_03.SELECT"  desc="查询运输链钢卷信息">
		<![CDATA[
		select h.old_sampl_no,  --热卷号
       h.stl_grd,  --热轧牌号
       h.ord_no, --热轧合同号
       h.ord_seq, --热轧订单号
       h.coil_wth, --宽度
       h.coil_thk,--厚度
       h.coil_len,--长度
       h.act_wgt,--重量
       --DECODE(h.cr_plant_trs_clf, 'B', '冷轧厂', 'C', '其他转运') cr_plant_trs_clf,
       h.cr_plant_trs_no,--车辆号
       H.CR_PLANT_TRS_SEQ cr_plant_trs_cd, --移送顺序
       --h.cur_load_loc, 
       TO_CHAR(TO_DATE(h.cr_plant_trs_dtime, 'YYYYMMDD'), 'YYYY-MM-DD') AS cr_plant_trs_dtime,  --移送日期
     --  k.YARD_ENTRY_REG receive_reg,
       TO_CHAR(TO_DATE(k.YARD_ENTRY_DTIME, 'YYYYMMDDHH24MISS'),
               'YYYY-MM-DD HH24:MI:SS') AS receive_time,--冷轧入库时间
    --   k.trnf_reg, --冷轧出库时间
       TO_CHAR(TO_DATE(k.trnf_dtime, 'YYYYMMDDHH24MISS'),
               'YYYY-MM-DD HH24:MI:SS') AS trnf_dtime  --冷轧出库时间
  from tbh02_coil_comm h, c_tbk02_coil_comm k
 where h.old_sampl_no = k.coil_no(+)
   and h.coil_stat = '3'
   and h.cur_prog_cd = 'SGF'
   and (k.coil_stat = 3 and k.out_yard_kind = 2)
   and h.ORD_NO like ?||'%'
   and h.ORD_seq like ?||'%'
   and h.old_sampl_no like ?||'%'
 order by h.cr_plant_trs_dtime desc, H.CR_PLANT_TRS_SEQ desc
		]]>
	</query>
	<query id="UIM010090_04.SELECT"  desc="查询钢卷信息">
		<![CDATA[
		
SELECT       A.OLD_SAMPL_NO
            ,A.STL_GRD                 SPEC_STL_GRD
            ,A.COIL_THK
            ,A.COIL_WTH
            ,C.ORD_THK                 INSTR_COIL_THK
            ,C.ORD_WTH                 INSTR_COIL_WTH
            ,A.ACT_WGT
            ,A.COIL_INDIA
            ,A.COIL_OUTDIA
            ,A.FM_EXT_STRIP_TEMP_AVG
            ,A.DC_TEMP_AVG 
            ,DECODE(A.ORD_FL,'1','订单材','2','余材','','未判') ORD_FL
            ,A.ORD_NO
            ,A.ORD_SEQ,A.CUR_LOAD_LOC,DECODE(A.TOT_DEC_GRD,'1','合格','2','不合格','3','次品','4','废品')   TOT_DEC_GRD
            ,DECODE(A.INGR_DEC_GRD,'0','综合判定取消','1','合格','2','不合格')                              INGR_DEC_GRD
            ,DECODE(A.MATLQLTY_DEC_GRD,'0','无性能要求','1','合格','2','不合格')                            MATRL_END_CAUSE_CD
            ,DECODE(A.SIZE_DEC_RST,'1','合格','2','不合格')                                                 SIZE_DEC_RST
            ,DECODE(A.EXTSHAPE_DEC_GRD,'1','合格','2','订单外合格','3','次品','4','废品')                   EXTSHAPE_DEC_GRD
            ,DECODE(A.WGT_DEC_RST,'1','合格','2','不合格')                                                  WGT_DEC_RST
            ,C_PKG_UIM.GET_STDDATESTR(A.YARD_ENTRY_DTIME)                                                   YARD_ENTRY_DTIME
            ,C_PKG_UIM.GET_STDTIMESTR(A.YARD_ENTRY_USE_TIME)                                                YARD_ENTRY_USE_TIME
            ,(SELECT USERNAME FROM CORE_APP_USER U WHERE U.USERID = A.YARD_ENTRY_REG)                       YARD_ENTRY_REG
            ,DECODE(A.YARD_ENTRY_SHIFT,'0','常白班','1','早班','2','中班','3','晚班')                       YARD_ENTRY_SHIFT
            ,DECODE(A.YARD_ENTRY_GROUP,'0','常白班','1','甲班','2','乙班','3','丙班','4','丁班')            YARD_ENTRY_GROUP
            ,SUBSTR(B.SLAB_NO,0,10) CHARGE_NO,(SELECT T.SM_CFNM FROM TBZ00_COMMCD T  WHERE T.LG_CD = 'A01012' AND T.SM_CD = C.DLIV_TP) DLIV_TP
            ,(SELECT T.CUST_NM FROM TBZ00_CUSTOMER T WHERE T.CUST_CD = D.ORDCUST_CD) ORDCUST_CD
            ,DECODE(A.CUR_PROG_CD,'PRC','基料卷充当待机','PCA','酸轧作业指示待机','PCB','酸轧轧制待机','PCC','酸轧卷取待机') CUR_PROG_CD
            ,C.ORD_DEVLMT_DATE
            ,C_PKG_UIM.GET_STDTIMESTR(A.MILL_DTIME)              MILL_DTIME
            ,C.XSQY
            ,C.ORD_PLAN_DATA
FROM         C_TBK02_COIL_COMM            A
            ,TBG02_SLAB_COMM              B
            ,TBA01_ORD_LINE               C
            ,TBA01_ORD_COMM               D
            ,TBE02_ORD_PRC                E 
            ,tbh02_coil_comm K
WHERE        '1' = '1' 
AND          A.SLAB_NO                    =         B.SLAB_NO(+) 
AND          A.ORD_NO                     =         C.ORD_NO(+) 
AND          A.ORD_SEQ                    =         C.ORD_SEQ(+) 
AND          A.ORD_NO                     =         D.ORD_NO(+) 
AND          A.ORD_NO                     =         E.ORD_NO(+) 
AND          A.ORD_SEQ                    =         E.ORD_SEQ(+)
AND 		 A.OLD_SAMPL_NO				  =         K.OLD_SAMPL_NO(+)
AND 		 K.CUR_PROG_CD			      <>		'SFF'
AND          A.COIL_STAT                  =         '3' 
AND          A.CUR_PROG_CD                =         'PRC'
AND          A.CUR_LOAD_LOC     IS        NOT   NULL
AND          A.ORD_NO||'&'                LIKE      ?||'%'
AND          A.ORD_SEQ||'&'               LIKE      ?||'%'
AND          A.OLD_SAMPL_NO||'&'          LIKE      ?||'%' 
		]]>
	</query>
	<query id="UIM010090_01.UPDATE"  desc="更新公共表退实物出库信息">
		<![CDATA[
			update c_tbk02_coil_comm k set 
			k.coil_stat = '3' --进程状态
			,k.trnf_reg = :1 --出库人
			,k.trnf_shift=:2 --出库班次
			,k.trnf_group=:3 --出库班组
			,k.trnf_use_time=TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD') --出库操作时间
			,k.trnf_dtime=:4  --出库时间
			,k.out_yard_kind = '2'  --出库类型
			,K.TRNF_TYPE = '2'
			,k.BEF_LOAD_LOC = k.CUR_LOAD_LOC
			,k.BEF_LOAD_LOC_DTIME = k.CUR_LOAD_LOC_DTIME
			,k.CUR_LOAD_LOC = ''
			,k.CUR_LOAD_LOC_DTIME = ''
			where coil_no = :5 --钢卷号
		]]>
	</query>
	<query id="UIM010090_02.UPDATE"  desc="更新公共表退帐出库信息">
		<![CDATA[
			UPDATE C_TBK02_COIL_COMM K 
			SET K.BEF_PROG_CD = K.CUR_PROG_CD
			,K.BEF_PROG_CD_DTIME = K.CUR_PROG_CD_DTIME
			,K.BEF_PROG_CD_PGM = K.CUR_PROG_CD_PGM
			,K.CUR_PROG_CD = 'PRC'
			,K.CUR_PROG_CD_PGM = 'UIM010090'
			,K.CUR_PROG_CD_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
			,K.ORD_NO = ''
			,K.ORD_SEQ = ''
			,K.ORD_FL = '2'
			,K.COIL_STAT = '3'
			,K.INSTR_COIL_WTH = ''
			,K.INSTR_COIL_THK = ''
			,K.TRNF_SHIFT = :1
			,K.TRNF_GROUP = :2
			,K.TRNF_REG = :3
			,K.TRNF_DTIME = :4
			,K.TRNF_USE_TIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
			,K.OUT_YARD_KIND = 2
			,K.TRNF_REMARK = '退帐面出库'
			,K.TRNF_TYPE = '1'
			WHERE K.COIL_NO = :5
		]]>
	</query>
	<query id="UIM010090_03.UPDATE"  desc="更新退帐面回热轧信息">
		<![CDATA[
			UPDATE TBH02_COIL_COMM H
			SET H.COIL_STAT = 2
			,H.BEF_PROG_CD = H.CUR_PROG_CD
			,H.BEF_PROG_CD_DTIME = H.CUR_PROG_CD_DTIME
			,H.BEF_PROG_CD_PGM = H.CUR_PROG_CD_PGM
			,H.CUR_PROG_CD = 'SRC'
			,H.CUR_PROG_CD_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
			,H.CUR_PROG_CD_PGM = 'UIM010090'
			,H.ORD_NO = ''
			,H.ORD_SEQ = ''
			,H.ORD_FL = '2'
			,H.INSTR_COIL_THK = ''
			,H.INSTR_COIL_WTH = ''
			,H.CUR_LOAD_LOC = :1
			,H.CUR_LOAD_LOC_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
			WHERE H.OLD_SAMPL_NO = :2
		]]>
	</query>
	
	
	<query id="UIM010090_04.UPDATE"  desc="更新退帐面回热轧信息">
		<![CDATA[
	UPDATE C_TBK02_COIL_COMM_D T
   		SET T.ORD_NO = '',
    		T.ORD_SEQ = '', 
    		T.ORD_FL = '2'
 	WHERE   T.COIL_NO = ?
    /* DELETE FROM C_TBK02_COIL_COMM_D WHERE T.COIL_NO = ?*/
		]]>
	</query>
	<query id="UIM010090_05.UPDATE"  desc="更新退帐面回热轧信息">
		<![CDATA[
		UPDATE C_TBK02_COIL_COMM K 
			SET K.COIL_STAT = '2'
			,K.YARD_ENTRY_SHIFT = :1
			,K.YARD_ENTRY_GROUP = :2
			,K.YARD_ENTRY_REG = :3
			,K.YARD_ENTRY_DTIME = :4
			,K.YARD_ENTRY_USE_TIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
			,K.IN_YARD_KIND = 5
			WHERE K.COIL_NO = :5
   
		]]>
	</query>
	<query id="UIM010090_06.UPDATE"  desc="更新退帐面回热轧信息">
		<![CDATA[
		UPDATE TBH02_COIL_COMM H
   			SET H.COIL_STAT='3'
          		,H.BEF_PROG_CD = H.CUR_PROG_CD
			    ,H.BEF_PROG_CD_DTIME = H.CUR_PROG_CD_DTIME
			    ,H.BEF_PROG_CD_PGM = H.CUR_PROG_CD_PGM
			    ,H.CUR_PROG_CD = 'SGF'
			    ,H.CUR_PROG_CD_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
			    ,H.CUR_PROG_CD_PGM = 'UIM010090'
 		WHERE H.OLD_SAMPL_NO= ?
		]]>
	</query>
	
		<query id="UIM010092_01.UPDATE"  desc="更新退常化热轧出库信息">
		<![CDATA[
			
			update tbh02_coil_comm t
			   set t.CR_PLANT_TRS_CLF = 'Z',
			       t.COIL_MARK_REG    = 'CH',
			       t.COIL_MARK_DTIME  = TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS')
			 WHERE T.OLD_SAMPL_NO = :1
		]]>
	</query>
		<query id="UIM010092_02.UPDATE"  desc="更新酸轧原料出库信息">
		<![CDATA[
		UPDATE C_TBK02_COIL_COMM K 
			SET K.BEF_PROG_CD = K.CUR_PROG_CD
			,K.BEF_PROG_CD_DTIME = K.CUR_PROG_CD_DTIME
			,K.BEF_PROG_CD_PGM = K.CUR_PROG_CD_PGM
			,K.CUR_PROG_CD = 'PRC'
			,K.CUR_PROG_CD_PGM = 'UIM010092'
			,K.CUR_PROG_CD_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
			,K.ORD_NO = ''
			,K.ORD_SEQ = ''
			,K.ORD_FL = '2'
			,K.COIL_STAT = '3'
			,K.INSTR_COIL_WTH = ''
			,K.INSTR_COIL_THK = ''
			,K.TRNF_SHIFT = :1
			,K.TRNF_GROUP = :2
			,K.TRNF_REG = :3
			,K.TRNF_DTIME = :4
			,K.TRNF_USE_TIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MIDD')
			,K.OUT_YARD_KIND = 2
			,K.TRNF_REMARK = '退常化出库'
			,K.TRNF_TYPE = '1'
			WHERE K.COIL_NO = :5
   
		]]>
	</query>
	
	<query id="UIM010092_02.SELECT"  desc="查询钢卷信息">
		<![CDATA[
		
SELECT A.OLD_SAMPL_NO,
       A.STL_GRD SPEC_STL_GRD,
       A.COIL_THK,
       A.COIL_WTH,
       C.ORD_THK INSTR_COIL_THK,
       C.ORD_WTH INSTR_COIL_WTH,
       A.ACT_WGT,
       A.COIL_INDIA,
       A.COIL_OUTDIA,
       A.FM_EXT_STRIP_TEMP_AVG,
       A.DC_TEMP_AVG,
       DECODE(A.ORD_FL, '1', '订单材', '2', '余材', '', '未判') ORD_FL,
       A.ORD_NO,
       A.ORD_SEQ,
       A.CUR_LOAD_LOC,
       DECODE(A.TOT_DEC_GRD,
              '1',
              '合格',
              '2',
              '不合格',
              '3',
              '次品',
              '4',
              '废品') TOT_DEC_GRD,
       DECODE(A.INGR_DEC_GRD,
              '0',
              '综合判定取消',
              '1',
              '合格',
              '2',
              '不合格') INGR_DEC_GRD,
       DECODE(A.MATLQLTY_DEC_GRD,
              '0',
              '无性能要求',
              '1',
              '合格',
              '2',
              '不合格') MATRL_END_CAUSE_CD,
       DECODE(A.SIZE_DEC_RST, '1', '合格', '2', '不合格') SIZE_DEC_RST,
       DECODE(A.EXTSHAPE_DEC_GRD,
              '1',
              '合格',
              '2',
              '订单外合格',
              '3',
              '次品',
              '4',
              '废品') EXTSHAPE_DEC_GRD,
       DECODE(A.WGT_DEC_RST, '1', '合格', '2', '不合格') WGT_DEC_RST,
       C_PKG_UIM.GET_STDDATESTR(A.YARD_ENTRY_DTIME) YARD_ENTRY_DTIME,
       C_PKG_UIM.GET_STDTIMESTR(A.YARD_ENTRY_USE_TIME) YARD_ENTRY_USE_TIME,
       (SELECT USERNAME
          FROM CORE_APP_USER U
         WHERE U.USERID = A.YARD_ENTRY_REG) YARD_ENTRY_REG,
       DECODE(A.YARD_ENTRY_SHIFT,
              '0',
              '常白班',
              '1',
              '早班',
              '2',
              '中班',
              '3',
              '晚班') YARD_ENTRY_SHIFT,
       DECODE(A.YARD_ENTRY_GROUP,
              '0',
              '常白班',
              '1',
              '甲班',
              '2',
              '乙班',
              '3',
              '丙班',
              '4',
              '丁班') YARD_ENTRY_GROUP,
       SUBSTR(B.SLAB_NO, 0, 10) CHARGE_NO,
       (SELECT T.SM_CFNM
          FROM TBZ00_COMMCD T
         WHERE T.LG_CD = 'A01012'
           AND T.SM_CD = C.DLIV_TP) DLIV_TP,
       (SELECT T.CUST_NM
          FROM TBZ00_CUSTOMER T
         WHERE T.CUST_CD = D.ORDCUST_CD) ORDCUST_CD,
       DECODE(A.CUR_PROG_CD,
              'PRC',
              '基料卷充当待机',
              'PCA',
              '酸轧作业指示待机',
              'PCB',
              '酸轧轧制待机',
              'PCC',
              '酸轧卷取待机') CUR_PROG_CD,
       C.ORD_DEVLMT_DATE,
       C_PKG_UIM.GET_STDTIMESTR(A.MILL_DTIME) MILL_DTIME,
       C.XSQY,
       C.ORD_PLAN_DATA
  FROM C_TBK02_COIL_COMM A,
       TBG02_SLAB_COMM   B,
       TBA01_ORD_LINE    C,
       TBA01_ORD_COMM    D,
       TBE02_ORD_PRC     E,
       tbh02_coil_comm   K
 WHERE '1' = '1'
   AND A.SLAB_NO = B.SLAB_NO(+)
   AND A.ORD_NO = C.ORD_NO(+)
   AND A.ORD_SEQ = C.ORD_SEQ(+)
   AND A.ORD_NO = D.ORD_NO(+)
   AND A.ORD_NO = E.ORD_NO(+)
   AND A.ORD_SEQ = E.ORD_SEQ(+)
   AND A.OLD_SAMPL_NO = K.OLD_SAMPL_NO(+)
   AND K.CUR_PROG_CD <> 'SFF'
   AND A.COIL_STAT = '3'
   AND A.CUR_PROG_CD = 'PRC'
   AND A.TRNF_REMARK = '退常化出库'
   AND A.CUR_LOAD_LOC IS NOT NULL
   AND A.ORD_NO || '&' LIKE ? || '%'
   AND A.ORD_SEQ || '&' LIKE ? || '%'
   AND A.OLD_SAMPL_NO || '&' LIKE ? || '%'
		]]>
	</query>
</queryMap>