XinYu_LZMES/WebRoot/WEB-INF/query/M/M02/UIM020070-query.xml

<?xml version="1.0" encoding="UTF-8"?>
<queryMap desc="重卷计划查询">
	<query id="UIM020070_01.SELECT"  desc="重卷计划查询">
		<![CDATA[
			SELECT 
			     XB_PACKAGE.GF_COMNNAME_FIND('B02001', B.CRK_CD1) || CASE
                 WHEN B.CRK_CD2 IS NOT NULL THEN
                '+'
                ELSE
                ' '
                END || XB_PACKAGE.GF_COMNNAME_FIND('B02001', B.CRK_CD2) COIL_CRK,
                --20130111
			     A.COIL_EDT_SEQ,
				 DECODE(A.REEL_CODE,
	              '1',
	              '分2卷',
	              '2',
	              '分3卷',
	              '3',
	              '按订单切边',
	              '4',
	              '检查',
	              '') REEL_CODE,
	             B.OLD_SAMPL_NO C_COIL_NO,
	             B.CUR_LOAD_LOC C_CUR_LOAD_LOC,
	             A.R_COIL_NO,
	             B.SPEC_STL_GRD,
	             CASE
	               WHEN (A.STATUS_CD = 'A' AND B.COIL_STAT = '2') THEN
	                '轧制作业待机'
	               WHEN (A.STATUS_CD = 'E') THEN
	                '轧制吊销'
	               WHEN (A.STATUS_CD = 'B') THEN
	                '上料完成'
	               WHEN (A.STATUS_CD = 'C') THEN
	                '轧制进行'
	               WHEN (A.STATUS_CD = 'D' AND B.MISSNO_CLF_CD IS NULL) THEN
	                '轧制完成'
	               WHEN (A.STATUS_CD = 'D' AND B.MISSNO_CLF_CD = '1') THEN
	                '轧废'
	               ELSE
	                A.STATUS_CD
	             END STATUS_CD,
	             B.COIL_THK C_COIL_THK,
	             B.COIL_WTH C_COIL_WTH,
	             B.COIL_INDIA C_COIL_INDIA,
	             B.COIL_OUTDIA C_OUTDIA,
	             B.COIL_LEN C_COIL_LEN,
	             B.ACT_WGT C_ACT_WGT,
	             DECODE(B.REEL_SHIFT,'0','常白班','1','早班','2','中班','3','晚班') REEL_SHIFT,
                 DECODE(B.REEL_GROUP,'0','常白班','1','甲班','2','乙班','3','丙班','4','丁班') REEL_GROUP,
	             B.MILL_DTIME,--轧制时间
	             B.EXTSHAPE_QUALITY,--20151228原料外观判定等级
	             E.C_ORD_THK ORD_THK,
	             E.C_ORD_WTH ORD_WTH,
	             E.C_ORD_LEN ORD_LEN,
	             L.C_ORD_INDIA ORD_INDIA,
	             E.C_ORD_OUTDIA ORD_OUTDIA,
	             E.ORD_WGT,
	             E.ORD_NO,
	             E.ORD_SEQ,
	             case when substr(b.SMP_NO,-1)!='P' THEN '复样'
       		     else ''
                 end repick,
	             (SELECT E.C_EXTSHAPE_REQ
	                FROM TBE02_ORD_PRC E
	               WHERE E.ORD_SEQ = A.ORD_SEQ
	                 AND E.ORD_NO = A.ORD_NO) C_EXTSHAPE_REQ --表面要求
	            ,
	             (SELECT E.ACID_PROD_PATH
	                FROM TBE02_ORD_PRC E
	               WHERE E.ORD_SEQ = A.ORD_SEQ
	                 AND E.ORD_NO = A.ORD_NO) ACID_PROD_PATH --工艺流程
	            ,
	             T2.SM_CFNM BZ --发货方式
	            ,
	             T3.SM_CFNM ORDCUST_CD --发货单位
	            ,
	             T1.SM_CFNM --订货单位
	            ,
	             DECODE(B.INGR_DEC_GRD, '0', '待判定', '1', '合格', '2', '不合格', '') INGR_DEC_GRD --成份等级 
	            ,
	             B.PRODNM_CD || '/' || L.C_EXTSHAPE_REQ || '/' ||
	             SUBSTR(PKG_QUALITY_COMM.FZ00_COMM('A01010', L.PAKMTH_TP), 0, 1) ||
	             '/大于' || L.PROD_WGT_MIN || '小于' || L.PROD_WGT_MAX || '/' ||
	             PKG_QUALITY_COMM.FZ00_COMM('A01010', L.PAKMTH_TP) || '/厚度(' ||
	             E.C_ORD_THK_MIN || '~' || E.C_ORD_THK_MAX || ')/宽度(' ||
	             E.C_ORD_WTH_MIN || '~' || E.C_ORD_WTH_MAX || ')/内径(' ||
	             L.C_ORD_INDIA || ')' JISHUYAOQIU,
	             CASE
	               WHEN SUBSTR(B.ORD_NO, 0, 2) = '42' THEN
	                '过度材'
	               ELSE
	                '订单材'
	             END || DECODE(L.EDGE_PROC_YN, 'Y', '切边', '不切边') ORD_RMK,
	             L.PROD_LINE,DECODE(N.TOT_DEC_GRD,'1','合格','2','不合格','3','次品','4','废品') C_TOT_DEC_GRD,
		         DECODE(N.TOT_DEC_GRD,'1','',(SELECT SM_CFNM FROM TBZ00_COMMCD T WHERE T.LG_CD = 'B01134' AND T.SM_CD = N.NONORD_CAUSE_CD)) C_CAUSE,
	             N.ACT_WGT C_WEIGHT,N.CUR_LOAD_LOC C_YARD,N.H_COIL_NO1 H_COIL_NO,M.STL_GRD,
	             to_char(M.COIL_THK,'FM990.099')||'*'||to_char(M.COIL_WTH) H_SIZE,
	             M.ACT_WGT H_WEIGHT,to_char(N.COIL_THK,'FM990.099')||'*'||to_char(N.COIL_WTH) C_SIZE,
	             DECODE(B.TOT_DEC_GRD,'1','合格','2','不合格','3','次品','4','废品') L_TOT_DEC_GRD,
			     DECODE(B.TOT_DEC_GRD,'1','',(SELECT SM_CFNM FROM TBZ00_COMMCD T WHERE T.LG_CD = 'B01134' AND T.SM_CD = B.NONORD_CAUSE_CD)) L_CAUSE,
	             'FALSE' CHK
	              ,A.CAL_MEMO,
      			 E.C_ORD_WTH_MIN,
       			 E.C_ORD_WTH_MAX,
       			(B.COIL_WTH-E.C_ORD_WTH) CUTWTH,
       			L.OIL_DEF,
       			L.ORD_DEVLMT_DATE
	        FROM L_TBF03_SPEC_REEL A,
	             C_TBC02_COIL_COMM B,
	             TBE02_ORD_PRC E,
	             C_TBK02_COIL_COMM M,
                 C_TBL02_COIL_COMM N,
	             TBA01_ORD_LINE L,
	             (SELECT T.CUST_CD SM_CD, T.CUST_NM SM_CFNM FROM TBZ00_CUSTOMER T) T1,
	             (SELECT SM_CD, SM_CFNM FROM TBZ00_COMMCD WHERE LG_CD = 'A01012') T2,
	             (SELECT T.CUST_CD SM_CD, T.CUST_NM SM_CFNM FROM TBZ00_CUSTOMER T) T3,
	             (SELECT DISTINCT ORD_NO, ORD_SEQ, DSN_KIND
	                FROM TBB01_ORD_INGR
	               WHERE DSN_KIND = '1') K
	       WHERE  A.ORD_NO = E.ORD_NO(+)
	         AND A.ORD_SEQ = E.ORD_SEQ(+)
	         AND A.ORD_NO = K.ORD_NO(+)
	         AND A.ORD_SEQ = K.ORD_SEQ(+)
	         AND A.ORD_NO = L.ORD_NO(+)
	         AND A.ORD_SEQ = L.ORD_SEQ(+)
	         AND A.C_COIL_NO = B.OLD_SAMPL_NO(+)
	         AND B.CUST_CD = T1.SM_CD(+)
	         AND E.ORDCUST_CD = T3.SM_CD(+)
	         AND L.DLIV_TP = T2.SM_CD(+)
	         AND substr(A.R_COIL_NO,1,12) = N.COIL_NO(+)
             AND N.H_COIL_NO1 = M.COIL_NO
	         AND A.STATUS_CD NOT LIKE 'R'
	         AND SUBSTR(A.REG_DTIME,1,8)    BETWEEN NVL(?,'00000000') AND NVL(?,'99999999')
	         AND SUBSTR(NVL(B.MILL_DTIME,'00000000'),1,8)  BETWEEN NVL(?,'00000000') AND NVL(?,'99999999')
	         AND A.ORD_NO||'&' LIKE ?||'%'
	         AND A.ORD_SEQ||'&' LIKE ?||'%'
	         AND A.C_COIL_NO||'&' LIKE '%'||?||'%'
	         AND B.REEL_SHIFT||'&' LIKE ?||'%'
	         AND B.REEL_GROUP||'&' LIKE ?||'%' 
	         
	       ORDER BY A.COIL_EDT_SEQ
		 ]]>
	</query>
</queryMap>