SELECT T.QLTY_OPE_CD
,T.QLTY_DIS_SEQ
,T.QLTY_CD_2
,T.QLTY_OPE_CFNM
FROM TBB10_QLTY_TMPL T
ORDER BY T.QLTY_DIS_SEQ
SELECT T.QLTY_CD, T.QLTY_CD_CFNM FROM TBB10_QLTY_CD T
UNION ALL
SELECT T.QLTY_CD, T.PFMC_NAME QLTY_CD_CFNM FROM COM_BASE_PHY_R_PHY T
SELECT DISTINCT
T.COIL_NO
,T.SMP_NO
,T.SMP_CUT_LOC
,T.SMP_NO_TYPE
,T.COIL_STEEL_NO
,T.SPEC_STL_GRD
,T.WEITO_NO
,T.WEITO_DTIME
,T.COIL_INPUT_DTIME
,T.COIL_THK
,T.COIL_RMK
,T.SEND_STAT --钢卷状态:已发送,未发送
,T.SEND_ID
,T.SEND_DTIME
,DECODE(S.SMP_PROG_CD , 'C' , '试样检验待机' , 'D' , '试样判定待机' , 'E' , '试样判定完成' ) SMP_PROG_CD
,JHY_QLTY_BASE.F_GET_SMP_STATS(X.SMP_NO , X.SMP_CUT_LOC , X.SMP_NO_TYPE , X.QLTY_CD_1) WORK_STATS
FROM TBB10_QLTY_COIL T
,TBB10_QLTY_OPE X
,TBB02_LOT_COM@XG3Q S
WHERE T.SMP_NO = X.SMP_NO
AND T.SMP_CUT_LOC = X.SMP_CUT_LOC
AND T.SMP_NO_TYPE = X.SMP_NO_TYPE
AND T.SMP_NO = S.SMP_NO
AND T.SMP_CUT_LOC = S.SMP_CUT_LOC
AND X.QLTY_CD IS NOT NULL
AND T.PROD_LINE = ? --冷轧和热轧
AND X.QLTY_CD_1 = NVL(? , X.QLTY_CD_1) --力学
AND DECODE(? , 'LX' , SUBSTR(T.SEND_STAT , 1,1) , 'JX' , SUBSTR(T.SEND_STAT , 2,1) ,'全部' ) = NVL(? , '全部')
AND T.COIL_INPUT_DTIME BETWEEN NVL(?,T.COIL_INPUT_DTIME) AND NVL(?,T.COIL_INPUT_DTIME)
AND T.WEITO_DTIME BETWEEN NVL(?,T.WEITO_DTIME) AND NVL(?,T.WEITO_DTIME)
AND SUBSTR(T.COIL_NO ,1, 10 ) BETWEEN NVL(? , SUBSTR(T.COIL_NO , 1, 10 ) ) AND NVL(? , SUBSTR(T.COIL_NO , 1, 10 ) )
ORDER BY T.WEITO_NO , T.COIL_STEEL_NO , T.COIL_NO
SELECT DISTINCT
T.COIL_NO
,T.SMP_NO
,T.SMP_CUT_LOC
,T.SMP_NO_TYPE
,T.COIL_STEEL_NO
,T.SPEC_STL_GRD
,T.WEITO_NO
,T.WEITO_DTIME
,T.COIL_INPUT_DTIME
,T.COIL_THK
,T.COIL_RMK
,T.SEND_STAT --钢卷状态:已发送,未发送
,T.SEND_ID
,T.SEND_DTIME
,DECODE(S.SMP_PROG_CD , 'C' , '试样检验待机' , 'D' , '试样判定待机' , 'E' , '试样判定完成' ) SMP_PROG_CD
,JHY_QLTY_BASE.F_GET_SMP_STATS(X.SMP_NO , X.SMP_CUT_LOC , X.SMP_NO_TYPE , X.QLTY_CD_1) WORK_STATS
FROM TBB10_QLTY_COIL T
,TBB10_QLTY_OPE X
,TBB02_LOT_COM@XG3Q S
WHERE T.SMP_NO = X.SMP_NO
AND T.SMP_CUT_LOC = X.SMP_CUT_LOC
AND T.SMP_NO_TYPE = X.SMP_NO_TYPE
AND T.SMP_NO = S.SMP_NO
AND T.SMP_CUT_LOC = S.SMP_CUT_LOC
AND X.QLTY_CD IS NOT NULL
AND T.PROD_LINE = ? --冷轧和热轧
AND X.QLTY_CD_1 = NVL(? , X.QLTY_CD_1) --力学
AND DECODE(? , 'LX' , SUBSTR(T.SEND_STAT , 1,1) , 'JX' , SUBSTR(T.SEND_STAT , 2,1) ,'全部' ) = NVL(? , '全部')
AND T.COIL_INPUT_DTIME BETWEEN NVL(?,T.COIL_INPUT_DTIME) AND NVL(?,T.COIL_INPUT_DTIME)
AND T.WEITO_DTIME BETWEEN NVL(?,T.WEITO_DTIME) AND NVL(?,T.WEITO_DTIME)
AND SUBSTR(T.COIL_NO ,1, 9 ) BETWEEN NVL(? , SUBSTR(T.COIL_NO , 1, 9 ) ) AND NVL(? , SUBSTR(T.COIL_NO , 1, 9 ) )
SELECT OCL.*
FROM TBB10_QLTY_CD QCD
,(
SELECT T2.COIL_NO
,CASE WHEN T1.QLTY_CD IS NULL THEN (SELECT XX.QLTY_CD FROM TBB10_QLTY_OPE XX WHERE XX.SMP_NO = T1.SMP_NO AND XX.SMP_CUT_LOC = T1.SMP_CUT_LOC
AND XX.QLTY_CD_2 = T1.QLTY_CD_2 AND XX.QLTY_CD IS NOT NULL AND ROWNUM = 1 )
ELSE T1.QLTY_CD END QLTY_CD
,CASE WHEN T1.QLTY_OPE_CD IN ('A1' ,'A2' ,'A3') THEN T1.QLTY_OPE_CD ELSE NULL END QLTY_SEQ
,T1.QLTY_MIN
,T1.QLTY_MAX
,T1.SMP_RMK
,T1.QLTY_CD_AFTER
,T1.QLTY_VAL
,T1.SMP_NO_TYPE
,T2.COIL_THK
,T2.SPEC_STL_GRD
,T1.REG_ID
,T1.REG_DTIME
,T1.SEND_DTIME
,T1.SEND_ID
,T1.EQUMT_ID
,T2.COIL_STEEL_NO
FROM TBB10_QLTY_OPE T1
,TBB10_QLTY_COIL T2
WHERE T1.SMP_NO = T2.SMP_NO
AND T1.SMP_CUT_LOC = T2.SMP_CUT_LOC
AND (T1.QLTY_CD IS NOT NULL
OR T1.QLTY_OPE_CD IN ('A1' ,'A2' ,'A3') )
AND T1.SMP_NO_TYPE = T2.SMP_NO_TYPE
AND T1.QLTY_CD_1 = NVL(? , T1.QLTY_CD_1)
AND T2.WEITO_NO = ?
-- AND DECODE(? , 'LX' , SUBSTR(T2.SEND_STAT , 1,1) , 'JX' , SUBSTR(T2.SEND_STAT , 2,1) ) = ?
) OCL
WHERE OCL.QLTY_CD = QCD.QLTY_CD
ORDER BY OCL.COIL_STEEL_NO , OCL.COIL_NO ,OCL.SMP_NO_TYPE, QCD.DISPLAY_SEQ ,OCL.QLTY_CD ,OCL.QLTY_SEQ
SELECT OCL.*
FROM COM_BASE_PHY_R_PHY QCD
,(
SELECT T2.COIL_NO
,CASE WHEN T1.QLTY_CD IS NULL THEN (SELECT XX.QLTY_CD FROM TBB10_QLTY_OPE XX WHERE XX.SMP_NO = T1.SMP_NO AND XX.SMP_CUT_LOC = T1.SMP_CUT_LOC
AND XX.QLTY_CD_2 = T1.QLTY_CD_2 AND XX.QLTY_CD IS NOT NULL AND ROWNUM = 1 )
ELSE T1.QLTY_CD END QLTY_CD
,CASE WHEN T1.QLTY_OPE_CD IN ('A1' ,'A2' ,'A3') THEN T1.QLTY_OPE_CD ELSE NULL END QLTY_SEQ
,T1.QLTY_MIN
,T1.QLTY_MAX
,T1.SMP_RMK
,T1.QLTY_CD_AFTER
,T1.QLTY_VAL
,T1.SMP_NO_TYPE
,T2.COIL_THK
,T2.SPEC_STL_GRD
,T1.REG_ID
,T1.REG_DTIME
,T1.SEND_DTIME
,T1.SEND_ID
,T1.EQUMT_ID
,T2.COIL_STEEL_NO
FROM TBB10_QLTY_OPE T1
,TBB10_QLTY_COIL T2
WHERE T1.SMP_NO = T2.SMP_NO
AND T1.SMP_CUT_LOC = T2.SMP_CUT_LOC
AND (T1.QLTY_CD IS NOT NULL
OR T1.QLTY_OPE_CD IN ('A1' ,'A2' ,'A3') )
AND T1.SMP_NO_TYPE = T2.SMP_NO_TYPE
AND T1.QLTY_CD_1 = NVL(? , T1.QLTY_CD_1)
AND T2.WEITO_NO = ?
-- AND DECODE(? , 'LX' , SUBSTR(T2.SEND_STAT , 1,1) , 'JX' , SUBSTR(T2.SEND_STAT , 2,1) ) = ?
) OCL
WHERE OCL.QLTY_CD = QCD.QLTY_CD
ORDER BY OCL.COIL_STEEL_NO , OCL.COIL_NO ,OCL.SMP_NO_TYPE, QCD.DISPLAY_SEQ ,OCL.QLTY_SEQ
SELECT OCL.*
FROM TBB10_QLTY_CD QCD
,(
SELECT T2.COIL_NO
,CASE WHEN T1.QLTY_CD IS NULL THEN (SELECT XX.QLTY_CD FROM TBB10_QLTY_OPE XX WHERE XX.SMP_NO = T1.SMP_NO AND XX.SMP_CUT_LOC = T1.SMP_CUT_LOC
AND XX.QLTY_CD_2 = T1.QLTY_CD_2 AND XX.QLTY_CD IS NOT NULL AND ROWNUM = 1 )
ELSE T1.QLTY_CD END QLTY_CD
,CASE WHEN T1.QLTY_OPE_CD IN ('A1' ,'A2' ,'A3') THEN T1.QLTY_OPE_CD ELSE NULL END QLTY_SEQ
,T1.QLTY_MIN
,T1.QLTY_MAX
,T1.SMP_RMK
,T1.QLTY_CD_AFTER
,T1.QLTY_VAL
,T1.SMP_NO_TYPE
,T2.COIL_THK
,T2.SPEC_STL_GRD
,T1.REG_ID
,T1.REG_DTIME
,T1.SEND_DTIME
,T1.SEND_ID
,T1.EQUMT_ID
,T2.COIL_STEEL_NO
FROM TBB10_QLTY_OPE T1
,TBB10_QLTY_COIL T2
WHERE T1.SMP_NO = T2.SMP_NO
AND T1.SMP_CUT_LOC = T2.SMP_CUT_LOC
AND T1.SMP_NO_TYPE = T2.SMP_NO_TYPE
AND (T1.QLTY_CD IS NOT NULL
OR T1.QLTY_OPE_CD IN ('A1' ,'A2' ,'A3') )
AND T1.QLTY_CD_1 = NVL(? , T1.QLTY_CD_1)
AND T2.COIL_NO = ?
-- AND DECODE(? , 'LX' , SUBSTR(T2.SEND_STAT , 1,1) , 'JX' , SUBSTR(T2.SEND_STAT , 2,1) ) = ?
AND T2.SMP_NO = ?
)OCL
WHERE OCL.QLTY_CD = QCD.QLTY_CD
ORDER BY QCD.DISPLAY_SEQ ,OCL.QLTY_CD ,OCL.QLTY_SEQ
SELECT DISTINCT
T3.QLTY_CD_3
,T3.QLTY_CD_3_NM
,T3.QLTY_CD_2
,T3.DISPLAY_SEQ
FROM TBB10_QLTY_OPE T1
,TBB10_QLTY_COIL T2
,TBB10_QLTY_CD T3
WHERE T1.SMP_NO = T2.SMP_NO
AND T1.SMP_CUT_LOC = T2.SMP_CUT_LOC
AND T1.SMP_NO_TYPE = T2.SMP_NO_TYPE
AND T1.QLTY_CD = T3.QLTY_CD
AND T1.QLTY_CD_1 = NVL(? , T1.QLTY_CD_1)
AND T3.QLTY_CD_3 IS NOT NULL
AND T2.WEITO_NO = ?
-- AND DECODE(? , 'LX' , SUBSTR(T2.SEND_STAT , 1,1) , 'JX' , SUBSTR(T2.SEND_STAT , 2,1) ) = ?
ORDER BY T3.DISPLAY_SEQ
SELECT DISTINCT T3.QLTY_CD_3, T3.QLTY_CD_3_NM, T3.QLTY_CD_2, T3.DISPLAY_SEQ
FROM TBB10_QLTY_OPE T1, TBB10_QLTY_COIL T2, TBB10_QLTY_CD T3
WHERE T1.SMP_NO = T2.SMP_NO
AND T1.SMP_CUT_LOC = T2.SMP_CUT_LOC
AND T1.SMP_NO_TYPE = T2.SMP_NO_TYPE
-- AND T1.QLTY_CD = T3.QLTY_CD
AND T3.QLTY_CD = GETTMPLCD(T1.QLTY_CD)
AND T1.QLTY_CD_1 = NVL(?, T1.QLTY_CD_1)
AND T3.QLTY_CD IS NOT NULL
AND T2.WEITO_NO = ?
-- AND DECODE(? , 'LX' , SUBSTR(T2.SEND_STAT , 1,1) , 'JX' , SUBSTR(T2.SEND_STAT , 2,1) ) = ?
ORDER BY T3.DISPLAY_SEQ
SELECT T.QLTY_OPE_CD
,T.QLTY_DIS_SEQ
,T.QLTY_OPE_CFNM
FROM TBB10_QLTY_TMPL T
WHERE T.QLTY_CD_2 = ?
--AND INSTR(T.QLTY_OPE_GRP , SUBSTR(? , 0 , 2)) > 0
SELECT Q1.*
,Q2.QLTY_MIN
,Q2.QLTY_MAX
,Q2.QLTY_VAL
,Q2.QLTY_CD
,NVL(Q2.QLTY_CD_AFTER , Q2.QLTY_CD) QLTY_CD_CFNM --界面显示材质项目名称
,Q2.COIL_NO
,Q2.COIL_THK
,Q2.COIL_STEEL_NO
,Q2.QLTY_CD_3
FROM (SELECT T1.SMP_NO
,T1.SMP_CUT_LOC
,T1.SMP_NO_TYPE
,T1.QLTY_CD_2
,T2.SPEC_STL_GRD
{1}
FROM TBB10_QLTY_OPE T1, TBB10_QLTY_COIL T2
WHERE T1.SMP_NO = T2.SMP_NO
AND T1.SMP_CUT_LOC = T2.SMP_CUT_LOC
AND T1.SMP_NO_TYPE = T2.SMP_NO_TYPE
AND T2.WEITO_NO = ?
AND T1.QLTY_CD_2 = ?
GROUP BY T1.SMP_NO ,T1.SMP_CUT_LOC ,T1.SMP_NO_TYPE ,T1.QLTY_CD_2 ,T2.SPEC_STL_GRD
) Q1
,(SELECT X1.* , X2.QLTY_CD_CFNM , X3.COIL_NO , X3.COIL_THK ,X3.COIL_STEEL_NO ,X2.QLTY_CD_3
FROM TBB10_QLTY_OPE X1 , TBB10_QLTY_CD X2 , TBB10_QLTY_COIL X3
WHERE X1.QLTY_CD_2 = X2.QLTY_CD_2
AND X1.QLTY_CD = X2.QLTY_CD
AND X1.SMP_NO = X3.SMP_NO
AND X1.SMP_CUT_LOC = X3.SMP_CUT_LOC
AND X1.SMP_NO_TYPE = X3.SMP_NO_TYPE
AND X3.WEITO_NO = ?
AND X1.QLTY_CD_2 = ?
AND X2.QLTY_CD_3 = ?
-- AND DECODE(? , 'LX' , SUBSTR(X3.SEND_STAT , 1,1) , 'JX' , SUBSTR(X3.SEND_STAT , 2,1) ) = ?
) Q2
WHERE Q1.SMP_NO = Q2.SMP_NO
AND Q1.SMP_CUT_LOC = Q2.SMP_CUT_LOC
AND Q1.SMP_NO_TYPE = Q2.SMP_NO_TYPE
AND Q1.QLTY_CD_2 = Q2.QLTY_CD_2
ORDER BY Q2.COIL_STEEL_NO , Q2.COIL_NO
SELECT Q1.*
,Q2.QLTY_MIN
,Q2.QLTY_MAX
,Q2.QLTY_VAL
,Q2.QLTY_CD
,NVL(Q2.QLTY_CD_AFTER , Q2.QLTY_CD) QLTY_CD_CFNM --界面显示材质项目名称
,Q2.COIL_NO
,Q2.COIL_THK
,Q2.COIL_STEEL_NO
,Q2.QLTY_CD_3
FROM (SELECT T1.SMP_NO
,T1.SMP_CUT_LOC
,T1.SMP_NO_TYPE
,T1.QLTY_CD_2
,T2.SPEC_STL_GRD
{1}
FROM TBB10_QLTY_OPE T1, TBB10_QLTY_COIL T2
WHERE T1.SMP_NO = T2.SMP_NO
AND T1.SMP_CUT_LOC = T2.SMP_CUT_LOC
AND T1.SMP_NO_TYPE = T2.SMP_NO_TYPE
AND T2.WEITO_NO = ?
AND T1.QLTY_CD_2 = ?
GROUP BY T1.SMP_NO ,T1.SMP_CUT_LOC ,T1.SMP_NO_TYPE ,T1.QLTY_CD_2 ,T2.SPEC_STL_GRD
) Q1
,(SELECT X1.* , X2.QLTY_CD_CFNM , X3.COIL_NO , X3.COIL_THK ,X3.COIL_STEEL_NO ,X2.QLTY_CD_3
FROM TBB10_QLTY_OPE X1 , TBB10_QLTY_CD X2 , TBB10_QLTY_COIL X3
WHERE X1.QLTY_CD_2 = X2.QLTY_CD_2
--AND X1.QLTY_CD = X2.QLTY_CD
AND x2.qlty_cd=GETTMPLCD(x1.QLTY_CD)
AND X1.SMP_NO = X3.SMP_NO
AND X1.SMP_CUT_LOC = X3.SMP_CUT_LOC
AND X1.SMP_NO_TYPE = X3.SMP_NO_TYPE
AND X3.WEITO_NO = ?
AND X1.QLTY_CD_2 = ?
AND X2.QLTY_CD_3 = ?
-- AND DECODE(? , 'LX' , SUBSTR(X3.SEND_STAT , 1,1) , 'JX' , SUBSTR(X3.SEND_STAT , 2,1) ) = ?
) Q2
WHERE Q1.SMP_NO = Q2.SMP_NO
AND Q1.SMP_CUT_LOC = Q2.SMP_CUT_LOC
AND Q1.SMP_NO_TYPE = Q2.SMP_NO_TYPE
AND Q1.QLTY_CD_2 = Q2.QLTY_CD_2
ORDER BY Q2.COIL_STEEL_NO , Q2.COIL_NO
SELECT TT.*
/* ,LEAD(TT.COMP_CAL , 1 , NULL) OVER(ORDER BY TT.QLTY_DIS_SEQ) NEXT_COMP_CAL
,LEAD(TT.QLTY_OPE_CD , 1 , NULL) OVER(ORDER BY TT.QLTY_DIS_SEQ) NEXT_OPE_CD
,LEAD(TT.QLTY_DIS_LEN , 1 , NULL) OVER(ORDER BY TT.QLTY_DIS_SEQ) NEXT_DIS_LEN
,LEAD(TT.CRCT_REG , 1 , NULL) OVER(ORDER BY TT.QLTY_DIS_SEQ) NEXT_CRCT_REG
*/
FROM (
SELECT DISTINCT
T1.QLTY_OPE_CFNM
,T2.QLTY_OPE_CD
,CASE WHEN ? = 'L' AND T2.QLTY_OPE_CD != 'AVG' THEN '' ELSE T2.COMP_CAL END COMP_CAL
--,DECODE(? , 'L' , '' , T2.COMP_CAL) COMP_CAL --连退和热轧区分
,T2.QLTY_DIS_LEN
,T2.CRCT_REG
,T2.QLTY_DIS_SEQ
,T1.QLTY_VAL
,T1.EDIT_TP
FROM TBB10_QLTY_OPE T1
,TBB10_QLTY_TMPL T2
WHERE T1.QLTY_OPE_CD = T2.QLTY_OPE_CD
AND T1.QLTY_CD_2 = T2.QLTY_CD_2
AND T1.SMP_NO = ?
AND T1.SMP_CUT_LOC = ?
AND T1.SMP_NO_TYPE = ?
AND INSTR(T2.QLTY_OPE_GRP , ?) > 0
AND T2.QLTY_CD_2 = ?
) TT
ORDER BY TT.QLTY_DIS_SEQ
SELECT T1.EQUMT_ID
,T1.SMP_RMK
FROM TBB10_QLTY_OPE T1
,TBB10_QLTY_CD T2
WHERE T1.QLTY_OPE_CD = T2.QLTY_OPE_CD
AND T1.SMP_NO = ?
AND T1.SMP_CUT_LOC = ?
AND T1.SMP_NO_TYPE = ?
AND T1.QLTY_CD = ?
SELECT T1.QLTY_OPE_CD
,T1.QLTY_VAL
FROM TBB10_QLTY_OPE T1
WHERE T1.SMP_NO = ?
AND T1.SMP_CUT_LOC = ?
AND T1.SMP_NO_TYPE = ?
AND T1.QLTY_CD_2 = ?
SELECT T2.COIL_STEEL_NO
,''''||T2.SPEC_STL_GRD SPEC_STL_GRD
,T2.COIL_NO
,T2.COIL_THK
,T2.SMP_NO_TYPE
,MAX(DECODE(T1.QLTY_OPE_CD , 'a' , T1.QLTY_VAL ,NULL )) LA
,MAX(DECODE(T1.QLTY_OPE_CD , 'b' , T1.QLTY_VAL ,NULL )) LB
,MAX(DECODE(T1.QLTY_OPE_CD , 'Fe' , T1.QLTY_VAL ,NULL )) FE
,MAX(DECODE(T1.QLTY_OPE_CD , 'Fm' , T1.QLTY_VAL ,NULL )) FM
,MAX(DECODE(T1.QLTY_OPE_CD , 'Lo' , T1.QLTY_VAL ,NULL )) LO
,MAX(DECODE(T1.QLTY_OPE_CD , 'Lu' , T1.QLTY_VAL ,NULL )) LU
,MAX(DECODE(T1.QLTY_OPE_CD , 'ZJ' , T1.QLTY_VAL ,NULL )) ZJ
,MAX(DECODE(T1.QLTY_OPE_CD , 'CB' , T1.QLTY_VAL ,NULL )) CB
FROM TBB10_QLTY_OPE T1, TBB10_QLTY_COIL T2
WHERE T1.SMP_NO = T2.SMP_NO
AND T1.SMP_CUT_LOC = T2.SMP_CUT_LOC
AND T1.SMP_NO_TYPE = T2.SMP_NO_TYPE
AND T1.QLTY_CD_2 IN( 'LL' , 'CB')
AND INSTR(? , T2.COIL_NO) > 0
AND INSTR(? , T2.WEITO_NO) > 0
GROUP BY T2.COIL_STEEL_NO
,T2.SPEC_STL_GRD
,T2.COIL_NO
,T2.COIL_THK
,T2.SMP_NO_TYPE
ORDER BY T2.COIL_STEEL_NO
SELECT T2.COIL_STEEL_NO
,T2.SPEC_STL_GRD
,T2.COIL_NO
,T2.COIL_THK
,MAX(T3.QLTY_DIR) QLTY_DIR
,MAX(T3.QLTY_SIZ) QLTY_SIZ
,MAX(T3.QLTY_TEM) QLTY_TEM
,MAX(DECODE(T1.QLTY_OPE_CD , 'A1' , T1.QLTY_VAL ,NULL )) A1
,MAX(DECODE(T1.QLTY_OPE_CD , 'A2' , T1.QLTY_VAL ,NULL )) A2
,MAX(DECODE(T1.QLTY_OPE_CD , 'A3' , T1.QLTY_VAL ,NULL )) A3
FROM TBB10_QLTY_OPE T1, TBB10_QLTY_COIL T2 ,TBB10_QLTY_CD T3
WHERE T1.SMP_NO = T2.SMP_NO
AND T1.SMP_CUT_LOC = T2.SMP_CUT_LOC
AND T1.SMP_NO_TYPE = T2.SMP_NO_TYPE
AND T1.QLTY_CD_2 IN ('PC' ,'SC')
-- AND T3.QLTY_CD_2 IN ('PC' ,'SC')
AND T1.QLTY_CD = T3.QLTY_CD(+)
AND INSTR(? , T2.COIL_NO) > 0
AND INSTR(? , T2.WEITO_NO) > 0
GROUP BY T2.COIL_STEEL_NO
,T2.SPEC_STL_GRD
,T2.COIL_NO
,T2.COIL_THK
ORDER BY T2.COIL_STEEL_NO
SELECT T2.COIL_STEEL_NO,
T2.SPEC_STL_GRD,
T2.COIL_NO,
T2.COIL_THK,
/* MAX(T3.QLTY_DIR) QLTY_DIR,
MAX(DECODE(T4.QLTY_SIZE,
'A',
'10*10*55',
'B',
'10*7.5*55',
'C',
'10*5.0*55')) QLTY_SIZ,
MAX(T3.QLTY_TEM) QLTY_TEM,*/
MAX(decode(T3.QLTY_DIR,
'H',
'横向',
'L',
'横时',
'S',
'45度',
'X',
'纵时',
'Z',
'纵向')) QLTY_DIR,
MAX(T4.QLTY_SIZE) QLTY_SIZ,
MAX(decode(substr(T3.QLTY_TEM, 1, 1), '0', '-', '') ||
substr(T3.QLTY_TEM, 3, 2)) QLTY_TEM,
MAX(DECODE(T1.QLTY_OPE_CD, 'A1', T1.QLTY_VAL, NULL)) A1,
MAX(DECODE(T1.QLTY_OPE_CD, 'A2', T1.QLTY_VAL, NULL)) A2,
MAX(DECODE(T1.QLTY_OPE_CD, 'A3', T1.QLTY_VAL, NULL)) A3
FROM TBB10_QLTY_OPE T1,
TBB10_QLTY_COIL T2,
TBB10_QLTY_CD T3,
tbb01_ord_qlty@xg3q t4,
tbh02_coil_comm@xg3q t5
WHERE T1.SMP_NO = T2.SMP_NO
AND T1.SMP_CUT_LOC = T2.SMP_CUT_LOC
AND T1.SMP_NO_TYPE = T2.SMP_NO_TYPE
and t4.ord_no = t5.ord_no
and t4.ord_seq = t5.ord_seq
and t5.sampl_no = t1.smp_no
AND T1.QLTY_CD_2 IN ('PC', 'SC')
-- AND T3.QLTY_CD_2 IN ('PC' ,'SC')
AND T1.QLTY_CD = T3.QLTY_CD(+)
--and t1.smp_no = 'J81-06907A030XX'
AND INSTR(? , T2.COIL_NO) > 0
AND INSTR(? , T2.WEITO_NO) > 0
GROUP BY T2.COIL_STEEL_NO, T2.SPEC_STL_GRD, T2.COIL_NO, T2.COIL_THK
ORDER BY T2.COIL_STEEL_NO
SELECT T2.COIL_STEEL_NO,
T2.SPEC_STL_GRD,
T2.COIL_NO,
T2.COIL_THK,
MAX(T3.QLTY_DIR) QLTY_DIR,
MAX(DECODE(T4.QLTY_SIZE,
'A',
'10*10*55',
'B',
'10*7.5*55',
'C',
'10*5.0*55')) QLTY_SIZ,
MAX(T3.QLTY_TEM) QLTY_TEM,
MAX(DECODE(T1.QLTY_OPE_CD, 'A1', T1.QLTY_VAL, NULL)) A1,
MAX(DECODE(T1.QLTY_OPE_CD, 'A2', T1.QLTY_VAL, NULL)) A2,
MAX(DECODE(T1.QLTY_OPE_CD, 'A3', T1.QLTY_VAL, NULL)) A3
FROM TBB10_QLTY_OPE T1,
TBB10_QLTY_COIL T2,
TBB10_QLTY_CD T3,
tbb01_ord_qlty@xg3q t4,
C_TBC02_COIL_COMM@xg3q t5
WHERE T1.SMP_NO = T2.SMP_NO
AND T1.SMP_CUT_LOC = T2.SMP_CUT_LOC
AND T1.SMP_NO_TYPE = T2.SMP_NO_TYPE
and t4.ord_no = t5.ord_no
and t4.ord_seq = t5.ord_seq
and t5.smp_no = t1.smp_no
AND T1.QLTY_CD_2 IN ('PC', 'SC')
-- AND T3.QLTY_CD_2 IN ('PC' ,'SC')
AND T1.QLTY_CD = T3.QLTY_CD(+)
--and t1.smp_no = 'J81-06907A030XX'
AND INSTR(? , T2.COIL_NO) > 0
AND INSTR(? , T2.WEITO_NO) > 0
GROUP BY T2.COIL_STEEL_NO, T2.SPEC_STL_GRD, T2.COIL_NO, T2.COIL_THK
ORDER BY T2.COIL_STEEL_NO
SELECT DISTINCT
T2.QLTY_CD_2
,T2.QLTY_CD_2_NM
FROM TBB10_QLTY_OPE T1
,TBB10_QLTY_CD T2
WHERE T1.QLTY_CD_2 = T2.QLTY_CD_2
AND T1.SMP_NO = ?
AND T1.SMP_CUT_LOC = ?
AND T1.SMP_NO_TYPE = ?
AND T1.QLTY_CD_1 = ?
UNION
SELECT 'ALL'
,'全部'
FROM DUAL
UPDATE TBB10_QLTY_OPE T
SET T.EQUMT_ID = ?
WHERE T.SMP_NO = ?
AND T.SMP_CUT_LOC = ?
AND T.SMP_NO_TYPE = ?
AND T.QLTY_CD_2 = ?
AND T.QLTY_CD = ?
UPDATE TBB10_QLTY_OPE T
SET T.SMP_RMK = ?
WHERE T.SMP_NO = ?
AND T.SMP_CUT_LOC = ?
AND T.SMP_NO_TYPE = ?
AND T.QLTY_CD_2 = ?
AND T.QLTY_CD = ?
UPDATE TBB10_QLTY_COIL T
SET T.WEITO_NO = ?
WHERE T.WEITO_NO = ?
UPDATE TBB10_QLTY_OPE T
SET T.QLTY_VAL = NULL
WHERE T.SMP_NO = ?
AND T.SMP_CUT_LOC = ?
AND T.SMP_NO_TYPE = ?
AND T.QLTY_CD_2 = DECODE(? , 'ALL' , T.QLTY_CD_2 , ?)
AND T.QLTY_OPE_CD != 'Lo'
AND T.SMP_NO = (SELECT X.SMP_NO
FROM TBB02_LOT_COM@XG3Q X
WHERE X.SMP_NO = T.SMP_NO
AND X.SMP_PROG_CD = 'C')
{call JHY_QLTY_BASE.SAVE_WORK_VAL(?,?,?,?,?,?,?,?,?,?,?,?)}
{call JHY_QLTY_BASE.SEND_WORK_VAL(?,?,?,?,?,?)}
{call JHY_QLTY_BASE.SAVE_CHGE_CDS(?,?,?,?,?,?,?)}
{call JHY_QLTY_BASE.SAVE_STEEL_NO(?,?,?,?,?,?)}
{call JHY_QLTY_BASE.PLACE_ON_FILE(?,?,?) }