SELECT T.*,NVL(PLINE_CODE_W, PLINE_CODE) PLINE_CODE,NVL(PLINE_NAME_W, PLINE_NAME)PLINE_NAME,
(SELECT C.CRAFT_PATH
FROM CRAFT_ORD_DESIGN C
WHERE C.ORD_LN_PK = T.ORD_LN_PK
AND C.CRAFT_SEQ = T.CRAFT_SEQ) CRAFT_PATH
FROM (SELECT T.*, S.ORD_LN_PK
FROM PLN_ZY_RCL_M T, PLN_SALEORD S
WHERE T.ORD_LN_DLY_PK = S.ORD_LN_DLY_PK
AND (T.PER_STATUS >= '00' OR T.PER_STATUS IS NULL AND T.PLANSTATUS = '40')) T
WHERE 1 = 1
SELECT T.LOT_NO ZY_BATCH_ID, T.HEAT_NO JUDGE_STOVE_NO, T.CHECK_NO,DECODE(T.CRAFT_SOURCE,'0','生产样','1','首日检','3','生产预备样')CRAFT_SOURCE,
T.LOT_NO_GROUP,TO_CHAR(T.CONSIGN_TIME,'YYYY-MM-DD HH24:MI:SS')CONSIGN_TIME,T.CONSIGN_NAME,T.HEAT_PLAN_NO
FROM PIPE_CHECKCONSIGN_BASEINFO T
WHERE T.PROCESS_CODE = 'F'
AND T.CRAFT_SOURCE IN('0','1','3')
AND T.CHECK_COUNT = '0'
SELECT HEAT_PLAN_NO,
GX_PRO_SEQ,
ZY_BATCH_ID,
STOVE_NO,
JUDGE_STOVE_NO,
BATCH_NO,
PLANSTATUS,
PER_STATUS,
BESIDE_STATUS,
UPPER_HEATPLAN_ID,
PRO_PLAN_ID,
GX_PLAN_NO,
PLINE_CODE,
PLINE_NAME,
PROCESS_CODE_C,
PROCESS_DESC_C,
UPPER_PROCESS_CODE,
NEXT_PROCESS_CODE,
GOWHERE_CODE,
GOWHERE_NAME,
PROD_STANDARD,
OUTPUT_STANDARD,
ISENDGX,
IF_MATCH_ODD,
IF_DO_HEAT_PLAN,
ORDER_SOURCE,
ORD_LN_DLY_PK,
ORDER_NO ||'/'||ORDER_SEQ ORDER_NO,
ORDER_SEQ,
DELIVERY_NO,
REQ_BL_ID,
IF_EXPORT,
PRIORITY,
PRIORITY_MEMO,
PRO_MONTH,
PRO_DAY,
BAL_YEAR_MONTH,
IF_MONITOR,
PRDCR_NO,
MONITOR_POINT,
BOM,
WHOLE_BACKLOG,
WHOLE_BACKLOG_DESC,
STATION_ROAD,
CIC,
PIC,
SIC,
DIC,
CRAFT_FILE_NO,
CRAFT_FILE_MAN,
CRAFT_SEQ,
SEC_CRAFT_FILE_NO,
STEELCODE,
STEELNAME,
GRADECODE,
GRADENAME,
PRODUCCODE,
PRODUCNAME,
MODEL_CODE,
MODEL_DESC,
INWL_ID,
INWL_DESC,
OUTWL_ID,
OUTWL_DESC,
OUTDIAMETER,
WALLTHICK,
LENGTHMIN,
LENGTHMAX,
OUTDIAMETER_IN,
WALLTHICK_IN,
OUTNUM_CUT,
LENGTH_IN,
LENGTHMAX_IN,
LENGTHMIN_IN,
PLN_INSINGLE_NUM,
PLN_INSINGLE_WT,
PLN_INDOUBLE_NUM,
PLN_INDOUBLE_WT,
PLN_OUTSINGLE_NUM,
PLN_OUTSINGLE_W,
PLN_OUTDOUBLE_NUM,
PLN_OUTDOUBLE_W,
CREATE_NAME,
CREATE_TIME,
UPDATE_NAME,
UPDATE_TIME,
DOWNMAN,
DOWNTIME,
INDEX_SEQ,
SPEC_CODE,
SPEC_NAME,
STD_CODE,
STD_NAME,
STD_STYLE,
STD_STYLE_DESC,
DECISION,
PROCESS_SEQ,
IS_BATCH,
CHECK_NO,
FEED_HEAT_NO,
FLAG_STOVE_NO,
MEMO,
ZY_BATCH_ID_ZG,
REAL_PROCESS_SEQ,
HEAT_PLAN_NO_OLD,
IF_PRODUCT
FROM PLN_ZY_RCL_M T WHERE NVL(T.ZY_BATCH_ID,'/') = NVL(?,'/') AND T.JUDGE_STOVE_NO = ?
AND T.HEAT_PLAN_NO = ?
SELECT T.*
FROM CRAFT_SAMPLING_M T WHERE T.PROCESS_CODE = 'F'
AND T.ORD_LN_PK = ?
AND T.CRAFT_NO = ?
AND T.CRAFT_SEQ = ?
AND (T.STOVE_NUM = ? OR T.STOVE_NUM IS NULL)
SELECT T.*
FROM CRAFT_SAMPLING_DETAIL T WHERE T.PROCESS_CODE = 'F'
AND T.ORD_LN_PK = ?
AND T.CRAFT_NO = ?
AND T.CRAFT_SEQ = ?
SELECT NVL(MAX(SUBSTR(T.BATCH_NO,3,3)),0) + 1 BATCH_NO FROM HTT_CRACK_DETECTION_ET T WHERE T.HEAT_PLAN_NO = ? AND T.PLINE_CODE = ?
SELECT NVL(MAX(SUBSTR(S.BATCH_NO, 3, 3)), 0) + 1 BATCH_NO
FROM PIPE_CHECKCONSIGN_BASEINFO T, PIPE_CHECKCONSIGN_DETAIL S
WHERE T.CHECK_NO = S.CHECK_NO
AND T.HEAT_NO = ?
AND T.PLINE_CODE = ?
AND T.PROCESS_CODE = 'F'
AND T.CRAFT_SOURCE IN('0','1')
SELECT ROWNUM SEQ,
MAT_NO,
BAR_CODE,
SAMPLE_PIPE_LEN_A,
SAMPLE_PIPE_LEN_B,
SAMPLE_PIPE_LEN_C,
SAMPLE_PIPE_LEN_D,
SAMPLE_PIPE_LEN_M,
SAMPLE_PIPE_LEN_E,
SAMPLE_PIPE_LEN_F,
SAMPLE_PIPE_LEN_P,
SAMPLE_PIPE_LEN_Q,
HEAT_PLAN_NO,
JUDGE_STOVE_NO,
BATCH_NO,
PHY_BATCH_NO,
MAT_STATUS,
ACT_LEN,
IS_SAMPLE_PIPE,
IS_BATCH
FROM (SELECT T.MAT_NO,
T.BAR_CODE,
T.SAMPLE_PIPE_LEN_A,
T.SAMPLE_PIPE_LEN_B,
T.SAMPLE_PIPE_LEN_C,
T.SAMPLE_PIPE_LEN_D,
T.SAMPLE_PIPE_LEN_M,
T.SAMPLE_PIPE_LEN_E,
T.SAMPLE_PIPE_LEN_F,
T.SAMPLE_PIPE_LEN_P,
T.SAMPLE_PIPE_LEN_Q,
T.HEAT_PLAN_NO,
T.JUDGE_STOVE_NO,
T.PHY_BATCH_NO,
T.BATCH_NO,
T.ACT_LEN,
DECODE(T.MAT_STATUS, '00', '是', '否') MAT_STATUS,
T.IS_SAMPLE_PIPE,
T.IS_BATCH
FROM PORT_HTT_BATCH_SAMPLE_RESULT T
WHERE T.HEAT_PLAN_NO = ?
AND T.JUDGE_STOVE_NO = ?
AND (T.MAT_STATUS IN ('00','20') OR (T.MAT_STATUS = '10' AND T.OP_PROCESS NOT IN('600201','600202','600203','600204')))
AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
ORDER BY NVL(T.PHY_BATCH_NO,'99999'),T.MAT_STATUS,T.MAT_NO ASC)
SELECT COUNT(1) ACOUNT
FROM PORT_HTT_BATCH_SAMPLE_RESULT T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.PHY_BATCH_NO IS NULL
AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO)
AND (T.MAT_STATUS IN ('00','20') OR (T.MAT_STATUS = '10' AND T.OP_PROCESS NOT IN('600201','600202','600203','600204')))
AND T.MAT_NO = '#MAT_NO#'
SELECT ROWNUM SEQ,
MAT_NO,
BAR_CODE,
SAMPLE_PIPE_LEN_A,
SAMPLE_PIPE_LEN_B,
SAMPLE_PIPE_LEN_C,
SAMPLE_PIPE_LEN_D,
SAMPLE_PIPE_LEN_M,
SAMPLE_PIPE_LEN_E,
SAMPLE_PIPE_LEN_F,
SAMPLE_PIPE_LEN_P,
SAMPLE_PIPE_LEN_Q,
HEAT_PLAN_NO,
JUDGE_STOVE_NO,
BATCH_NO,
PHY_BATCH_NO,
MAT_STATUS,
ACT_LEN,
IS_SAMPLE_PIPE,
IS_BATCH
FROM (SELECT T.MAT_NO,
T.BAR_CODE,
'' SAMPLE_PIPE_LEN_A,
'' SAMPLE_PIPE_LEN_B,
'' SAMPLE_PIPE_LEN_C,
'' SAMPLE_PIPE_LEN_D,
'' SAMPLE_PIPE_LEN_M,
'' SAMPLE_PIPE_LEN_E,
'' SAMPLE_PIPE_LEN_F,
'' SAMPLE_PIPE_LEN_P,
'' SAMPLE_PIPE_LEN_Q,
T.HEAT_PLAN_NO,
T.JUDGE_STOVE_NO,
T.PHY_BATCH_NO,
T.BATCH_NO,
T.ACT_LEN,
DECODE(T.MAT_STATUS, '00', '是', '否') MAT_STATUS,
T.IS_SAMPLE_PIPE,
T.IS_BATCH
FROM PORT_HTT_BATCH_SAMPLE_RESULT T
WHERE T.HEAT_PLAN_NO = ?
AND T.JUDGE_STOVE_NO = ?
AND T.MAT_STATUS IN ('00','20')
--AND (T.MAT_STATUS IN ('00','20') OR (T.MAT_STATUS = '10' AND T.OP_PROCESS NOT IN('600201','600202','600203','600204')))
AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
ORDER BY NVL(T.PHY_BATCH_NO,'99999'),T.MAT_STATUS,T.MAT_NO ASC)
SELECT ROWNUM SEQ,
MAT_NO,
SAMPLE_PIPE_LEN_A,
SAMPLE_PIPE_LEN_B,
SAMPLE_PIPE_LEN_C,
SAMPLE_PIPE_LEN_D,
SAMPLE_PIPE_LEN_M,
SAMPLE_PIPE_LEN_E,
SAMPLE_PIPE_LEN_F,
SAMPLE_PIPE_LEN_P,
SAMPLE_PIPE_LEN_Q,
HEAT_PLAN_NO,
JUDGE_STOVE_NO,
BATCH_NO,
PHY_BATCH_NO,
MAT_STATUS,
ACT_LEN,
IS_SAMPLE_PIPE,
IS_BATCH
FROM (SELECT T.MAT_NO,
T.SAMPLE_PIPE_LEN_A,
T.SAMPLE_PIPE_LEN_B,
T.SAMPLE_PIPE_LEN_C,
T.SAMPLE_PIPE_LEN_D,
T.SAMPLE_PIPE_LEN_M,
T.SAMPLE_PIPE_LEN_E,
T.SAMPLE_PIPE_LEN_F,
T.SAMPLE_PIPE_LEN_P,
T.SAMPLE_PIPE_LEN_Q,
T.HEAT_PLAN_NO,
T.JUDGE_STOVE_NO,
T.PHY_BATCH_NO,
T.BATCH_NO,
T.ACT_LEN,
DECODE(T.MAT_STATUS, '00', '是', '否') MAT_STATUS,
T.IS_SAMPLE_PIPE,
T.IS_BATCH
FROM PORT_HTT_BATCH_SAMPLE_RESULT T
WHERE
--T.HEAT_PLAN_NO = ?
-- AND
T.JUDGE_STOVE_NO = ?
AND T.PHY_BATCH_NO = ?
AND (T.MAT_STATUS IN ('00','20') OR (T.MAT_STATUS = '10' AND T.OP_PROCESS NOT IN('600201','600202','600203','600204')))
AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
ORDER BY NVL(T.PHY_BATCH_NO,'99999'),T.MAT_STATUS,T.MAT_NO ASC)
SELECT T.BASENAME, T.BASECODE
FROM COM_BASE_INFO T
WHERE T.BASECODE IN ('401201', '401202', '401217', '401218', '401219',
'401220', '401221', '401222', '401223')
ORDER BY T.BASECODE
UPDATE PLN_ZY_RCL_M T
SET T.IS_BATCH = '#IS_BATCH#'
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
SELECT NVL(T.PHY_BATCH_NO,'/')PHY_BATCH_NO FROM PORT_HTT_BATCH_SAMPLE_RESULT T WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.MAT_NO = '#MAT_NO#'
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.IS_SAMPLE_PIPE = '#IS_SAMPLE_PIPE#',
T.PHY_BATCH_NO = '#PHY_BATCH_NO#',
T.SAMPLE_PIPE_LEN_A = '#SAMPLE_PIPE_LEN_A#',
T.PHY_CODE_GROUP = '#PHY_CODE_GROUP#',
T.SAMPLE_PIPE_LEN_B = '#SAMPLE_PIPE_LEN_B#',
T.PHY_CODE_GROUPB = '#PHY_CODE_GROUPB#',
T.SAMPLE_PIPE_LEN_C = '#SAMPLE_PIPE_LEN_C#',
T.PHY_CODE_GROUPC = '#PHY_CODE_GROUPC#',
T.SAMPLE_PIPE_LEN_D = '#SAMPLE_PIPE_LEN_D#',
T.PHY_CODE_GROUPD = '#PHY_CODE_GROUPD#',
T.SAMPLE_PIPE_LEN_M = '#SAMPLE_PIPE_LEN_M#',
T.PHY_CODE_GROUPM = '#PHY_CODE_GROUPM#',
T.SAMPLE_PIPE_LEN_E = '#SAMPLE_PIPE_LEN_E#',
T.PHY_CODE_GROUPE = '#PHY_CODE_GROUPE#',
T.SAMPLE_PIPE_LEN_F = '#SAMPLE_PIPE_LEN_F#',
T.PHY_CODE_GROUPF = '#PHY_CODE_GROUPF#',
T.SAMPLE_PIPE_LEN_P = '#SAMPLE_PIPE_LEN_P#',
T.PHY_CODE_GROUPP = '#PHY_CODE_GROUPP#',
T.SAMPLE_PIPE_LEN_Q = '#SAMPLE_PIPE_LEN_Q#',
T.PHY_CODE_GROUPQ = '#PHY_CODE_GROUPQ#',
T.CRAFT_SOURCE = '#CRAFT_SOURCE#',
T.SAMPLE_PIPE_LEN = TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_A#',0))+TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_B#',0))+TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_C#',0))+TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_D#',0)) + TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_M#',0))+ TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_E#',0))+ TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_F#',0))+ TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_P#',0))+ TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_Q#',0)),
T.GET_SAMPLE_NAME = '#GET_SAMPLE_NAME#',
T.GET_SAMPLE_TIME = TO_DATE('#GET_SAMPLE_TIME#','YYYY-MM-DD HH24:MI:SS'),
T.GET_SAMPLE_SHIFT = '#GET_SAMPLE_SHIFT#',
T.GET_SAMPLE_CLASS = '#GET_SAMPLE_CLASS#',
T.IS_BATCH = '#IS_BATCH#'
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.MAT_NO = '#MAT_NO#'
AND T.IS_SAMPLE_PIPE = '0'
AND T.IS_BATCH = '0'
AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.IS_SAMPLE_PIPE = '#IS_SAMPLE_PIPE#',
#LEN# = TO_NUMBER(NVL(#LEN#,0)) + TO_NUMBER('##PIPE_LEN##'),
T.CRAFT_SOURCE = '#CRAFT_SOURCE#',
T.SAMPLE_PIPE_LEN = TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN,0))+TO_NUMBER(NVL('##PIPE_LEN##',0)),
T.GET_SAMPLE_NAME = '#GET_SAMPLE_NAME#',
T.GET_SAMPLE_TIME = TO_DATE('#GET_SAMPLE_TIME#','YYYY-MM-DD HH24:MI:SS'),
T.GET_SAMPLE_SHIFT = '#GET_SAMPLE_SHIFT#',
T.GET_SAMPLE_CLASS = '#GET_SAMPLE_CLASS#',
T.IS_BATCH = '#IS_BATCH#'
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.MAT_NO = '#MAT_NO#'
--AND T.IS_BATCH = '0'
--AND T.IS_SAMPLE_PIPE = '0'
AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET
T.PHY_BATCH_NO = '#PHY_BATCH_NO#'
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.MAT_NO = '#MAT_NO#'
AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
AND T.PHY_BATCH_NO IS NULL
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET
T.PHY_BATCH_NO = ''
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.MAT_NO = '#MAT_NO#'
AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
SELECT T.IS_BATCH FROM PLN_ZY_RCL_M T WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#' AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
DECLARE
BEGIN
UPDATE PLN_ZY_RCL_M T
SET T.IS_BATCH = '0'
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
FOR MYROW IN (SELECT *
FROM PORT_HTT_BATCH_SAMPLE_RESULT T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
AND T.SAMPLE_PIPE_LEN_M IS NOT NULL) LOOP
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.ACT_LEN = T.ACT_LEN * 2,
T.ACT_WEIGHT = T.ACT_WEIGHT * 2,
T.ACT_THEORY_WEIGHT = T.ACT_THEORY_WEIGHT * 2
WHERE T.MAT_NO = MYROW.MAT_NO
AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO );
DELETE FROM PORT_HTT_BATCH_SAMPLE_RESULT T
WHERE T.MAT_NO_OLD = MYROW.MAT_NO;
END LOOP;
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.PHY_BATCH_NO = '',
T.IS_SAMPLE_PIPE = '0',
T.SAMPLE_PIPE_LEN = TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN,0)) - TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_A,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_B,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_C,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_D,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_E,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_F,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_P,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_Q,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_M,0)),
T.SAMPLE_PIPE_LEN_A = '',
T.SAMPLE_PIPE_LEN_B = '',
T.SAMPLE_PIPE_LEN_C = '',
T.SAMPLE_PIPE_LEN_D = '',
T.SAMPLE_PIPE_LEN_E = '',
T.SAMPLE_PIPE_LEN_F = '',
T.SAMPLE_PIPE_LEN_P = '',
T.SAMPLE_PIPE_LEN_Q = '',
T.PHY_CODE_GROUPC = '',
T.PHY_CODE_GROUPD = '',
T.PHY_CODE_GROUPE = '',
T.PHY_CODE_GROUPF = '',
T.PHY_CODE_GROUPP = '',
T.PHY_CODE_GROUPQ = '',
T.SAMPLE_PIPE_LEN_M = '',
T.PHY_CODE_GROUPM = '',
T.GET_SAMPLE_NAME = '',
T.GET_SAMPLE_TIME = '',
T.GET_SAMPLE_SHIFT = '',
T.GET_SAMPLE_CLASS = '',
T.IS_BATCH = '0',
T.CRAFT_SOURCE = '0'
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO );
END;
SELECT COUNT(1)ACOUNT
FROM PORT_HTT_BATCH_SAMPLE_RESULT T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.PHY_BATCH_NO >= '#PHY_BATCH_NO#'
AND T.IS_SAMPLE_PIPE = '1'
SELECT COUNT(1)ACOUNT
FROM PORT_HTT_BATCH_SAMPLE_RESULT T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.PHY_BATCH_NO = '#PHY_BATCH_NO#'
AND T.CHECK_NO IS NOT NULL
SELECT COUNT(1)ACOUNT
FROM PORT_HTT_BATCH_SAMPLE_RESULT T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.CHECK_NO IS NOT NULL
DECLARE
BEGIN
UPDATE PLN_ZY_RCL_M T
SET T.IS_BATCH = '1'
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.PHY_BATCH_NO = '',T.IS_BATCH = '0',T.BAR_CODE = ''
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.PHY_BATCH_NO >= '#PHY_BATCH_NO#'
AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO );
END;
DECLARE
ACOUNT PORT_HTT_BATCH_SAMPLE_RESULT.ACT_COUNT%TYPE := NULL;
BEGIN
FOR MYROW IN (SELECT *
FROM PORT_HTT_BATCH_SAMPLE_DETIAL T1
WHERE T1.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T1.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T1.BATCH_NO = '#BATCH_NO#'
AND T1.CHECK_NO IS NULL) LOOP
IF (MYROW.SAMPLE_PIPE_POSTION = 'M端') THEN
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.ACT_LEN = T.ACT_LEN * 2,
T.ACT_WEIGHT = T.ACT_WEIGHT * 2,
T.ACT_THEORY_WEIGHT = T.ACT_THEORY_WEIGHT * 2,
T.SAMPLE_PIPE_LEN = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'',
TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0))),
T.SAMPLE_PIPE_LEN_M = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_M,
0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'',
TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_M,
0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0))),
T.IS_SAMPLE_PIPE = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'0',
'1')
WHERE T.MAT_NO = MYROW.MAT_NO
AND T.PROCESS_SEQ =
(SELECT REAL_PROCESS_SEQ
FROM PLN_ZY_RCL_M
WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO);
DELETE FROM PORT_HTT_BATCH_SAMPLE_RESULT T
WHERE T.MAT_NO_OLD = MYROW.MAT_NO;
ELSIF (MYROW.SAMPLE_PIPE_POSTION = 'A端') THEN
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.SAMPLE_PIPE_LEN = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'',
TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0))),
T.SAMPLE_PIPE_LEN_A = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_A,
0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'',
TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_A,
0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0))),
T.IS_SAMPLE_PIPE = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'0',
'1')
WHERE T.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO
AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND T.PHY_BATCH_NO = MYROW.BATCH_NO
AND T.PROCESS_SEQ =
(SELECT REAL_PROCESS_SEQ
FROM PLN_ZY_RCL_M
WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO)
AND T.MAT_NO = MYROW.MAT_NO;
ELSIF (MYROW.SAMPLE_PIPE_POSTION = 'B端') THEN
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.SAMPLE_PIPE_LEN = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'',
TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0))),
T.SAMPLE_PIPE_LEN_B = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_B,
0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'',
TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_B,
0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0))),
T.IS_SAMPLE_PIPE = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'0',
'1')
WHERE T.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO
AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND T.PHY_BATCH_NO = MYROW.BATCH_NO
AND T.PROCESS_SEQ =
(SELECT REAL_PROCESS_SEQ
FROM PLN_ZY_RCL_M
WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO)
AND T.MAT_NO = MYROW.MAT_NO;
ELSIF (MYROW.SAMPLE_PIPE_POSTION = 'C端') THEN
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.SAMPLE_PIPE_LEN = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'',
TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0))),
T.SAMPLE_PIPE_LEN_C = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_C,
0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'',
TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_C,
0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0))),
T.IS_SAMPLE_PIPE = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'0',
'1')
WHERE T.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO
AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND T.PHY_BATCH_NO = MYROW.BATCH_NO
AND T.PROCESS_SEQ =
(SELECT REAL_PROCESS_SEQ
FROM PLN_ZY_RCL_M
WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO)
AND T.MAT_NO = MYROW.MAT_NO;
ELSIF (MYROW.SAMPLE_PIPE_POSTION = 'D端') THEN
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.SAMPLE_PIPE_LEN = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'',
TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0))),
T.SAMPLE_PIPE_LEN_D = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_D,
0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'',
TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_D,
0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0))),
T.IS_SAMPLE_PIPE = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'0',
'1')
WHERE T.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO
AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND T.PHY_BATCH_NO = MYROW.BATCH_NO
AND T.PROCESS_SEQ =
(SELECT REAL_PROCESS_SEQ
FROM PLN_ZY_RCL_M
WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO)
AND T.MAT_NO = MYROW.MAT_NO;
ELSIF (MYROW.SAMPLE_PIPE_POSTION = 'E端') THEN
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.SAMPLE_PIPE_LEN = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'',
TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0))),
T.SAMPLE_PIPE_LEN_E = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_E,
0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'',
TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_E,
0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0))),
T.IS_SAMPLE_PIPE = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'0',
'1')
WHERE T.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO
AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND T.PHY_BATCH_NO = MYROW.BATCH_NO
AND T.PROCESS_SEQ =
(SELECT REAL_PROCESS_SEQ
FROM PLN_ZY_RCL_M
WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO)
AND T.MAT_NO = MYROW.MAT_NO;
ELSIF (MYROW.SAMPLE_PIPE_POSTION = 'F端') THEN
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.SAMPLE_PIPE_LEN = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'',
TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0))),
T.SAMPLE_PIPE_LEN_F = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_F,
0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'',
TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_F,
0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0))),
T.IS_SAMPLE_PIPE = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'0',
'1')
WHERE T.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO
AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND T.PHY_BATCH_NO = MYROW.BATCH_NO
AND T.PROCESS_SEQ =
(SELECT REAL_PROCESS_SEQ
FROM PLN_ZY_RCL_M
WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO)
AND T.MAT_NO = MYROW.MAT_NO;
ELSIF (MYROW.SAMPLE_PIPE_POSTION = 'P端') THEN
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.SAMPLE_PIPE_LEN = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'',
TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0))),
T.SAMPLE_PIPE_LEN_P = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_P,
0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'',
TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_P,
0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0))),
T.IS_SAMPLE_PIPE = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'0',
'1')
WHERE T.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO
AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND T.PHY_BATCH_NO = MYROW.BATCH_NO
AND T.PROCESS_SEQ =
(SELECT REAL_PROCESS_SEQ
FROM PLN_ZY_RCL_M
WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO)
AND T.MAT_NO = MYROW.MAT_NO;
ELSIF (MYROW.SAMPLE_PIPE_POSTION = 'Q端') THEN
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.SAMPLE_PIPE_LEN = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'',
TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0))),
T.SAMPLE_PIPE_LEN_Q = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_Q,
0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'',
TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_Q,
0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0))),
T.IS_SAMPLE_PIPE = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
0)),
0,
'0',
'1')
WHERE T.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO
AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND T.PHY_BATCH_NO = MYROW.BATCH_NO
AND T.PROCESS_SEQ =
(SELECT REAL_PROCESS_SEQ
FROM PLN_ZY_RCL_M
WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO)
AND T.MAT_NO = MYROW.MAT_NO;
END IF;
DELETE FROM PORT_HTT_BATCH_SAMPLE_DETIAL T
WHERE T.PHYDETAIL_ID = MYROW.PHYDETAIL_ID;
END LOOP;
SELECT COUNT(1)
INTO ACOUNT
FROM PORT_HTT_BATCH_SAMPLE_RESULT T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.IS_SAMPLE_PIPE = '1';
IF (ACOUNT > 0) THEN
UPDATE PLN_ZY_RCL_M T
SET T.IS_BATCH = '2'
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
ELSE
UPDATE PLN_ZY_RCL_M T
SET T.IS_BATCH = '1'
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
END IF;
END;
SELECT T.MAT_NO,T.BATCH_NO PHY_BATCH_NO,T.SAMPLE_PIPE_LEN,T.SAMPLE_PIPE_POSTION SAMPLE_POSTION,T.PHY_CODE_GROUP
FROM PORT_HTT_BATCH_SAMPLE_DETIAL T
WHERE NVL(T.LOT_NO, '/') = NVL(?, '/')
AND T.JUDGE_STOVE_NO = ?
AND T.CRAFT_SOURCE = ?
AND T.IS_BATCH = '2'
SELECT T.DESGIN_KEY,
T.CIC,
T.USE_CODE,
T.USE_DESC,
T.SPECL_FL,
T.INDEX_SEQ,
T.CHEM_CODE,
T.CHEM_NAME,
T.CHEM_TYPE,
T.CHEM_FORMULA,
T.ISCHECK,
T.ISJUDGE,
T.ISQUOTE,
T.COMPLEX_TYPE,
T.STDMIN_SIGN,
T.STDMIN,
T.STDMAX_SIGN,
T.STDMAX,
T.STDTARGET,
T.MODEL_CODE,
T.MODEL_DESC,
T.STDMEMO,
T.ELE_CODE,
T.ELE_NAME,
T.ELE_MIN_SIGN,
T.ELE_MIN,
T.ELE_MAX_SIGN,
T.ELE_MAX,
T.SIZE_CODE2,
T.SIZE_NAME2,
T.SIZE_MIN_SIGN2,
T.SIZE_MIN2,
T.SIZE_MAX_SIGN2,
T.SIZE_MAX2,
T.SIZE_CODE,
T.SIZE_NAME,
T.SIZE_MIN_SIGN,
T.SIZE_MIN,
T.SIZE_MAX_SIGN,
T.SIZE_MAX,
T.SPEC_JG,
T.SPEC_JG_DESC,
T.REP_CODE,
T.REP_NAME,
T.REP_MIN_SIGN,
T.REP_MIN,
T.REP_MAX_SIGN,
T.REP_MAX,
T.REP_VAL
FROM PLN_ZY_RCL_M S,
PLN_SALEORD T2,
CRAFT_ORD_DESIGN T3,
CRAFT_ORD_DESIGN_STD_CIC T
WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
AND T2.ORD_LN_PK = T3.ORD_LN_PK
AND T3.CRAFT_SEQ = S.CRAFT_SEQ
AND T3.DESGIN_KEY = T.DESGIN_KEY
AND T.MSC_PLINE = S.INDEX_SEQ
AND T.CHEM_TYPE = 'A'
AND (S.CIC = T.CIC AND S.IF_PRODUCT = '1' OR T.CRAFT_SOURCE = '2')
AND (T.ISCHECK = '1' OR T.ISJUDGE = '1')
AND T.PROCESS_CODE = 'A'
AND T.CRAFT_SOURCE = ?
AND S.PRO_PLAN_ID = ?
AND S.GX_PLAN_NO = ?
AND S.JUDGE_STOVE_NO = ?
AND S.HEAT_PLAN_NO = ?
SELECT T.DESGIN_KEY,
T.CIC,
T.USE_CODE,
T.USE_DESC,
T.SPECL_FL,
T.INDEX_SEQ,
T.CHEM_CODE,
T.CHEM_NAME,
T.CHEM_TYPE,
T.CHEM_FORMULA,
T.ISCHECK,
T.ISJUDGE,
T.ISQUOTE,
T.COMPLEX_TYPE,
T.STDMIN_SIGN,
T.STDMIN,
T.STDMAX_SIGN,
T.STDMAX,
T.STDTARGET,
T.MODEL_CODE,
T.MODEL_DESC,
T.STDMEMO,
T.ELE_CODE,
T.ELE_NAME,
T.ELE_MIN_SIGN,
T.ELE_MIN,
T.ELE_MAX_SIGN,
T.ELE_MAX,
T.SIZE_CODE2,
T.SIZE_NAME2,
T.SIZE_MIN_SIGN2,
T.SIZE_MIN2,
T.SIZE_MAX_SIGN2,
T.SIZE_MAX2,
T.SIZE_CODE,
T.SIZE_NAME,
T.SIZE_MIN_SIGN,
T.SIZE_MIN,
T.SIZE_MAX_SIGN,
T.SIZE_MAX,
T.SPEC_JG,
T.SPEC_JG_DESC,
T.REP_CODE,
T.REP_NAME,
T.REP_MIN_SIGN,
T.REP_MIN,
T.REP_MAX_SIGN,
T.REP_MAX,
T.REP_VAL
FROM PLN_ZY_RCL_M S,
PLN_SALEORD T2,
CRAFT_ORD_DESIGN T3,
CRAFT_ORD_DESIGN_STD_CIC T
WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
AND T2.ORD_LN_PK = T3.ORD_LN_PK
AND T3.CRAFT_SEQ = S.CRAFT_SEQ
AND T3.DESGIN_KEY = T.DESGIN_KEY
AND T.MSC_PLINE = S.INDEX_SEQ
AND T.CHEM_TYPE = 'A'
AND S.CIC = T.CIC
AND S.IF_PRODUCT = '1'
AND T.CHEM_CODE NOT IN ('C012', 'C013', 'C014')
AND (T.ISCHECK = '1' OR T.ISJUDGE = '1')
AND T.PROCESS_CODE = 'A'
AND T.CRAFT_SOURCE = '0'
AND S.PRO_PLAN_ID = ?
AND S.GX_PLAN_NO = ?
AND S.JUDGE_STOVE_NO = ?
AND S.HEAT_PLAN_NO = ?
UNION ALL
SELECT T.DESGIN_KEY,
T.CIC,
T.USE_CODE,
T.USE_DESC,
T.SPECL_FL,
T.INDEX_SEQ,
T.CHEM_CODE,
T.CHEM_NAME,
T.CHEM_TYPE,
T.CHEM_FORMULA,
T.ISCHECK,
T.ISJUDGE,
T.ISQUOTE,
T.COMPLEX_TYPE,
T.STDMIN_SIGN,
T.STDMIN,
T.STDMAX_SIGN,
T.STDMAX,
T.STDTARGET,
T.MODEL_CODE,
T.MODEL_DESC,
T.STDMEMO,
T.ELE_CODE,
T.ELE_NAME,
T.ELE_MIN_SIGN,
T.ELE_MIN,
T.ELE_MAX_SIGN,
T.ELE_MAX,
T.SIZE_CODE2,
T.SIZE_NAME2,
T.SIZE_MIN_SIGN2,
T.SIZE_MIN2,
T.SIZE_MAX_SIGN2,
T.SIZE_MAX2,
T.SIZE_CODE,
T.SIZE_NAME,
T.SIZE_MIN_SIGN,
T.SIZE_MIN,
T.SIZE_MAX_SIGN,
T.SIZE_MAX,
T.SPEC_JG,
T.SPEC_JG_DESC,
T.REP_CODE,
T.REP_NAME,
T.REP_MIN_SIGN,
T.REP_MIN,
T.REP_MAX_SIGN,
T.REP_MAX,
T.REP_VAL
FROM PLN_ZY_RCL_M S,
PLN_SALEORD T2,
CRAFT_ORD_DESIGN T3,
CRAFT_ORD_DESIGN_STD_CIC T
WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
AND T2.ORD_LN_PK = T3.ORD_LN_PK
AND T3.CRAFT_SEQ = S.CRAFT_SEQ
AND T3.DESGIN_KEY = T.DESGIN_KEY
AND T.CHEM_TYPE = 'A'
AND S.IF_PRODUCT = '1'
AND T.CHEM_CODE IN ('C012', 'C013', 'C014')
AND (T.ISCHECK = '1' OR T.ISJUDGE = '1')
AND T.SPECL_FL = '1'
AND S.PRO_PLAN_ID = ?
AND S.GX_PLAN_NO = ?
AND S.JUDGE_STOVE_NO = ?
AND S.HEAT_PLAN_NO = ?
UNION ALL
SELECT T.DESGIN_KEY,
T.CIC,
T.USE_CODE,
T.USE_DESC,
T.SPECL_FL,
T.INDEX_SEQ,
T.CHEM_CODE,
T.CHEM_NAME,
T.CHEM_TYPE,
T.CHEM_FORMULA,
T.ISCHECK,
T.ISJUDGE,
T.ISQUOTE,
T.COMPLEX_TYPE,
T.STDMIN_SIGN,
T.STDMIN,
T.STDMAX_SIGN,
T.STDMAX,
T.STDTARGET,
T.MODEL_CODE,
T.MODEL_DESC,
T.STDMEMO,
T.ELE_CODE,
T.ELE_NAME,
T.ELE_MIN_SIGN,
T.ELE_MIN,
T.ELE_MAX_SIGN,
T.ELE_MAX,
T.SIZE_CODE2,
T.SIZE_NAME2,
T.SIZE_MIN_SIGN2,
T.SIZE_MIN2,
T.SIZE_MAX_SIGN2,
T.SIZE_MAX2,
T.SIZE_CODE,
T.SIZE_NAME,
T.SIZE_MIN_SIGN,
T.SIZE_MIN,
T.SIZE_MAX_SIGN,
T.SIZE_MAX,
T.SPEC_JG,
T.SPEC_JG_DESC,
T.REP_CODE,
T.REP_NAME,
T.REP_MIN_SIGN,
T.REP_MIN,
T.REP_MAX_SIGN,
T.REP_MAX,
T.REP_VAL
FROM PLN_ZY_RCL_M S,
PLN_SALEORD T2,
CRAFT_ORD_DESIGN T3,
CRAFT_ORD_DESIGN_STD_CIC T
WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
AND T2.ORD_LN_PK = T3.ORD_LN_PK
AND T3.CRAFT_SEQ = S.CRAFT_SEQ
AND T3.DESGIN_KEY = T.DESGIN_KEY
AND T.CHEM_TYPE = 'A'
AND S.IF_PRODUCT = '1'
AND T.CHEM_CODE IN ('C012', 'C013', 'C014')
AND T.SPECL_FL = '0'
AND (T.ISCHECK = '1' OR T.ISJUDGE = '1')
AND NOT EXISTS (SELECT 1
FROM CRAFT_ORD_DESIGN_STD_CIC E2
WHERE E2.CHEM_CODE = T.CHEM_CODE
AND E2.DESGIN_KEY = T.DESGIN_KEY
AND E2.SPECL_FL = '1')
AND S.IF_PRODUCT = '1'
AND S.PRO_PLAN_ID = ?
AND S.GX_PLAN_NO = ?
AND S.JUDGE_STOVE_NO = ?
AND S.HEAT_PLAN_NO = ?
SELECT *
FROM (SELECT T.DESGIN_KEY,
T.PIC,
T.SPECL_FL,
T.INDEX_SEQ,
T.PHY_CODE_MAX,
T.PHY_NAME_MAX,
(SELECT A.PHY_DEPTID
FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
WHERE T.PHY_CODE_MIN = B.PHY_CODE
AND A.PHY_CODE = B.PHY_TYPE_M
AND A.VALIDFLAG = '1'
AND B.VALIDFLAG = '1') DEPT_ID,
T.PHY_CODE_MIN,
T.PHY_NAME_MIN,
T.PHY_CODE_MIN ||
NVL2(S1.SPLINE_ITEM_CODE_F, '_' || S1.SPLINE_ITEM_CODE_F, S1.SPLINE_ITEM_CODE_S) ||
NVL2(T.ITEM_CODE_W, '_' || T.ITEM_CODE_W, S1.SPLINE_ITEM_CODE_S) ||
NVL2(S1.SPLINE_ITEM_CODE_S, '_' || S1.SPLINE_ITEM_CODE_S, S1.SPLINE_ITEM_CODE_S) SAMPLE_KEY, --试样组方向温度尺寸
T.PHY_NAME_MIN ||
NVL2(S1.SPLINE_ITEM_NAME_F, '_' || S1.SPLINE_ITEM_NAME_F, S1.SPLINE_ITEM_NAME_F) ||
NVL2(T.ITEM_NAME_W, '_' || T.ITEM_NAME_W, T.ITEM_NAME_W) ||
NVL2(S1.SPLINE_ITEM_NAME_S, '_' || S1.SPLINE_ITEM_NAME_S, S1.SPLINE_ITEM_NAME_S) SAMPLE_KEY_DESC, --试样组描述
T.PHY_CODE,
T.PHY_NAME,
(SELECT D.ORDER_SEQ FROM COM_BASE_PHY D WHERE D.PHY_CODE = T.PHY_CODE)ORDER_SEQ,
T.ITEM_CODE_F,
T.ITEM_NAME_F,
T.ITEM_CODE_W,
T.ITEM_NAME_W,
T.ITEM_CODE_S,
T.ITEM_NAME_S,
S1.RATE,
S1.DESC_RATE,
S1.SPLINE_ITEM_CODE_S,
S1.SPLINE_ITEM_NAME_S,
S1.SPLINE_ITEM_CODE_F,
S1.SPLINE_ITEM_NAME_F,
S1.COMMON,
T.GROUP_SEQ,
T.ISCHECK,
T.ISQUOTE,
T.RESULT_COUNT,
T.ISJUDGE,
T.PHY_TYPE,
T.PHY_FORMULA,
T.STDMIN_SIGN,
T.STDMIN,
T.STDMAX_SIGN,
T.STDMAX,
T.JUDGE_BASIS,
T.DELIVERYSTATE,
T.MODEL_CODE,
T.MODEL_DESC,
T.STDMEMO,
T.SIZE_CODE,
T.SIZE_NAME,
T.SIZE_MIN_SIGN,
T.SIZE_MIN,
T.SIZE_MAX_SIGN,
T.SIZE_MAX,
T.SIZE_CODE2,
T.SIZE_NAME2,
T.SIZE_MIN_SIGN2,
T.SIZE_MIN2,
T.SIZE_MAX_SIGN2,
T.SIZE_MAX2,
T.SPEC_JG,
T.SPEC_JG_DESC,
T.ADDCONDITION,
T.ADDSTDCON_CODE,
T.ADDSTD_MIN_SIGN,
T.ADDSTD_MIN,
T.ADDSTD_MAX_SIGN,
T.ADDSTD_MAX,
T.ADDPERCENT,
T.STDMIN_SIGN2,
T.STDMIN2,
T.STDMAX_SIGN2,
T.STDMAX2,
T.STD_CHOOSE,
T.BILLET_SAMPLE,
(SELECT DISTINCT PHY_UNIT
FROM COM_BASE_PHY T5
WHERE T5.VALIDFLAG = '1'
AND T5.PHY_CODE = T.PHY_CODE) PHY_UNIT,
ROW_NUMBER() OVER(PARTITION BY T.DESGIN_KEY, T.PHY_CODE_MAX, T.PHY_CODE_MIN, T.PHY_CODE, T.ITEM_CODE_F, T.ITEM_CODE_W, T.ITEM_CODE_S ORDER BY T.SPECL_FL DESC) RN
FROM PLN_ZY_RCL_M S,
PLN_SALEORD T2,
CRAFT_ORD_DESIGN T3,
CRAFT_ORD_DESIGN_STD_PIC T,
CRAFT_ORD_DESIGN_STD_PIC_SMP S1
WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
AND T2.ORD_LN_PK = T3.ORD_LN_PK
AND T3.CRAFT_SEQ = S.CRAFT_SEQ
AND T3.DESGIN_KEY = T.DESGIN_KEY
AND T.MSC_PLINE = S.INDEX_SEQ
AND (T.PIC = S.PIC OR T.CRAFT_SOURCE = '2')
AND T.DESGIN_KEY = S1.DESGIN_KEY
AND T.PHY_CODE_MIN = S1.PHY_CODE_MIN
AND NVL(T.ITEM_CODE_F,'1') = NVL(S1.ITEM_CODE_F,'1')
AND NVL(T.ITEM_CODE_W,'1') = NVL(S1.ITEM_CODE_W,'1')
AND NVL(T.ITEM_CODE_S,'1') = NVL(S1.ITEM_CODE_C,'1')
AND T.PROCESS_CODE = 'F'
AND T.CRAFT_SOURCE = ?
AND S.PRO_PLAN_ID = ?
AND S.GX_PLAN_NO = ?
AND S.JUDGE_STOVE_NO = ?
AND T.PIC = ?
AND S1.CRAFT_SOURCE = ?) T
WHERE RN = '1'
--ORDER BY T.PHY_CODE_MAX,
-- T.PHY_CODE_MIN,
-- T.PHY_CODE,
-- T.ITEM_CODE_F,
-- T.ITEM_CODE_W,
-- T.ITEM_CODE_S
SELECT *
FROM (SELECT T.DESGIN_KEY,
T.PIC,
T.SPECL_FL,
T.INDEX_SEQ,
T.PHY_CODE_MAX,
T.PHY_NAME_MAX,
(SELECT A.PHY_DEPTID
FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
WHERE T.PHY_CODE_MIN = B.PHY_CODE
AND A.PHY_CODE = B.PHY_TYPE_M
AND A.VALIDFLAG = '1'
AND B.VALIDFLAG = '1') DEPT_ID,
T.PHY_CODE_MIN,
T.PHY_NAME_MIN,
T.PHY_CODE_MIN ||
NVL2(S1.SPLINE_ITEM_CODE_F, '_' || S1.SPLINE_ITEM_CODE_F, S1.SPLINE_ITEM_CODE_S) ||
NVL2(T.ITEM_CODE_W, '_' || T.ITEM_CODE_W, S1.SPLINE_ITEM_CODE_S) ||
NVL2(S1.SPLINE_ITEM_CODE_S, '_' || S1.SPLINE_ITEM_CODE_S, S1.SPLINE_ITEM_CODE_S) SAMPLE_KEY, --试样组方向温度尺寸
T.PHY_NAME_MIN ||
NVL2(S1.SPLINE_ITEM_NAME_F, '_' || S1.SPLINE_ITEM_NAME_F, S1.SPLINE_ITEM_NAME_F) ||
NVL2(T.ITEM_NAME_W, '_' || T.ITEM_NAME_W, T.ITEM_NAME_W) ||
NVL2(S1.SPLINE_ITEM_NAME_S, '_' || S1.SPLINE_ITEM_NAME_S, S1.SPLINE_ITEM_NAME_S) SAMPLE_KEY_DESC, --试样组描述
T.PHY_CODE,
T.PHY_NAME,
(SELECT D.ORDER_SEQ FROM COM_BASE_PHY D WHERE D.PHY_CODE = T.PHY_CODE)ORDER_SEQ,
T.ITEM_CODE_F,
T.ITEM_NAME_F,
T.ITEM_CODE_W,
T.ITEM_NAME_W,
T.ITEM_CODE_S,
T.ITEM_NAME_S,
S1.RATE,
S1.DESC_RATE,
S1.SPLINE_ITEM_CODE_S,
S1.SPLINE_ITEM_NAME_S,
S1.SPLINE_ITEM_CODE_F,
S1.SPLINE_ITEM_NAME_F,
S1.COMMON,
T.GROUP_SEQ,
T.ISCHECK,
T.ISQUOTE,
T.RESULT_COUNT,
T.ISJUDGE,
T.PHY_TYPE,
T.PHY_FORMULA,
T.STDMIN_SIGN,
T.STDMIN,
T.STDMAX_SIGN,
T.STDMAX,
T.JUDGE_BASIS,
T.DELIVERYSTATE,
T.MODEL_CODE,
T.MODEL_DESC,
T.STDMEMO,
T.SIZE_CODE,
T.SIZE_NAME,
T.SIZE_MIN_SIGN,
T.SIZE_MIN,
T.SIZE_MAX_SIGN,
T.SIZE_MAX,
T.SIZE_CODE2,
T.SIZE_NAME2,
T.SIZE_MIN_SIGN2,
T.SIZE_MIN2,
T.SIZE_MAX_SIGN2,
T.SIZE_MAX2,
T.SPEC_JG,
T.SPEC_JG_DESC,
T.ADDCONDITION,
T.ADDSTDCON_CODE,
T.ADDSTD_MIN_SIGN,
T.ADDSTD_MIN,
T.ADDSTD_MAX_SIGN,
T.ADDSTD_MAX,
T.ADDPERCENT,
T.STDMIN_SIGN2,
T.STDMIN2,
T.STDMAX_SIGN2,
T.STDMAX2,
T.STD_CHOOSE,
T.BILLET_SAMPLE,
(SELECT DISTINCT PHY_UNIT
FROM COM_BASE_PHY T5
WHERE T5.VALIDFLAG = '1'
AND T5.PHY_CODE = T.PHY_CODE) PHY_UNIT,
ROW_NUMBER() OVER(PARTITION BY T.DESGIN_KEY, T.PHY_CODE_MAX, T.PHY_CODE_MIN, T.PHY_CODE, T.ITEM_CODE_F, T.ITEM_CODE_W, T.ITEM_CODE_S ORDER BY T.SPECL_FL DESC) RN
FROM PLN_ZY_RCL_M S,
PLN_SALEORD T2,
CRAFT_ORD_DESIGN T3,
CRAFT_ORD_DESIGN_STD_PIC T,
CRAFT_ORD_DESIGN_STD_PIC_SMP S1
WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
AND T2.ORD_LN_PK = T3.ORD_LN_PK
AND T3.CRAFT_SEQ = S.CRAFT_SEQ
AND T3.DESGIN_KEY = T.DESGIN_KEY
AND T.MSC_PLINE = S.INDEX_SEQ
AND (T.PIC = S.PIC OR T.CRAFT_SOURCE = '2')
AND T.DESGIN_KEY = S1.DESGIN_KEY
AND T.PHY_CODE_MIN = S1.PHY_CODE_MIN
AND NVL(T.ITEM_CODE_F,'1') = NVL(S1.ITEM_CODE_F,'1')
AND NVL(T.ITEM_CODE_W,'1') = NVL(S1.ITEM_CODE_W,'1')
AND NVL(T.ITEM_CODE_S,'1') = NVL(S1.ITEM_CODE_C,'1')
AND T.PROCESS_CODE = 'F'
AND T.CRAFT_SOURCE = ?
AND S.PRO_PLAN_ID = ?
AND S.GX_PLAN_NO = ?
AND S.JUDGE_STOVE_NO = ?
AND S1.CRAFT_SOURCE = ?) T
WHERE RN = '1'
SELECT *
FROM (SELECT T.DESGIN_KEY,
T.PIC,
T.SPECL_FL,
T.INDEX_SEQ,
T.PHY_CODE_MAX,
T.PHY_NAME_MAX,
(SELECT A.PHY_DEPTID
FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
WHERE T.PHY_CODE_MIN = B.PHY_CODE
AND A.PHY_CODE = B.PHY_TYPE_M
AND A.VALIDFLAG = '1'
AND B.VALIDFLAG = '1') DEPT_ID,
T.PHY_CODE_MIN,
T.PHY_NAME_MIN,
T.PHY_CODE,
T.PHY_NAME,
S1.RATE,
S1.DESC_RATE,
S1.TOP_STOVE,
S1.LOOP_VALUE,
ROW_NUMBER() OVER(PARTITION BY T.DESGIN_KEY, T.PHY_CODE_MAX, T.PHY_CODE_MIN ORDER BY T.SPECL_FL DESC) RN
FROM PLN_ZY_RCL_M S,
PLN_SALEORD T2,
CRAFT_ORD_DESIGN T3,
CRAFT_ORD_DESIGN_STD_PIC T,
CRAFT_ORD_DESIGN_STD_PIC_SMP S1
WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
AND T2.ORD_LN_PK = T3.ORD_LN_PK
AND T3.CRAFT_SEQ = S.CRAFT_SEQ
AND T3.DESGIN_KEY = T.DESGIN_KEY
AND T.MSC_PLINE = S.INDEX_SEQ
AND (T.PIC = S.PIC OR T.CRAFT_SOURCE = '2')
AND T.DESGIN_KEY = S1.DESGIN_KEY
AND T.PHY_CODE_MIN = S1.PHY_CODE_MIN
AND NVL(T.ITEM_CODE_F,'1') = NVL(S1.ITEM_CODE_F,'1')
AND NVL(T.ITEM_CODE_W,'1') = NVL(S1.ITEM_CODE_W,'1')
AND NVL(T.ITEM_CODE_S,'1') = NVL(S1.ITEM_CODE_C,'1')
AND T.PROCESS_CODE = 'F'
AND T.CRAFT_SOURCE = ?
AND S.PRO_PLAN_ID = ?
AND S.GX_PLAN_NO = ?
AND S.JUDGE_STOVE_NO = ?) T
WHERE RN = '1'
SELECT NVL(COUNT(1),0)ACOUNT FROM
(SELECT T.CHECK_NO FROM PIPE_CHECKCONSIGN_BASEINFO T,PIPE_CHECKCONSIGN_DETAIL S
WHERE T.CHECK_NO = S.CHECK_NO
AND T.LOT_NO = '#ZY_BATCH_ID#'
AND T.PROCESS_CODE = 'F'
AND S.PHY_CODE_MAX = '#PHY_CODE_MAX#'
GROUP BY T.CHECK_NO)
SELECT HEAT_NO,CHECK_NO
FROM (SELECT ROWNUM SEQ,HEAT_NO,CHECK_NO
FROM (SELECT T.HEAT_NO,T.CHECK_NO
FROM PIPE_CHECKCONSIGN_BASEINFO T,PIPE_CHECKCONSIGN_DETAIL S
WHERE T.CHECK_NO = S.CHECK_NO
AND T.LOT_NO = '#ZY_BATCH_ID#'
AND T.PROCESS_CODE = 'F'
AND T.CHECK_COUNT = '0'
AND S.PHY_CODE_MAX = '#PHY_CODE_MAX#'
GROUP BY T.HEAT_NO,T.CHECK_NO
ORDER BY MAX(T.CONSIGN_TIME) ASC))
WHERE SEQ = ?
SELECT MIN(T.CHECK_NO)CHECK_NO
FROM PIPE_CHECKCONSIGN_BASEINFO T,PIPE_CHECKCONSIGN_DETAIL S
WHERE T.CHECK_NO = S.CHECK_NO
AND T.HEAT_NO = ?
AND S.PHY_CODE_MAX = '#PHY_CODE_MAX#'
AND S.FOR_CHECK_NO IS NULL
AND T.PROCESS_CODE = 'F'
SELECT T.*
FROM (SELECT T.*,
ROW_NUMBER() OVER(PARTITION BY T.DESGIN_KEY, T.PHY_CODE_MIN,T.ITEM_CODE_F，T.ITEM_CODE_W, T.ITEM_CODE_C,T.SIZE_DESC ORDER BY T.SPECL_FL DESC) RN
FROM (SELECT (SELECT A.PHY_CODE
FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
WHERE T.PHY_CODE_MIN = B.PHY_CODE
AND A.PHY_CODE = B.PHY_TYPE_M
AND A.VALIDFLAG = '1'
AND B.VALIDFLAG = '1') PHY_CODE_MAX,
(SELECT A.PHY_TYPE
FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
WHERE T.PHY_CODE_MIN = B.PHY_CODE
AND A.PHY_CODE = B.PHY_TYPE_M
AND A.VALIDFLAG = '1'
AND B.VALIDFLAG = '1') PHY_NAME_MAX,
(SELECT B.PHY_DEPTID
FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
WHERE T.PHY_CODE_MIN = B.PHY_CODE
AND A.PHY_CODE = B.PHY_TYPE_M
AND A.VALIDFLAG = '1'
AND B.VALIDFLAG = '1') DEPT_ID,
T.DESGIN_KEY,
T.PIC,
T.SIC,
T.PHY_CODE_MIN,
T.PHY_NAME_MIN,
T.STD_CODE,
T.STD_NAME,
T.LENGTH,
T.DESC_LENGTH,
T.RATE,
T.DESC_RATE,
T.SSC_CONDITION,
T.TOP_STOVE,
T.LOOP_VALUE,
T.CRAFT_SOURCE,
T.DESC_COUNT,
T.POSITION,
T.DESC_POSITION,
T.SAMPLE_COUNT,
T.MEMO,
T.SAMPLE_STYLE,
T.BATCH_CNT,
T.WIDTH,
T.BATCH_UNIT,
T.EIC,
T.PHY_DIR,
T.SIZE_DESC,
T.ITEM_CODE_F,
T.ITEM_CODE_W,
T.ITEM_CODE_C,
T.STD_CODE_TEST,
T.STD_NAME_TEST,
DECODE(T.SAMPLE_STYLE,
'408101',
'片状',
'408102',
'环状') AS DESC_SAMPLE_STYLE,
(SELECT SPLINE_NO
FROM COM_BASE_SPLINE C
WHERE C.EIC = T.EIC) SPLINE_NO, --试样编码
(SELECT DISTINCT M.SPECL_FL
FROM CRAFT_ORD_DESIGN_STD_PIC M
WHERE M.DESGIN_KEY = T.DESGIN_KEY
AND M.PIC = T.PIC) SPECL_FL
FROM PLN_ZY_RCL_M S,
PLN_SALEORD T2,
CRAFT_ORD_DESIGN T3,
CRAFT_ORD_DESIGN_STD_PIC_SMP T
WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
AND T2.ORD_LN_PK = T3.ORD_LN_PK
AND T3.CRAFT_SEQ = S.CRAFT_SEQ
AND T3.DESGIN_KEY = T.DESGIN_KEY
AND T.MSC_PLINE = S.INDEX_SEQ
AND T.PROCESS_CODE = 'F'
AND T.CRAFT_SOURCE = ?
AND S.PRO_PLAN_ID = ?
AND S.GX_PLAN_NO = ?
AND S.JUDGE_STOVE_NO = ?
AND T.PIC = ?
AND T.PHY_CODE_MIN = ?) T) T
WHERE RN = '1'
ORDER BY T.PHY_CODE_MAX,
T.PHY_CODE_MIN,
--T.ITEM_CODE_W,
(SELECT T4.ORDER_SEQ FROM COM_BASE_PHY_ITEM T4 WHERE T4.ITEM_CODE = T.ITEM_CODE_W),
T.ITEM_CODE_F,
T.ITEM_CODE_C
SELECT T.*
FROM (SELECT T.*,
ROW_NUMBER() OVER(PARTITION BY T.DESGIN_KEY, T.PHY_CODE_MIN,T.ITEM_CODE_F，T.ITEM_CODE_W, T.ITEM_CODE_C ORDER BY T.SPECL_FL DESC) RN
FROM (SELECT (SELECT A.PHY_CODE
FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
WHERE T.PHY_CODE_MIN = B.PHY_CODE
AND A.PHY_CODE = B.PHY_TYPE_M
AND A.VALIDFLAG = '1'
AND B.VALIDFLAG = '1') PHY_CODE_MAX,
(SELECT A.PHY_TYPE
FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
WHERE T.PHY_CODE_MIN = B.PHY_CODE
AND A.PHY_CODE = B.PHY_TYPE_M
AND A.VALIDFLAG = '1'
AND B.VALIDFLAG = '1') PHY_NAME_MAX,
(SELECT A.PHY_DEPTID
FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
WHERE T.PHY_CODE_MIN = B.PHY_CODE
AND A.PHY_CODE = B.PHY_TYPE_M
AND A.VALIDFLAG = '1'
AND B.VALIDFLAG = '1') DEPT_ID,
T.DESGIN_KEY,
T.PIC,
T.SIC,
T.PHY_CODE_MIN,
T.PHY_NAME_MIN,
T.STD_CODE,
T.STD_NAME,
T.LENGTH,
T.DESC_LENGTH,
T.RATE,
T.DESC_RATE,
T.SSC_CONDITION,
T.TOP_STOVE,
T.LOOP_VALUE,
T.CRAFT_SOURCE,
T.DESC_COUNT,
T.POSITION,
T.DESC_POSITION,
T.SAMPLE_COUNT,
T.MEMO,
T.SAMPLE_STYLE,
T.BATCH_CNT,
T.WIDTH,
T.BATCH_UNIT,
T.EIC,
T.PHY_DIR,
T.SIZE_DESC,
T.ITEM_CODE_F,
T.ITEM_CODE_W,
T.ITEM_CODE_C,
T.STD_CODE_TEST,
T.STD_NAME_TEST,
DECODE(T.SAMPLE_STYLE,
'408101',
'片状',
'408102',
'环状') AS DESC_SAMPLE_STYLE,
(SELECT SPLINE_NO
FROM COM_BASE_SPLINE C
WHERE C.EIC = T.EIC) SPLINE_NO, --试样编码
(SELECT DISTINCT M.SPECL_FL
FROM CRAFT_ORD_DESIGN_STD_PIC M
WHERE M.DESGIN_KEY = T.DESGIN_KEY
AND M.PIC = T.PIC) SPECL_FL
FROM PLN_ZY_RCL_M S,
PLN_SALEORD T2,
CRAFT_ORD_DESIGN T3,
CRAFT_ORD_DESIGN_STD_PIC_SMP T
WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
AND T2.ORD_LN_PK = T3.ORD_LN_PK
AND T3.CRAFT_SEQ = S.CRAFT_SEQ
AND T3.DESGIN_KEY = T.DESGIN_KEY
AND T.MSC_PLINE = S.INDEX_SEQ
AND T.PROCESS_CODE = 'F'
AND T.CRAFT_SOURCE = ?
AND S.PRO_PLAN_ID = ?
AND S.GX_PLAN_NO = ?
AND S.JUDGE_STOVE_NO = ?
AND T.RATE = ?
) T) T
WHERE RN = '1'
ORDER BY T.PHY_CODE_MAX,
T.PHY_CODE_MIN,
T.ITEM_CODE_F,
T.ITEM_CODE_W,
T.ITEM_CODE_C
SELECT ? || REGEXP_REPLACE('#JUDGE_STOVE_NO#', '-.*', '') ||
LPAD(NVL(MAX(REPLACE(T.CHECK_NO,
? ||
REGEXP_REPLACE('#JUDGE_STOVE_NO#', '-.*', ''),
'')),
0) + 1,
1,
0) CHECK_NO
FROM PIPE_CHECKCONSIGN_BASEINFO T
WHERE T.HEAT_NO = REGEXP_REPLACE('#JUDGE_STOVE_NO#', '-.*', '')
AND T.PROCESS_CODE = ?
AND T.CHECK_COUNT = '0'
AND T.CRAFT_SOURCE IN ('0', '1')
SELECT * FROM (SELECT S.CHECK_NO FROM PIPE_CHECKCONSIGN_BASEINFO S WHERE S.HEAT_NO = ? AND S.VALIDFLAG = '1' AND S.PROCESS_CODE = 'F'
AND S.CRAFT_SOURCE IN('0','1','3')
AND S.CHECK_COUNT = '0'
AND S.CHECK_NO NOT LIKE '%Y%'
ORDER BY S.CONSIGN_TIME DESC)
WHERE ROWNUM = 1
UPDATE PLN_ZY_RCL_M T SET T.IS_BATCH = '#IS_BATCH#',T.CHECK_NO = '#CHECK_NO#' WHERE NVL(T.ZY_BATCH_ID,'/') = NVL('#ZY_BATCH_ID#','/') AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
DECLARE
BEGIN
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.IS_BATCH = '#IS_BATCH#',
T.CHECK_NO = DECODE(T.CHECK_NO,
NULL,
'#CHECK_NO#',
T.CHECK_NO || ',' || '#CHECK_NO#')
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.PHY_BATCH_NO = '#PHY_BATCH_NO#'
AND T.MAT_NO = '#MAT_NO#'
AND T.PROCESS_SEQ =
(SELECT REAL_PROCESS_SEQ
FROM PLN_ZY_RCL_M
WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO);
UPDATE PORT_HTT_BATCH_SAMPLE_DETIAL T
SET T.CHECK_NO = '#CHECK_NO#', T.IS_BATCH = '3'
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#PHY_BATCH_NO#'
AND T.MAT_NO = '#MAT_NO#'
AND T.SAMPLE_PIPE_POSTION = '#SAMPLE_PIPE_POSTION#'
AND T.IS_BATCH = '2';
END;
DECLARE
V_CHECK_NO PORT_HTT_BATCH_SAMPLE_RESULT.CHECK_NO%TYPE := NULL;
V_IS_BATCH PORT_HTT_BATCH_SAMPLE_RESULT.IS_BATCH%TYPE := NULL;
BEGIN
FOR MYROW IN (SELECT *
FROM PORT_HTT_BATCH_SAMPLE_DETIAL T
WHERE T.CHECK_NO = '#CHECK_NO#') LOOP
UPDATE PORT_HTT_BATCH_SAMPLE_DETIAL T
SET T.CHECK_NO = '', T.IS_BATCH = '2'
WHERE T.PHYDETAIL_ID = MYROW.PHYDETAIL_ID;
FOR MYROW1 IN (SELECT T.CHECK_NO
FROM PORT_HTT_BATCH_SAMPLE_DETIAL T
WHERE T.MAT_NO = MYROW.MAT_NO
AND T.CHECK_NO IS NOT NULL
GROUP BY T.CHECK_NO
ORDER BY T.CHECK_NO ASC) LOOP
IF (V_CHECK_NO != '') THEN
V_CHECK_NO := V_CHECK_NO || ',' || MYROW1.CHECK_NO;
ELSE
V_CHECK_NO := MYROW1.CHECK_NO;
END IF;
END LOOP;
IF (V_CHECK_NO = '') THEN
V_IS_BATCH := '2';
ELSE
V_IS_BATCH := '3';
END IF;
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.IS_BATCH = V_IS_BATCH, T.CHECK_NO = V_CHECK_NO
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVl(T.LOT_NO, '/') = NVL('#ZY_BATCH_ID#', '/')
AND T.MAT_NO = MYROW.MAT_NO
AND T.PROCESS_SEQ =
(SELECT REAL_PROCESS_SEQ
FROM PLN_ZY_RCL_M
WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO);
END LOOP;
END;
UPDATE pln_zy_rcl_m t3
SET t3.cic = (
SELECT
decode(
( instr( max( CIC ), ',', 1 ) ),
0,
max( CIC ),
substr( max( CIC ), 0, ( instr( max( CIC ), ',', 1 ) ) - 1 )
)
FROM
pln_order_rcl_s
WHERE
craft_file_no = t3.craft_file_no
) ,
T3.PIC = (SELECT
C1.PIC
FROM
PLN_ORDER_RCL_S T,
PLN_SALEORD T1,
CRAFT_ORD_DESIGN C,
CRAFT_ORD_DESIGN_MSC_PL_PRC C1,
pln_zy_rcl_m M
WHERE
T1.ORD_LN_DLY_PK = T.ORD_LN_DLY_PK
AND C.ORD_LN_PK = T1.ORD_LN_PK
AND c.DESGIN_KEY = c1.DESGIN_KEY
AND C.CRAFT_SEQ = m.CRAFT_SEQ
AND c.VALIDFLAG = '1'
AND C1.MSC_PLINE = T.INDEX_SEQ
AND C1.PROCESS_CODE = 'F'
AND T.PRO_PLAN_ID = M.PRO_PLAN_ID
AND T.GX_PLAN_NO = M.GX_PLAN_NO
AND M.HEAT_PLAN_NO = t3.heat_plan_no)
WHERE
t3.heat_plan_no = ?
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.IS_BATCH = '#IS_BATCH#',
T.CHECK_NO = '#CHECK_NO#'
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.PHY_BATCH_NO = '#PHY_BATCH_NO#'
SELECT T.CHECK_NO
FROM PLN_ZY_RCL_M T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
SELECT S.*
FROM PIPE_CHECKCONSIGN_BASEINFO T, PIPE_CHECKCONSIGN_DETAIL S
WHERE T.CHECK_NO = S.CHECK_NO
AND T.PROCESS_CODE = 'F'
AND INSTR(?, S.CHECK_NO) > 0
ORDER BY S.BATCH_NO,S.SAMPLE_NO
DECLARE
V_MAT_NO MAT_BC_M.ZG_MAT_NO%TYPE := NULL;
BEGIN
UPDATE MAT_BC_M T
SET T.QCM_STAUS = '22',
T.JUDGE_RESULT_CODE = '40740705',
T.JUDGE_RESULT = '废品',
T.JUDGE_MAKER = 'SYSTEM'
WHERE T.ZG_MAT_NO = '#MAT_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.MAT_STATUS = '10'
WHERE T.MAT_NO = '#MAT_NO#'
AND T.MAT_STATUS = '00';
SELECT MAT_NO
INTO V_MAT_NO
FROM (SELECT T.MAT_NO
FROM PORT_HTT_BATCH_SAMPLE_RESULT T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.MAT_STATUS = '00'
AND T.IS_SAMPLE_PIPE = '0'
ORDER BY T.MAT_NO ASC)
WHERE ROWNUM = 1;
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.IS_SAMPLE_PIPE = '1'
WHERE T.MAT_NO = V_MAT_NO;
UPDATE MAT_BC_M T SET T.SAMPLE_FLAG = '1' WHERE T.ZG_MAT_NO = V_MAT_NO;
END;
DECLARE
BEGIN
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.IS_SAMPLE_PIPE = '0'
WHERE T.MAT_NO = '#MAT_NO#'
AND T.MAT_STATUS = '00';
UPDATE MAT_BC_M T
SET T.QCM_STAUS = '00',
T.JUDGE_RESULT_CODE = '',
T.JUDGE_RESULT = '',
T.JUDGE_MAKER = ''
WHERE T.ZG_MAT_NO = '#MAT_NO#';
END;
DECLARE
BEGIN
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.MAT_STATUS = '00'
WHERE T.MAT_NO = '#MAT_NO#'
AND T.MAT_STATUS = '10'
AND T.IS_SAMPLE_PIPE = '1';
UPDATE MAT_BC_M T
SET T.QCM_STAUS = '00',
T.JUDGE_RESULT_CODE = '',
T.JUDGE_RESULT = '',
T.JUDGE_MAKER = ''
WHERE T.ZG_MAT_NO = '#MAT_NO#';
END;
SELECT T.CHECK_NO
FROM PORT_HTT_BATCH_SAMPLE_RESULT T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.LOT_NO = '#ZY_BATCH_ID#'
AND T.IS_BATCH = '3'
AND T.CHECK_NO IS NOT NULL
GROUP BY T.CHECK_NO
SELECT T.CHECK_NO
FROM PORT_HTT_BATCH_SAMPLE_DETIAL T
WHERE T.MAT_NO = '#MAT_NO#'
GROUP BY T.CHECK_NO
ORDER BY T.CHECK_NO ASC;
DECLARE
BEGIN
FOR V IN (SELECT A.CHECK_NO, A.JUDGE_STOVE_NO, A.BATCH_NO
FROM QCM_ZC_CHECKCONSIGN A
WHERE A.CHECK_NO = '#CHECK_NO#') LOOP
UPDATE QCM_JHY_ELEMENTS T
SET T.LG_JUDGE_FLAG = '00'
WHERE T.JUDGE_STOVE_NO = V.JUDGE_STOVE_NO
AND T.BATCH_NO = V.BATCH_NO
AND T.SAMPLE_ID = V.CHECK_NO;
UPDATE QCM_JHY_PHYRESULT T
SET T.JUDGE_FLAG = '00'
WHERE T.JUDGE_STOVE_NO = V.JUDGE_STOVE_NO
AND T.BATCH_NO = V.BATCH_NO
AND T.SAMPLE_ID = V.CHECK_NO;
END LOOP;
DELETE FROM QCM_ZC_CHECKCONSIGN T WHERE T.CHECK_NO = '#CHECK_NO#';
DELETE FROM QCM_ZC_CHECKCONSIGN_DETAIL T WHERE T.CHECK_NO = '#CHECK_NO#';
END;
DECLARE
V_MAT_NO PORT_HTT_BATCH_SAMPLE_RESULT.MAT_NO%TYPE := NULL;
BEGIN
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.ACT_LEN = T.ACT_LEN/2,
--T.ACT_LEN = (TO_NUMBER('#ACT_LEN#')- TO_NUMBER(T.SAMPLE_PIPE_LEN))/2,
T.ACT_WEIGHT = TO_NUMBER(T.ACT_WEIGHT)/2,
T.ACT_THEORY_WEIGHT = TO_NUMBER(T.ACT_THEORY_WEIGHT)/2
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.MAT_NO = '#MAT_NO#';
SELECT '#JUDGE_STOVE_NO#' || '#BATCH_NO#' ||
LPAD(NVL(MAX(SUBSTR(T.MAT_NO, LENGTH(T.MAT_NO) - 3)), 0) + 1, 4, 0)
INTO V_MAT_NO
FROM (SELECT MAX(T1.MAT_NO) MAT_NO
FROM MAT_BC_M T1
WHERE T1.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T1.BATCH_NO = '#BATCH_NO#'
UNION ALL
SELECT MAX(T3.MAT_NO) MAT_NO
FROM MAT_BC_BACKUP T3
WHERE T3.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T3.BATCH_NO = '#BATCH_NO#'
UNION ALL
SELECT MAX(T4.MAT_NO) MAT_NO
FROM YDM_BC_INLIST T4
WHERE T4.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T4.BATCH_NO = '#BATCH_NO#') T;
INSERT INTO PORT_HTT_BATCH_SAMPLE_RESULT
SELECT HEAT_PLAN_NO,
V_MAT_NO,
M_MAT_NO,
M_M_MAT_NO,
LOT_NO,
LOT_NO_SQE,
PLINE_CODE,
PLINE_NAME,
JUDGE_STOVE_NO,
BATCH_NO,
GROUP_NO,
STOVE_NO,
FLAG_STOVE_NO,
ACT_DIMATER,
ACT_HEIGHT,
ACT_LEN,
ACT_LEN_MIN,
ACT_LEN_MAX,
ACT_COUNT,
ACT_WEIGHT,
ACT_THEORY_WEIGHT,
'0',
'',
'',
'',
'',
'',
OLD_JUDGE_STOVE_NO,
GROUP_FLAG,
OP_PROCESS,
MAT_STATUS,
LEVE_LOG,
INSTORE_FLAG,
VM_INSTORE_FLAG,
PRC_TECHNOLOGY_PATH,
RETURN_PROCESS,
PHY_BATCH_NO,
PRO_YEAR_MONTH_DAY,
BAL_YEAR_MONTH,
JUGDE_APPLY_CODE,
JUGDE_APPLY,
PRO_USER,
PRO_SHIFT,
PRO_GROUP,
PRO_TIME,
REMARK,
'',
'',
CHEM_RESULT_CODE,
PHY_RESULT_CODE,
HEAT_PLAN_SQE,
'',
'',
TR_FLAG,
FEED_HEAT_NO,
PROCESS_SEQ,
RESULT_NO,
'0',
'',
'',
'',
'',
'',
'',
'',
'#MAT_NO#',
'',
'',
'',
'',
'',
'',
'',
'',
'0',
'',
'',
'',
'0',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'1'
FROM PORT_HTT_BATCH_SAMPLE_RESULT T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.MAT_NO = '#MAT_NO#';
END;
SELECT
PHY_BATCH_NO,
MAT_NO,
RESAMPLE_PIPE_LEN_A,
RESAMPLE_PIPE_LEN_B,
RESAMPLE_PIPE_LEN_C,
RESAMPLE_PIPE_LEN_D,
RESAMPLE_PIPE_LEN_M,
RESAMPLE_PIPE_LEN_E,
RESAMPLE_PIPE_LEN_F,
RESAMPLE_PIPE_LEN_P,
RESAMPLE_PIPE_LEN_Q
FROM PORT_HTT_BATCH_SAMPLE_RESULT T
WHERE IS_SAMPLE_PIPE = '1'
AND JUDGE_STOVE_NO = ?
AND RE_CHECK_NO = ?
AND RE_GET_SAMPLE_STATUS = '1'
AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
ORDER BY PHY_BATCH_NO,MAT_NO
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.IS_SAMPLE_PIPE = '#IS_SAMPLE_PIPE#',
T.RESAMPLE_PIPE_LEN_A = '#RESAMPLE_PIPE_LEN_A#',
T.RESAMPLE_PIPE_LEN_B = '#RESAMPLE_PIPE_LEN_B#',
T.RESAMPLE_PIPE_LEN_C = '#RESAMPLE_PIPE_LEN_C#',
T.RESAMPLE_PIPE_LEN_D = '#RESAMPLE_PIPE_LEN_D#',
T.RESAMPLE_PIPE_LEN_M = '#RESAMPLE_PIPE_LEN_M#',
T.RESAMPLE_PIPE_LEN_E = '#RESAMPLE_PIPE_LEN_E#',
T.RESAMPLE_PIPE_LEN_F = '#RESAMPLE_PIPE_LEN_F#',
T.RESAMPLE_PIPE_LEN_P = '#RESAMPLE_PIPE_LEN_P#',
T.RESAMPLE_PIPE_LEN_Q = '#RESAMPLE_PIPE_LEN_Q#',
T.SAMPLE_PIPE_LEN = TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN,0)) + TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_A#',0))+TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_B#',0))+TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_C#',0))+TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_D#',0)) + TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_M#',0)) + TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_E#',0)) + TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_F#',0)) + TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_P#',0)) +TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_Q#',0)) ,
T.RE_GET_SAMPLE_NAME = '#RE_GET_SAMPLE_NAME#',
T.RE_GET_SAMPLE_TIME = TO_DATE('#RE_GET_SAMPLE_TIME#','YYYY-MM-DD HH24:MI:SS'),
T.RE_GET_SAMPLE_STATUS = '#RE_GET_SAMPLE_STATUS#',
T.RE_CHECK_NO = '#RE_CHECK_NO#'
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.MAT_NO = '#MAT_NO#'
DECLARE
ACOUNT PORT_HTT_BATCH_SAMPLE_RESULT.ACT_COUNT%TYPE := NULL;
BEGIN
FOR MYROW IN (SELECT *
FROM PORT_HTT_BATCH_SAMPLE_RESULT T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.RE_CHECK_NO = '#RE_CHECK_NO#'
AND T.RESAMPLE_PIPE_LEN_M IS NOT NULL) LOOP
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.ACT_LEN = T.ACT_LEN * 2,
T.ACT_WEIGHT = T.ACT_WEIGHT * 2,
T.ACT_THEORY_WEIGHT = T.ACT_THEORY_WEIGHT * 2
WHERE T.MAT_NO = MYROW.MAT_NO;
DELETE FROM PORT_HTT_BATCH_SAMPLE_RESULT T
WHERE T.MAT_NO_OLD = MYROW.MAT_NO;
END LOOP;
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.IS_SAMPLE_PIPE = '#IS_SAMPLE_PIPE#',
T.RESAMPLE_PIPE_LEN_A = '#RESAMPLE_PIPE_LEN_A#',
T.RESAMPLE_PIPE_LEN_B = '#RESAMPLE_PIPE_LEN_B#',
T.RESAMPLE_PIPE_LEN_C = '#RESAMPLE_PIPE_LEN_C#',
T.RESAMPLE_PIPE_LEN_D = '#RESAMPLE_PIPE_LEN_D#',
T.RESAMPLE_PIPE_LEN_M = '#RESAMPLE_PIPE_LEN_M#',
T.RESAMPLE_PIPE_LEN_E = '#RESAMPLE_PIPE_LEN_E#',
T.RESAMPLE_PIPE_LEN_F = '#RESAMPLE_PIPE_LEN_F#',
T.RESAMPLE_PIPE_LEN_P = '#RESAMPLE_PIPE_LEN_P#',
T.RESAMPLE_PIPE_LEN_Q = '#RESAMPLE_PIPE_LEN_Q#',
T.SAMPLE_PIPE_LEN = TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN,0)) - TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_A#',0))- TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_B#',0))- TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_C#',0))-TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_D#',0)) - TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_M#',0)) - TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_E#',0)) - TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_F#',0)) - TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_P#',0)) - TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_Q#',0)) ,
T.RE_GET_SAMPLE_NAME = '#RE_GET_SAMPLE_NAME#',
T.RE_GET_SAMPLE_TIME = TO_DATE('#RE_GET_SAMPLE_TIME#','YYYY-MM-DD HH24:MI:SS'),
T.RE_GET_SAMPLE_STATUS = '#RE_GET_SAMPLE_STATUS#',
T.RE_CHECK_NO = ''
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.MAT_NO = '#MAT_NO#'
AND T.RE_CHECK_NO = '#RE_CHECK_NO#';
END;
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.RE_GET_SAMPLE_STATUS = '#RE_GET_SAMPLE_STATUS#'
WHERE T.LOT_NO = '#LOT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.MAT_NO = '#MAT_NO#'
DECLARE
BEGIN
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
SET T.RE_GET_SAMPLE_STATUS = '1'
WHERE T.LOT_NO = '#LOT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.RE_GET_SAMPLE_STATUS = '2'
AND T.RE_CHECK_NO = '#NEW_CHECK_NO#';
--更新炉批结果表
FOR V2 IN (SELECT T.*
FROM QCM_ZC_CHECKCONSIGN_DETAIL T
WHERE T.CHECK_NO = '#NEW_CHECK_NO#') LOOP
IF V2.RATE = '408601' THEN
FOR V IN (SELECT D.JUDGE_STOVE_NO,
D.BATCH_NO,
D.PROCESS_CODE,
D.ORD_LN_DLY_PK,
D.CRAFT_SOURCE
FROM QCM_ZC_CHECKCONSIGN C, QCM_ZC_CHECKCONSIGN D
WHERE C.CHECK_NO = V2.CHECK_NO
AND C.BATCH_NO = V2.BATCH_NO
AND D.LOT_NO = C.LOT_NO
AND (C.LOT_NO_GROUP IS NULL OR
C.LOT_NO_GROUP = D.LOT_NO_GROUP)
AND D.PROCESS_CODE = C.PROCESS_CODE
AND D.ORD_LN_DLY_PK = C.ORD_LN_DLY_PK
GROUP BY D.JUDGE_STOVE_NO,
D.BATCH_NO,
D.PROCESS_CODE,
D.ORD_LN_DLY_PK,
D.CRAFT_SOURCE) LOOP
UPDATE QCM_BC_BATCH_RESULT A
SET A.JUDGE_RESULT_CODE = '40740704'
WHERE A.JUDGE_STOVE_NO = V.JUDGE_STOVE_NO
AND A.BATCH_NO = V.BATCH_NO
AND A.PROCESS_CODE = V.PROCESS_CODE
AND A.ORD_LN_DLY_PK = V.ORD_LN_DLY_PK
AND A.CRAFT_SOURCE = V.CRAFT_SOURCE;
END LOOP;
ELSIF V2.RATE = '408603' THEN
FOR V IN (SELECT D.JUDGE_STOVE_NO,
D.BATCH_NO,
D.PROCESS_CODE,
D.ORD_LN_DLY_PK,
D.CRAFT_SOURCE
FROM QCM_ZC_CHECKCONSIGN C, QCM_ZC_CHECKCONSIGN D
WHERE C.CHECK_NO = V2.CHECK_NO
AND C.BATCH_NO = V2.BATCH_NO
AND D.JUDGE_STOVE_NO = C.JUDGE_STOVE_NO
AND D.PROCESS_CODE = C.PROCESS_CODE
AND D.ORD_LN_DLY_PK = C.ORD_LN_DLY_PK
GROUP BY D.JUDGE_STOVE_NO,
D.BATCH_NO,
D.PROCESS_CODE,
D.ORD_LN_DLY_PK,
D.CRAFT_SOURCE) LOOP
UPDATE QCM_BC_BATCH_RESULT A
SET A.JUDGE_RESULT_CODE = '40740704'
WHERE A.JUDGE_STOVE_NO = V.JUDGE_STOVE_NO
AND A.BATCH_NO = V.BATCH_NO
AND A.PROCESS_CODE = V.PROCESS_CODE
AND A.ORD_LN_DLY_PK = V.ORD_LN_DLY_PK
AND A.CRAFT_SOURCE = V.CRAFT_SOURCE;
END LOOP;
ELSE
FOR V IN (SELECT C.JUDGE_STOVE_NO,
C.BATCH_NO,
C.PROCESS_CODE,
C.ORD_LN_DLY_PK,
C.CRAFT_SOURCE
FROM QCM_ZC_CHECKCONSIGN C
WHERE C.CHECK_NO = V2.CHECK_NO
AND C.BATCH_NO = V2.BATCH_NO
GROUP BY C.JUDGE_STOVE_NO,
C.BATCH_NO,
C.PROCESS_CODE,
C.ORD_LN_DLY_PK,
C.CRAFT_SOURCE) LOOP
UPDATE QCM_BC_BATCH_RESULT A
SET A.JUDGE_RESULT_CODE = '40740704'
WHERE A.JUDGE_STOVE_NO = V.JUDGE_STOVE_NO
AND A.BATCH_NO = V.BATCH_NO
AND A.PROCESS_CODE = V.PROCESS_CODE
AND A.ORD_LN_DLY_PK = V.ORD_LN_DLY_PK
AND A.CRAFT_SOURCE = V.CRAFT_SOURCE;
END LOOP;
END IF;
END LOOP;
-- 委托表
DELETE FROM QCM_ZC_CHECKCONSIGN T WHERE T.CHECK_NO = '#NEW_CHECK_NO#';
DELETE FROM QCM_ZC_CHECKCONSIGN_DETAIL T
WHERE T.CHECK_NO = '#NEW_CHECK_NO#';
END;
SELECT T.BAR_CODE FROM PORT_HTT_BATCH_SAMPLE_RESULT T WHERE T.MAT_NO = ? AND T.HEAT_PLAN_NO = ?
AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
SELECT T.BAR_CODE FROM PORT_HTT_BATCH_SAMPLE_RESULT T WHERE T.MAT_NO = ? AND T.JUDGE_STOVE_NO = ?
SELECT T.CHECK_NO, T.CHECK_NO CHECK_NO_VALUE
FROM PIPE_CHECKCONSIGN_BASEINFO T
WHERE T.HEAT_NO = ?
AND T.PROCESS_CODE = ?
AND T.CRAFT_SOURCE = '0'
SELECT COUNT(1)ACOUNT
FROM QCM_ZC_CHECKCONSIGN T
WHERE T.CHECK_NO = ?
AND T.JUDGE_STOVE_NO = ?
AND T.BATCH_NO = ?
AND T.PROCESS_CODE = ?
SELECT COUNT(1)ACOUNT FROM PIPE_CHECKCONSIGN_DETAIL T WHERE T.FOR_CHECK_NO = '#CHECK_NO#'
INSERT INTO PORT_HTT_BATCH_SAMPLE_DETIAL
(HEAT_PLAN_NO,
MAT_NO,
LOT_NO,
JUDGE_STOVE_NO,
BATCH_NO,
SAMPLE_PIPE_LEN,
SAMPLE_PIPE_POSTION,
CRAFT_SOURCE,
PHY_CODE_GROUP)
VALUES
('#HEAT_PLAN_NO#',
'#MAT_NO#',
'#LOT_NO#',
'#JUDGE_STOVE_NO#',
'#BATCH_NO#',
'#SAMPLE_PIPE_LEN#',
'#SAMPLE_PIPE_POSTION#',
'#CRAFT_SOURCE#',
'#PHY_CODE_GROUP#')
SELECT T.BATCH_NO,COUNT(1)ACOUNT
FROM PORT_HTT_BATCH_SAMPLE_DETIAL T
WHERE T.HEAT_PLAN_NO = ?
AND T.JUDGE_STOVE_NO = ?
GROUP BY T.BATCH_NO
SELECT COUNT(1)ACOUNT
FROM HTT_CRACK_DETECTION_ET T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.BATCH_NO >= '#PHY_BATCH_NO#'
SELECT S1.*
FROM PLN_ZY_RCL_M S,
PLN_SALEORD T2,
CRAFT_ORD_DESIGN T3,
CRAFT_ORD_DESIGN_STD_PIC_SMP S1
WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
AND T2.ORD_LN_PK = T3.ORD_LN_PK
AND T3.CRAFT_SEQ = S.CRAFT_SEQ
AND S1.MSC_PLINE = S.INDEX_SEQ
AND (S1.PIC = S.PIC OR S1.CRAFT_SOURCE = '2')
AND T3.DESGIN_KEY = S1.DESGIN_KEY
AND S1.PROCESS_CODE = 'F'
AND S.PRO_PLAN_ID = ?
AND S.GX_PLAN_NO = ?
AND S.JUDGE_STOVE_NO = ?
AND S1.CRAFT_SOURCE = ?
AND S1.RATE = '408607'
SELECT S.* ,SUBSTR(S.SAMPLE_NO,LENGTH(S.SAMPLE_NO))POSTION
FROM PIPE_CHECKCONSIGN_BASEINFO T, PIPE_CHECKCONSIGN_DETAIL S
WHERE T.CHECK_NO = S.CHECK_NO
AND T.PROCESS_CODE = 'F'
AND T.HEAT_NO = ?
AND T.CRAFT_SOURCE = ?
AND S.PHY_CODE_MAX IN
('C0003', 'C0021', 'C0075', 'C0076', 'C0101', 'C0004', 'C0077',
'C0078', 'C0100', 'C0102', 'C0103', 'C0107', 'C0130', 'C0131', 'C0005', 'C0079','C0080','C0081')
'#ZY_BATCH_ID#'
AND T.CRAFT_SOURCE = '1'
]]>
SELECT NVL(SUM(T.ACT_COUNT),0) ACOUNT
FROM PORT_HTT_BATCH_SAMPLE_RESULT T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.INSTORE_FLAG = '1'
select t.*
from PLN_ORDER_RCL_S t
WHERE T.PRO_PLAN_ID = ?
AND T.GX_PLAN_NO = ?