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

<?xml version="1.0" encoding="UTF-8"?>
<queryMap desc="连退计划查询">
	<query id="UIM020040_01.SELECT"  desc="查询连退计划单元号">
		<![CDATA[
			SELECT *
			  FROM (SELECT DISTINCT R.CAL_NO,
			                        ROW_NUMBER() OVER(ORDER BY R.CAL_NO DESC) SEQ
			          FROM L_TBF03_SPEC_CAL R)
			 WHERE SEQ < 21
			 ORDER BY SEQ, CAL_NO DESC
		]]>
	</query>
	<query id="UIM020040_06.SELECT"  desc="查询连退计划单元号">
		<![CDATA[
			SELECT *
			  FROM (SELECT DISTINCT R.CAL_NO,
			                        ROW_NUMBER() OVER(ORDER BY R.CAL_NO DESC) SEQ
			          FROM L_TBF03_SPEC_CAL R
                WHERE CAL_NO LIKE 'A%'
                )
			 WHERE SEQ < 21
			 ORDER BY SEQ, CAL_NO DESC
		]]>
	</query>
	<query id="UIM020040_01.update"  desc="查询连退计划单元号">
		<![CDATA[
			update c_tbl02_coil_comm t
			set t.MANU_COIL_THK = :1
			    ,t.MANU_COIL_WTH = :2
			    ,t.L3_ROUGH = :3
			WHERE t.OLD_SAMPL_NO = :4
		]]>
	</query>
	<query id="UIM020040_02.SELECT"  desc="无时间查询"> 
		<![CDATA[
			SELECT 'FALSE' CHK,
			       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
			       B.MANU_COIL_THK,
                   B.MANU_COIL_WTH,
                   B.DCS_THK, --判定厚度
       			   B.DCS_WTH, --判定宽度
                   B.ACT_WGT,
                   B.L3_ROUGH,
				   H.CAL_TYPE_TEMP,
			       A.CAL_NO,
			       A.CAL_COIL_SEQ,
			       B.COIL_NO C_COIL_NO,
			       B.CUR_LOAD_LOC C_CUR_LOAD_LOC,
			       A.L_COIL_NO,
			       A.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 H.MISSNO_CLF_CD IS NULL) THEN
			          '轧制完成'
			         WHEN (A.STATUS_CD = 'D' AND H.MISSNO_CLF_CD = '1') THEN
			          '轧废'
			         ELSE
			          ''
			       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,
			      C_PKG_UIM.GET_ORIGINAL_COIL_WGT(B.OLD_SAMPL_NO) C_ACT_WGT,--20121226
			       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.DEL_TO_DATE,
			       E.ORD_WGT,
			       E.ORD_NO,
			       E.ORD_SEQ,
			       (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 --成份等级 
			      ,
			       A.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,--20121119
			       (select T1.PRODNM_CD || '/' || T2.C_EXTSHAPE_REQ || '/' ||
				             SUBSTR(PKG_QUALITY_COMM.FZ00_COMM('A01010', T2.PAKMTH_TP), 0, 1) ||
				             '/大于' || T2.PROD_WGT_MIN || '小于' || T2.PROD_WGT_MAX || '/' ||
				             PKG_QUALITY_COMM.FZ00_COMM('A01010', T2.PAKMTH_TP) || '/厚度(' ||
				             T3.C_ORD_THK_MIN || '~' || T3.C_ORD_THK_MAX || ')/宽度(' ||
				             T3.C_ORD_WTH_MIN || '~' || T3.C_ORD_WTH_MAX || ')/内径(' ||
				             T2.C_ORD_INDIA || ')'  --20121119
				       from  C_TBF03_SPEC_MILL T1,TBA01_ORD_LINE T2,TBE02_ORD_PRC T3
				    where t1.ORD_NO = t2.ORD_NO(+)
				    and t1.ORD_SEQ = t2.ORD_SEQ(+)
				    and t1.ORD_NO = t3.ORD_NO(+)
				    and t1.ORD_SEQ = t3.ORD_SEQ(+)
				    and substr(t1.C_COIL_NO,1,11) = substr(a.C_COIL_NO,1,11)) szjsyq,
			       CASE
			         WHEN SUBSTR(B.ORD_NO, 0, 2) = '42' THEN
			          '过度材'
			         ELSE
			          '订单材'
			       END || DECODE(L.EDGE_PROC_YN, 'Y', '切边', '不切边') ORD_RMK,
			       L.PROD_LINE,F.COIL_NO H_COIL_NO,F.STL_GRD H_STEELCODE,
		           TO_CHAR(F.COIL_THK,'FM990.099')||'*'||F.COIL_WTH H_COILSIZE,
		           F.COIL_WGT H_COILWGT,
		           DECODE(B.TOT_DEC_GRD,'1','合格','2','不合格','3','次品','4','废品') C_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)) C_CAUSE,
			       decode(A.CAL_TYPE,'1','正常退火','2','返修','3','过渡') CAL_TYPE,
			       (nvl(A.CAL_ID,0)+1) CAL_CNT,C_PKG_UIM.GET_STDTIMESTR(H.MILL_DTIME) MILL_DTIME
			       ,E.MK_CONTENT
			       ,E.ANNOITA_YN   ---涂油
			       ,G.LZREMARK
			       ,A.CAL_MEMO
             	   ,(SELECT SM_CFNM FROM TBZ00_COMMCD WHERE  SM_CD = E.L_ORD_USEAGE_CD) L_ORD_USEAGE_CD  --用途			      
			  FROM L_TBF03_SPEC_MILL A,
			       C_TBL02_COIL_COMM B,
			       TBE02_ORD_PRC E,
			       C_TBC02_COIL_COMM H,
			       C_TBK02_COIL_COMM G,
			       TBA01_ORD_LINE L,
			       C_TBF03_SPEC_MILL F,
			       (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.COIL_NO(+)
			   AND B.CUST_CD = T1.SM_CD(+)
			   AND E.ORDCUST_CD = T3.SM_CD(+)
			   AND L.DLIV_TP = T2.SM_CD(+)
			   AND F.COIL_NO = G.OLD_SAMPL_NO(+)
			   AND A.EXIT_COIL_NO= H.OLD_SAMPL_NO(+) --20121130:L_COIL_N0 ->EXIT_COIL_NO
			   AND SUBSTR(B.COIL_NO,1,11) = SUBSTR(F.C_COIL_NO(+),1,11)
			   AND A.STATUS_CD NOT LIKE 'R'
			   AND A.CAL_NO  >= ?  AND A.CAL_NO <= ? 
			   AND NVL(H.MILL_DTIME,'000000')  BETWEEN ?||'000000' AND ?||'999999'
			   AND A.ORD_NO LIKE ?||'%'
			   AND A.ORD_SEQ LIKE ?||'%'
			   AND A.CAL_NO NOT LIKE 'A%'
			 ORDER BY A.CAL_NO, A.CAL_COIL_SEQ
		 ]]>
	</query>
	
	<query id="UIM020040_03.SELECT"  desc="有时间查询">
		<![CDATA[
			SELECT 'FALSE' CHK,
			       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
				   B.MANU_COIL_THK,
                   B.MANU_COIL_WTH,
                   B.DCS_THK, --判定厚度
                   B.DCS_WTH, --判定宽度
                   B.ACT_WGT,
                   B.L3_ROUGH,--录入粗糙度
				   H.CAL_TYPE_TEMP,
			       A.CAL_NO,
			       A.CAL_COIL_SEQ,
			       B.COIL_NO C_COIL_NO,
			       B.CUR_LOAD_LOC C_CUR_LOAD_LOC,
			       A.L_COIL_NO,
			       A.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 H.MISSNO_CLF_CD IS NULL) THEN
			          '轧制完成'
			         WHEN (A.STATUS_CD = 'D' AND H.MISSNO_CLF_CD = '1') THEN
			          '轧废'
			         ELSE
			          ''
			       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,
			      C_PKG_UIM.GET_ORIGINAL_COIL_WGT(B.OLD_SAMPL_NO) C_ACT_WGT,--20121226
			       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.DEL_TO_DATE,
			       E.ORD_WGT,
			       E.ORD_NO,
			       E.ORD_SEQ,
			       (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 --成份等级 
			      ,
			       A.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,
			       (select T1.PRODNM_CD || '/' || T2.C_EXTSHAPE_REQ || '/' ||
				             SUBSTR(PKG_QUALITY_COMM.FZ00_COMM('A01010', T2.PAKMTH_TP), 0, 1) ||
				             '/大于' || T2.PROD_WGT_MIN || '小于' || T2.PROD_WGT_MAX || '/' ||
				             PKG_QUALITY_COMM.FZ00_COMM('A01010', T2.PAKMTH_TP) || '/厚度(' ||
				             T3.C_ORD_THK_MIN || '~' || T3.C_ORD_THK_MAX || ')/宽度(' ||
				             T3.C_ORD_WTH_MIN || '~' || T3.C_ORD_WTH_MAX || ')/内径(' ||
				             T2.C_ORD_INDIA || ')'
				       from  C_TBF03_SPEC_MILL T1,TBA01_ORD_LINE T2,TBE02_ORD_PRC T3
				    where t1.ORD_NO = t2.ORD_NO(+)
				    and t1.ORD_SEQ = t2.ORD_SEQ(+)
				    and t1.ORD_NO = t3.ORD_NO(+)
				    and t1.ORD_SEQ = t3.ORD_SEQ(+)
				    and substr(t1.C_COIL_NO,1,11) = substr(a.C_COIL_NO,1,11)) szjsyq,
			       CASE
			         WHEN SUBSTR(B.ORD_NO, 0, 2) = '42' THEN
			          '过度材'
			         ELSE
			          '订单材'
			       END || DECODE(L.EDGE_PROC_YN, 'Y', '切边', '不切边') ORD_RMK,
			       L.PROD_LINE,F.COIL_NO H_COIL_NO,F.STL_GRD H_STEELCODE,
             	   TO_CHAR(F.COIL_THK,'FM990.099')||'*'||F.COIL_WTH H_COILSIZE,
		           F.COIL_WGT H_COILWGT,
		           DECODE(B.TOT_DEC_GRD,'1','合格','2','不合格','3','次品','4','废品') C_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)) C_CAUSE,
			       decode(A.CAL_TYPE,'1','正常退火','2','返修','3','过渡') CAL_TYPE,
			       (nvl(A.CAL_ID,0)+1) CAL_CNT, 
			       C_PKG_UIM.GET_STDTIMESTR(H.MILL_DTIME) MILL_DTIME,
			       E.MK_CONTENT,
			       E.ANNOITA_YN,  ---涂油
			       G.LZREMARK,
			       A.CAL_MEMO,
             	   (SELECT SM_CFNM FROM TBZ00_COMMCD WHERE  SM_CD = E.L_ORD_USEAGE_CD) L_ORD_USEAGE_CD  --用途			      
			  FROM L_TBF03_SPEC_MILL A,
			       C_TBL02_COIL_COMM B,
			       TBE02_ORD_PRC E,
			       C_TBC02_COIL_COMM H,
			       TBA01_ORD_LINE L,
			       C_TBF03_SPEC_MILL F,
			       C_TBK02_COIL_COMM G,
			       (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.COIL_NO(+)
			   AND B.CUST_CD = T1.SM_CD(+)
			   AND E.ORDCUST_CD = T3.SM_CD(+)
			   AND L.DLIV_TP = T2.SM_CD(+)
			   AND F.COIL_NO = G.OLD_SAMPL_NO(+)
			   AND A.EXIT_COIL_NO= H.OLD_SAMPL_NO(+) --20130123生产时间显示 
			   AND SUBSTR(B.COIL_NO,1,11) = SUBSTR(F.C_COIL_NO(+),1,11)
			   AND A.STATUS_CD NOT LIKE 'R'
			   AND SUBSTR(A.REG_DTIME,1,8)    BETWEEN ? AND ?
			   AND NVL(H.MILL_DTIME,'000000')  BETWEEN ?||'000000' AND ?||'999999'
			   AND A.ORD_NO LIKE ?||'%'
			   AND A.ORD_SEQ LIKE ?||'%'
			   AND A.CAL_NO NOT LIKE 'A%'
			 ORDER BY A.CAL_NO, A.CAL_COIL_SEQ
		 ]]>
	</query>
	
	<query id="UIM020040_04.SELECT"  desc="无时间查询"> 
		<![CDATA[
			SELECT 'FALSE' CHK,
			       B.MANU_COIL_THK,
                   B.MANU_COIL_WTH,
				   H.CAL_TYPE_TEMP,
			       A.CAL_NO,
			       A.CAL_COIL_SEQ,
			       B.COIL_NO C_COIL_NO,
			       B.CUR_LOAD_LOC C_CUR_LOAD_LOC,
			       A.L_COIL_NO,
			       A.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 H.MISSNO_CLF_CD IS NULL) THEN
			          '轧制完成'
			         WHEN (A.STATUS_CD = 'D' AND H.MISSNO_CLF_CD = '1') THEN
			          '轧废'
			         ELSE
			          ''
			       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,
			       C_PKG_UIM.GET_ORIGINAL_COIL_WGT(B.OLD_SAMPL_NO) C_ACT_WGT,--20121226
			       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,
			       (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 --成份等级 
			      ,
			       A.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,
			       (select T1.PRODNM_CD || '/' || T2.C_EXTSHAPE_REQ || '/' ||
				             SUBSTR(PKG_QUALITY_COMM.FZ00_COMM('A01010', T2.PAKMTH_TP), 0, 1) ||
				             '/大于' || T2.PROD_WGT_MIN || '小于' || T2.PROD_WGT_MAX || '/' ||
				             PKG_QUALITY_COMM.FZ00_COMM('A01010', T2.PAKMTH_TP) || '/厚度(' ||
				             T3.C_ORD_THK_MIN || '~' || T3.C_ORD_THK_MAX || ')/宽度(' ||
				             T3.C_ORD_WTH_MIN || '~' || T3.C_ORD_WTH_MAX || ')/内径(' ||
				             T2.C_ORD_INDIA || ')'
				       from  C_TBF03_SPEC_MILL T1,TBA01_ORD_LINE T2,TBE02_ORD_PRC T3
				    where t1.ORD_NO = t2.ORD_NO(+)
				    and t1.ORD_SEQ = t2.ORD_SEQ(+)
				    and t1.ORD_NO = t3.ORD_NO(+)
				    and t1.ORD_SEQ = t3.ORD_SEQ(+)
				    and substr(t1.C_COIL_NO,1,11) = substr(a.C_COIL_NO,1,11)) szjsyq,
			       CASE
			         WHEN SUBSTR(B.ORD_NO, 0, 2) = '42' THEN
			          '过度材'
			         ELSE
			          '订单材'
			       END || DECODE(L.EDGE_PROC_YN, 'Y', '切边', '不切边') ORD_RMK,
			       L.PROD_LINE,F.COIL_NO H_COIL_NO,F.STL_GRD H_STEELCODE,
		           TO_CHAR(F.COIL_THK,'FM990.099')||'*'||F.COIL_WTH H_COILSIZE,
		           F.COIL_WGT H_COILWGT,
		           DECODE(B.TOT_DEC_GRD,'1','合格','2','不合格','3','次品','4','废品') C_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)) C_CAUSE,
			       decode(A.CAL_TYPE,'1','正常退火','2','返修','3','过渡') CAL_TYPE,
			       (nvl(A.CAL_ID,0)+1) CAL_CNT,C_PKG_UIM.GET_STDTIMESTR(H.MILL_DTIME) MILL_DTIME
			  	   ,E.MK_CONTENT
			  FROM L_TBF03_SPEC_MILL A,
			       C_TBL02_COIL_COMM B,
			       TBE02_ORD_PRC E,
			       C_TBC02_COIL_COMM H,
			       TBA01_ORD_LINE L,
			       C_TBF03_SPEC_MILL F,
			       (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.COIL_NO(+)
			   AND B.CUST_CD = T1.SM_CD(+)
			   AND E.ORDCUST_CD = T3.SM_CD(+)
			   AND L.DLIV_TP = T2.SM_CD(+)
			   AND A.L_COIL_NO = H.OLD_SAMPL_NO(+)
			   AND SUBSTR(B.COIL_NO,1,11) = SUBSTR(F.C_COIL_NO(+),1,11)
			   AND A.STATUS_CD NOT LIKE 'R'
			   AND A.CAL_NO  >= ?  AND A.CAL_NO <= ? 
			   AND NVL(H.MILL_DTIME,'000000')  BETWEEN ?||'000000' AND ?||'999999'
			   AND A.ORD_NO LIKE ?||'%'
			   AND A.ORD_SEQ LIKE ?||'%'
			   AND A.CAL_NO LIKE 'A%'
			 ORDER BY A.CAL_NO, A.CAL_COIL_SEQ
		 ]]>
	</query>
	
	<query id="UIM020040_05.SELECT"  desc="有时间查询">
		<![CDATA[
			SELECT 'FALSE' CHK,
				   B.MANU_COIL_THK,
                   B.MANU_COIL_WTH,
				   H.CAL_TYPE_TEMP,
			       A.CAL_NO,
			       A.CAL_COIL_SEQ,
			       B.COIL_NO C_COIL_NO,
			       B.CUR_LOAD_LOC C_CUR_LOAD_LOC,
			       A.L_COIL_NO,
			       A.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 H.MISSNO_CLF_CD IS NULL) THEN
			          '轧制完成'
			         WHEN (A.STATUS_CD = 'D' AND H.MISSNO_CLF_CD = '1') THEN
			          '轧废'
			         ELSE
			          ''
			       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,
			       C_PKG_UIM.GET_ORIGINAL_COIL_WGT(B.OLD_SAMPL_NO) C_ACT_WGT,--20121226
			       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,
			       (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 --成份等级 
			      ,
			       A.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,
			       (select T1.PRODNM_CD || '/' || T2.C_EXTSHAPE_REQ || '/' ||
				             SUBSTR(PKG_QUALITY_COMM.FZ00_COMM('A01010', T2.PAKMTH_TP), 0, 1) ||
				             '/大于' || T2.PROD_WGT_MIN || '小于' || T2.PROD_WGT_MAX || '/' ||
				             PKG_QUALITY_COMM.FZ00_COMM('A01010', T2.PAKMTH_TP) || '/厚度(' ||
				             T3.C_ORD_THK_MIN || '~' || T3.C_ORD_THK_MAX || ')/宽度(' ||
				             T3.C_ORD_WTH_MIN || '~' || T3.C_ORD_WTH_MAX || ')/内径(' ||
				             T2.C_ORD_INDIA || ')'
				       from  C_TBF03_SPEC_MILL T1,TBA01_ORD_LINE T2,TBE02_ORD_PRC T3
				    where t1.ORD_NO = t2.ORD_NO(+)
				    and t1.ORD_SEQ = t2.ORD_SEQ(+)
				    and t1.ORD_NO = t3.ORD_NO(+)
				    and t1.ORD_SEQ = t3.ORD_SEQ(+)
				    and substr(t1.C_COIL_NO,1,11) = substr(a.C_COIL_NO,1,11)) szjsyq,
			       CASE
			         WHEN SUBSTR(B.ORD_NO, 0, 2) = '42' THEN
			          '过度材'
			         ELSE
			          '订单材'
			       END || DECODE(L.EDGE_PROC_YN, 'Y', '切边', '不切边') ORD_RMK,
			       L.PROD_LINE,F.COIL_NO H_COIL_NO,F.STL_GRD H_STEELCODE,
             	   TO_CHAR(F.COIL_THK,'FM990.099')||'*'||F.COIL_WTH H_COILSIZE,
		           F.COIL_WGT H_COILWGT,
		           DECODE(B.TOT_DEC_GRD,'1','合格','2','不合格','3','次品','4','废品') C_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)) C_CAUSE,
			       decode(A.CAL_TYPE,'1','正常退火','2','返修','3','过渡') CAL_TYPE,
			       (nvl(A.CAL_ID,0)+1) CAL_CNT,C_PKG_UIM.GET_STDTIMESTR(H.MILL_DTIME) MILL_DTIME
			       ,E.MK_CONTENT
			  FROM L_TBF03_SPEC_MILL A,
			       C_TBL02_COIL_COMM B,
			       TBE02_ORD_PRC E,
			       C_TBC02_COIL_COMM H,
			       TBA01_ORD_LINE L,
			       C_TBF03_SPEC_MILL F,
			       (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.COIL_NO(+)
			   AND B.CUST_CD = T1.SM_CD(+)
			   AND E.ORDCUST_CD = T3.SM_CD(+)
			   AND L.DLIV_TP = T2.SM_CD(+)
			   AND A.L_COIL_NO = H.OLD_SAMPL_NO(+)
			   AND SUBSTR(B.COIL_NO,1,11) = SUBSTR(F.C_COIL_NO(+),1,11)
			   AND A.STATUS_CD NOT LIKE 'R'
			   AND SUBSTR(A.REG_DTIME,1,8)    BETWEEN ? AND ?
			   AND NVL(H.MILL_DTIME,'000000')  BETWEEN ?||'000000' AND ?||'999999'
			   AND A.ORD_NO LIKE ?||'%'
			   AND A.ORD_SEQ LIKE ?||'%'
			   AND A.CAL_NO LIKE 'A%'
			 ORDER BY A.CAL_NO, A.CAL_COIL_SEQ
		 ]]>
	</query>
</queryMap>