XinYu_LZMES/.svn/pristine/b3/b38114a3dcf653478a6e3bb4320cfc9928c6ed95.svn-base

<?xml version="1.0" encoding="UTF-8"?>
<queryMap desc="成品库库废次品数据查询">
	<query id="UIM010330_01.SELECT"  desc="成品库废次品数据查询">
		<![CDATA[
SELECT 'FALSE' CHK,
       A.OLD_SAMPL_NO, --钢卷号
       A.SPEC_STL_GRD, --牌号
       A.INSTR_COIL_THK,
       A.INSTR_COIL_WTH,
       (SELECT T.SM_CFNM
          FROM TBZ00_COMMCD T
         WHERE T.LG_CD = 'E01010'
           AND T.SM_CD = A.NONORD_CAUSE_CD) NONORD_CAUSE_CD,--余材原因
       A.COIL_THK, --厚度
       A.COIL_WTH, --宽度
       A.ACT_WGT,  --重量
       DECODE(A.ORD_FL, '1', '订单材', '2', '余材', '', '未判') ORD_FL, --订单区分
       A.ORD_NO, --合同号
       A.ORD_SEQ, --订单号
       A.ORG_ORD_NO,--原合同号
       A.ORG_ORD_SEQ, --原订单号
       A.CUR_LOAD_LOC, --堆放位置
       DECODE(A.TOT_DEC_GRD,
              '1',
              '合格',
              '2',
              '不合格',
              '3',
              '次品',
              '4',
              '废品') TOT_DEC_GRD, --综合判定
       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,--入库班组
          DECODE(A.EXTSHAPE_QUALITY,
              'FP',
              '废品',
              'CP',
              '次品'
              ) EXTSHAPE_QUALITY, --废次品分类
              
       (case
         when XB_PACKAGE.GF_COMNNAME_FIND('E01002', a.CUR_PROG_CD) =
              '连退成品充当待机' and a.DEFECTIVE = 'Y' then
          '二级库存'
         else
          XB_PACKAGE.GF_COMNNAME_FIND('E01002', A.CUR_PROG_CD)
       end) CUR_PROG_CD, --进程状态 
       C_PKG_UIM.GET_STDTIMESTR(A.MILL_DTIME) MILL_DTIME --生产时间 
       FROM C_TBC02_COIL_COMM A
        WHERE '1' = '1'
      AND A.COIL_STAT = '2'
      AND A.CUR_LOAD_LOC IS NOT NULL
      AND A.OLD_SAMPL_NO || '&' LIKE '%' || ? || '%'
      AND SUBSTR(NVL(A.YARD_ENTRY_DTIME, 99999999999999), 1, 8) >= NVL(?, 0)
      AND SUBSTR(NVL(A.YARD_ENTRY_DTIME, 0), 1, 8) <= NVL(?, 99999999999999)
      AND  A.EXTSHAPE_QUALITY IN('FP','CP')
       ]]>
	</query>
	
	<query id="UIM010330_01.UPDATE"  desc="出库后修改公共表信息">
		<![CDATA[
		     update c_tbc02_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.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 = ''
			,k.OUT_YARD_KIND = '8'--废次品出库
			where K.OLD_SAMPL_NO = :5 --钢卷号
			 ]]>
	</query>
</queryMap>