XinYu_LZMES/.svn/pristine/9f/9f96925da17adaa1ffa0d606301d949ea568e446.svn-base

<?xml version="1.0" encoding="UTF-8"?>
<queryMap desc="中间库入库管理">
	<query id="UIM010120_01.SELECT"  desc="查询钢卷在库信息">
		<![CDATA[
SELECT        B.COIL_NO
             ,TO_CHAR(A.COIL_THK,'FM990.099')||'*'||A.COIL_WTH                T_W
             ,TO_CHAR(A.INSTR_COIL_THK,'FM990.099')||'*'||A.INSTR_COIL_WTH    IT_IW
             ,A.SPEC_STL_GRD
             ,A.COIL_INDIA
             ,A.COIL_OUTDIA
             ,A.CUR_LOAD_LOC
             ,A.ACT_WGT,(SELECT USERNAME FROM CORE_APP_USER U WHERE U.USERID = A.YARD_ENTRY_REG)   YARD_ENTRY_REG
             ,C_PKG_UIM.GET_STDDATESTR(A.YARD_ENTRY_DTIME)                                         YARD_ENTRY_DTIME
             ,DECODE(A.TOT_DEC_GRD,'1','合格','2','不合格',NULL,'待判定')                          TOT_DEC_GRD
             ,DECODE(CUR_PROG_CD,'CRC','酸轧卷充当待机','DBA','重卷指示待机','DBB','重卷作业待机','DCA','包装指示待机','DCB','包装作业待机','DED','综合判定待机','DFA','发货指示待机','DFB','发货待机','CCA','连退作业指示待机','CCB','连退作业待机','CCC','连退卷取待机')   CUR_PROG_CD
             ,DECODE(A.CAL_TYPE,'1','酸轧卷','2','返修卷','3','过渡卷')                            RCAL
FROM          C_TBL02_COIL_COMM           A
             ,C_TBK08_COIL_YARD           B
             ,C_TBK08_COIL_YARD_AREA      C 
WHERE         A.COIL_NO(+)                =            B.COIL_NO 
AND           B.AREA_NO                   =            C.AREA_NO 
AND           C.AREA_TYPE                 =            '2'
AND           B.CLF_NAME                  =            ?
AND           B.CLF_ROW                   =            ? 
AND           B.CLF_COL                   =            ? 
AND           B.CLF_FL                    =            ?
ORDER BY      B.CLF_NAME
             ,B.CLF_ROW
             ,B.CLF_COL
             ,B.CLF_FL  
		 ]]>
	</query>
	
	<query id="UIM010120_11.SELECT"  desc="查询中间库待入库钢卷信息">
		<![CDATA[
		SELECT 'FALSE' CHK,
		       T.OLD_SAMPL_NO COIL_NO,
		       T.COIL_THK THICK,
		       T.COIL_WTH WIDTH,
		       T.COIL_LEN LENGTH,
		       T.ACT_WGT WEIGHT,
		       T.SPEC_STL_GRD,
		       t.EXTSHAPE_QUALITY,
		       DECODE(T.CUR_PROG_CD,
              'CCA',
              '连退作业指示待机',
              'CRC',
              '充当待机',
              'DBA',
              '重卷指示待机',
              'DBB',
              '重卷作业待机',
              'DCA',
              '包装指示待机',
              'DCB',
              '包装作业待机',
              'DED',
              '综合判定待机',
              'DFA',
              '发货指示待机',
              'DFB',
              '发货待机') CUR_PROG_CD,
		       T.ORD_NO,
		       T.ORD_SEQ,
		       C_PKG_UIM.GET_STDDATESTR(T.MILL_DTIME) PRODUCTED_TIME,
		       decode(T.CAL_TYPE,'2','√','3','√') RCAL
		  FROM C_TBL02_COIL_COMM T
		 WHERE T.COIL_STAT = '2'
		   AND T.CUR_LOAD_LOC IS NULL
		   AND NVL(T.LINE_TP,'A')<>'S'--屏蔽酸洗卷 20180104
		   --AND SUBSTR(T.MILL_DTIME,1,8)||'&' LIKE :1||'%'
		   AND SUBSTR(T.MILL_DTIME,1,8)>=NVL(:1,'00000000' )
		   AND SUBSTR(T.MILL_DTIME,1,8)<=NVL(:2,'99999999' )
		   AND T.OLD_SAMPL_NO||'&' LIKE :3||'%'
		   order by T.MILL_DTIME desc
		 ]]>
	</query>
	<query id="UIM010120_07.SELECT"  desc="查询钢卷在库信息">
		<![CDATA[
SELECT          'FALSE' CHK,
				A.OLD_SAMPL_NO
               ,A.ORI_OLD_SAMPL_NO
               ,A.CAL_TYPE
               ,A.RCAL_CNT
               ,A.SPEC_STL_GRD
               ,A.COIL_THK
               ,A.COIL_WTH
               ,A.ACT_WGT
FROM            C_TBL02_COIL_COMM     A
WHERE           1                     =        1
AND             A.COIL_STAT           =       '2'
AND             A.CUR_PROG_CD_PGM     LIKE    'N%'
AND             A.CUR_LOAD_LOC   IS   NULL
		 ]]>
	</query>
	<query id="UIM010120_02.SELECT" desc="查询钢卷状态">
		<![CDATA[
		select COIL_NO from c_tbl02_coil_comm where COIL_NO = ? AND COIL_STAT = '2'
		]]>
	</query>
	<query id="UIM010120_03.SELECT" desc="查询钢卷在库状态">
		<![CDATA[
		select COIL_NO from c_tbk08_coil_yard where COIL_NO = ?
		]]>
	</query>
	<query id="UIM010120_04.SELECT" desc="查询移垛最大ID">
		<![CDATA[
		select max(ROLL_SEQ) ROLL_SEQ from c_tbk08_coil_move
		]]>
	</query>
	<query id="UIM010120_01.UPDATE" desc="钢卷公共表录入垛位">
		<![CDATA[
UPDATE         C_TBL02_COIL_COMM 
SET            CUR_LOAD_LOC            =       ?
              ,CUR_LOAD_LOC_DTIME      =       TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')
              ,YARD_ENTRY_SHIFT        =       ?
              ,YARD_ENTRY_GROUP        =       ?
              ,YARD_ENTRY_REG          =       ?
              ,YARD_ENTRY_DTIME        =       ?
              ,YARD_ENTRY_USE_TIME     =       TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')
WHERE          OLD_SAMPL_NO            =       ?
		]]>
	</query>
	<query id="UIM010120_02.UPDATE" desc="垛位表录入钢卷号">
		<![CDATA[
UPDATE         C_TBK08_COIL_YARD 
SET            COIL_NO              =    ?
              ,MOD_ID               =    ?
              ,MOD_TIME             =    TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')
WHERE          CLF_NAME             =    SUBSTR(?,0,1) 
AND            CLF_ROW              =    SUBSTR(?,3,2)
AND            CLF_COL              =    SUBSTR(?,7,2) 
AND            CLF_FL               =    DECODE(SUBSTR(?,5,1),'A','1','B','2','C','3','1')
		]]>
	</query>
	<query id="UIM010120_01.INSERT" desc="插入移垛记录表">
		<![CDATA[
		insert into c_tbk08_coil_move T
		(T.ROLL_SEQ,T.CUR_LOAD_LOC_F,T.CUR_LOAD_LOC_T,T.COIL_NO
		,T.REG_ID,T.REG_SHIFT,T.REG_GROUP,T.REG_DTIME,T.REG_USE_ID
		,T.REG_USE_DTIME,MOVE_TYPE)
		VALUES(?,?,?,?,?,?,?,?,?,TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS'),decode(?,'1','02','2','05','3','','4','04'))
		]]>
	</query>

	<query id="UIM010120_05.SELECT"  desc="查询钢卷待入库信息2011.7.8">
		<![CDATA[
SELECT         B.CLF_ROW
              ,B.COIL_NO
              ,TO_CHAR(A.COIL_THK,'FM990.099')||'*'||A.COIL_WTH               T_W
              ,TO_CHAR(A.INSTR_COIL_THK,'FM990.099')||'*'||A.INSTR_COIL_WTH   IT_IW
              ,A.SPEC_STL_GRD
              ,A.COIL_INDIA
              ,A.COIL_OUTDIA
              ,A.CUR_LOAD_LOC
              ,A.ACT_WGT
              ,(SELECT USERNAME FROM CORE_APP_USER U WHERE U.USERID = A.YARD_ENTRY_REG) YARD_ENTRY_REG
              ,A.YARD_ENTRY_DTIME
              ,DECODE(A.TOT_DEC_GRD,'1','合格','2','不合格',NULL,'待判定') TOT_DEC_GRD
              ,DECODE(CUR_PROG_CD,'CRC','酸轧卷充当待机','DBA','重卷指示待机','DBB','重卷作业待机','DCA','包装指示待机','DCB','包装作业待机','DED','综合判定待机','DFA','发货指示待机','DFB','发货待机','CCA','连退作业指示待机','CCB','连退作业待机','CCC','连退卷取待机') CUR_PROG_CD
FROM           C_TBL02_COIL_COMM       A
              ,C_TBK08_COIL_YARD       B
WHERE          A.COIL_NO               =       B.COIL_NO(+) 
AND            A.COIL_NO               =       ?  
		 ]]>
	</query>
	
	<query id="UIM010120_06.SELECT" desc="查询库存中最大ID">
		<![CDATA[
		select max(ROLL_SEQ) ROLL_SEQ from c_tbk08_coil_yard
		]]>
	</query>
	
	<query id="UIM010120_02.INSERT" desc="插入移库存录表">
		<![CDATA[
		insert into c_tbk08_coil_yard
        (clf_no, clf_name, clf_col, clf_row, clf_fl, 
        area_no, coil_no, coil_source, cr_no, reg_id, 
        reg_time, mod_id, mod_time, remark)
        values
        (?, ?, substr(?,7,2), CLF_ROW = substr(?,3,2), DECODE(substr(?,5,1),'A','1','B','2','C','3','1'), 
        ?, ?, ?, ?, ?, TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS'), ?, TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS'), ?);
		]]>
	</query>
</queryMap>