'2'
AND T.IS_BATCH =
(SELECT MAX(P1.IS_BATCH)
FROM MIL_PLAN P1
WHERE P1.ID = T.ID
AND REGEXP_REPLACE(P1.JUDGE_STOVE_NO, '-.*', '') =
REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', ''))
]]>
'2'
AND (T.PIC IS NOT NULL OR T.IF_PRODUCT = '1')
]]>
SELECT T.LOT_NO, T.HEAT_NO JUDGE_STOVE_NO_DESC, 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.CONTRACT_NO
FROM PIPE_CHECKCONSIGN_BASEINFO T
WHERE T.PROCESS_CODE = 'D'
AND T.CRAFT_SOURCE IN('0','1','3')
AND T.CHECK_COUNT = '0'
SELECT T.CHECK_NO,T.LOT_NO,T.JUDGE_STOVE_NO,MAX(T.IS_SAMPLE)IS_SAMPLE,MAX(T.PLINE_CODE)PLINE_CODE FROM PIPE_CHECKCONSIGN_NOQUALIFIED T WHERE 1 = 1
SELECT T.*,(SELECT T1.PLINE_NAME FROM COM_BASE_PLINE T1 WHERE T1.PLINE_CODE = T.PLINE_CODE)PLINE_NAME
FROM MIL_PLAN T WHERE T.ID = ? AND T.JUDGE_STOVE_NO = ?
SELECT T.*,(SELECT T1.PLINE_NAME FROM COM_BASE_PLINE T1 WHERE T1.PLINE_CODE = T.PLINE_CODE)PLINE_NAME
FROM MIL_PLAN T WHERE T.LOT_NO = ? AND T.JUDGE_STOVE_NO = ? || '-01'
AND T.CONTRACT_NO = ?
SELECT T.IS_SAMPLE
FROM PIPE_CHECKCONSIGN_NOQUALIFIED T
WHERE T.LOT_NO = '#LOT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.CHECK_NO = '#CHECK_NO#'
AND ROWNUM = 1
'1'
ORDER BY T.STATUS ASC, T.MAT_NO)
]]>
'1'
ORDER BY T.STATUS ASC,T.MAT_NO)
]]>
'1'
ORDER BY T.STATUS ASC,T.MAT_NO)
]]>
SELECT T.*
FROM CRAFT_SAMPLING_M T WHERE T.PROCESS_CODE = 'D'
AND T.ORD_LN_PK = ?
AND T.CRAFT_NO = ?
AND T.CRAFT_SEQ = ?
AND (T.STOVE_NUM = ? OR T.STOVE_NUM IS NULL)
ORDER BY T.SAMPLE_LENGTH ASC
SELECT T.*
FROM CRAFT_SAMPLING_DETAIL T WHERE T.PROCESS_CODE = 'D'
AND T.ORD_LN_PK = ?
AND T.CRAFT_NO = ?
AND T.CRAFT_SEQ = ?
UPDATE MIL_PLAN T
SET T.IS_BATCH = '#IS_BATCH#'
WHERE T.ID = '#ID#'
AND REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = REGEXP_REPLACE('#JUDGE_STOVE_NO#', '-.*', '')
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T
SET T.IS_SAMPLE_PIPE = '#IS_SAMPLE_PIPE#',
T.SAMPLE_PIPE_LEN_A = '#SAMPLE_PIPE_LEN_A#',
T.BATCH_NO = '#BATCH_NO#',
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 = TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_A#',0))+TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_B#',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.CRAFT_SOURCE = '#CRAFT_SOURCE#',
T.IS_BATCH = '2'
WHERE T.PLAN_ID = '#PLAN_ID#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.MAT_NO = '#MAT_NO#'
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T
SET T.IS_SAMPLE_PIPE = '#IS_SAMPLE_PIPE#',
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 = TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_A#',0))+TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_B#',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.CRAFT_SOURCE = '#CRAFT_SOURCE#',
T.IS_BATCH = '2'
WHERE T.PLAN_ID = '#PLAN_ID#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.MAT_NO = '#MAT_NO#'
UPDATE PORT_MIL_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.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)),
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#'
WHERE T.PLAN_ID = '#PLAN_ID#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.MAT_NO = '#MAT_NO#'
UPDATE PORT_MIL_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.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)),
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#'
WHERE T.PLAN_ID = '#PLAN_ID#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.MAT_NO = '#MAT_NO#'
UPDATE PIPE_CHECKCONSIGN_NOQUALIFIED T
SET T.IS_SAMPLE = '#IS_SAMPLE#'
WHERE T.LOT_NO = '#LOT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.CHECK_NO = '#CHECK_NO#'
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T
SET
T.BATCH_NO = '#BATCH_NO#'
WHERE T.PLAN_ID = '#PLAN_ID#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.MAT_NO = '#MAT_NO#'
SELECT T.IS_BATCH FROM MIL_PLAN T WHERE T.ID = '#ID#' AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
DECLARE
BEGIN
UPDATE MIL_PLAN T
SET T.IS_BATCH = '0'
WHERE T.ID = '#ID#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T
SET T.BATCH_NO = '',
T.IS_SAMPLE_PIPE = '0',
T.SAMPLE_PIPE_LEN = '',
T.SAMPLE_PIPE_LEN_A = '',
T.SAMPLE_PIPE_LEN_B = '',
T.GET_SAMPLE_NAME = '',
T.GET_SAMPLE_TIME = '',
T.GET_SAMPLE_SHIFT = '',
T.GET_SAMPLE_CLASS = '',
T.CRAFT_SOURCE = '',
T.IS_BATCH = ''
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
END;
DECLARE
BEGIN
UPDATE MIL_PLAN T
SET T.IS_BATCH = '1'
WHERE T.ID = '#ID#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T
SET T.IS_SAMPLE_PIPE = '0', T.SAMPLE_PIPE_LEN = '',T.SAMPLE_PIPE_LEN_A = '',T.SAMPLE_PIPE_LEN_B = '',
T.GET_SAMPLE_NAME = '',
T.GET_SAMPLE_TIME = '',
T.GET_SAMPLE_SHIFT = '',
T.CRAFT_SOURCE = '',
T.GET_SAMPLE_CLASS = ''
WHERE T.PLAN_ID = '#ID#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
END;
DECLARE
BEGIN
UPDATE MIL_PLAN T
SET T.IS_BATCH = '1'
WHERE T.LOT_NO = '#LOT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.IS_BATCH = '2';
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T
SET T.IS_SAMPLE_PIPE = '0', T.SAMPLE_PIPE_LEN = '',T.SAMPLE_PIPE_LEN_A = '',T.SAMPLE_PIPE_LEN_B = '',
T.GET_SAMPLE_NAME = '',
T.GET_SAMPLE_TIME = '',
T.GET_SAMPLE_SHIFT = '',
T.GET_SAMPLE_CLASS = '',
T.CRAFT_SOURCE = '',
T.IS_BATCH = ''
WHERE T.LOT_NO = '#LOT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.IS_BATCH = '2';
END;
DECLARE
BEGIN
UPDATE MIL_PLAN T
SET T.IS_BATCH = '0'
WHERE T.ID = '#ID#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T
SET T.BATCH_NO = '',
T.IS_SAMPLE_PIPE = '0',
T.SAMPLE_PIPE_LEN = '',
T.SAMPLE_PIPE_LEN_A = '',
T.SAMPLE_PIPE_LEN_B = '',
T.GET_SAMPLE_NAME = '',
T.GET_SAMPLE_TIME = '',
T.GET_SAMPLE_SHIFT = '',
T.GET_SAMPLE_CLASS = '',
T.CRAFT_SOURCE = '',
T.IS_BATCH = ''
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
END;
SELECT BATCH_NO,
MAT_NO,
SAMPLE_PIPE_LEN_A,
SAMPLE_PIPE_LEN_B,
PHY_CODE_GROUP,
PHY_CODE_GROUPB
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE IS_SAMPLE_PIPE = '1'
AND IS_VALID = '1'
AND PLAN_ID = ?
AND JUDGE_STOVE_NO = ?
AND T.CRAFT_SOURCE = ?
AND (IS_BATCH = '2' OR IS_BATCH IS NULL)
ORDER BY BATCH_NO, MAT_NO
SELECT BATCH_NO,
MAT_NO,
SAMPLE_PIPE_LEN_A,
SAMPLE_PIPE_LEN_B,
PHY_CODE_GROUP,
PHY_CODE_GROUPB
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE IS_SAMPLE_PIPE = '1'
AND IS_VALID = '1'
AND LOT_NO = ?
AND JUDGE_STOVE_NO = ?
AND T.CRAFT_SOURCE = ?
AND IS_BATCH = '2'
ORDER BY BATCH_NO, MAT_NO
SELECT
BATCH_NO,
MAT_NO,
RESAMPLE_PIPE_LEN_A,
RESAMPLE_PIPE_LEN_B,
REPHY_CODE_GROUP,
REPHY_CODE_GROUPB
FROM PORT_MIL_BATCH_SAMPLE_RESULT
WHERE IS_SAMPLE_PIPE = '1'
AND IS_VALID = '1'
AND JUDGE_STOVE_NO = ? || '-01'
AND RE_GET_SAMPLE_STATUS = '1'
ORDER BY BATCH_NO,MAT_NO
SELECT T.PHY_CODE_MAX,
T.PHY_NAME_MAX
FROM PIPE_CHECKCONSIGN_NOQUALIFIED T
WHERE T.LOT_NO = ?
AND T.JUDGE_STOVE_NO = ?
AND T.CHECK_NO = ?
GROUP BY T.PHY_CODE_MAX,T.PHY_NAME_MAX
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 MIL_PLAN S,
PLN_SALEORD T2,
CRAFT_ORD_DESIGN T3,
CRAFT_ORD_DESIGN_STD_CIC T
WHERE SUBSTR(S.ORD_LN_DLY_PK,
1,
DECODE(INSTR(S.ORD_LN_DLY_PK, '-'),
0,
LENGTH(S.ORD_LN_DLY_PK),
INSTR(S.ORD_LN_DLY_PK, '-', -1) - 1)) = 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 = '2'
AND S.PRO_PLAN_ID = ?
AND S.GX_PLAN_NO = ?
AND S.JUDGE_STOVE_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 MIL_PLAN S,
PLN_SALEORD T2,
CRAFT_ORD_DESIGN T3,
CRAFT_ORD_DESIGN_STD_CIC T
WHERE SUBSTR(S.ORD_LN_DLY_PK,
1,
DECODE(INSTR(S.ORD_LN_DLY_PK, '-'),
0,
LENGTH(S.ORD_LN_DLY_PK),
INSTR(S.ORD_LN_DLY_PK, '-', -1) - 1)) = 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 T.CHEM_CODE NOT IN ('C012', 'C013', 'C014')
AND S.CIC = T.CIC
AND (T.ISCHECK = '1' OR T.ISJUDGE = '1')
AND S.IF_PRODUCT = '1'
AND T.PROCESS_CODE = 'A'
AND S.PRO_PLAN_ID = ?
AND S.GX_PLAN_NO = ?
AND S.JUDGE_STOVE_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 MIL_PLAN S,
PLN_SALEORD T2,
CRAFT_ORD_DESIGN T3,
CRAFT_ORD_DESIGN_STD_CIC T
WHERE SUBSTR(S.ORD_LN_DLY_PK,
1,
DECODE(INSTR(S.ORD_LN_DLY_PK, '-'),
0,
LENGTH(S.ORD_LN_DLY_PK),
INSTR(S.ORD_LN_DLY_PK, '-', -1) - 1)) = 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 T.CHEM_CODE IN ('C012', 'C013', 'C014')
AND T.SPECL_FL = '1'
AND (T.ISCHECK = '1' OR T.ISJUDGE = '1')
AND S.IF_PRODUCT = '1'
AND S.PRO_PLAN_ID = ?
AND S.GX_PLAN_NO = ?
AND S.JUDGE_STOVE_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 MIL_PLAN S,
PLN_SALEORD T2,
CRAFT_ORD_DESIGN T3,
CRAFT_ORD_DESIGN_STD_CIC T
WHERE SUBSTR(S.ORD_LN_DLY_PK,
1,
DECODE(INSTR(S.ORD_LN_DLY_PK, '-'),
0,
LENGTH(S.ORD_LN_DLY_PK),
INSTR(S.ORD_LN_DLY_PK, '-', -1) - 1)) = 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 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 = ?
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,
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 MIL_PLAN S,
PLN_SALEORD T2,
CRAFT_ORD_DESIGN T3,
CRAFT_ORD_DESIGN_STD_PIC T,
CRAFT_ORD_DESIGN_STD_PIC_SMP S1
WHERE SUBSTR(S.ORD_LN_DLY_PK,
1,
DECODE(INSTR(S.ORD_LN_DLY_PK, '-'),
0,
LENGTH(S.ORD_LN_DLY_PK),
INSTR(S.ORD_LN_DLY_PK, '-', -1) - 1))= 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 = 'D'
AND S.PRO_PLAN_ID = ?
AND S.GX_PLAN_NO = ?
AND T.PIC = ?
AND S1.CRAFT_SOURCE = '0'
AND REGEXP_REPLACE(S.JUDGE_STOVE_NO, '-.*', '') = ?) 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,
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 MIL_PLAN S,
PLN_SALEORD T2,
CRAFT_ORD_DESIGN T3,
CRAFT_ORD_DESIGN_STD_PIC T,
CRAFT_ORD_DESIGN_STD_PIC_SMP S1
WHERE SUBSTR(S.ORD_LN_DLY_PK,
1,
DECODE(INSTR(S.ORD_LN_DLY_PK, '-'),
0,
LENGTH(S.ORD_LN_DLY_PK),
INSTR(S.ORD_LN_DLY_PK, '-', -1) - 1))= 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 = 'D'
AND S.PRO_PLAN_ID = ?
AND S.GX_PLAN_NO = ?
AND S1.CRAFT_SOURCE = '2'
AND REGEXP_REPLACE(S.JUDGE_STOVE_NO, '-.*', '') = ?) 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,
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 MIL_PLAN S,
PLN_SALEORD T2,
CRAFT_ORD_DESIGN T3,
CRAFT_ORD_DESIGN_STD_PIC T,
CRAFT_ORD_DESIGN_STD_PIC_SMP S1
WHERE SUBSTR(S.ORD_LN_DLY_PK,
1,
DECODE(INSTR(S.ORD_LN_DLY_PK, '-'),
0,
LENGTH(S.ORD_LN_DLY_PK),
INSTR(S.ORD_LN_DLY_PK, '-', -1) - 1)) = 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 = 'D'
AND T.CRAFT_SOURCE = ?
AND S.PRO_PLAN_ID = ?
AND S.GX_PLAN_NO = ?
AND REGEXP_REPLACE(S.JUDGE_STOVE_NO, '-.*', '') = ?) T
WHERE RN = '1'
SELECT NVL(COUNT(1),0)ACOUNT
FROM PIPE_CHECKCONSIGN_BASEINFO T
WHERE T.LOT_NO = '#LOT_NO#'
AND T.PROCESS_CODE = 'D'
SELECT CHECK_NO FROM (SELECT ROWNUM SEQ,CHECK_NO FROM ( SELECT T.CHECK_NO
FROM PIPE_CHECKCONSIGN_BASEINFO T
WHERE T.LOT_NO = '#LOT_NO#'
AND T.PROCESS_CODE = 'D'
AND T.CHECK_COUNT = '0'
ORDER BY T.CONSIGN_TIME ASC)) WHERE SEQ = ?
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 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.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,
T.SPLINE_ITEM_CODE_S,
T.SPLINE_ITEM_NAME_S,
T.SPLINE_ITEM_CODE_F,
T.SPLINE_ITEM_NAME_F,
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 MIL_PLAN S,
PLN_SALEORD T2,
CRAFT_ORD_DESIGN T3,
CRAFT_ORD_DESIGN_STD_PIC_SMP T
WHERE SUBSTR(S.ORD_LN_DLY_PK,
1,
DECODE(INSTR(S.ORD_LN_DLY_PK, '-'),
0,
LENGTH(S.ORD_LN_DLY_PK),
INSTR(S.ORD_LN_DLY_PK, '-', -1) - 1)) = 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 = 'D'
AND S.PRO_PLAN_ID = ?
AND S.GX_PLAN_NO = ?
AND S.JUDGE_STOVE_NO = ?
AND T.PHY_CODE_MIN = ?) 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.CRAFT_SOURCE IN ('0', '1')
SELECT T.CHECK_NO_SHORT FROM COM_BASE_PLINE T WHERE T.PLINE_CODE = '#PLINE_CODE#'
SELECT ?||
LPAD(NVL( SUBSTR(MAX(TO_NUMBER(REGEXP_REPLACE(t.sample_no, '[^0-9]'))), 5, 6), 0) + 1, 5, 0) SAMPLE_NO
FROM PIPE_CHECKCONSIGN_DETAIL T
WHERE T.SAMPLE_NO LIKE ?||'%'
SELECT S.SPLINE_DESC FROM COM_BASE_PLINE S WHERE S.PLINE_CODE = ?
INSERT INTO PIPE_CHECKCONSIGN_BASEINFO
(CHECK_NO,
HEAT_NO,
STEEL_GRADE,
STEEL_NO,
PRODUCT_NAME,
CRAFT_FILE_NO,
PRODUCT_STD,
CONTRACT_NO,
DIMATER,
HEIGHT,
BUCKLE_TYPE,
PROCESS_STATUS,
GET_NAME,
GET_TIME,
CONSIGN_DEPT,
CONSIGN_NAME,
CONSIGN_TIME,
CONSIGNDEPT_SEND_NAME,
CONSIGNDEPT_SEND_TIME,
ISPRODUCER,
SPEC_REQ,
FLAG,
REMARK,
STOVE_NO,
LOT_NO,
CRAFT_PATH,
PLINE_CODE,
PRODUCER_DEPT,
FINAL_USER_DESC,
PROCESS_CODE,
CRAFT_SOURCE,
INDEX_SEQ,
PIC,
CIC,
LOT_NO_GROUP,
HEAT_PLAN_NO,
SUPPLY_UNIT_CODE,
SUPPLY_UNIT,
PRDCR_NO,
JH_FLAG)
VALUES
('#CHECK_NO#',
'#HEAT_NO#',
'#STEEL_GRADE#',
'#STEEL_NO#',
'#PRODUCT_NAME#',
'#CRAFT_FILE_NO#',
'#PRODUCT_STD#',
'#CONTRACT_NO#',
'#DIMATER#',
'#HEIGHT#',
'#BUCKLE_TYPE#',
'#PROCESS_STATUS#',
'#GET_NAME#',
SYSDATE,
'#CONSIGN_DEPT#',
'#GET_NAME#',
SYSDATE,
'#GET_NAME#',
SYSDATE,
'#ISPRODUCER#',
'#SPEC_REQ#',
'#FLAG#',
'#REMARK#',
'#STOVE_NO#',
'#LOT_NO#',
'#CRAFT_PATH#',
'#PLINE_CODE#',
'#PRODUCER_DEPT#',
'#FINAL_USER_DESC#',
'#PROCESS_CODE#',
'#CRAFT_SOURCE#',
'#INDEX_SEQ#',
'#PIC#',
'#CIC#',
'#LOT_NO_GROUP#',
'#HEAT_PLAN_NO#',
'#SUPPLY_UNIT_CODE#',
'#SUPPLY_UNIT#',
'#PRDCR_NO#',
'#JH_FLAG#')
UPDATE PIPE_CHECKCONSIGN_DETAIL
SET SAMPLE_NO = '#SAMPLE_NO#',
SAMPLE_NO_MIN = '#SAMPLE_NO_MIN#',
BATCH_NO = '#BATCH_NO#',
SAMPLE_BARCODE = '#SAMPLE_BARCODE#',
SAMPLE_LEN = '#SAMPLE_LEN#',
PHY_CODE_MAX = '#PHY_CODE_MAX#',
PHY_NAME_MAX = '#PHY_NAME_MAX#',
DEPT_ID = '#DEPT_ID#',
SAMPLE_COUNT = '#SAMPLE_COUNT#',
CHECK_STD = '#CHECK_STD#',
LENGTH = '#LENGTH#',
WIDTH = '#WIDTH#',
EIC = '#EIC#',
PHY_DIR = '#PHY_DIR#',
SIZE_DESC = '#SIZE_DESC#',
ISRCL = '#ISRCL#',
IS_NOTICE_PRODUCER = '#IS_NOTICE_PRODUCER#',
MAT_NO = '#MAT_NO#',
FOR_CHECK_NO = '#FOR_CHECK_NO#',
FLAG = '#FLAG#',
RATE = '#RATE#',
DESC_RATE = '#DESC_RATE#',
SSC_CONDITION = '#SSC_CONDITION#',
VALIDFLAG = '#VALIDFLAG#',
JG_SEND_NAME = '#JG_SEND_NAME#',
JG_SEND_TIME = '#JG_SEND_TIME#',
HEAD_MAT_NO = '#HEAD_MAT_NO#',
BAR_CODE = '#BAR_CODE#',
TS_SAMPLE_REMARK = '#TS_SAMPLE_REMARK#',
SPEC_FLAG = '#SPEC_FLAG#',
WHERE CHECK_NO = '#CHECK_NO#'
INSERT INTO PIPE_CHECKCONSIGN_DETAIL
(CHECK_NO,
SAMPLE_NO,
SAMPLE_NO_MIN,
BATCH_NO,
SAMPLE_BARCODE,
SAMPLE_LEN,
PHY_CODE_MAX,
PHY_NAME_MAX,
DEPT_ID,
SAMPLE_COUNT,
CHECK_STD,
LENGTH,
WIDTH,
EIC,
PHY_DIR,
SIZE_DESC,
ISRCL,
IS_NOTICE_PRODUCER,
MAT_NO,
FOR_CHECK_NO,
FLAG,
RATE,
DESC_RATE,
SSC_CONDITION,
VALIDFLAG,
JG_SEND_NAME,
JG_SEND_TIME,
HEAD_MAT_NO,
BAR_CODE,
TS_SAMPLE_REMARK,
SPEC_FLAG)
VALUES
('#CHECK_NO#',
'#SAMPLE_NO#',
'#SAMPLE_NO_MIN#',
'#BATCH_NO#',
'#SAMPLE_BARCODE#',
'#SAMPLE_LEN#',
'#PHY_CODE_MAX#',
'#PHY_NAME_MAX#',
'#DEPT_ID#',
'#SAMPLE_COUNT#',
'#CHECK_STD#',
'#LENGTH#',
'#WIDTH#',
'#EIC#',
'#PHY_DIR#',
'#SIZE_DESC#',
'#ISRCL#',
'#IS_NOTICE_PRODUCER#',
'#MAT_NO#',
'#FOR_CHECK_NO#',
'#FLAG#',
'#RATE#',
'#DESC_RATE#',
'#SSC_CONDITION#',
'#VALIDFLAG#',
'#JG_SEND_NAME#',
TO_DATE('#JG_SEND_TIME#','YYYY-MM-DD HH24:MI:SS'),
'#HEAD_MAT_NO#',
'#BAR_CODE#',
'#TS_SAMPLE_REMARK#',
'#SPEC_FLAG#')
DECLARE
P_RATE VARCHAR2(20);
BEGIN
--新增二层表
INSERT INTO QCM_ZC_CHECKCONSIGN_DETAIL
(CHECK_NO,
BATCH_NO,
SAMPLE_NO,
PHY_CODE_MAX,
PHY_NAME_MAX,
RATE,
DESC_RATE,
EIC,
SAMPLE_COUNT,
SAMPLE_LEN,
MAT_NO,
HEAD_MAT_NO,
BAR_CODE,
VALIDFLAG)
VALUES
('#CHECK_NO#',
'#BATCH_NO#',
'#SAMPLE_NO#',
'#PHY_CODE_MAX#',
'#PHY_NAME_MAX#',
'#RATE#',
'#DESC_RATE#',
'#EIC#',
'#SAMPLE_COUNT#',
'#SAMPLE_LEN#',
'#MAT_NO#',
'#HEAD_MAT_NO#',
'#BAR_CODE#',
'#VALIDFLAG#');
--更新炉批结果表
SELECT T.RATE
INTO P_RATE
FROM QCM_ZC_CHECKCONSIGN_DETAIL T
WHERE T.CHECK_NO = '#CHECK_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.PHY_CODE_MAX = '#PHY_CODE_MAX#'
AND ROWNUM = 1;
IF P_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 = '#CHECK_NO#'
AND C.BATCH_NO = '#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 = NULL
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 P_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 = '#CHECK_NO#'
AND C.BATCH_NO = '#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 = NULL
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 = '#CHECK_NO#'
AND C.BATCH_NO = '#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 = NULL
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;
INSERT INTO PIPE_CHECKCONSIGN_CHEMDETAIL
(CHECK_NO,
SAMPLE_NO,
BATCH_NO,
CHEM_CODE,
CHEM_NAME,
ISCHECK,
ISJUDGE,
ISQUOTE,
STDMIN_SIGN,
STDMIN,
STDMAX_SIGN,
STDMAX,
STDTARGET)
VALUES
('#CHECK_NO#',
'#SAMPLE_NO#',
'#BATCH_NO#',
'#CHEM_CODE#',
'#CHEM_NAME#',
'#ISCHECK#',
'#ISJUDGE#',
'#ISQUOTE#',
'#STDMIN_SIGN#',
'#STDMIN#',
'#STDMAX_SIGN#',
'#STDMAX#',
'#STDTARGET#')
UPDATE PIPE_CHECKCONSIGN_PHYDETAIL
SET SAMPLE_NO = '#SAMPLE_NO#',
BATCH_NO = '#BATCH_NO#',
INDEX_SEQ = '#INDEX_SEQ#',
DEPT_ID = '#DEPT_ID#',
PHY_CODE_MAX = '#PHY_CODE_MAX#',
PHY_NAME_MAX = '#PHY_NAME_MAX#',
PHY_CODE_MIN = '#PHY_CODE_MIN#',
PHY_NAME_MIN = '#PHY_NAME_MIN#',
PHY_CODE = '#PHY_CODE#',
PHY_NAME = '#PHY_NAME#',
PHY_UNIT = '#PHY_UNIT#',
ITEM_CODE_F = '#ITEM_CODE_F#',
ITEM_NAME_F = '#ITEM_NAME_F#',
ITEM_CODE_W = '#ITEM_CODE_W#',
ITEM_NAME_W = '#ITEM_NAME_W#',
ITEM_CODE_S = '#ITEM_CODE_S#',
ITEM_NAME_S = '#ITEM_NAME_S#',
ISCHECK = '#ISCHECK#',
ISQUOTE = '#ISQUOTE#',
ISJUDGE = '#ISJUDGE#',
RESULT_COUNT = '#RESULT_COUNT#',
STDMIN_SIGN = '#STDMIN_SIGN#',
STDMIN = '#STDMIN#',
STDMAX_SIGN = '#STDMAX_SIGN#',
STDMAX = '#STDMAX#',
JUDGE_BASIS = '#JUDGE_BASIS#',
STDMEMO = '#STDMEMO#',
BILLET_SAMPLE = '#BILLET_SAMPLE#',
SEQ = '#SEQ#',
SPLINE_ITEM_CODE_S = '#SPLINE_ITEM_CODE_S#',
SPLINE_ITEM_NAME_S = '#SPLINE_ITEM_NAME_S#',
SPLINE_ITEM_CODE_F = '#SPLINE_ITEM_CODE_F#',
SPLINE_ITEM_NAME_F = '#SPLINE_ITEM_NAME_F#'
WHERE CHECK_NO = '#CHECK_NO#'
INSERT INTO PIPE_CHECKCONSIGN_PHYDETAIL
(CHECK_NO,
SAMPLE_NO,
BATCH_NO,
INDEX_SEQ,
DEPT_ID,
PHY_CODE_MAX,
PHY_NAME_MAX,
PHY_CODE_MIN,
PHY_NAME_MIN,
PHY_CODE,
PHY_NAME,
PHY_UNIT,
ITEM_CODE_F,
ITEM_NAME_F,
ITEM_CODE_W,
ITEM_NAME_W,
ITEM_CODE_S,
ITEM_NAME_S,
ISCHECK,
ISQUOTE,
ISJUDGE,
RESULT_COUNT,
STDMIN_SIGN,
STDMIN,
STDMAX_SIGN,
STDMAX,
JUDGE_BASIS,
STDMEMO,
BILLET_SAMPLE,
SEQ,
SPLINE_ITEM_CODE_S,
SPLINE_ITEM_NAME_S,
SPLINE_ITEM_CODE_F,
SPLINE_ITEM_NAME_F)
VALUES
('#CHECK_NO#',
'#SAMPLE_NO#',
'#BATCH_NO#',
'#INDEX_SEQ#',
'#DEPT_ID#',
'#PHY_CODE_MAX#',
'#PHY_NAME_MAX#',
'#PHY_CODE_MIN#',
'#PHY_NAME_MIN#',
'#PHY_CODE#',
'#PHY_NAME#',
'#PHY_UNIT#',
'#ITEM_CODE_F#',
'#ITEM_NAME_F#',
'#ITEM_CODE_W#',
'#ITEM_NAME_W#',
'#ITEM_CODE_S#',
'#ITEM_NAME_S#',
'#ISCHECK#',
'#ISQUOTE#',
'#ISJUDGE#',
'#RESULT_COUNT#',
'#STDMIN_SIGN#',
'#STDMIN#',
'#STDMAX_SIGN#',
'#STDMAX#',
'#JUDGE_BASIS#',
'#STDMEMO#',
'#BILLET_SAMPLE#',
'#SEQ#',
'#SPLINE_ITEM_CODE_S#',
'#SPLINE_ITEM_NAME_S#',
'#SPLINE_ITEM_CODE_F#',
'#SPLINE_ITEM_NAME_F#')
INSERT INTO PIPE_CHECKCONSIGN_SSCD_PARM
(REULST_NO,
CHECK_NO,
SAMPLE_NO,
PHY_CODE_MAX,
SEQ,
HRC1,
HRC2,
HRC3,
SAMPLE_LENGTH,
SAMPLE_THICKNESS,
ABDOMINAL_WALL_THICKNESS,
EDGE_PITCH,
INITIAL_CRACK_LENGTH,
SAMPLE_WIDTH,
WIDTH_AFTER_LOAD,
CRACK_LENGTH_AFTER_TEST1,
CRACK_LENGTH_AFTER_TEST2,
CRACK_LENGTH_AFTER_TEST3,
INTEGER1,
KISCC,
KISCC_AVG,
CREATE_TIME,
CRACK_LENGTH,
HRC_AV,
CRACK_LENGTH_AFTER_TEST4,
CRACK_LENGTH_AFTER_TEST5)
VALUES
('#REULST_NO#',
'#CHECK_NO#',
'#SAMPLE_NO#',
'#PHY_CODE_MAX#',
'#SEQ#',
'#HRC1#',
'#HRC2#',
'#HRC3#',
'#SAMPLE_LENGTH#',
'#SAMPLE_THICKNESS#',
'#ABDOMINAL_WALL_THICKNESS#',
'#EDGE_PITCH#',
'#INITIAL_CRACK_LENGTH#',
'#SAMPLE_WIDTH#',
'#WIDTH_AFTER_LOAD#',
'#CRACK_LENGTH_AFTER_TEST1#',
'#CRACK_LENGTH_AFTER_TEST2#',
'#CRACK_LENGTH_AFTER_TEST3#',
'#INTEGER1#',
'#KISCC#',
'#KISCC_AVG#',
'#CREATE_TIME#',
'#CRACK_LENGTH#',
'#HRC_AV#',
'#CRACK_LENGTH_AFTER_TEST4#',
'#CRACK_LENGTH_AFTER_TEST5#')
UPDATE MIL_PLAN T SET T.IS_BATCH = '#IS_BATCH#',T.CHECK_NO = '#CHECK_NO#' WHERE T.LOT_NO = '#LOT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.ID = '#ID#'
UPDATE MIL_PLAN T SET T.IS_BATCH = '#IS_BATCH#',T.CHECK_NO = '' WHERE T.LOT_NO = '#LOT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.CHECK_NO = '#CHECK_NO#'
SELECT S.*
FROM PIPE_CHECKCONSIGN_BASEINFO T, PIPE_CHECKCONSIGN_DETAIL S
WHERE T.CHECK_NO = S.CHECK_NO
AND S.CHECK_NO = ?
AND T.CHECK_COUNT = ?
AND T.PROCESS_CODE = ?
ORDER BY S.BATCH_NO,S.SAMPLE_NO
'0'
AND T.PHY_CODE_MAX <>'ONH'
]]>
SELECT T.FLAG FROM PIPE_CHECKCONSIGN_BASEINFO T WHERE T.CHECK_NO = '#NEW_CHECK_NO#' AND T.VALIDFLAG = '1'
DECLARE
BEGIN
DELETE FROM PIPE_CHECKCONSIGN_DETAIL T WHERE T.CHECK_NO = '#CHECK_NO#';
DELETE FROM PIPE_CHECKCONSIGN_CHEMDETAIL T
WHERE T.CHECK_NO = '#CHECK_NO#';
DELETE FROM PIPE_CHECKCONSIGN_PHYDETAIL T
WHERE T.CHECK_NO = '#CHECK_NO#';
DELETE FROM PIPE_CHECKCONSIGN_BASEINFO T
WHERE T.CHECK_NO = '#CHECK_NO#';
END;
SELECT T.CHECK_NO,
T.PHY_CODE_MAX,
T.PHY_NAME_MAX,
T.LOT_NO,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
DECODE(T.IS_ORIGINAL, '0', '否', '1', '是')IS_ORIGINAL,
T.SAMPLE_COUNT,
T.ITEM_CODE_F,
T.ITEM_NAME_F,
T.ITEM_CODE_W,
T.ITEM_NAME_W,
T.ITEM_CODE_S,
T.ITEM_NAME_S
FROM PIPE_CHECKCONSIGN_NOQUALIFIED T
WHERE T.CHECK_NO = ?
AND T.JUDGE_STOVE_NO = ?
GROUP BY T.CHECK_NO,
T.PHY_CODE_MAX,
T.PHY_NAME_MAX,
T.LOT_NO,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.IS_ORIGINAL,
T.SAMPLE_COUNT,
T.ITEM_CODE_F,
T.ITEM_NAME_F,
T.ITEM_CODE_W,
T.ITEM_NAME_W,
T.ITEM_CODE_S,
T.ITEM_NAME_S
SELECT T.IS_SAMPLE FROM PIPE_CHECKCONSIGN_NOQUALIFIED T WHERE T.CHECK_NO = '#CHECK_NO#' AND ROWNUM = 1
SELECT T.CHECK_NO,
T.SAMPLE_NO,
T.JUDGE_STOVE_NO,
T.BATCH_NO
FROM PIPE_CHECKCONSIGN_NOQUALIFIED T
WHERE T.CHECK_NO = ?
GROUP BY T.CHECK_NO,
T.SAMPLE_NO,
T.JUDGE_STOVE_NO,
T.BATCH_NO
ORDER BY T.SAMPLE_NO ASC
DECLARE
BEGIN
FOR MYROW IN (SELECT *
FROM PIPE_CHECKCONSIGN_BASEINFO T
WHERE T.CHECK_NO = '#CHECK_NO#') LOOP
INSERT INTO PIPE_CHECKCONSIGN_BASEINFO
(CHECK_NO,
LOT_NO,
STOVE_NO,
HEAT_NO,
STEEL_GRADE,
STEEL_NO,
PRODUCT_NAME,
PRODUCT_STD,
CRAFT_FILE_NO,
CONTRACT_NO,
CHECK_COUNT,
PLINE_CODE,
DIMATER,
HEIGHT,
BUCKLE_TYPE,
PROCESS_STATUS,
CONSIGN_DEPT,
CONSIGN_NAME,
CONSIGN_TIME,
ISPRODUCER,
SPEC_REQ,
GET_NAME,
GET_TIME,
CONSIGNDEPT_SEND_NAME,
CONSIGNDEPT_SEND_TIME,
JG_RECEIVE_NAME,
JG_RECEIVE_TIME,
IS_RUSH,
RUSH_NAME,
RUSH_TIME,
FLAG,
SAMPLE_REMARK,
REMARK,
DATA_TYPE,
VALIDFLAG,
CRAFT_PATH,
PRODUCER_DEPT,
FINAL_USER_DESC,
STD_STYLE_DESC,
CAILI_PATH,
FUSHI_PATH,
JINWU_PATH,
GONGCHENG_PATH,
DIBEI_PATH,
HUAXUE_PATH,
PROCESS_CODE,
MERGER_NO,
CRAFT_SOURCE,
JG_PRINT_COUNT,
JG_PRINT_NAME,
JG_PRINT_TIME,
INDEX_SEQ,
PIC,
CIC,
LOT_NO_GROUP,
CAILI_PATH_FUJIAN,
JINWU_PATH_FUJIAN,
HEAT_PLAN_NO,
BATCH_NO,
SUPPLY_UNIT_CODE,
SUPPLY_UNIT)
VALUES
('#NEW_CHECK_NO#',
MYROW.LOT_NO,
MYROW.STOVE_NO,
MYROW.HEAT_NO,
MYROW.STEEL_GRADE,
MYROW.STEEL_NO,
MYROW.PRODUCT_NAME,
MYROW.PRODUCT_STD,
MYROW.CRAFT_FILE_NO,
MYROW.CONTRACT_NO,
'#CHECK_COUNT#',
MYROW.PLINE_CODE,
MYROW.DIMATER,
MYROW.HEIGHT,
MYROW.BUCKLE_TYPE,
MYROW.PROCESS_STATUS,
'#CONSIGN_DEPT#',
'#CONSIGN_NAME#',
SYSDATE,
MYROW.ISPRODUCER,
MYROW.SPEC_REQ,
MYROW.GET_NAME,
SYSDATE,
'#CONSIGN_NAME#',
SYSDATE,
'',
'',
MYROW.IS_RUSH,
MYROW.RUSH_NAME,
MYROW.RUSH_TIME,
'#FLAG#',
MYROW.SAMPLE_REMARK,
MYROW.REMARK || '#REMARK#',
MYROW.DATA_TYPE,
MYROW.VALIDFLAG,
MYROW.CRAFT_PATH,
MYROW.PRODUCER_DEPT,
MYROW.FINAL_USER_DESC,
MYROW.STD_STYLE_DESC,
'',
'',
'',
'',
'',
'',
MYROW.PROCESS_CODE,
'',
MYROW.CRAFT_SOURCE,
'',
'',
'',
MYROW.INDEX_SEQ,
MYROW.PIC,
MYROW.CIC,
MYROW.LOT_NO_GROUP,
'',
'',
MYROW.HEAT_PLAN_NO,
MYROW.BATCH_NO,
MYROW.SUPPLY_UNIT_CODE,
MYROW.SUPPLY_UNIT);
END LOOP;
UPDATE PIPE_CHECKCONSIGN_NOQUALIFIED T
SET T.IS_SAMPLE = '3'
WHERE T.CHECK_NO = '#CHECK_NO#';
END;
UPDATE PIPE_CHECKCONSIGN_BASEINFO
SET
LOT_NO = '#LOT_NO#',
STOVE_NO = '#STOVE_NO#',
HEAT_NO = '#HEAT_NO#',
STEEL_GRADE = '#STEEL_GRADE#',
STEEL_NO = '#STEEL_NO#',
PRODUCT_NAME = '#PRODUCT_NAME#',
PRODUCT_STD = '#PRODUCT_STD#',
CRAFT_FILE_NO = '#CRAFT_FILE_NO#',
CONTRACT_NO = '#CONTRACT_NO#',
CHECK_COUNT = '#CHECK_COUNT#',
PLINE_CODE = '#PLINE_CODE#',
DIMATER = '#DIMATER#',
HEIGHT = '#HEIGHT#',
BUCKLE_TYPE = '#BUCKLE_TYPE#',
PROCESS_STATUS = '#PROCESS_STATUS#',
CONSIGN_DEPT = '#CONSIGN_DEPT#',
CONSIGN_NAME = '#CONSIGN_NAME#',
ISPRODUCER = '#ISPRODUCER#',
SPEC_REQ = '#SPEC_REQ#',
GET_NAME = '#GET_NAME#',
GET_TIME = '#GET_TIME#',
CONSIGNDEPT_SEND_NAME = '#CONSIGNDEPT_SEND_NAME#',
JG_RECEIVE_NAME = '#JG_RECEIVE_NAME#',
IS_RUSH = '#IS_RUSH#',
RUSH_NAME = '#RUSH_NAME#',
FLAG = '#FLAG#',
SAMPLE_REMARK = '#SAMPLE_REMARK#',
REMARK = '#REMARK#',
DATA_TYPE = '#DATA_TYPE#',
VALIDFLAG = '#VALIDFLAG#',
CRAFT_PATH = '#CRAFT_PATH#',
PRODUCER_DEPT = '#PRODUCER_DEPT#',
FINAL_USER_DESC = '#FINAL_USER_DESC#',
STD_STYLE_DESC = '#STD_STYLE_DESC#',
CAILI_PATH = '#CAILI_PATH#',
FUSHI_PATH = '#FUSHI_PATH#',
JINWU_PATH = '#JINWU_PATH#',
GONGCHENG_PATH = '#GONGCHENG_PATH#',
DIBEI_PATH = '#DIBEI_PATH#',
HUAXUE_PATH = '#HUAXUE_PATH#',
PROCESS_CODE = '#PROCESS_CODE#',
MERGER_NO = '#MERGER_NO#',
CRAFT_SOURCE = '#CRAFT_SOURCE#',
JG_PRINT_COUNT = '#JG_PRINT_COUNT#',
JG_PRINT_NAME = '#JG_PRINT_NAME#',
INDEX_SEQ = '#INDEX_SEQ#',
PIC = '#PIC#',
CIC = '#CIC#',
LOT_NO_GROUP = '#LOT_NO_GROUP#',
CAILI_PATH_FUJIAN = '#CAILI_PATH_FUJIAN#',
JINWU_PATH_FUJIAN = '#JINWU_PATH_FUJIAN#',
HEAT_PLAN_NO = '#HEAT_PLAN_NO#',
BATCH_NO = '#BATCH_NO#',
SUPPLY_UNIT_CODE = '#SUPPLY_UNIT_CODE#',
SUPPLY_UNIT = '#SUPPLY_UNIT#'
WHERE CHECK_NO = '#CHECK_NO#'
SELECT T.CHECK_NO,
T.SAMPLE_NO,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.PHY_CODE_MAX,
T.PHY_NAME_MAX,
S.MAT_NO
FROM PIPE_CHECKCONSIGN_NOQUALIFIED T, PIPE_CHECKCONSIGN_DETAIL S
WHERE T.CHECK_NO = S.CHECK_NO
AND T.SAMPLE_NO = S.SAMPLE_NO
AND T.CHECK_NO = ?
AND T.SAMPLE_NO = ?
GROUP BY T.CHECK_NO,
T.SAMPLE_NO,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.PHY_CODE_MAX,
T.PHY_NAME_MAX,
S.MAT_NO
INSERT INTO PIPE_CHECKCONSIGN_CHEMDETAIL
SELECT '#NEW_CHECK_NO#',
'#NEW_SAMPLE_NO#',
CHEM_CODE,
CHEM_NAME,
CHEM_TYPE,
ISCHECK,
ISJUDGE,
ISQUOTE,
COMPLEX_TYPE,
CHEM_FORMULA,
STDMIN_SIGN,
STDMIN,
STDMAX_SIGN,
STDMAX,
STDTARGET,
STDMEMO,
ELE_CODE,
ELE_NAME,
ELE_MIN_SIGN,
ELE_MIN,
ELE_MAX_SIGN,
ELE_MAX,
REP_CODE,
REP_NAME,
REP_MIN_SIGN,
REP_MIN,
REP_MAX_SIGN,
REP_MAX,
REP_VAL,
SELECT_STEEL_NO,
'#STD_STEEL_STD_VALUE#',
'#STD_STEEL_PROCESS_VALUE#',
'#ROUND_VALUE#',
'#PROCESS_VALUE#',
'#AUDIT_VALUE#',
'#QUOTE_VALUE#',
REMARK,
'',
'',
'',
'',
'',
'',
'#IS_CJ#',
BATCH_NO
FROM PIPE_CHECKCONSIGN_CHEMDETAIL T
WHERE T.CHECK_NO = '#CHECK_NO#'
AND T.SAMPLE_NO = '#SAMPLE_NO#'
AND T.CHEM_CODE = '#CHEM_CODE#'
INSERT INTO PIPE_CHECKCONSIGN_PHYDETAIL
SELECT SYS_GUID(),
'#NEW_CHECK_NO#',
BATCH_NO,
'#NEW_SAMPLE_NO#',
INDEX_SEQ,
DEPT_ID,
PHY_CODE_MAX,
PHY_NAME_MAX,
PHY_CODE_MIN,
PHY_NAME_MIN,
PHY_CODE,
PHY_NAME,
PHY_UNIT,
ITEM_CODE_F,
ITEM_NAME_F,
ITEM_CODE_W,
ITEM_NAME_W,
ITEM_CODE_S,
ITEM_NAME_S,
GROUP_SEQ,
RESULT_COUNT,
ISCHECK,
ISJUDGE,
ISQUOTE,
PHY_TYPE,
PHY_FORMULA,
STDMIN_SIGN,
STDMIN,
STDMAX_SIGN,
STDMAX,
JUDGE_BASIS,
STDMIN_SIGN2,
STDMIN2,
STDMAX_SIGN2,
STDMAX2,
STD_CHOOSE,
STDMEMO,
ADDCONDITION,
ADDSTDCON_CODE,
ADDSTD_MIN_SIGN,
ADDSTD_MIN,
ADDSTD_MAX_SIGN,
ADDSTD_MAX,
ADDPERCENT,
BILLET_SAMPLE,
REMARK,
'#VALUE1#',
'#VALUE2#',
'#VALUE3#',
'#VALUE4#',
'#VALUE5#',
'#VALUE6#',
'#VALUE7#',
'#VALUE8#',
'#VALUE9#',
'#VALUE10#',
'#VALUE11#',
'#VALUE12#',
'#VALUE13#',
'#VALUE14#',
'#VALUE15#',
'#AVERAGE_VALUE#',
'#IS_GOOD#',
'#IS_DEFECT#'
FROM PIPE_CHECKCONSIGN_PHYDETAIL T
WHERE T.CHECK_NO = '#CHECK_NO#'
AND T.SAMPLE_NO = '#SAMPLE_NO#'
AND T.PHY_CODE_MAX = '#PHY_CODE_MAX#'
INSERT INTO PIPE_CHECKCONSIGN_DETAIL
SELECT
'#NEW_CHECK_NO#',
T.BATCH_NO,
'#NEW_SAMPLE_NO#',
T.SAMPLE_NO_MIN,
T.SAMPLE_BARCODE,
T.SAMPLE_LEN,
T.CHECK_STD,
T.PHY_CODE_MAX,
T.PHY_NAME_MAX,
T.SAMPLE_COUNT,
T.DEPT_ID,
T.LENGTH,
T.WIDTH,
T.EIC,
T.PHY_DIR,
T.SIZE_DESC,
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
T.ISRCL,
T.RCL_MOVE_REMARK,
T.IS_NOTICE_PRODUCER,
T.NOTICE_PRODUCER_REMARK,
T.IS_RESAMPLE_REST,
T.RESAMPLE_REST_REMARK,
'#SPEC_FLAG#',
T.SPEC_MOVE_REMARK,
'#FLAG#',
T.SAMPLE_REMARK,
'#REMARK#',
'',
'',
'#MAT_NO#',
''
FROM PIPE_CHECKCONSIGN_DETAIL T
WHERE T.CHECK_NO = '#CHECK_NO#'
AND T.SAMPLE_NO = '#SAMPLE_NO#'
AND T.PHY_CODE_MAX = '#PHY_CODE_MAX#'
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_MIL_BATCH_SAMPLE_RESULT T
SET T.STATUS = '2'
WHERE T.MAT_NO = '#MAT_NO#'
AND T.STATUS = '0';
SELECT MAT_NO
INTO V_MAT_NO
FROM (SELECT T.MAT_NO
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.STATUS = '0'
AND T.IS_SAMPLE_PIPE = '0'
ORDER BY T.MAT_NO ASC)
WHERE ROWNUM = 1;
UPDATE PORT_MIL_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;
SELECT * FROM (SELECT T.MAT_NO
FROM PORT_MIL_BATCH_SAMPLE_RESULT T
WHERE REGEXP_REPLACE(T.JUDGE_STOVE_NO, '-.*', '') = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.STATUS = '0'
AND T.IS_SAMPLE_PIPE = '0'
ORDER BY T.MAT_NO ASC)
WHERE ROWNUM = 1
DECLARE
BEGIN
DELETE FROM PIPE_CHECKCONSIGN_BASEINFO T WHERE T.CHECK_NO = '#NEW_CHECK_NO#';
DELETE FROM PIPE_CHECKCONSIGN_DETAIL T WHERE T.CHECK_NO = '#NEW_CHECK_NO#';
DELETE FROM PIPE_CHECKCONSIGN_CHEMDETAIL T
WHERE T.CHECK_NO = '#NEW_CHECK_NO#';
DELETE FROM PIPE_CHECKCONSIGN_PHYDETAIL T
WHERE T.CHECK_NO = '#NEW_CHECK_NO#';
UPDATE PIPE_CHECKCONSIGN_NOQUALIFIED T
SET T.IS_SAMPLE = '#IS_SAMPLE#'
WHERE T.CHECK_NO = '#CHECK_NO#';
END;
SELECT T.CHECK_NO, T.MAT_NO
FROM PIPE_CHECKCONSIGN_DETAIL T
WHERE T.CHECK_NO = '#CHECK_NO#'
GROUP BY T.CHECK_NO, T.MAT_NO
DECLARE
BEGIN
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T
SET T.IS_SAMPLE_PIPE = '0'
WHERE T.MAT_NO = '#MAT_NO#'
AND T.STATUS = '0';
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_MIL_BATCH_SAMPLE_RESULT T
SET T.STATUS = '0'
WHERE T.MAT_NO = '#MAT_NO#'
AND T.STATUS = '2'
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 *
FROM PIPE_CHECKCONSIGN_NOQUALIFIED T
WHERE T.CHECK_NO = ?
AND T.SAMPLE_NO = ?
AND T.PHY_CODE_MAX = ?
AND (T.JF_QUALIFIED = '0' OR T.NK_QUALIFIED = '0')
INSERT INTO QCM_ZC_CHECKCONSIGN(
CHECK_NO,
LOT_NO,
JUDGE_STOVE_NO,
BATCH_NO,
STOVE_NO,
PROCESS_CODE,
PLINE_CODE,
PLINE_NAME,
MATERIAL_NO,
MATERIAL_NAME,
PRODUCCODE,
PRODUCNAME,
STEELCODE,
STEELNAME,
GRADECODE,
GRADENAME,
SPEC_CODE,
SPEC_NAME,
MODEL_CODE,
MODEL_DESC,
STD_CODE,
STD_NAME,
STD_STYLE,
STD_STYLE_DESC,
ACT_DIMATER,
ACT_HEIGHT,
ACT_LEN_MIN,
ACT_LEN_MAX,
PRO_ORDER_ID,
GX_PLAN_NO,
ORD_LN_DLY_PK,
CRAF_NO,
CRAFT_SEQ,
INDEX_SEQ,
STEEL_STANDRAD,
CIC,
PIC,
BAL_YEAR_MONTH,
CONSIGN_NAME,
CONSIGN_TIME,
CONSIGN_MEMO,
TARGET,
CRAFT_SOURCE,
LOT_NO_GROUP)
VALUES(
'#CHECK_NO#',
'#LOT_NO#',
'#JUDGE_STOVE_NO#',
'#BATCH_NO#',
'#STOVE_NO#',
'#PROCESS_CODE#',
'#PLINE_CODE#',
'#PLINE_NAME#',
'#MATERIAL_NO#',
'#MATERIAL_NAME#',
'#PRODUCCODE#',
'#PRODUCNAME#',
'#STEELCODE#',
'#STEELNAME#',
'#GRADECODE#',
'#GRADENAME#',
'#SPEC_CODE#',
'#SPEC_NAME#',
'#MODEL_CODE#',
'#MODEL_DESC#',
'#STD_CODE#',
'#STD_NAME#',
'#STD_STYLE#',
'#STD_STYLE_DESC#',
'#ACT_DIMATER#',
'#ACT_HEIGHT#',
'#ACT_LEN_MIN#',
'#ACT_LEN_MAX#',
'#PRO_ORDER_ID#',
'#GX_PLAN_NO#',
'#ORD_LN_DLY_PK#',
'#CRAF_NO#',
'#CRAFT_SEQ#',
'#INDEX_SEQ#',
'#STEEL_STANDRAD#',
'#CIC#',
'#PIC#',
'#BAL_YEAR_MONTH#',
'#CONSIGN_NAME#',
TO_DATE('#CONSIGN_TIME#','YYYY-MM-DD HH24:MI:SS'),
'#CONSIGN_MEMO#',
'#TARGET#',
'#CRAFT_SOURCE#',
'#LOT_NO_GROUP#')
SELECT * FROM PLN_ZY_ZG_M T WHERE T.HEAT_PLAN_NO = '#ID#'
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;
SELECT T.CHECK_NO,S.HEAT_NO,T.BATCH_NO
FROM PIPE_CHECKCONSIGN_BASEINFO S,
(SELECT T1.CHECK_NO, T1.BATCH_NO
FROM PIPE_CHECKCONSIGN_DETAIL T1
WHERE 1= 1 #PHY_CODE_MAX#
AND T1.FOR_CHECK_NO IS NULL)T
WHERE S.CHECK_NO = T.CHECK_NO
AND S.LOT_NO = ?
GROUP BY S.HEAT_NO,T.BATCH_NO,T.CHECK_NO
ORDER BY T.CHECK_NO,S.HEAT_NO
DECLARE
BEGIN
--新增105委托表
INSERT INTO QCM_ZC_CHECKCONSIGN
(CHECK_NO,
LOT_NO,
JUDGE_STOVE_NO,
BATCH_NO,
STOVE_NO,
PROCESS_CODE,
PLINE_CODE,
PLINE_NAME,
ACT_COUNT,
ACT_WEIGHT,
ACT_THEORY_WEIGHT,
CHEM_RESULT_CODE,
PHY_RESULT_CODE,
CHEM_RESULT_PATH,
PHY_RESULT_PATH,
MATERIAL_NO,
MATERIAL_NAME,
PRODUCCODE,
PRODUCNAME,
STEELCODE,
STEELNAME,
GRADECODE,
GRADENAME,
SPEC_CODE,
SPEC_NAME,
MODEL_CODE,
MODEL_DESC,
STD_CODE,
STD_NAME,
STD_STYLE,
STD_STYLE_DESC,
ACT_DIMATER,
ACT_HEIGHT,
ACT_LEN_MIN,
ACT_LEN_MAX,
PRO_ORDER_ID,
GX_PLAN_NO,
ORD_LN_DLY_PK,
CRAF_NO,
CRAFT_SEQ,
INDEX_SEQ,
STEEL_STANDRAD,
CIC,
PIC,
BAL_YEAR_MONTH,
LK_FLAG,
JUDGE_MEMO,
JUDGE_TIME,
JUDGE_MAKER,
AUDIT_RESULT,
AUDIT_MEMO,
CHEM_JUDGE_ID,
PHY_JUDGE_ID,
VALIDFLAG,
CONSIGN_NAME,
CONSIGN_TIME,
CONSIGN_MEMO,
CAILI_PATH,
FUSHI_PATH,
JINWU_PATH,
GONGCHENG_PATH,
DIBEI_PATH,
HUAXUE_PATH,
JUDGE_RESULT_CODE,
IS_FLAG,
CYCLES_FLAG,
RESAMPLE,
TARGET,
CRAFT_SOURCE,
IS_NO_SSC,
APPLY_RESAMPLE,
IS_NO_HIC,
LOT_NO_GROUP,
QUOTE_STATE)
(SELECT 'F' || '#CHECK_NO#',
LOT_NO,
JUDGE_STOVE_NO,
BATCH_NO,
STOVE_NO,
PROCESS_CODE,
PLINE_CODE,
PLINE_NAME,
ACT_COUNT,
ACT_WEIGHT,
ACT_THEORY_WEIGHT,
'',
'',
CHEM_RESULT_PATH,
PHY_RESULT_PATH,
MATERIAL_NO,
MATERIAL_NAME,
PRODUCCODE,
PRODUCNAME,
STEELCODE,
STEELNAME,
GRADECODE,
GRADENAME,
SPEC_CODE,
SPEC_NAME,
MODEL_CODE,
MODEL_DESC,
STD_CODE,
STD_NAME,
STD_STYLE,
STD_STYLE_DESC,
ACT_DIMATER,
ACT_HEIGHT,
ACT_LEN_MIN,
ACT_LEN_MAX,
PRO_ORDER_ID,
GX_PLAN_NO,
ORD_LN_DLY_PK,
CRAF_NO,
CRAFT_SEQ,
INDEX_SEQ,
STEEL_STANDRAD,
CIC,
PIC,
BAL_YEAR_MONTH,
'0',
'',
'',
'',
'',
'',
'',
'',
'00',
'#CONSIGN_NAME#',
SYSDATE,
'',
'',
'',
'',
'',
'',
'',
'',
'0',
'0',
'0',
TARGET,
CRAFT_SOURCE,
'',
'',
'',
LOT_NO_GROUP,
'0'
FROM QCM_ZC_CHECKCONSIGN T
WHERE T.CHECK_NO = '#CHECK_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#');
FOR V2 IN (SELECT T.CRAFT_SOURCE,
T.PROCESS_CODE,
T.ORD_LN_DLY_PK,
(SELECT CASE
WHEN MIN(T2.PLINE_CODE) = 'C063' OR
MIN(T2.PLINE_CODE) = 'C064' THEN
'1'
ELSE
'0'
END
FROM QCM_GP_JUDGE_APPLY T2
WHERE T2.STOVE_NO = T.STOVE_NO
AND T2.IS_FLAG = '0') GP_TYPE
FROM QCM_ZC_CHECKCONSIGN T
WHERE T.CHECK_NO = '#CHECK_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#') LOOP
--如果是首日检需要更新合同行+产线下的所有炉批
IF V2.CRAFT_SOURCE = '1' 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,
PLN_SALEORD E,
PLN_SALEORD E2
WHERE C.CHECK_NO = '#CHECK_NO#'
AND C.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND C.BATCH_NO = '#BATCH_NO#'
AND E.ORD_LN_DLY_PK = C.ORD_LN_DLY_PK
AND E2.ORD_LN_PK = E.ORD_LN_PK
AND D.ORD_LN_DLY_PK = E2.ORD_LN_DLY_PK
AND D.PLINE_CODE = C.PLINE_CODE
AND (V2.GP_TYPE IS NULL OR V2.GP_TYPE = '0' AND EXISTS
(SELECT 1
FROM QCM_GP_JUDGE_APPLY E3
WHERE E3.STOVE_NO = D.STOVE_NO
AND E3.IS_FLAG = '0'
AND E3.PLINE_CODE NOT IN ('C063', 'C064')) OR
V2.GP_TYPE = '1' AND EXISTS
(SELECT 1
FROM QCM_GP_JUDGE_APPLY E3
WHERE E3.STOVE_NO = D.STOVE_NO
AND E3.IS_FLAG = '0'
AND E3.PLINE_CODE IN ('C063', 'C064')))
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 = NULL
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;
--去复样直接把综合判定结果置空
UPDATE QCM_ZG_JUGDE_APPLY T
SET T.JUDGE_RESULT_CODE = NULL,
T.JUDGE_RESULT = NULL,
T.JUDGE_MAKER = NULL,
T.JUDGE_RESULT_TIME = NULL
WHERE T.JUDGE_STOVE_NO = V.JUDGE_STOVE_NO
AND T.BATCH_NO = V.BATCH_NO
AND T.PROCESS_CODE = V.PROCESS_CODE
AND T.ORD_LN_DLY_PK = V.ORD_LN_DLY_PK;
END LOOP;
ELSE
--去复样直接把综合判定结果置空
UPDATE QCM_ZG_JUGDE_APPLY T
SET T.JUDGE_RESULT_CODE = NULL,
T.JUDGE_RESULT = NULL,
T.JUDGE_MAKER = NULL,
T.JUDGE_RESULT_TIME = NULL
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.PROCESS_CODE = V2.PROCESS_CODE
AND T.ORD_LN_DLY_PK = V2.ORD_LN_DLY_PK;
END IF;
END LOOP;
END;
INSERT INTO PIPE_CHECKCONSIGN_DETAIL
(CHECK_NO,
BATCH_NO,
SAMPLE_NO,
SAMPLE_NO_MIN,
SAMPLE_BARCODE,
SAMPLE_LEN,
CHECK_STD,
PHY_CODE_MAX,
PHY_NAME_MAX,
SAMPLE_COUNT,
DEPT_ID,
LENGTH,
WIDTH,
EIC,
PHY_DIR,
SIZE_DESC,
JG_SEND_NAME,
JG_SEND_TIME,
LAB_RECEIVE_NAME,
LAB_RECEIVE_TIME,
CHECK_TEMP,
DEVICE_NO,
DEVICE_NAME,
CHECK_SHIFT,
CHECK_CLASS,
CHECK_NAME,
CHECK_TIME,
AUDIT_NAME,
AUDIT_TIME,
ISRCL,
RCL_MOVE_REMARK,
IS_NOTICE_PRODUCER,
NOTICE_PRODUCER_REMARK,
IS_RESAMPLE_REST,
RESAMPLE_REST_REMARK,
SPEC_FLAG,
SPEC_MOVE_REMARK,
FLAG,
SAMPLE_REMARK,
REMARK,
FORMUAL_NO,
FORMUAL_NAME,
MAT_NO,
SAMPLE_TYPE,
FOR_CHECK_NO,
VALIDFLAG,
CHECK_HUMIDITY,
STD_STEEL_NO,
STD_STEEL_TYPE,
STD_STEEL_VALUE,
ACTUAL_VALUE,
HARDNESS_TYPE,
RATE,
DESC_RATE,
SSC_CONDITION,
JG_SEND_SHIFT,
JG_SEND_GROUP,
JG_PRINT_COUNT,
RCL_AUDIT_NAME,
RCL_AUDIT_TIME,
ORIGINAL_AREA,
LAB_PRINT_COUNT,
RCL_FLAG,
FILE_PATH1,
FILE_PATH2,
HEAD_MAT_NO,
BAR_CODE,
SAMPLE_STYLE,
MERG_NAME,
MERG_TIME,
BACK_MEMO)
(SELECT 'F' || '#CHECK_NO#',
BATCH_NO,
'#SAMPLE_NO#',
'',
'',
'#SAMPLE_LEN#',
CHECK_STD,
PHY_CODE_MAX,
PHY_NAME_MAX,
SAMPLE_COUNT,
DEPT_ID,
LENGTH,
WIDTH,
EIC,
PHY_DIR,
SIZE_DESC,
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
ISRCL,
RCL_MOVE_REMARK,
IS_NOTICE_PRODUCER,
NOTICE_PRODUCER_REMARK,
'0',
RESAMPLE_REST_REMARK,
SPEC_FLAG,
SPEC_MOVE_REMARK,
'#FLAG#',
'',
'',
'',
'',
'#MAT_NO#',
'',
'',
'#VALIDFLAG#',
'',
'',
'',
'',
'',
'',
RATE,
DESC_RATE,
SSC_CONDITION,
'',
'',
'0',
'',
'',
'',
'',
'',
'',
'',
'#HEAD_MAT_NO#',
'#BAR_CODE#',
'',
'',
'',
''
FROM PIPE_CHECKCONSIGN_DETAIL T
WHERE T.CHECK_NO = '#CHECK_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.PHY_CODE_MAX = '#PHY_CODE_MAX#'
AND T.SAMPLE_NO = '#OLD_SAMPLE_NO#')
INSERT INTO PIPE_CHECKCONSIGN_DETAIL
(CHECK_NO,
BATCH_NO,
SAMPLE_NO,
SAMPLE_NO_MIN,
SAMPLE_BARCODE,
SAMPLE_LEN,
CHECK_STD,
PHY_CODE_MAX,
PHY_NAME_MAX,
SAMPLE_COUNT,
DEPT_ID,
LENGTH,
WIDTH,
EIC,
PHY_DIR,
SIZE_DESC,
JG_SEND_NAME,
JG_SEND_TIME,
LAB_RECEIVE_NAME,
LAB_RECEIVE_TIME,
CHECK_TEMP,
DEVICE_NO,
DEVICE_NAME,
CHECK_SHIFT,
CHECK_CLASS,
CHECK_NAME,
CHECK_TIME,
AUDIT_NAME,
AUDIT_TIME,
ISRCL,
RCL_MOVE_REMARK,
IS_NOTICE_PRODUCER,
NOTICE_PRODUCER_REMARK,
IS_RESAMPLE_REST,
RESAMPLE_REST_REMARK,
SPEC_FLAG,
SPEC_MOVE_REMARK,
FLAG,
SAMPLE_REMARK,
REMARK,
FORMUAL_NO,
FORMUAL_NAME,
MAT_NO,
SAMPLE_TYPE,
FOR_CHECK_NO,
VALIDFLAG,
CHECK_HUMIDITY,
STD_STEEL_NO,
STD_STEEL_TYPE,
STD_STEEL_VALUE,
ACTUAL_VALUE,
HARDNESS_TYPE,
RATE,
DESC_RATE,
SSC_CONDITION,
JG_SEND_SHIFT,
JG_SEND_GROUP,
JG_PRINT_COUNT,
RCL_AUDIT_NAME,
RCL_AUDIT_TIME,
ORIGINAL_AREA,
LAB_PRINT_COUNT,
RCL_FLAG,
FILE_PATH1,
FILE_PATH2,
HEAD_MAT_NO,
BAR_CODE,
SAMPLE_STYLE,
MERG_NAME,
MERG_TIME,
BACK_MEMO)
(SELECT 'F' || '#CHECK_NO#',
BATCH_NO,
'#SAMPLE_NO#',
'',
'',
'#SAMPLE_LEN#',
CHECK_STD,
PHY_CODE_MAX,
PHY_NAME_MAX,
SAMPLE_COUNT,
DEPT_ID,
LENGTH,
WIDTH,
EIC,
PHY_DIR,
SIZE_DESC,
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
ISRCL,
RCL_MOVE_REMARK,
IS_NOTICE_PRODUCER,
NOTICE_PRODUCER_REMARK,
'0',
RESAMPLE_REST_REMARK,
SPEC_FLAG,
SPEC_MOVE_REMARK,
'#FLAG#',
'',
'',
'',
'',
'#MAT_NO#',
'',
'',
'0',
'',
'',
'',
'',
'',
'',
RATE,
DESC_RATE,
SSC_CONDITION,
'',
'',
'0',
'',
'',
'',
'',
'',
'',
'',
'#HEAD_MAT_NO#',
'#BAR_CODE#',
'',
'',
'',
''
FROM PIPE_CHECKCONSIGN_DETAIL T
WHERE T.CHECK_NO = '#CHECK_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.PHY_CODE_MAX = '#PHY_CODE_MAX#'
AND T.VALIDFLAG = '0'
AND ROWNUM = 1)
DECLARE
P_RATE VARCHAR2(20);
BEGIN
--新增二层表
INSERT INTO QCM_ZC_CHECKCONSIGN_DETAIL
(CHECK_NO,
BATCH_NO,
SAMPLE_NO,
PHY_CODE_MAX,
PHY_NAME_MAX,
RATE,
DESC_RATE,
EIC,
SAMPLE_NO_MIN,
SAMPLE_COUNT,
SAMPLE_LEN,
MAT_NO,
HEAD_MAT_NO,
BAR_CODE,
NK_RESULT,
JF_RESULT,
RESULT_SOURCE,
IS_QUOTE,
VALIDFLAG)
(SELECT 'F' || '#CHECK_NO#',
BATCH_NO,
'#SAMPLE_NO#',
PHY_CODE_MAX,
PHY_NAME_MAX,
RATE,
DESC_RATE,
EIC,
SAMPLE_NO_MIN,
SAMPLE_COUNT,
SAMPLE_LEN,
'#MAT_NO#',
'#HEAD_MAT_NO#',
'#BAR_CODE#',
'',
'',
'0',
'0',
'#VALIDFLAG#'
FROM QCM_ZC_CHECKCONSIGN_DETAIL T
WHERE T.CHECK_NO = '#CHECK_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.PHY_CODE_MAX = '#PHY_CODE_MAX#'
AND ROWNUM = 1);
--更新炉批结果表
SELECT T.RATE
INTO P_RATE
FROM QCM_ZC_CHECKCONSIGN_DETAIL T
WHERE T.CHECK_NO = '#CHECK_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.PHY_CODE_MAX = '#PHY_CODE_MAX#'
AND ROWNUM = 1;
IF P_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 = '#CHECK_NO#'
AND C.BATCH_NO = '#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 = NULL
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 P_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 = '#CHECK_NO#'
AND C.BATCH_NO = '#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 = NULL
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 = '#CHECK_NO#'
AND C.BATCH_NO = '#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 = NULL
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;
DECLARE
P_RATE VARCHAR2(20);
BEGIN
--新增二层表
INSERT INTO QCM_ZC_CHECKCONSIGN_DETAIL
(CHECK_NO,
BATCH_NO,
SAMPLE_NO,
PHY_CODE_MAX,
PHY_NAME_MAX,
RATE,
DESC_RATE,
EIC,
SAMPLE_NO_MIN,
SAMPLE_COUNT,
SAMPLE_LEN,
MAT_NO,
HEAD_MAT_NO,
BAR_CODE,
NK_RESULT,
JF_RESULT,
RESULT_SOURCE,
IS_QUOTE,
VALIDFLAG)
(SELECT 'F' || '#CHECK_NO#',
BATCH_NO,
'#SAMPLE_NO#',
PHY_CODE_MAX,
PHY_NAME_MAX,
RATE,
DESC_RATE,
EIC,
SAMPLE_NO_MIN,
SAMPLE_COUNT,
SAMPLE_LEN,
'#MAT_NO#',
'#HEAD_MAT_NO#',
'#BAR_CODE#',
'',
'',
'0',
'0',
'1'
FROM QCM_ZC_CHECKCONSIGN_DETAIL T
WHERE T.CHECK_NO = '#CHECK_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.PHY_CODE_MAX = '#PHY_CODE_MAX#'
AND T.SAMPLE_NO = '#OLD_SAMPLE_NO#');
--更新炉批结果表
SELECT T.RATE
INTO P_RATE
FROM QCM_ZC_CHECKCONSIGN_DETAIL T
WHERE T.CHECK_NO = '#CHECK_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.PHY_CODE_MAX = '#PHY_CODE_MAX#'
AND T.SAMPLE_NO = '#OLD_SAMPLE_NO#';
IF P_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 = '#CHECK_NO#'
AND C.BATCH_NO = '#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 = NULL
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 P_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 = '#CHECK_NO#'
AND C.BATCH_NO = '#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 = NULL
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 = '#CHECK_NO#'
AND C.BATCH_NO = '#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 = NULL
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;
INSERT INTO PIPE_CHECKCONSIGN_CHEMDETAIL
(CHECK_NO,
SAMPLE_NO,
CHEM_CODE,
CHEM_NAME,
CHEM_TYPE,
ISCHECK,
ISJUDGE,
ISQUOTE,
COMPLEX_TYPE,
CHEM_FORMULA,
STDMIN_SIGN,
STDMIN,
STDMAX_SIGN,
STDMAX,
STDTARGET,
STDMEMO,
ELE_CODE,
ELE_NAME,
ELE_MIN_SIGN,
ELE_MIN,
ELE_MAX_SIGN,
ELE_MAX,
REP_CODE,
REP_NAME,
REP_MIN_SIGN,
REP_MIN,
REP_MAX_SIGN,
REP_MAX,
REP_VAL,
SELECT_STEEL_NO,
STD_STEEL_STD_VALUE,
STD_STEEL_PROCESS_VALUE,
ROUND_VALUE,
PROCESS_VALUE,
AUDIT_VALUE,
QUOTE_VALUE,
REMARK,
CHECK_CLASS,
CHECK_TEMP,
DEVICE_NO,
DEVICE_NAME,
AUDIT_NAME,
AUDIT_TIME,
IS_CJ,
BATCH_NO)
(SELECT 'F' || '#CHECK_NO#',
'#SAMPLE_NO#',
CHEM_CODE,
CHEM_NAME,
CHEM_TYPE,
ISCHECK,
ISJUDGE,
ISQUOTE,
COMPLEX_TYPE,
CHEM_FORMULA,
STDMIN_SIGN,
STDMIN,
STDMAX_SIGN,
STDMAX,
STDTARGET,
STDMEMO,
ELE_CODE,
ELE_NAME,
ELE_MIN_SIGN,
ELE_MIN,
ELE_MAX_SIGN,
ELE_MAX,
REP_CODE,
REP_NAME,
REP_MIN_SIGN,
REP_MIN,
REP_MAX_SIGN,
REP_MAX,
REP_VAL,
'',
'',
'',
'',
'',
'',
'',
REMARK,
'',
'',
'',
'',
'',
'',
'0',
BATCH_NO
FROM PIPE_CHECKCONSIGN_CHEMDETAIL T
WHERE T.CHECK_NO = '#CHECK_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.CHEM_CODE = '#CHEM_CODE#'
AND ROWNUM = 1)
INSERT INTO PIPE_CHECKCONSIGN_PHYDETAIL
(PHYDETAIL_ID,
CHECK_NO,
BATCH_NO,
SAMPLE_NO,
INDEX_SEQ,
DEPT_ID,
PHY_CODE_MAX,
PHY_NAME_MAX,
PHY_CODE_MIN,
PHY_NAME_MIN,
PHY_CODE,
PHY_NAME,
PHY_UNIT,
ITEM_CODE_F,
ITEM_NAME_F,
ITEM_CODE_W,
ITEM_NAME_W,
ITEM_CODE_S,
ITEM_NAME_S,
GROUP_SEQ,
RESULT_COUNT,
ISCHECK,
ISJUDGE,
ISQUOTE,
PHY_TYPE,
PHY_FORMULA,
STDMIN_SIGN,
STDMIN,
STDMAX_SIGN,
STDMAX,
JUDGE_BASIS,
STDMIN_SIGN2,
STDMIN2,
STDMAX_SIGN2,
STDMAX2,
STD_CHOOSE,
STDMEMO,
ADDCONDITION,
ADDSTDCON_CODE,
ADDSTD_MIN_SIGN,
ADDSTD_MIN,
ADDSTD_MAX_SIGN,
ADDSTD_MAX,
ADDPERCENT,
BILLET_SAMPLE,
VALUE1,
VALUE2,
VALUE3,
VALUE4,
VALUE5,
VALUE6,
VALUE7,
VALUE8,
VALUE9,
VALUE10,
VALUE11,
VALUE12,
VALUE13,
VALUE14,
VALUE15,
AVERAGE_VALUE,
IS_GOOD,
IS_DEFECT,
CALCULATION_FORMULA,
SEQ,
PHY_CODE_DIR,
PHY_NAME_DIR,
SPLINE_ITEM_CODE_S,
SPLINE_ITEM_NAME_S,
SPLINE_ITEM_CODE_F,
SPLINE_ITEM_NAME_F)
(SELECT SYS_GUID(),
'F'||'#CHECK_NO#',
MAX(BATCH_NO)BATCH_NO,
'#SAMPLE_NO#',
MAX(INDEX_SEQ)INDEX_SEQ,
MAX(DEPT_ID)DEPT_ID,
MAX(PHY_CODE_MAX)PHY_CODE_MAX,
MAX(PHY_NAME_MAX)PHY_NAME_MAX,
MAX(PHY_CODE_MIN)PHY_CODE_MIN,
MAX(PHY_NAME_MIN)PHY_NAME_MIN,
PHY_CODE,
PHY_NAME,
MAX(PHY_UNIT)PHY_UNIT,
MAX(ITEM_CODE_F)ITEM_CODE_F,
MAX(ITEM_NAME_F)ITEM_NAME_F,
MAX(ITEM_CODE_W)ITEM_CODE_W,
MAX(ITEM_NAME_W)ITEM_NAME_W,
MAX(ITEM_CODE_S)ITEM_CODE_S,
MAX(ITEM_NAME_S)ITEM_NAME_S,
MAX(GROUP_SEQ)GROUP_SEQ,
MAX(RESULT_COUNT)RESULT_COUNT,
MAX(ISCHECK)ISCHECK,
MAX(ISJUDGE)ISJUDGE,
MAX(ISQUOTE)ISQUOTE,
MAX(PHY_TYPE)PHY_TYPE,
MAX(PHY_FORMULA)PHY_FORMULA,
MAX(STDMIN_SIGN)STDMIN_SIGN,
MAX(STDMIN)STDMIN,
MAX(STDMAX_SIGN)STDMAX_SIGN,
MAX(STDMAX)STDMAX,
MAX(JUDGE_BASIS)JUDGE_BASIS,
MAX(STDMIN_SIGN2)STDMIN_SIGN2,
MAX(STDMIN2)STDMIN2,
MAX(STDMAX_SIGN2)STDMAX_SIGN2,
MAX(STDMAX2)STDMAX2,
MAX(STD_CHOOSE)STD_CHOOSE,
MAX(STDMEMO)STDMEMO,
MAX(ADDCONDITION)ADDCONDITION,
MAX(ADDSTDCON_CODE)ADDSTDCON_CODE,
MAX(ADDSTD_MIN_SIGN)ADDSTD_MIN_SIGN,
MAX(ADDSTD_MIN)ADDSTD_MIN,
MAX(ADDSTD_MAX_SIGN)ADDSTD_MAX_SIGN,
MAX(ADDSTD_MAX)ADDSTD_MAX,
MAX(ADDPERCENT)ADDPERCENT,
MAX(BILLET_SAMPLE)BILLET_SAMPLE,
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
MAX(SEQ)SEQ,
'',
'',
MAX(SPLINE_ITEM_CODE_S),
MAX(SPLINE_ITEM_NAME_S),
MAX(SPLINE_ITEM_CODE_F),
MAX(SPLINE_ITEM_NAME_F)
FROM PIPE_CHECKCONSIGN_PHYDETAIL T
WHERE T.CHECK_NO = '#CHECK_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.PHY_CODE_MAX = '#PHY_CODE_MAX#'
AND T.SAMPLE_NO = '#OLD_SAMPLE_NO#'
GROUP BY T.PHY_CODE,T.PHY_NAME)
SELECT *
FROM PIPE_CHECKCONSIGN_NOQUALIFIED T
WHERE T.CHECK_NO = '#CHECK_NO#'
AND T.LOT_NO = '#LOT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
SELECT DISTINCT T.CHECK_NO,
T.PHY_CODE_MAX,
T.PHY_NAME_MAX,
T.PHY_CODE_MIN,
T.PHY_NAME_MIN,
T.PHY_CODE,
T.PHY_NAME,
T.LOT_NO,
T.JUDGE_STOVE_NO,
-- T.BATCH_NO,
T.PLINE_CODE,
T.CREATE_NAME
FROM PIPE_CHECKCONSIGN_NOQUALIFIED T
WHERE T.CHECK_NO = '#CHECK_NO#'
AND T.LOT_NO = '#LOT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
SELECT T.PHY_CODE_MAX,
T.PHY_NAME_MAX,
T.PHY_CODE_MIN,
T.PHY_NAME_MIN,
T.PHY_CODE,
T.PHY_NAME
FROM PIPE_CHECKCONSIGN_NOQUALIFIED T
WHERE T.CHECK_NO = '#CHECK_NO#'
AND T.LOT_NO = '#LOT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
GROUP BY T.PHY_CODE_MAX,
T.PHY_NAME_MAX,
T.PHY_CODE_MIN,
T.PHY_NAME_MIN,
T.PHY_CODE,
T.PHY_NAME
SELECT T.CHECK_NO,T.PHY_CODE_MAX,T.PHY_NAME_MAX,T.ITEM_CODE_F,T.ITEM_NAME_F,T.ITEM_CODE_W,T.ITEM_NAME_W,
T.ITEM_CODE_S,T.ITEM_NAME_S
FROM PIPE_CHECKCONSIGN_NOQUALIFIED T
WHERE T.CHECK_NO = '#CHECK_NO#'
AND T.LOT_NO = '#LOT_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.PHY_CODE_MAX = ?
AND T.BATCH_NO = ?
GROUP BY T.CHECK_NO,T.PHY_CODE_MAX,T.PHY_NAME_MAX,T.ITEM_CODE_F,T.ITEM_NAME_F,T.ITEM_CODE_W,T.ITEM_NAME_W,
T.ITEM_CODE_S,T.ITEM_NAME_S
SELECT T.SAMPLE_NO
FROM PIPE_CHECKCONSIGN_NOQUALIFIED T
WHERE T.PHY_CODE_MAX = ?
AND NVL(T.ITEM_CODE_F, '1') = NVL(?, '1')
AND NVL(T.ITEM_CODE_W, '1') = NVL(?, '1')
AND NVL(T.ITEM_CODE_S, '1') = NVL(?, '1')
AND T.CHECK_NO = ?
AND T.BATCH_NO = ?
AND ROWNUM = 1
UPDATE PORT_MIL_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_MIL_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';
--更新炉批结果表
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;
UPDATE PORT_MIL_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.LOT_NO = '#LOT_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.MAT_NO = '#MAT_NO#'
select phydetail_id,
check_no,
batch_no,
sample_no,
index_seq,
dept_id,
phy_code_max,
phy_name_max,
phy_code_min,
phy_name_min,
phy_code,
phy_name,
phy_unit,
item_code_f,
item_name_f,
item_code_w,
item_name_w,
item_code_s,
item_name_s,
group_seq,
result_count,
ischeck,
isjudge,
isquote,
phy_type,
phy_formula,
stdmin_sign,
stdmin,
stdmax_sign,
stdmax,
judge_basis,
stdmin_sign2,
stdmin2,
stdmax_sign2,
stdmax2,
std_choose,
stdmemo,
addcondition,
addstdcon_code,
addstd_min_sign,
addstd_min,
addstd_max_sign,
addstd_max,
addpercent,
billet_sample,
remark,
value1,
value2,
value3,
value4,
value5,
value6,
value7,
value8,
value9,
value10,
value11,
value12,
value13,
value14,
value15,
average_value,
is_good,
is_defect,
calculation_formula,
seq,
phy_code_dir,
phy_name_dir,
spline_item_code_s,
spline_item_name_s,
spline_item_code_f,
spline_item_name_f,
value_ksi,
value_psi,
value_f2,
value_f3,
average_value_f,
common,
sample_jb,
notch_shape,
notch_type
from pipe_checkconsign_phydetail
where check_no = ?
select check_no,
batch_no,
sample_no,
sample_no_min,
sample_barcode,
sample_len,
check_std,
phy_code_max,
phy_name_max,
sample_count,
dept_id,
length,
width,
eic,
phy_dir,
size_desc,
jg_send_name,
jg_send_time,
lab_receive_name,
lab_receive_time,
check_temp,
device_no,
device_name,
check_shift,
check_class,
check_name,
check_time,
audit_name,
audit_time,
isrcl,
rcl_move_remark,
is_notice_producer,
notice_producer_remark,
is_resample_rest,
resample_rest_remark,
spec_flag,
spec_move_remark,
flag,
sample_remark,
remark,
formual_no,
formual_name,
mat_no,
sample_type,
for_check_no,
validflag,
check_humidity,
std_steel_no,
std_steel_type,
std_steel_value,
actual_value,
hardness_type,
rate,
desc_rate,
ssc_condition,
jg_send_shift,
jg_send_group,
jg_print_count,
rcl_audit_name,
rcl_audit_time,
original_area,
lab_print_count,
rcl_flag,
file_path1,
file_path2,
head_mat_no,
bar_code,
sample_style,
merg_name,
merg_time,
back_memo,
update_name,
update_time,
content,
ts_sample_remark,
ts_remark,
file_path3,
file_path4,
rcl_audit_shift,
rcl_audit_class,
insert_flag,
hand_over_name,
take_over_name,
production_situation,
rcl_confirm_name,
rcl_confirm_time
from pipe_checkconsign_detail
where check_no = ?
UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T SET T.IS_BATCH = '2',T.CHECK_NO = ''
WHERE T.LOT_NO = '#LOT_NO#' AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.CHECK_NO = '#CHECK_NO#'
select (select max(t1.flag_jhd)
from CRAFT_ORD_DESIGN t1
where t1.ord_ln_pk =
substr(t.ord_ln_dly_pk, 1, length(t.ord_ln_dly_pk) - 3)
and t1.craft_seq = t.craft_seq) jhFlag,
t.*
from PLN_ORDER_ZG_S t
WHERE T.PRO_PLAN_ID = ?
AND T.GX_PLAN_NO = ?