1) YJZ,
(SELECT SUM(S.ACT_COUNT)
FROM MIL_INSPECTION S
WHERE S.JUDGE_STOVE_NO = M.JUDGE_STOVE_NO
AND S.HEAT_PLAN_NO = M.HEAT_PLAN_NO
AND S.VALIDFLAG = '1'
AND S.RECHECK = '1') XCJZ,
(SELECT SUM(S.ACT_COUNT)
FROM MIL_INSPECTION S
WHERE S.JUDGE_STOVE_NO = M.JUDGE_STOVE_NO
AND S.HEAT_PLAN_NO = M.HEAT_PLAN_NO
AND S.VALIDFLAG = '1'
AND S.RECHECK = '2') YCJZ,
(SELECT DECODE(MIN(S.INSPECTION_FLAG),
'0',
'待抽',
'1',
'待检',
'2',
'已检',
'3',
'免检')
FROM MIL_INSPECTION S
WHERE S.JUDGE_STOVE_NO = M.JUDGE_STOVE_NO
AND S.HEAT_PLAN_NO = M.HEAT_PLAN_NO
AND S.VALIDFLAG = '1') INSPECTION_FLAG,
MAX(M.MATERIAL_NO) MATERIAL_NO,
MAX(M.MATERIAL_NAME) MATERIAL_NAME,
MAX(M.PRODUCCODE) PRODUCCODE,
MAX(M.PRODUCNAME) PRODUCNAME,
MAX(M.STEELCODE) STEELCODE,
MAX(M.STEELNAME) STEELNAME,
MAX(M.GRADECODE) GRADECODE,
MAX(M.GRADENAME) GRADENAME,
MAX(M.SPEC_CODE) SPEC_CODE,
MAX(M.SPEC_NAME) SPEC_NAME,
MAX(M.MODEL_CODE) MODEL_CODE,
MAX(M.MODEL_DESC) MODEL_DESC,
MAX(M.STD_CODE) STD_CODE,
MAX(M.STD_NAME) STD_NAME,
MAX(M.STD_STYLE) STD_STYLE,
MAX(M.STD_STYLE_DESC) STD_STYLE_DESC,
MAX(M.PLINE_CODE) PLINE_CODE,
MAX(M.PLINE_NAME) PLINE_NAME,
MAX(M.ACT_DIMATER) ACT_DIMATER,
MAX(M.ACT_HEIGHT) ACT_HEIGHT,
MAX(M.ACT_LEN_MIN) ACT_LEN_MIN,
MAX(M.ACT_LEN_MAX) ACT_LEN_MAX,
SUM(M.ACT_COUNT) ACT_COUNT,
ROUND(SUM(M.ACT_WEIGHT),3) ACT_WEIGHT,
MAX(M.BELONG_CODE) BELONG_CODE,
MAX(M.BELONG_NAME) BELONG_NAME,
SUM(M.PONDER_GROSS_COUNT) PONDER_GROSS_COUNT,
ROUND(SUM(M.PONDER_GROSS_WT), 3) PONDER_GROSS_WT,
MAX(M.TARGET) TARGET,
M.HEAT_PLAN_NO,
M.HEAT_PLAN_NO_OLD,
MAX(M.HEAT_PLAN_NO_NEXT) HEAT_PLAN_NO_NEXT,
MAX(M.JUDGE_RESULT_CODE) JUDGE_RESULT_CODE,
MAX(M.JUDGE_FLAG) JUDGE_FLAG,
MAX(M.HTT_TYPE) HTT_TYPE,
MAX(M.MIN_TEMP) MIN_TEMP,
MAX(M.HTT_TECHNOLOGY) HTT_TECHNOLOGY,
MAX(M.NOTCH_INFO) NOTCH_INFO,
MAX(M.NOTCH_LENGTH) NOTCH_LENGTH,
MAX(M.NOTCH_WIDTH) NOTCH_WIDTH,
MAX(M.NOTCH_DEPTH) NOTCH_DEPTH,
MAX(M.TEST_PRESSURE) TEST_PRESSURE,
MAX(M.HOLDTIME_TIME) HOLDTIME_TIME,
MAX(M.TEST_PRESSURE_Y) TEST_PRESSURE_Y,
MAX(M.MCH_WATERGAGE_RESULT) MCH_WATERGAGE_RESULT,
MAX(M.MCH_PATH_RESULT) MCH_PATH_RESULT,
MAX(M.MCH_CHAMFERING_RESULT) MCH_CHAMFERING_RESULT,
MAX(M.MCH_TWISTINGLY_RESULT) MCH_TWISTINGLY_RESULT,
MAX(M.MCH_DIMENSIONS_RESULT) MCH_DIMENSIONS_RESULT,
MAX(M.MCH_VISUAL_RESULT) MCH_VISUAL_RESULT,
MAX(M.MCH_THREAD_INSPECTION_RESULT) MCH_THREAD_INSPECTION_RESULT,
MAX(M.MCH_REMANENCE_RESULT) MCH_REMANENCE_RESULT,
MAX(M.MCH_RADIOACTIVITY_RESULT) MCH_RADIOACTIVITY_RESULT,
MAX(M.MCH_BEVEL_RESULT) MCH_BEVEL_RESULT,
MAX(M.ANGLE_VAL) ANGLE_VAL,
MAX(M.EDGE_VAL) EDGE_VAL,
MAX(M.DRIFT_MODEL_MIN) DRIFT_MODEL_MIN,
MAX(M.DRIFT_MODEL_MIN2) DRIFT_MODEL_MIN2,
MAX(M.DRIFT_MODEL_LEN) DRIFT_MODEL_LEN,
MAX(M.DRIFT_MODEL_LEN2) DRIFT_MODEL_LEN2,
MAX(M.MEASURED_END_PART) MEASURED_END_PART,
MAX(M.MEASURED_MIDDLE_PART) MEASURED_MIDDLE_PART,
MAX(M.MEASURED_TAIL_PART) MEASURED_TAIL_PART,
MAX(M.DETECT_RESULT_CODE) DETECT_RESULT_CODE,
MAX(M.TESTING_STANDAR) TESTING_STANDAR,
MAX(M.TESTING_GRADE) TESTING_GRADE,
MAX(M.TESTING_TYPE) TESTING_TYPE
FROM
(
SELECT T.LOT_NO,
T.JUDGE_STOVE_NO,
T.PROCESS_CDOE,
T.NEXT_PROCESS_CDOE,
T.JUGDE_APPLY_CODE,
MAX(T.MATERIAL_NO) MATERIAL_NO,
MAX(T.MATERIAL_NAME) MATERIAL_NAME,
MAX(T.PRODUCCODE) PRODUCCODE,
MAX(T.PRODUCNAME) PRODUCNAME,
MAX(T.STEELCODE) STEELCODE,
MAX(T.STEELNAME) STEELNAME,
MAX(T.GRADECODE) GRADECODE,
MAX(T.GRADENAME) GRADENAME,
MAX(T.SPEC_CODE) SPEC_CODE,
MAX(T.SPEC_NAME) SPEC_NAME,
MAX(T.MODEL_CODE) MODEL_CODE,
MAX(T.MODEL_DESC) MODEL_DESC,
MAX(T.STD_CODE) STD_CODE,
MAX(T.STD_NAME) STD_NAME,
MAX(T.STD_STYLE) STD_STYLE,
MAX(T.STD_STYLE_DESC) STD_STYLE_DESC,
MAX(T.PLINE_CODE) PLINE_CODE,
MAX(T.PLINE_NAME) PLINE_NAME,
MAX(T.ACT_DIMATER) ACT_DIMATER,
MAX(T.ACT_HEIGHT) ACT_HEIGHT,
MAX(T.ACT_LEN_MIN) ACT_LEN_MIN,
MAX(T.ACT_LEN_MAX) ACT_LEN_MAX,
SUM(T.ACT_COUNT) ACT_COUNT,
ROUND(SUM(T.ACT_WEIGHT),3) ACT_WEIGHT,
MAX(T.BELONG_CODE) BELONG_CODE,
MAX(T.BELONG_NAME) BELONG_NAME,
SUM(CASE
WHEN T.PONDER_GROSS_WT > 0 THEN
1
ELSE
0
END) PONDER_GROSS_COUNT,
ROUND(SUM(T.PONDER_GROSS_WT), 3) PONDER_GROSS_WT,
MAX(T.TARGET) TARGET,
T.HEAT_PLAN_NO,
T.HEAT_PLAN_NO_OLD,
MAX(T.HEAT_PLAN_NO_NEXT) HEAT_PLAN_NO_NEXT,
MAX(T2.JUDGE_RESULT_CODE) JUDGE_RESULT_CODE,
DECODE(MAX(T1.JUDGE_RESULT_CODE),
NULL,
'未判',
DECODE(MAX(T2.JUDGE_RESULT_CODE), '1', '部分已判', '已判')) JUDGE_FLAG,
MAX(T1.HTT_TYPE) HTT_TYPE,
MAX(T1.MIN_TEMP) MIN_TEMP,
MAX(T1.HTT_TECHNOLOGY) HTT_TECHNOLOGY,
MAX(T1.NOTCH_INFO) NOTCH_INFO,
MAX(T1.NOTCH_LENGTH) NOTCH_LENGTH,
MAX(T1.NOTCH_WIDTH) NOTCH_WIDTH,
MAX(T1.NOTCH_DEPTH) NOTCH_DEPTH,
MAX(T1.TEST_PRESSURE) TEST_PRESSURE,
MAX(T1.HOLDTIME_TIME) HOLDTIME_TIME,
MAX(T1.TEST_PRESSURE_Y) TEST_PRESSURE_Y,
MAX(T1.MCH_WATERGAGE_RESULT) MCH_WATERGAGE_RESULT,
MAX(T1.MCH_PATH_RESULT) MCH_PATH_RESULT,
MAX(T1.MCH_CHAMFERING_RESULT) MCH_CHAMFERING_RESULT,
MAX(T1.MCH_TWISTINGLY_RESULT) MCH_TWISTINGLY_RESULT,
MAX(T1.MCH_DIMENSIONS_RESULT) MCH_DIMENSIONS_RESULT,
MAX(T1.MCH_VISUAL_RESULT) MCH_VISUAL_RESULT,
MAX(T1.MCH_THREAD_INSPECTION_RESULT) MCH_THREAD_INSPECTION_RESULT,
MAX(T1.MCH_REMANENCE_RESULT) MCH_REMANENCE_RESULT,
MAX(T1.MCH_RADIOACTIVITY_RESULT) MCH_RADIOACTIVITY_RESULT,
MAX(T1.MCH_BEVEL_RESULT) MCH_BEVEL_RESULT,
MAX(T1.ANGLE_VAL) ANGLE_VAL,
MAX(T1.EDGE_VAL) EDGE_VAL,
MAX(T1.DRIFT_MODEL_MIN) DRIFT_MODEL_MIN,
MAX(T1.DRIFT_MODEL_MIN2) DRIFT_MODEL_MIN2,
MAX(T1.DRIFT_MODEL_LEN) DRIFT_MODEL_LEN,
MAX(T1.DRIFT_MODEL_LEN2) DRIFT_MODEL_LEN2,
MAX(T1.MEASURED_END_PART) MEASURED_END_PART,
MAX(T1.MEASURED_MIDDLE_PART) MEASURED_MIDDLE_PART,
MAX(T1.MEASURED_TAIL_PART) MEASURED_TAIL_PART,
MAX(T1.DETECT_RESULT_CODE) DETECT_RESULT_CODE,
MAX(T1.TESTING_STANDAR) TESTING_STANDAR,
MAX(T1.TESTING_GRADE) TESTING_GRADE,
MAX(T1.TESTING_TYPE) TESTING_TYPE
FROM MAT_BC_M T
LEFT JOIN (SELECT MAX(JUDGE_RESULT_CODE) JUDGE_RESULT_CODE,
MAX(T1.HTT_TYPE) HTT_TYPE,
MAX(T1.MIN_TEMP) MIN_TEMP,
MAX(T1.HTT_TECHNOLOGY) HTT_TECHNOLOGY,
MAX(T1.NOTCH_INFO) NOTCH_INFO,
MAX(T1.NOTCH_LENGTH) NOTCH_LENGTH,
MAX(T1.NOTCH_WIDTH) NOTCH_WIDTH,
MAX(T1.NOTCH_DEPTH) NOTCH_DEPTH,
MAX(T1.TEST_PRESSURE) TEST_PRESSURE,
MAX(T1.HOLDTIME_TIME) HOLDTIME_TIME,
MAX(T1.TEST_PRESSURE_Y) TEST_PRESSURE_Y,
MAX(T1.MCH_WATERGAGE_RESULT) MCH_WATERGAGE_RESULT,
MAX(T1.MCH_PATH_RESULT) MCH_PATH_RESULT,
MAX(T1.MCH_CHAMFERING_RESULT) MCH_CHAMFERING_RESULT,
MAX(T1.MCH_TWISTINGLY_RESULT) MCH_TWISTINGLY_RESULT,
MAX(T1.MCH_DIMENSIONS_RESULT) MCH_DIMENSIONS_RESULT,
MAX(T1.MCH_VISUAL_RESULT) MCH_VISUAL_RESULT,
MAX(T1.MCH_THREAD_INSPECTION_RESULT) MCH_THREAD_INSPECTION_RESULT,
MAX(T1.MCH_REMANENCE_RESULT) MCH_REMANENCE_RESULT,
MAX(T1.MCH_RADIOACTIVITY_RESULT) MCH_RADIOACTIVITY_RESULT,
MAX(T1.MCH_BEVEL_RESULT) MCH_BEVEL_RESULT,
MAX(T1.ANGLE_VAL) ANGLE_VAL,
MAX(T1.EDGE_VAL) EDGE_VAL,
MAX(T1.DRIFT_MODEL_MIN) DRIFT_MODEL_MIN,
MAX(T1.DRIFT_MODEL_MIN2) DRIFT_MODEL_MIN2,
MAX(T1.DRIFT_MODEL_LEN) DRIFT_MODEL_LEN,
MAX(T1.DRIFT_MODEL_LEN2) DRIFT_MODEL_LEN2,
MAX(T1.MEASURED_END_PART) MEASURED_END_PART,
MAX(T1.MEASURED_MIDDLE_PART) MEASURED_MIDDLE_PART,
MAX(T1.MEASURED_TAIL_PART) MEASURED_TAIL_PART,
MAX(T1.TESTING_GRADE) TESTING_GRADE,
MAX(T1.TESTING_TYPE) TESTING_TYPE,
MAX(T1.TESTING_STANDAR) TESTING_STANDAR,
MAX(DECODE(T1.DETECT_RESULT_CODE,
'40740401',
'合格',
'40740402',
'不合格')) DETECT_RESULT_CODE,
JUGDE_APPLY_CODE
FROM QCM_ZG_JUGDE_APPLY T1
GROUP BY JUGDE_APPLY_CODE) t1
ON T.JUGDE_APPLY_CODE = T1.JUGDE_APPLY_CODE
LEFT JOIN (SELECT MIN(nvl(JUDGE_RESULT_CODE, '1')) JUDGE_RESULT_CODE,
JUGDE_APPLY_CODE
FROM QCM_ZG_JUGDE_APPLY T1
GROUP BY JUGDE_APPLY_CODE) t2
ON T.JUGDE_APPLY_CODE = T2.JUGDE_APPLY_CODE
WHERE 1 = 1
AND T.QCM_STAUS = '00'
AND T.PROCESS_CDOE <> 'D'
AND (NVL(T.HEAT_PLAN_NO_NEXT, '/') <> T.HEAT_PLAN_NO)
#INSTOCK_TIME#
#JUDGE_STOVE_NO#
#JUGDE_APPLY_CODE#
#JUDGE_RESULT_CODE#
#PROCESS_CDOE#
#BELONG_CODE#
#GROUP_BY#
UNION ALL
SELECT T.LOT_NO,
T.JUDGE_STOVE_NO,
T.PROCESS_CDOE,
T.NEXT_PROCESS_CDOE,
T.JUGDE_APPLY_CODE,
MAX(T.MATERIAL_NO) MATERIAL_NO,
MAX(T.MATERIAL_NAME) MATERIAL_NAME,
MAX(T.PRODUCCODE) PRODUCCODE,
MAX(T.PRODUCNAME) PRODUCNAME,
MAX(T.STEELCODE) STEELCODE,
MAX(T.STEELNAME) STEELNAME,
MAX(T.GRADECODE) GRADECODE,
MAX(T.GRADENAME) GRADENAME,
MAX(T.SPEC_CODE) SPEC_CODE,
MAX(T.SPEC_NAME) SPEC_NAME,
MAX(T.MODEL_CODE) MODEL_CODE,
MAX(T.MODEL_DESC) MODEL_DESC,
MAX(T.STD_CODE) STD_CODE,
MAX(T.STD_NAME) STD_NAME,
MAX(T.STD_STYLE) STD_STYLE,
MAX(T.STD_STYLE_DESC) STD_STYLE_DESC,
MAX(T.PLINE_CODE) PLINE_CODE,
MAX(T.PLINE_NAME) PLINE_NAME,
MAX(T.ACT_DIMATER) ACT_DIMATER,
MAX(T.ACT_HEIGHT) ACT_HEIGHT,
MAX(T.ACT_LEN_MIN) ACT_LEN_MIN,
MAX(T.ACT_LEN_MAX) ACT_LEN_MAX,
SUM(T.ACT_COUNT) ACT_COUNT,
ROUND(SUM(T.ACT_WEIGHT), 3) ACT_WEIGHT,
MAX(T.BELONG_CODE) BELONG_CODE,
MAX(T.BELONG_NAME) BELONG_NAME,
SUM(CASE
WHEN T.PONDER_GROSS_WT > 0 THEN
1
ELSE
0
END) PONDER_GROSS_COUNT,
ROUND(SUM(T.PONDER_GROSS_WT),3) PONDER_GROSS_WT,
MAX(T.TARGET) TARGET,
T.HEAT_PLAN_NO,
T.HEAT_PLAN_NO_OLD,
MAX(T.HEAT_PLAN_NO_NEXT) HEAT_PLAN_NO_NEXT,
MAX(T2.JUDGE_RESULT_CODE) JUDGE_RESULT_CODE,
DECODE(MAX(T1.JUDGE_RESULT_CODE),
NULL,
'未判',
DECODE(MAX(T2.JUDGE_RESULT_CODE), '1', '部分已判', '已判')) JUDGE_FLAG,
MAX(T1.HTT_TYPE) HTT_TYPE,
MAX(T1.MIN_TEMP) MIN_TEMP,
MAX(T1.HTT_TECHNOLOGY) HTT_TECHNOLOGY,
MAX(T1.NOTCH_INFO) NOTCH_INFO,
MAX(T1.NOTCH_LENGTH) NOTCH_LENGTH,
MAX(T1.NOTCH_WIDTH) NOTCH_WIDTH,
MAX(T1.NOTCH_DEPTH) NOTCH_DEPTH,
MAX(T1.TEST_PRESSURE) TEST_PRESSURE,
MAX(T1.HOLDTIME_TIME) HOLDTIME_TIME,
MAX(T1.TEST_PRESSURE_Y) TEST_PRESSURE_Y,
MAX(T1.MCH_WATERGAGE_RESULT) MCH_WATERGAGE_RESULT,
MAX(T1.MCH_PATH_RESULT) MCH_PATH_RESULT,
MAX(T1.MCH_CHAMFERING_RESULT) MCH_CHAMFERING_RESULT,
MAX(T1.MCH_TWISTINGLY_RESULT) MCH_TWISTINGLY_RESULT,
MAX(T1.MCH_DIMENSIONS_RESULT) MCH_DIMENSIONS_RESULT,
MAX(T1.MCH_VISUAL_RESULT) MCH_VISUAL_RESULT,
MAX(T1.MCH_THREAD_INSPECTION_RESULT) MCH_THREAD_INSPECTION_RESULT,
MAX(T1.MCH_REMANENCE_RESULT) MCH_REMANENCE_RESULT,
MAX(T1.MCH_RADIOACTIVITY_RESULT) MCH_RADIOACTIVITY_RESULT,
MAX(T1.MCH_BEVEL_RESULT) MCH_BEVEL_RESULT,
MAX(T1.ANGLE_VAL) ANGLE_VAL,
MAX(T1.EDGE_VAL) EDGE_VAL,
MAX(T1.DRIFT_MODEL_MIN) DRIFT_MODEL_MIN,
MAX(T1.DRIFT_MODEL_MIN2) DRIFT_MODEL_MIN2,
MAX(T1.DRIFT_MODEL_LEN) DRIFT_MODEL_LEN,
MAX(T1.DRIFT_MODEL_LEN2) DRIFT_MODEL_LEN2,
MAX(T1.MEASURED_END_PART) MEASURED_END_PART,
MAX(T1.MEASURED_MIDDLE_PART) MEASURED_MIDDLE_PART,
MAX(T1.MEASURED_TAIL_PART) MEASURED_TAIL_PART,
MAX(T1.DETECT_RESULT_CODE) DETECT_RESULT_CODE,
MAX(T1.TESTING_STANDAR) TESTING_STANDAR,
MAX(T1.TESTING_GRADE) TESTING_GRADE,
MAX(T1.TESTING_TYPE) TESTING_TYPE
FROM MAT_BC_BACKUP T
LEFT JOIN (SELECT MAX(JUDGE_RESULT_CODE) JUDGE_RESULT_CODE,
MAX(T1.HTT_TYPE) HTT_TYPE,
MAX(T1.MIN_TEMP) MIN_TEMP,
MAX(T1.HTT_TECHNOLOGY) HTT_TECHNOLOGY,
MAX(T1.NOTCH_INFO) NOTCH_INFO,
MAX(T1.NOTCH_LENGTH) NOTCH_LENGTH,
MAX(T1.NOTCH_WIDTH) NOTCH_WIDTH,
MAX(T1.NOTCH_DEPTH) NOTCH_DEPTH,
MAX(T1.TEST_PRESSURE) TEST_PRESSURE,
MAX(T1.HOLDTIME_TIME) HOLDTIME_TIME,
MAX(T1.TEST_PRESSURE_Y) TEST_PRESSURE_Y,
MAX(T1.MCH_WATERGAGE_RESULT) MCH_WATERGAGE_RESULT,
MAX(T1.MCH_PATH_RESULT) MCH_PATH_RESULT,
MAX(T1.MCH_CHAMFERING_RESULT) MCH_CHAMFERING_RESULT,
MAX(T1.MCH_TWISTINGLY_RESULT) MCH_TWISTINGLY_RESULT,
MAX(T1.MCH_DIMENSIONS_RESULT) MCH_DIMENSIONS_RESULT,
MAX(T1.MCH_VISUAL_RESULT) MCH_VISUAL_RESULT,
MAX(T1.MCH_THREAD_INSPECTION_RESULT) MCH_THREAD_INSPECTION_RESULT,
MAX(T1.MCH_REMANENCE_RESULT) MCH_REMANENCE_RESULT,
MAX(T1.MCH_RADIOACTIVITY_RESULT) MCH_RADIOACTIVITY_RESULT,
MAX(T1.MCH_BEVEL_RESULT) MCH_BEVEL_RESULT,
MAX(T1.ANGLE_VAL) ANGLE_VAL,
MAX(T1.EDGE_VAL) EDGE_VAL,
MAX(T1.DRIFT_MODEL_MIN) DRIFT_MODEL_MIN,
MAX(T1.DRIFT_MODEL_MIN2) DRIFT_MODEL_MIN2,
MAX(T1.DRIFT_MODEL_LEN) DRIFT_MODEL_LEN,
MAX(T1.DRIFT_MODEL_LEN2) DRIFT_MODEL_LEN2,
MAX(T1.MEASURED_END_PART) MEASURED_END_PART,
MAX(T1.MEASURED_MIDDLE_PART) MEASURED_MIDDLE_PART,
MAX(T1.MEASURED_TAIL_PART) MEASURED_TAIL_PART,
MAX(T1.TESTING_GRADE) TESTING_GRADE,
MAX(T1.TESTING_TYPE) TESTING_TYPE,
MAX(T1.TESTING_STANDAR) TESTING_STANDAR,
MAX(DECODE(T1.DETECT_RESULT_CODE,
'40740401',
'合格',
'40740402',
'不合格')) DETECT_RESULT_CODE,
JUGDE_APPLY_CODE
FROM QCM_ZG_JUGDE_APPLY T1
GROUP BY JUGDE_APPLY_CODE) t1
ON T.JUGDE_APPLY_CODE = T1.JUGDE_APPLY_CODE
LEFT JOIN (SELECT MIN(nvl(JUDGE_RESULT_CODE, '1')) JUDGE_RESULT_CODE,
JUGDE_APPLY_CODE
FROM QCM_ZG_JUGDE_APPLY T1
GROUP BY JUGDE_APPLY_CODE) t2
ON T.JUGDE_APPLY_CODE = T2.JUGDE_APPLY_CODE
WHERE 1 = 1
AND T.JUGDE_APPLY_CODE IS NOT NULL
AND T.QCM_STAUS = '00'
AND T.PROCESS_CDOE <> 'D'
AND (NVL(T.HEAT_PLAN_NO_NEXT, '/') <> T.HEAT_PLAN_NO)
#INSTOCK_TIME#
#JUDGE_STOVE_NO#
#JUGDE_APPLY_CODE#
#JUDGE_RESULT_CODE#
#PROCESS_CDOE#
#BELONG_CODE#
#GROUP_BY#) M
GROUP BY M.HEAT_PLAN_NO_OLD,M.HEAT_PLAN_NO,M.LOT_NO,M.JUDGE_STOVE_NO,M.PROCESS_CDOE,M.NEXT_PROCESS_CDOE,M.PLINE_CODE,M.JUGDE_APPLY_CODE
]]>
120501
THEN '801703'
WHEN MAX(T1.CUSTOMER_NM) IN('天津腾飞钢管有限公司','沈阳腾飞钢铁经销有限公司','天津宝仓物流有限公司','天津市安利金属制造有限公司')
THEN '801703'
WHEN MAX(T1.STLMT_UNIT_NM) IN('天津腾飞钢管有限公司','沈阳腾飞钢铁经销有限公司','天津宝仓物流有限公司','天津市安利金属制造有限公司')
THEN '801703'
WHEN (select MAX(t5.PORDERSTATUS) from pln_saleord t5 where t5.ord_ln_dly_pk =T.ord_ln_dly_pk)>=5
THEN '801701'
WHEN MAX(NVL(T1.SHORTEST,0))>0 AND (CASE WHEN MAX(T1.ORDER_UNIT) ='英尺' THEN 3.2808 *MAX(T.ACT_LEN_MIN) ELSE 1*MAX(T.ACT_LEN_MIN) END) < MAX(NVL(T1.SHORTEST,0))
THEN '801701'
WHEN MAX(NVL(T1.LONGEST,0))>0 AND (CASE WHEN MAX(T1.ORDER_UNIT) ='英尺' THEN 3.2808 *MAX(T.ACT_LEN_MAX) ELSE 1*MAX(T.ACT_LEN_MAX) END) > MAX(NVL(T1.LONGEST,0))
THEN '801701'
ELSE
CASE WHEN MAX(T1.ORDER_UNIT) = '吨' THEN
CASE
--缴库量上限 < 累计送判吨(按计划入)+ 单支重量
WHEN MAX(T1.PAYDOWN_WT_MAX) < MAX(T1.ACT_WEIGHT2) + ROUND(ROUND(SUM(T.ACT_WEIGHT), 3)/SUM(T.ACT_COUNT),3)
THEN '801701'
WHEN T.LENGTH_TYPE = '1' AND MAX(T1.ORDER_WT_MAX_LONG) < MAX(T1.ACT_WEIGHT_L) + ROUND(ROUND(SUM(T.ACT_WEIGHT), 3)/SUM(T.ACT_COUNT),3)
THEN '801701'
WHEN T.LENGTH_TYPE = '2' AND MAX(T1.ORDER_WT_MAX_SHORT) < MAX(T1.ACT_WEIGHT_S) + ROUND(ROUND(SUM(T.ACT_WEIGHT), 3)/SUM(T.ACT_COUNT),3)
THEN '801701'
ELSE
'801703'
END
WHEN MAX(T1.ORDER_UNIT) IN( '米' ,'英尺') THEN
CASE
--缴库量上限 < 累计送判吨(按计划入)+ 单支重量
WHEN MAX(T1.PAYDOWN_WT_MAX) < MAX(T1.ACT_LEN2) + ROUND(ROUND(SUM(T.ACT_LEN), 3)/SUM(T.ACT_COUNT),3)
THEN '801701'
WHEN T.LENGTH_TYPE = '1' AND MAX(T1.ORDER_WT_MAX_LONG) < MAX(T1.ACT_LEN_L) + ROUND(ROUND(SUM(T.ACT_LEN), 3)/SUM(T.ACT_COUNT),3)
THEN '801701'
WHEN T.LENGTH_TYPE = '2' AND MAX(T1.ORDER_WT_MAX_SHORT) < MAX(T1.ACT_LEN_S) + ROUND(ROUND(SUM(T.ACT_LEN), 3)/SUM(T.ACT_COUNT),3)
THEN '801701'
ELSE
'801703'
END
END
END IN_MOLD,
NVL( CASE WHEN MAX(T1.RECEIV_NM) IN('天津腾飞钢管有限公司','沈阳腾飞钢铁经销有限公司','天津宝仓物流有限公司','天津市安利金属制造有限公司') OR MAX(T1.SUPPLY_UNIT)> 120501
THEN SUM(T.ACT_COUNT)
WHEN MAX(T1.CUSTOMER_NM) IN('天津腾飞钢管有限公司','沈阳腾飞钢铁经销有限公司','天津宝仓物流有限公司','天津市安利金属制造有限公司')
THEN SUM(T.ACT_COUNT)
WHEN MAX(T1.STLMT_UNIT_NM) IN('天津腾飞钢管有限公司','沈阳腾飞钢铁经销有限公司','天津宝仓物流有限公司','天津市安利金属制造有限公司')
THEN SUM(T.ACT_COUNT)
ELSE
CASE WHEN MAX(T1.ORDER_UNIT) = '吨' THEN
CASE WHEN T.LENGTH_TYPE = '0' AND MAX(T1.PAYDOWN_WT_MAX) - MAX(T1.ACT_WEIGHT2) > 0 THEN
FLOOR((MAX(T1.PAYDOWN_WT_MAX) - MAX(T1.ACT_WEIGHT2))/(ROUND(SUM(T.ACT_WEIGHT), 3)/SUM(T.ACT_COUNT)))
WHEN T.LENGTH_TYPE = '1' AND MAX(T1.ORDER_WT_MAX_LONG) - MAX(T1.ACT_WEIGHT_L) > 0 THEN
FLOOR(LEAST((MAX(T1.ORDER_WT_MAX_LONG) - MAX(T1.ACT_WEIGHT_L)),(MAX(T1.PAYDOWN_WT_MAX) - MAX(T1.ACT_WEIGHT2)))/(ROUND(SUM(T.ACT_WEIGHT), 3)/SUM(T.ACT_COUNT)))
WHEN T.LENGTH_TYPE = '2' AND MAX(T1.ORDER_WT_MAX_SHORT) - MAX(T1.ACT_WEIGHT_S) > 0 THEN
FLOOR(LEAST((MAX(T1.ORDER_WT_MAX_SHORT) - MAX(T1.ACT_WEIGHT_S)),(MAX(T1.PAYDOWN_WT_MAX) - MAX(T1.ACT_WEIGHT2)))/(ROUND(SUM(T.ACT_WEIGHT), 3)/SUM(T.ACT_COUNT)))
END
WHEN MAX(T1.ORDER_UNIT) IN( '米' ,'英尺') THEN
CASE WHEN T.LENGTH_TYPE = '0' AND MAX(T1.PAYDOWN_WT_MAX) - MAX(T1.ACT_LEN2) > 0 THEN
FLOOR((MAX(T1.PAYDOWN_WT_MAX) - MAX(T1.ACT_LEN2))/(ROUND(SUM(T.ACT_LEN), 3)/SUM(T.ACT_COUNT)))
WHEN T.LENGTH_TYPE = '1' AND MAX(T1.ORDER_WT_MAX_LONG) - MAX(T1.ACT_LEN_L) > 0 THEN
FLOOR(LEAST((MAX(T1.ORDER_WT_MAX_LONG) - MAX(T1.ACT_LEN_L)),(MAX(T1.PAYDOWN_WT_MAX) - MAX(T1.ACT_LEN2)))/(ROUND(SUM(T.ACT_LEN), 3)/SUM(T.ACT_COUNT)))
WHEN T.LENGTH_TYPE = '2' AND MAX(T1.ORDER_WT_MAX_SHORT) - MAX(T1.ACT_WEIGHT_S) > 0 THEN
FLOOR(LEAST((MAX(T1.ORDER_WT_MAX_SHORT) - MAX(T1.ACT_LEN_S)),(MAX(T1.PAYDOWN_WT_MAX) - MAX(T1.ACT_LEN2)))/(ROUND(SUM(T.ACT_LEN), 3)/SUM(T.ACT_COUNT)))
END
END
END,0) KSPZ
FROM MAT_BC_M T
LEFT JOIN QCM_ZC_APPLY T1
ON T.ORD_LN_DLY_PK = T1.ORD_LN_DLY_PK
WHERE T.HEAT_PLAN_NO = ?
AND T.JUDGE_STOVE_NO = ?
AND T.QCM_STAUS = '00'
#JUGDE_APPLY_CODE#
#JUGDE_APPLY_CODE2#
#GROUP_BY#
union
SELECT
T.JUGDE_APPLY_CODE,
T.LOT_NO,
T.STOVE_NO,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.BATCH_GROUD_NO,
MAX(T.CODE_JG_BL) CODE_JG_BL,
MAX(T.LIKU_PROCESS_CODE) LIKU_PROCESS_CODE,
MAX(T.CIC) CIC,
MAX(T.ACT_LEN_MIN) || '-' || MAX(T.ACT_LEN_MAX) GROUP_LENGTH,
SUM(T.ACT_THEORY_WEIGHT) ACT_THEORY_WEIGHT,
MAX(T.JUDGE_RESULT_TIME) JUDGE_RESULT_TIME,
MAX(T.MATERIAL_NO)MATERIAL_NO,
MAX(T.MATERIAL_NAME)MATERIAL_NAME,
MAX(T.PRODUCCODE)PRODUCCODE,
MAX(T.PRODUCNAME)PRODUCNAME,
MAX(T.STEELCODE)STEELCODE,
MAX(T.STEELNAME)STEELNAME,
MAX(T.GRADECODE)GRADECODE,
MAX(T.GRADENAME)GRADENAME,
MAX(T.SPEC_CODE)SPEC_CODE,
MAX(T.SPEC_NAME)SPEC_NAME,
MAX(T.MODEL_CODE)MODEL_CODE,
MAX(T.MODEL_DESC)MODEL_DESC,
MAX(T.STD_CODE)STD_CODE,
MAX(T.STD_NAME)STD_NAME,
MAX(T.STD_STYLE)STD_STYLE,
MAX(T.STD_STYLE_DESC)STD_STYLE_DESC,
MAX(T.PRO_ORDER_NO)PRO_ORDER_NO,
MAX(T.PRO_ORDER_ID)PRO_ORDER_ID,
MAX(T.order_seq_no) order_seq_no,
MAX(T.ORD_LN_PK)ORD_LN_PK,
MAX(T.GX_PLAN_NO)GX_PLAN_NO,
MAX(T.CRAF_NO)CRAF_NO,
MAX(T.PROCESS_CDOE)PROCESS_CDOE,
MAX(T.PROCESS_DESC)PROCESS_DESC,
MAX(T.NEXT_PROCESS_CDOE)NEXT_PROCESS_CDOE,
MAX(T.NEXT_PROCESS_DESC)NEXT_PROCESS_DESC,
MAX(T.LIKU_PROCESS_CODE) LIKU_PROCESS_CODE,
MAX(T.PLINE_CODE)PLINE_CODE,
MAX(T.PLINE_NAME)PLINE_NAME,
MAX(T.ACT_DIMATER)ACT_DIMATER,
MAX(T.ACT_HEIGHT)ACT_HEIGHT,
SUM(T.ACT_LEN)ACT_LEN,
MAX(T.ACT_LEN_MIN)ACT_LEN_MIN,
MAX(T.ACT_LEN_MAX)ACT_LEN_MAX,
SUM(T.ACT_COUNT)ACT_COUNT,
ROUND(SUM(T.ACT_WEIGHT), 3) ACT_WEIGHT,
ROUND(SUM(T.PONDER_GROSS_WT),3) PONDER_GROSS_WT,
MAX(T.BELONG_CODE)BELONG_CODE,
MAX(T.BELONG_NAME)BELONG_NAME,
MAX(T.JUGDE_APPLY_CODE)JUGDE_APPLY_CODE,
MAX(DECODE(T.LOCK_LIKU,'0','正常','1','利库','2','精整利库'))LOCK_LIKU,
MAX(T.PRODUCT_FLAG)PRODUCT_FLAG,
MAX(T.ORD_LN_DLY_PK)ORD_LN_DLY_PK,
MAX(T.TARGET)TARGET,
--T.HEAT_PLAN_NO,
T.HEAT_PLAN_NO,
T.HEAT_PLAN_NO_OLD,
MAX(T.GX_PLAN_NO)GX_PLAN_NO,
MAX(T.CRAFT_SEQ)CRAFT_SEQ,
T.PRO_PLAN_ID_NEXT,
T.GX_PLAN_NO_NEXT,
T.JUGDE_APPLY_SEQUENO,
T.HEAT_PLAN_NO_NEXT,
t.LENGTH_TYPE,
MAX(T1.ORDER_UNIT) ORDER_UNIT,
MAX(T1.ORDERWEIGHT) ORDERWEIGHT,
MAX(T1.PAYDOWN_WT_MAX) PAYDOWN_WT_MAX,
MAX(T1.ORDER_WT_MAX_SHORT) ORDER_WT_MAX_SHORT,
MAX(T1.ORDER_WT_MAX_LONG) ORDER_WT_MAX_LONG,
MAX(T1.ACT_LEN) ACT_LEN1,
MAX(T1.ACT_WEIGHT) ACT_WEIGHT1,
MAX(T1.ACT_WEIGHT_L) ACT_WEIGHT_L,
MAX(T1.ACT_WEIGHT_S) ACT_WEIGHT_S,
MAX(T1.ACT_LEN2) ACT_LEN2,
MAX(T1.ACT_WEIGHT2) ACT_WEIGHT2,
CASE WHEN MAX(T1.RECEIV_NM) IN('天津腾飞钢管有限公司','沈阳腾飞钢铁经销有限公司','天津宝仓物流有限公司','天津市安利金属制造有限公司') OR MAX(T1.SUPPLY_UNIT)> 120501
THEN '801703'
WHEN MAX(T1.CUSTOMER_NM) IN('天津腾飞钢管有限公司','沈阳腾飞钢铁经销有限公司','天津宝仓物流有限公司','天津市安利金属制造有限公司')
THEN '801703'
WHEN MAX(T1.STLMT_UNIT_NM) IN('天津腾飞钢管有限公司','沈阳腾飞钢铁经销有限公司','天津宝仓物流有限公司','天津市安利金属制造有限公司')
THEN '801703'
WHEN (select MAX(t5.PORDERSTATUS) from pln_saleord t5 where t5.ord_ln_dly_pk =T.ord_ln_dly_pk)>=5
THEN '801701'
WHEN MAX(NVL(T1.SHORTEST,0))>0 AND (CASE WHEN MAX(T1.ORDER_UNIT) ='英尺' THEN 3.2808 *MAX(T.ACT_LEN_MIN) ELSE 1*MAX(T.ACT_LEN_MIN) END) < MAX(NVL(T1.SHORTEST,0))
THEN '801701'
WHEN MAX(NVL(T1.LONGEST,0))>0 AND (CASE WHEN MAX(T1.ORDER_UNIT) ='英尺' THEN 3.2808 *MAX(T.ACT_LEN_MAX) ELSE 1*MAX(T.ACT_LEN_MAX) END) > MAX(NVL(T1.LONGEST,0))
THEN '801701'
ELSE
CASE WHEN MAX(T1.ORDER_UNIT) = '吨' THEN
CASE
--缴库量上限 < 累计送判吨(按计划入)+ 单支重量
WHEN MAX(T1.PAYDOWN_WT_MAX) < MAX(T1.ACT_WEIGHT2) + ROUND(ROUND(SUM(T.ACT_WEIGHT), 3)/SUM(T.ACT_COUNT),3)
THEN '801701'
WHEN T.LENGTH_TYPE = '1' AND MAX(T1.ORDER_WT_MAX_LONG) < MAX(T1.ACT_WEIGHT_L) + ROUND(ROUND(SUM(T.ACT_WEIGHT), 3)/SUM(T.ACT_COUNT),3)
THEN '801701'
WHEN T.LENGTH_TYPE = '2' AND MAX(T1.ORDER_WT_MAX_SHORT) < MAX(T1.ACT_WEIGHT_S) + ROUND(ROUND(SUM(T.ACT_WEIGHT), 3)/SUM(T.ACT_COUNT),3)
THEN '801701'
ELSE
'801703'
END
WHEN MAX(T1.ORDER_UNIT) IN( '米' ,'英尺') THEN
CASE
--缴库量上限 < 累计送判吨(按计划入)+ 单支重量
WHEN MAX(T1.PAYDOWN_WT_MAX) < MAX(T1.ACT_LEN2) + ROUND(ROUND(SUM(T.ACT_LEN), 3)/SUM(T.ACT_COUNT),3)
THEN '801701'
WHEN T.LENGTH_TYPE = '1' AND MAX(T1.ORDER_WT_MAX_LONG) < MAX(T1.ACT_LEN_L) + ROUND(ROUND(SUM(T.ACT_LEN), 3)/SUM(T.ACT_COUNT),3)
THEN '801701'
WHEN T.LENGTH_TYPE = '2' AND MAX(T1.ORDER_WT_MAX_SHORT) < MAX(T1.ACT_LEN_S) + ROUND(ROUND(SUM(T.ACT_LEN), 3)/SUM(T.ACT_COUNT),3)
THEN '801701'
ELSE
'801703'
END
END
END IN_MOLD,
NVL( CASE WHEN MAX(T1.RECEIV_NM) IN('天津腾飞钢管有限公司','沈阳腾飞钢铁经销有限公司','天津宝仓物流有限公司','天津市安利金属制造有限公司') OR MAX(T1.SUPPLY_UNIT)> 120501
THEN SUM(T.ACT_COUNT)
WHEN MAX(T1.CUSTOMER_NM) IN('天津腾飞钢管有限公司','沈阳腾飞钢铁经销有限公司','天津宝仓物流有限公司','天津市安利金属制造有限公司')
THEN SUM(T.ACT_COUNT)
WHEN MAX(T1.STLMT_UNIT_NM) IN('天津腾飞钢管有限公司','沈阳腾飞钢铁经销有限公司','天津宝仓物流有限公司','天津市安利金属制造有限公司')
THEN SUM(T.ACT_COUNT)
ELSE
CASE WHEN MAX(T1.ORDER_UNIT) = '吨' THEN
CASE WHEN T.LENGTH_TYPE = '0' AND MAX(T1.PAYDOWN_WT_MAX) - MAX(T1.ACT_WEIGHT2) > 0 THEN
FLOOR((MAX(T1.PAYDOWN_WT_MAX) - MAX(T1.ACT_WEIGHT2))/(ROUND(SUM(T.ACT_WEIGHT), 3)/SUM(T.ACT_COUNT)))
WHEN T.LENGTH_TYPE = '1' AND MAX(T1.ORDER_WT_MAX_LONG) - MAX(T1.ACT_WEIGHT_L) > 0 THEN
FLOOR(LEAST((MAX(T1.ORDER_WT_MAX_LONG) - MAX(T1.ACT_WEIGHT_L)),(MAX(T1.PAYDOWN_WT_MAX) - MAX(T1.ACT_WEIGHT2)))/(ROUND(SUM(T.ACT_WEIGHT), 3)/SUM(T.ACT_COUNT)))
WHEN T.LENGTH_TYPE = '2' AND MAX(T1.ORDER_WT_MAX_SHORT) - MAX(T1.ACT_WEIGHT_S) > 0 THEN
FLOOR(LEAST((MAX(T1.ORDER_WT_MAX_SHORT) - MAX(T1.ACT_WEIGHT_S)),(MAX(T1.PAYDOWN_WT_MAX) - MAX(T1.ACT_WEIGHT2)))/(ROUND(SUM(T.ACT_WEIGHT), 3)/SUM(T.ACT_COUNT)))
END
WHEN MAX(T1.ORDER_UNIT) IN( '米' ,'英尺') THEN
CASE WHEN T.LENGTH_TYPE = '0' AND MAX(T1.PAYDOWN_WT_MAX) - MAX(T1.ACT_LEN2) > 0 THEN
FLOOR((MAX(T1.PAYDOWN_WT_MAX) - MAX(T1.ACT_LEN2))/(ROUND(SUM(T.ACT_LEN), 3)/SUM(T.ACT_COUNT)))
WHEN T.LENGTH_TYPE = '1' AND MAX(T1.ORDER_WT_MAX_LONG) - MAX(T1.ACT_LEN_L) > 0 THEN
FLOOR(LEAST((MAX(T1.ORDER_WT_MAX_LONG) - MAX(T1.ACT_LEN_L)),(MAX(T1.PAYDOWN_WT_MAX) - MAX(T1.ACT_LEN2)))/(ROUND(SUM(T.ACT_LEN), 3)/SUM(T.ACT_COUNT)))
WHEN T.LENGTH_TYPE = '2' AND MAX(T1.ORDER_WT_MAX_SHORT) - MAX(T1.ACT_WEIGHT_S) > 0 THEN
FLOOR(LEAST((MAX(T1.ORDER_WT_MAX_SHORT) - MAX(T1.ACT_LEN_S)),(MAX(T1.PAYDOWN_WT_MAX) - MAX(T1.ACT_LEN2)))/(ROUND(SUM(T.ACT_LEN), 3)/SUM(T.ACT_COUNT)))
END
END
END,0) KSPZ
FROM MAT_BC_BACKUP T
LEFT JOIN QCM_ZC_APPLY T1
ON T.ORD_LN_DLY_PK = T1.ORD_LN_DLY_PK
WHERE T.HEAT_PLAN_NO = ?
AND T.JUDGE_STOVE_NO = ?
AND T.JUGDE_APPLY_CODE IS NOT NULL
AND T.QCM_STAUS = '00'
#JUGDE_APPLY_CODE#
#JUGDE_APPLY_CODE2#
#GROUP_BY#
]]>
SELECT
COUNT(*) COUNT
FROM MAT_BC_M T
WHERE T.HEAT_PLAN_NO = ?
AND T.JUDGE_STOVE_NO = ?
AND T.QCM_STAUS = '00'
SELECT MAX(T.NOTCH_LENGTH) NOTCH_LENGTH, MAX(T.NOTCH_WIDTH) NOTCH_WIDTH, MAX(T.NOTCH_DEPTH) NOTCH_DEPTH
FROM HTT_CRACK_DETECTION_ET T
WHERE 1 = 1
UPDATE MAT_BC_M T
SET T.PONDER_GROSS_WT = ?,
T.ACT_WEIGHT = ?,
T.PONDER_NAME = ?,
T.PONDER_TIME = SYSDATE
WHERE T.MAT_NO = ?
AND T.JUDGE_STOVE_NO = ?
AND T.BELONG_CODE = ?
AND T.BATCH_NO = ?
AND NVL(T.heat_plan_no_next, '/') = NVL(?, '/')
AND NVL(T.BATCH_GROUD_NO, '/') = NVL(?, '/')
AND NVL(T.LOT_NO, '/') = NVL(?, '/')
AND T.QCM_STAUS = '00'
SELECT NVL(SUM(T.ACT_COUNT), 0) ACOUNT
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = ?
AND T.BELONG_CODE = ?
AND T.BATCH_NO = ?
AND NVL(T.heat_plan_no_next, '/') = NVL(?, '/')
AND NVL(T.BATCH_GROUD_NO, '/') = NVL(?, '/')
AND NVL(T.PRO_ORDER_NO, '/') = NVL(?, '/')
AND NVL(T.LOT_NO, '/') = NVL(?, '/')
AND T.QCM_STAUS = '00'
AND T.JUGDE_APPLY_CODE IS NULL
group by t.heat_plan_no_next
SELECT COUNT(*) COUNT FROM PLN_ZY_JG_MIDDLE T WHERE T.ORD_LN_DLY_PK = '#ORD_LN_DLY_PK#'
select COUNT(*) COUNT from pln_zy_jgx_m t,pln_order_jg t1 where t.ord_ln_dly_pk=t1.ord_ln_dly_pk and t.ORD_LN_DLY_PK = '#ORD_LN_DLY_PK#'
SELECT COUNT(*) COUNT
FROM COUPLING_MAT_DEAL T
WHERE T.DEAL_TYPE_CODE = '800801'
AND T.ORD_LN_DLY_PK = '#ORD_LN_DLY_PK#'
SELECT COUNT(*) COUNT
FROM PLN_ORDER_JG T, PLN_ZY_JG_M T1, PLN_ZY_JG_WORKBILL T2
WHERE T.PRO_PLAN_ID_S = T1.PRO_PLAN_ID
AND T1.HEAT_PLAN_NO = T2.HEAT_PLAN_NO
AND T2.ZY_BILL_STATUS NOT IN ('0', '1')
AND T.ORD_LN_DLY_PK = '#ORD_LN_DLY_PK#'
SELECT COUNT(*) COUNT
FROM PLN_ORDER_JG T
WHERE T.ORD_LN_DLY_PK = '#ORD_LN_DLY_PK#'
SELECT NVL(SUM(T.PONDER_GROSS_WT),0) PONDER_GROSS_WT FROM MAT_BC_M T WHERE 1 = 1 AND T.QCM_STAUS = '00' AND T.JUGDE_APPLY_CODE IS NULL AND T.PLINE_CODE IN('C018','C075')
SELECT T.HTT_TYPE, T.MIN_TEMP, T.HTT_TECHNOLOGY,T.NOTCH_INFO,T.NOTCH_LENGTH,T.NOTCH_WIDTH,T.NOTCH_DEPTH FROM QCM_ZG_JUGDE_APPLY T WHERE 1 = 1
SELECT T.PROCESS_CODE_C
FROM PLN_ZY_DBK_M T
WHERE 1=1
SELECT T.PROCESS_CODE_C
FROM PLN_ZY_RCL_M T
WHERE 1=1
SELECT T.PROCESS_CODE_C
FROM PLN_ZY_JGX_M T
WHERE 1=1
SELECT T.PROCESS_CODE_C
FROM PLN_ZY_DBK_M T
WHERE 1=1
SELECT T.PROCESS_CODE_C
FROM PLN_ZY_RCL_M T
WHERE 1=1
SELECT NVL(COUNT(*), 0) COUNT
FROM MCH_TWISTINGLY_RESULT_D T
WHERE 1 = 1
AND T.JUDGE_STOVE_NO = ?
AND T.BATCH_NO = ?
AND NVL(COUPLING_NUM, 0) - NVL(JUDGE_NUM, 0) > 0
SELECT NVL(COUNT(*), 0) COUNT
FROM MCH_TWISTINGLY_RESULT_D T
WHERE 1 = 1
AND T.HEAT_PLAN_NO = ?
AND T.JUDGE_STOVE_NO = ?
AND T.BATCH_NO = ?
AND NVL(COUPLING_NUM, 0) - NVL(JUDGE_NUM, 0) > 0
SELECT NVL(count(*),'0') count
FROM MCH_TWISTINGLY_RESULT_D T
WHERE 1=1
AND T.JUDGE_STOVE_NO = ?
SELECT T.DEAL_ORDE
FROM MCH_TWISTINGLY_RESULT_D T
WHERE 1=1
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.batch_no = TRIM('#BATCH_NO#')
select T.PRODUC_TYPE from COM_BASE_PRODUCT t WHERE T.PRODUCNAME = '#PRODUCNAME#'
SELECT T.MAT_NO
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = ?
AND T.BELONG_CODE = ?
AND T.BATCH_NO = ?
AND T.QCM_STAUS = '00'
AND T.JUGDE_APPLY_CODE IS NULL
AND NVL(T.heat_plan_no_next, '/') = NVL(?, '/')
AND NVL(T.BATCH_GROUD_NO, '/') = NVL(?, '/')
AND NVL(T.PRO_ORDER_NO, '/') = NVL(?, '/')
AND NVL(T.LOT_NO, '/') = NVL(?, '/')
SELECT T1.STORAGE_NO,T1.STORAGE_NAME
FROM YDM_BC_BUTTRESS T, YDM_BS_STORAGE T1
WHERE T.STORAGE_NO = T1.STORAGE_NO
SELECT T.STORAGE_NAME
FROM YDM_BS_STORAGE T
WHERE 1 = 1
SELECT T.BASENAME,T.BASECODE FROM COM_BASE_INFO T WHERE T.SORTCODE = ?
SELECT '#PLINE_CODE#'||'#PRODUCT_FLAG#' || TO_CHAR(SYSDATE, 'yyyyMMDD') ||
LPAD(NVL(MAX(TO_NUMBER(SUBSTR(JUGDE_APPLY_CODE, LENGTH(JUGDE_APPLY_CODE) - 5))),
0) + 1,
6,
'0') JUGDE_APPLY_CODE
FROM QCM_ZG_JUGDE_APPLY
WHERE JUGDE_APPLY_CODE LIKE '#PLINE_CODE#'||'#PRODUCT_FLAG#' || TO_CHAR(SYSDATE, 'yyyyMMDD') || '______'
SELECT NVL(COUNT(*),0) COUNT FROM PLN_ZY_RCL_M WHERE PLANSTATUS NOT IN ('00','10')
SELECT NVL(COUNT(*),0) COUNT FROM PLN_ZY_JGX_M WHERE PLANSTATUS NOT IN ('00','10')
SELECT NVL(COUNT(*),0) COUNT FROM PLN_ZY_JG_M WHERE PLANSTATUS NOT IN ('00','10')
SELECT T.JUGDE_APPLY_CODE
FROM QCM_ZG_JUGDE_APPLY T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.PROCESS_CODE = '#PROCESS_CDOE#'
AND T.IS_FLAG = '0'
AND T.IS_ALL_SCRAP = '0'
GROUP BY T.JUGDE_APPLY_CODE
SELECT NVL(MAX(T.JUGDE_APPLY_SEQUENO),0)+1 JUGDE_APPLY_SEQUENO
FROM QCM_ZG_JUGDE_APPLY T
WHERE T.JUGDE_APPLY_CODE = ?
SELECT S.FACE_RESULT_PATH,S.HEAT_PLAN_NO
FROM VRP_COM_INFO S
WHERE S.HEAT_PLAN_NO = '#HEAT_PLAN_NO_OLD#'
AND S.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND S.PLINE_CODE = '#PLINE_CODE#'
AND S.STATION_CODE IN('650106','650404','650504','650604','650704')
SELECT MIN(T.REPORT_PATH) REPORT_PATH
FROM HTT_CRACK_DETECTION_PARA T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO_OLD#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.batch_no = TRIM('#BATCH_NO#')
AND T.REPORT_PATH IS NOT NULL
SELECT SUM(COUNT) COUNT FROM
(SELECT COUNT(*) COUNT
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.QCM_STAUS = '00'
AND T.JUGDE_APPLY_CODE IS NULL
UNION
SELECT COUNT(*) COUNT
FROM MAT_BC_BACKUP T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.QCM_STAUS = '00'
AND T.JUGDE_APPLY_CODE IS NULL
)
SELECT T.*
FROM PLN_ZY_DBK_M T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO_OLD#'
SELECT T.*
FROM PLN_ZY_DBK_M T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
SELECT T.CHECK_NO
FROM PORT_htt_BATCH_SAMPLE_RESULT T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO_OLD#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.PHY_BATCH_NO = '#BATCH_NO#'
AND T.IS_SAMPLE_PIPE = '1'
GROUP BY T.CHECK_NO
SELECT T.*
FROM PLN_ZY_RCL_M T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO_OLD#'
SELECT T.*
FROM PLN_ZY_RCL_M T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
SELECT T.*
FROM PLN_ZY_JGX_M T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO_OLD#'
SELECT T.*
FROM PLN_ZY_JGX_M T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
SELECT T.*
FROM pln_zy_zg_m T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.IF_MATCH_ODD = '6'
INSERT INTO QCM_ZG_JUGDE_APPLY
(JUGDE_APPLY_CODE,
JUDGE_STOVE_NO,
BATCH_NO,
BATCH_GROUD_NO,
PROCESS_CODE,
PLINE_CODE,
ACT_COUNT,
ACT_WEIGHT,
ACT_THEORY_WEIGHT,
PRO_ORDER_ID,
FACE_RESULT_PATH,
SPEC_RESULT_PATH,
CHEM_RESULT_PATH,
PHY_RESULT_PATH,
DETECT_RESULT_PATH,
WPRESSURE_RESULT_PATH,
PROCESS_RESULT_PATH,
VALIDFLAG,
APPLY_NAME,
APPLY_TIME,
MEMO,
QUALITY_GROUP,
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,
CRAF_NO,
LOT_NO,
PLINE_NAME,
PRO_ORDER_NO,
MAT_GOWHERE_CODE,
MAT_GOWHERE_NAME,
ACT_DIMATER,
ACT_HEIGHT,
ACT_LEN_MIN,
ACT_LEN_MAX,
ORD_LN_DLY_PK,
APPLY_FLAG,
INSTOCK_FLAG,
BELONG_CODE,
BELONG_NAME,
ISENDGX,
ACT_LEN,
BELONG_CODE_JUGDE,
BELONG_NAME_JUGDE,
GX_PLAN_NO,
BAL_YEAR_MONTH,
STOVE_NO,
STEEL_STANDRAD,
PRO_PLAN_ID_NEXT,
GX_PLAN_NO_NEXT,
LK_FLAG,
JUGDE_APPLY_SEQUENO,
TARGET,
CRAFT_SEQ,
INDEX_SEQ,
CIC,
PIC,
SIC,
DIC,
WIC,
GIC,
FACE_RESULT_CODE,
SPEC_RESULT_CODE,
CHEM_RESULT_CODE,
PHY_RESULT_CODE,
DETECT_RESULT_CODE,
WPRESSURE_RESULT_CODE,
PROCESS_RESULT_CODE,
CHECK_NO,
HEAT_PLAN_NO_NEXT,
HEAT_PLAN_NO,
NEXT_PROCESS_CDOE,
DELIVERY_STATE_CODE,
DELIVERY_STATE_NAME,
LOAD_JUDGE_STOVE_NO,
ZP_M_LH,
ZP_COLL,
HTT_TYPE,
MIN_TEMP,
HTT_TECHNOLOGY,
NOTCH_INFO,
NOTCH_LENGTH,
NOTCH_WIDTH,
NOTCH_DEPTH,
LOT_NO_GROUP,
TESTING_GRADE,
TESTING_TYPE,
TEST_PRESSURE,
HOLDTIME_TIME,
TEST_PRESSURE_Y,
MCH_WATERGAGE_RESULT,
MCH_PATH_RESULT,
MCH_CHAMFERING_RESULT,
MCH_TWISTINGLY_RESULT,
MCH_DIMENSIONS_RESULT,
MCH_VISUAL_RESULT,
MCH_THREAD_INSPECTION_RESULT,
MCH_REMANENCE_RESULT,
MCH_RADIOACTIVITY_RESULT,
MCH_BEVEL_RESULT,
ANGLE_VAL,
EDGE_VAL,
INPUT_WEIGHT,
INPUT_COUNT,
OUTPUT_WEIGHT,
OUTPUT_COUNT,
TESTING_STANDAR,
DRIFT_MODEL_MIN,
DRIFT_MODEL_MIN2,
DRIFT_MODEL_LEN,
DRIFT_MODEL_LEN2,
MEASURED_END_PART,
MEASURED_MIDDLE_PART,
MEASURED_TAIL_PART,
LIKU_PROCESS_CODE,
SUPPLY_UNIT,
SUPPLY_UNIT_DESC,
length_type,
IN_MOLD)
VALUES
('#JUGDE_APPLY_CODE#',
'#JUDGE_STOVE_NO#',
'#BATCH_NO#',
'#BATCH_GROUD_NO#',
'#PROCESS_CODE#',
'#PLINE_CODE#',
'#ACT_COUNT#',
'#ACT_WEIGHT#',
'#ACT_THEORY_WEIGHT#',
'#PRO_ORDER_ID#',
'#FACE_RESULT_PATH#',
'#SPEC_RESULT_PATH#',
'#CHEM_RESULT_PATH#',
'#PHY_RESULT_PATH#',
'#DETECT_RESULT_PATH#',
'#WPRESSURE_RESULT_PATH#',
'#PROCESS_RESULT_PATH#',
'#VALIDFLAG#',
'#APPLY_NAME#',
TO_DATE('#APPLY_TIME#', 'YYYY-MM-DD HH24:MI:SS'),
'#MEMO#',
'#QUALITY_GROUP#',
'#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#',
'#CRAF_NO#',
'#LOT_NO#',
'#PLINE_NAME#',
'#PRO_ORDER_NO#',
NVL('#MAT_GOWHERE_CODE#', '\'),
NVL('#MAT_GOWHERE_NAME#', '\'),
'#ACT_DIMATER#',
'#ACT_HEIGHT#',
'#ACT_LEN_MIN#',
'#ACT_LEN_MAX#',
'#ORD_LN_DLY_PK#',
'#APPLY_FLAG#',
'#INSTOCK_FLAG#',
'#BELONG_CODE#',
'#BELONG_NAME#',
'#ISENDGX#',
'#ACT_LEN#',
'#BELONG_CODE_JUGDE#',
'#BELONG_NAME_JUGDE#',
'#GX_PLAN_NO#',
'',
'#STOVE_NO#',
'#STEEL_STANDRAD#',
'#PRO_PLAN_ID_NEXT#',
'#GX_PLAN_NO_NEXT#',
'#LK_FLAG#',
'#JUGDE_APPLY_SEQUENO#',
'#TARGET#',
'#CRAFT_SEQ#',
'#INDEX_SEQ#',
'#CIC#',
'#PIC#',
'#SIC#',
'#DIC#',
'#WIC#',
'#GIC#',
'#FACE_RESULT_CODE#',
'#SPEC_RESULT_CODE#',
'#CHEM_RESULT_CODE#',
'#PHY_RESULT_CODE#',
'#DETECT_RESULT_CODE#',
'#WPRESSURE_RESULT_CODE#',
'#PROCESS_RESULT_CODE#',
'#CHECK_NO#',
'#HEAT_PLAN_NO_NEXT#',
'#HEAT_PLAN_NO#',
'#NEXT_PROCESS_CDOE#',
'#DELIVERY_STATE_CODE#',
'#DELIVERY_STATE_NAME#',
'#LOAD_JUDGE_STOVE_NO#',
'#ZP_M_LH#',
'#ZP_COLL#',
'#HTT_TYPE#',
'#MIN_TEMP#',
'#HTT_TECHNOLOGY#',
'#NOTCH_INFO#',
'#NOTCH_LENGTH#',
'#NOTCH_WIDTH#',
'#NOTCH_DEPTH#',
'#LOT_NO_GROUP#',
'#TESTING_GRADE#',
'#TESTING_TYPE#',
'#TEST_PRESSURE#',
'#HOLDTIME_TIME#',
'#TEST_PRESSURE_Y#',
'#MCH_WATERGAGE_RESULT#',
'#MCH_PATH_RESULT#',
'#MCH_CHAMFERING_RESULT#',
'#MCH_TWISTINGLY_RESULT#',
'#MCH_DIMENSIONS_RESULT#',
'#MCH_VISUAL_RESULT#',
'#MCH_THREAD_INSPECTION_RESULT#',
'#MCH_REMANENCE_RESULT#',
'#MCH_RADIOACTIVITY_RESULT#',
'#MCH_BEVEL_RESULT#',
'#ANGLE_VAL#',
'#EDGE_VAL#',
'#INPUT_WEIGHT#',
'#INPUT_COUNT#',
'#OUTPUT_WEIGHT#',
'#OUTPUT_COUNT#',
'#TESTING_STANDAR#',
'#DRIFT_MODEL_MIN#',
'#DRIFT_MODEL_MIN2#',
'#DRIFT_MODEL_LEN#',
'#DRIFT_MODEL_LEN2#',
'#MEASURED_END_PART#',
'#MEASURED_MIDDLE_PART#',
'#MEASURED_TAIL_PART#',
'#LIKU_PROCESS_CODE#',
'#SUPPLY_UNIT#',
'#SUPPLY_UNIT_DESC#',
(select decode('#LENGTH_TYPE#',
'长尺',
1,
'短尺',
2,
'正尺',
0,
'#LENGTH_TYPE#')
from dual),
'#IN_MOLD#')
INSERT INTO QCM_JUGDE_APPLY_LOG(
JUGDE_APPLY_CODE,
JUDGE_STOVE_NO,
BATCH_NO,
BATCH_GROUD_NO,
PROCESS_CODE,
PLINE_CODE,
ACT_COUNT,
ACT_WEIGHT,
CREATE_NAME,
CREATE_TIME,
LOG_TYPE)
VALUES(
?,
?,
?,
?,
?,
?,
?,
?,
?,
SYSDATE,
?)
0;
IF (V_COUNT > 0) THEN
FOR MYROW1 IN (SELECT *
FROM MCH_TWISTINGLY_RESULT_D T
WHERE 1 = 1
AND T.JUDGE_STOVE_NO = '#JudgeWithCoupling#'
AND T.BATCH_NO = '#BatchNoWithCoupling#'
AND NVL(COUPLING_NUM, 0) - NVL(JUDGE_NUM, 0) > 0
AND ROWNUM = 1) LOOP
INSERT INTO MCH_TWISTINGLY_JUDGE
(JUGDE_APPLY_CODE,
JUGDE_APPLY_SEQUENO,
JUDGE_STOVE_NO,
BATCH_NO,
MAT_NO,
RESULT_NO,
SEQ,
COUPLING_STOVE_NO,
LOT_NO)
VALUES
('#JUGDE_APPLY_CODE#',
'#JUGDE_APPLY_SEQUENO#',
'#JUDGE_STOVE_NO#',
'#BATCH_NO#',
MYROW.MAT_NO,
MYROW1.RESULT_NO,
MYROW1.SEQ,
MYROW1.COUPLING_STOVE_NO,
MYROW1.LOT_NO);
UPDATE MCH_TWISTINGLY_RESULT_D
SET JUDGE_NUM = NVL(JUDGE_NUM, 0) + 1
WHERE RESULT_NO = MYROW1.RESULT_NO
AND SEQ = MYROW1.SEQ;
END LOOP;
END IF;
END IF;
END LOOP;
END;
]]>
DECLARE
V_JUDGE_STOVE_NO QCM_ZG_JUGDE_APPLY.JUDGE_STOVE_NO%type := '#JUDGE_STOVE_NO#';
V_PROCESS_CODE QCM_ZG_JUGDE_APPLY.PROCESS_CODE%type := '#PROCESS_CODE#';
BEGIN
FOR MYROW IN (SELECT T.*, M.HEAT_PLAN_NO_OLD, M.ZZB_FLAG ZZB_FLAG2
FROM QCM_ZG_JUGDE_APPLY T,
(SELECT DISTINCT M.PROCESS_CDOE,
M.JUDGE_STOVE_NO,
M.BATCH_NO,
NVL(M.HEAT_PLAN_NO_OLD,
M.HEAT_PLAN_NO) HEAT_PLAN_NO_OLD,
M.ZZB_FLAG
FROM MAT_BC_M M
WHERE M.PROCESS_CDOE = V_PROCESS_CODE
AND M.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
UNION ALL
SELECT DISTINCT M.PROCESS_CDOE,
M.JUDGE_STOVE_NO,
M.BATCH_NO,
NVL(M.HEAT_PLAN_NO_OLD,
M.HEAT_PLAN_NO) HEAT_PLAN_NO_OLD,
M.ZZB_FLAG
FROM MAT_BC_BACKUP M
WHERE M.PROCESS_CDOE = V_PROCESS_CODE
AND M.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO) M
WHERE T.PROCESS_CODE = V_PROCESS_CODE
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.PROCESS_CODE = M.PROCESS_CDOE
AND T.BATCH_NO = M.BATCH_NO
AND T.JUDGE_STOVE_NO = M.JUDGE_STOVE_NO) LOOP
IF (V_PROCESS_CODE = 'E') THEN
UPDATE QCM_ZG_JUGDE_APPLY T
SET T.LOAD_JUDGE_STOVE_NO =
(SELECT MAX(E.FEED_HEAT_NO)
FROM PORT_VRP_BATCH_SAMPLE_RESULT E
WHERE /*E.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO_OLD
AND*/
E.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND E.PHY_BATCH_NO = MYROW.BATCH_NO),
T.LOAD_BATCH_NO =
(SELECT MAX(E.BATCH_NO)
FROM PORT_VRP_BATCH_SAMPLE_RESULT E
WHERE /*E.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO_OLD
AND*/
E.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND E.PHY_BATCH_NO = MYROW.BATCH_NO),
T.ZZB_FLAG = MYROW.ZZB_FLAG2
WHERE T.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO
AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND T.BATCH_NO = MYROW.BATCH_NO;
ELSIF (V_PROCESS_CODE = 'F') THEN
UPDATE QCM_ZG_JUGDE_APPLY T
SET T.LOAD_JUDGE_STOVE_NO =
(SELECT MAX(E.FEED_HEAT_NO)
FROM PORT_HTT_BATCH_SAMPLE_RESULT E
WHERE /*E.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO_OLD
AND*/
E.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND E.PHY_BATCH_NO = MYROW.BATCH_NO),
T.LOAD_BATCH_NO = CASE
WHEN MYROW.ZP_M_LH IS NULL THEN
(SELECT MAX(E.BATCH_NO)
FROM PORT_HTT_BATCH_SAMPLE_RESULT E
WHERE /*E.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO_OLD
AND*/
E.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND E.PHY_BATCH_NO = MYROW.BATCH_NO)
ELSE
SUBSTR(MYROW.ZP_M_LH, -5)
END,
T.ZZB_FLAG = MYROW.ZZB_FLAG2
WHERE T.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO
AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND T.BATCH_NO = MYROW.BATCH_NO;
ELSIF (V_PROCESS_CODE = 'G') THEN
UPDATE QCM_ZG_JUGDE_APPLY T
SET T.LOAD_JUDGE_STOVE_NO =
(SELECT MAX(E.FEED_HEAT_NO)
FROM PORT_MCH_BATCH_SAMPLE_RESULT E
WHERE DECODE(MYROW.LK_FLAG, '0', E.HEAT_PLAN_NO, '/') =
DECODE(MYROW.LK_FLAG, '0', MYROW.HEAT_PLAN_NO_OLD, '/')
AND E.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND E.PHY_BATCH_NO = MYROW.BATCH_NO),
T.LOAD_BATCH_NO = CASE
WHEN MYROW.ZP_M_LH IS NULL THEN
(SELECT MAX(E.BATCH_NO)
FROM PORT_MCH_BATCH_SAMPLE_RESULT E
WHERE DECODE(MYROW.LK_FLAG, '0', E.HEAT_PLAN_NO, '/') =
DECODE(MYROW.LK_FLAG, '0', MYROW.HEAT_PLAN_NO_OLD, '/')
AND E.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND E.PHY_BATCH_NO = MYROW.BATCH_NO)
ELSE
SUBSTR(MYROW.ZP_M_LH, -5)
END,
T.BUNDLING_MEMO =
(SELECT MAX(M.MEMO)
FROM MCH_BUNDLING_RESULT M
WHERE DECODE(MYROW.LK_FLAG, '0', M.HEAT_PLAN_NO, '/') =
DECODE(MYROW.LK_FLAG, '0', MYROW.HEAT_PLAN_NO_OLD, '/')
AND M.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND M.BATCH_NO = MYROW.BATCH_NO),
T.ZZB_FLAG = MYROW.ZZB_FLAG2
WHERE T.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO
AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND T.BATCH_NO = MYROW.BATCH_NO;
END IF;
END LOOP;
--同步成品未判的库存与送判表重量,长度
FOR MYROW2 IN (SELECT T.JUGDE_APPLY_CODE,
T.JUGDE_APPLY_SEQUENO,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.BATCH_GROUD_NO,
T.PROCESS_CODE,
SUM(M.ACT_COUNT) ACT_COUNT,
SUM(M.ACT_WEIGHT) ACT_WEIGHT,
SUM(M.ACT_LEN) ACT_LEN
FROM QCM_ZG_JUGDE_APPLY T, MAT_BC_M M
WHERE T.PROCESS_CODE = V_PROCESS_CODE
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
AND T.PROCESS_CODE = M.PROCESS_CDOE
AND T.BATCH_NO = M.BATCH_NO
AND T.JUDGE_STOVE_NO = M.JUDGE_STOVE_NO
AND T.BATCH_GROUD_NO = M.BATCH_GROUD_NO
AND T.JUGDE_APPLY_CODE = M.JUGDE_APPLY_CODE
AND T.JUGDE_APPLY_SEQUENO = M.JUGDE_APPLY_SEQUENO
AND T.VALIDFLAG = '00'
AND T.TARGET = 'A'
GROUP BY T.JUGDE_APPLY_CODE,
T.JUGDE_APPLY_SEQUENO,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.PROCESS_CODE,
T.BATCH_GROUD_NO) LOOP
UPDATE QCM_ZG_JUGDE_APPLY T
SET T.ACT_WEIGHT = MYROW2.ACT_WEIGHT, T.ACT_LEN = MYROW2.ACT_LEN
WHERE T.PROCESS_CODE = MYROW2.PROCESS_CODE
AND T.BATCH_NO = MYROW2.BATCH_NO
AND T.JUDGE_STOVE_NO = MYROW2.JUDGE_STOVE_NO
AND T.BATCH_GROUD_NO = MYROW2.BATCH_GROUD_NO
AND T.JUGDE_APPLY_CODE = MYROW2.JUGDE_APPLY_CODE
AND T.JUGDE_APPLY_SEQUENO = MYROW2.JUGDE_APPLY_SEQUENO
AND T.ACT_COUNT = MYROW2.ACT_COUNT
AND T.VALIDFLAG = '00'
AND T.TARGET = 'A';
END LOOP;
--更新成品送判量统计表
SET_QCM_ZC_APPLY2('#ORD_LN_DLY_PK#');
END;
SELECT S.DEPARTMENT_CODE FROM COM_BASE_PLINE S WHERE S.PLINE_CODE = '#PLINE_CODE#'
select T.SORT_CODE
from COM_BASE_PROCESS_C t
WHERE T.PROCESS_CDOE_C = (select T1.PROCESS_CODE_C
from PLN_ZY_RCL_M T1
where 1 =1
SELECT
CASE
WHEN T.LOW_TEMP IS NULL
THEN ''
ELSE MAX(T.LOW_TEMP) || '℃' END LHEAT_EXIT_TEMP,
CASE
WHEN T.HTT_TECHNOLOGY IS NOT NULL THEN T.HTT_TECHNOLOGY
WHEN T1.HTT_TECHNOLOGY IS NOT NULL THEN T1.HTT_TECHNOLOGY
WHEN T.LHEAT_EXIT_TEMP IS NULL AND T1.HHEAT_EXIT_TEMP IS NOT NULL
THEN T1.HHEAT_EXIT_TEMP || '℃' || '×' || T1.TOTAL_TIME || 'min' || T1.COOLING_TYPE
WHEN T1.HHEAT_EXIT_TEMP IS NULL AND T.LHEAT_EXIT_TEMP IS NOT NULL
THEN T.LHEAT_EXIT_TEMP || '℃' || '×' || T.TOTAL_TIME || 'min' || T.COOLING_TYPE
WHEN T.LHEAT_EXIT_TEMP IS NULL AND T1.HHEAT_EXIT_TEMP IS NULL
THEN ''
ELSE T1.HHEAT_EXIT_TEMP || '℃' || '×' || T1.TOTAL_TIME || 'min' || T1.COOLING_TYPE || '+' ||T.LHEAT_EXIT_TEMP || '℃' || '×' || T.TOTAL_TIME || 'min' || T.COOLING_TYPE END HEAT_EXIT_TEMP,
MAX(T.CREATE_TIME),MAX(T1.CREATE_TIME)
FROM HTT_LHEAT_RESULT T,HTT_HHEAT_RESULT T1
WHERE T.HEAT_PLAN_NO = T1.HEAT_PLAN_NO
AND T.PLINE_CODE = T1.PLINE_CODE
AND T1.CREATE_TIME = (SELECT MAX(T2.CREATE_TIME) FROM HTT_HHEAT_RESULT T2 WHERE #HEAT_PLAN_NO# and #PLINE_CODE#)
AND T.CREATE_TIME = (SELECT MAX(T2.CREATE_TIME) FROM HTT_LHEAT_RESULT T2 WHERE #HEAT_PLAN_NO# and #PLINE_CODE#)
AND #LHEAT_PLAN_NO#
and #LPLINE_CODE#
GROUP BY T.HTT_TECHNOLOGY,T1.HTT_TECHNOLOGY, T.LHEAT_EXIT_TEMP,t1.total_time,t.total_time,t.LOW_TEMP,
T1.HHEAT_EXIT_TEMP,T.COOLING_TYPE,T1.COOLING_TYPE
SELECT NVL(SUM(REAL_OUTDOUBLE_NUM),0) REAL_OUTDOUBLE_NUM FROM (
SELECT NVL(SUM(T.ACT_COUNT), 0) REAL_OUTDOUBLE_NUM
FROM MAT_BC_M T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.QCM_STAUS = '00'
AND T.PROCESS_CDOE = 'F'
UNION
SELECT NVL(SUM(T.ACT_COUNT), 0) REAL_OUTDOUBLE_NUM
FROM MAT_BC_BACKUP T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.QCM_STAUS = '00'
AND T.PROCESS_CDOE = 'F')
SELECT T.MIN_TEMP,T.HTT_TECHNOLOGY FROM qcm_zg_jugde_apply T WHERE 1 =1 AND #LHEAT_PLAN_NO# AND #LPLINE_CODE#
SELECT T.GROUP_ID,
CASE
WHEN T.ZP_BATCH_NO IS NULL
THEN T.ZP_JUDGE_STOVE_NO
ELSE T.ZP_JUDGE_STOVE_NO || '+' || T.ZP_BATCH_NO END ZP_M_LH
FROM VRP_OFFLINE_RESULT T WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO_OLD#' AND T.GROUP_LOG = '1'
SELECT
LISTAGG(DECODE(T.BATCH_NO,
'',T.JUDGE_STOVE_NO,T.JUDGE_STOVE_NO || '+' || T.BATCH_NO), ',') WITHIN GROUP(ORDER BY T.BATCH_NO) ZP_COLL
FROM VRP_GROUP_RESULT T WHERE T.GROUP_ID = ?
SELECT T.GROUP_ID,
CASE
WHEN T.ZP_BATCH_NO IS NULL THEN
T.ZP_JUDGE_STOVE_NO
ELSE
T.ZP_JUDGE_STOVE_NO || '+' || T.ZP_BATCH_NO
END ZP_M_LH
FROM HTT_OFFLINE_RESULT T
WHERE T.GROUP_LOG = '1'
AND (NVL(T.HEAT_PLAN_NO, '/') = NVL('#HEAT_PLAN_NO_OLD#', '/') OR
NVL(T.ZY_BATCH_ID1, '/') = NVL('#HEAT_PLAN_NO_OLD#', '/'))
select NVL(SUM(T.ACT_COUNT), 0) ACT_COUNT
from PORT_VRP_BATCH_SAMPLE_RESULT t
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO_OLD#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND ((T.MAT_STATUS = '00' and t.instore_flag='0')
or t.mat_status = '20')
SELECT
LISTAGG(DECODE(T.BATCH_NO,
'',T.JUDGE_STOVE_NO,T.JUDGE_STOVE_NO || '+' || T.BATCH_NO), ',') WITHIN GROUP(ORDER BY T.BATCH_NO) ZP_COLL
FROM HTT_GROUP_RESULT T WHERE T.GROUP_ID = ?
SELECT T.GROUP_ID,
CASE
WHEN T.ZP_BATCH_NO IS NULL
THEN T.ZP_JUDGE_STOVE_NO
ELSE T.ZP_JUDGE_STOVE_NO || '+' || T.ZP_BATCH_NO END ZP_M_LH
FROM MCH_OFFLINE_RESULT T WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO_OLD#' AND T.GROUP_LOG = '1'
SELECT
LISTAGG(DECODE(T.BATCH_NO,
'',T.JUDGE_STOVE_NO,T.JUDGE_STOVE_NO || '+' || T.BATCH_NO), ',') WITHIN GROUP(ORDER BY T.BATCH_NO) ZP_COLL
FROM MCH_GROUP_RESULT T WHERE T.GROUP_ID = ?
SELECT T.JUDGE_STOVE_NO,t.BATCH_NO FROM MCH_GROUP_RESULT T WHERE T.GROUP_ID = ?
SELECT
CASE
WHEN T.ZP_BATCH_NO IS NULL
THEN T.ZP_JUDGE_STOVE_NO
ELSE T.ZP_JUDGE_STOVE_NO || '+' || T.ZP_BATCH_NO END ZP_M_LH,
CASE
WHEN T.BATCH_NO IS NULL
THEN LISTAGG(T.JUDGE_STOVE_NO, ',') WITHIN GROUP(ORDER BY T.JUDGE_STOVE_NO || T.BATCH_NO)
ELSE LISTAGG(T.JUDGE_STOVE_NO || '+' || T.BATCH_NO, ',') WITHIN GROUP(ORDER BY T.JUDGE_STOVE_NO || T.BATCH_NO) END ZP_COLL
FROM VRP_GROUP_RESULT T
WHERE T.ZP_JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
GROUP BY T.ZP_JUDGE_STOVE_NO, T.ZP_BATCH_NO,T.BATCH_NO
SELECT
CASE
WHEN T.ZP_BATCH_NO IS NULL
THEN T.ZP_JUDGE_STOVE_NO
ELSE T.ZP_JUDGE_STOVE_NO || '+' || T.ZP_BATCH_NO END ZP_M_LH,
CASE
WHEN T.BATCH_NO IS NULL
THEN LISTAGG(T.JUDGE_STOVE_NO, ',') WITHIN GROUP(ORDER BY T.JUDGE_STOVE_NO || T.BATCH_NO)
ELSE LISTAGG(T.JUDGE_STOVE_NO || '+' || T.BATCH_NO, ',') WITHIN GROUP(ORDER BY T.JUDGE_STOVE_NO || T.BATCH_NO) END ZP_COLL
FROM HTT_GROUP_RESULT T
WHERE T.ZP_JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
GROUP BY T.ZP_JUDGE_STOVE_NO, T.ZP_BATCH_NO,T.BATCH_NO
SELECT
CASE
WHEN T.ZP_BATCH_NO IS NULL
THEN T.ZP_JUDGE_STOVE_NO
ELSE T.ZP_JUDGE_STOVE_NO || '+' || T.ZP_BATCH_NO END ZP_M_LH,
CASE
WHEN T.BATCH_NO IS NULL
THEN LISTAGG(T.JUDGE_STOVE_NO, ',') WITHIN GROUP(ORDER BY T.JUDGE_STOVE_NO || T.BATCH_NO)
ELSE LISTAGG(T.JUDGE_STOVE_NO || '+' || T.BATCH_NO, ',') WITHIN GROUP(ORDER BY T.JUDGE_STOVE_NO || T.BATCH_NO) END ZP_COLL
FROM MCH_GROUP_RESULT T
WHERE T.ZP_JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
GROUP BY T.ZP_JUDGE_STOVE_NO, T.ZP_BATCH_NO,T.BATCH_NO
SELECT T.CRAFT_SEQ, T.CRAFT_FILE_NO,T.INDEX_SEQ
FROM PLN_ZY_DBK_M T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO_OLD#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
SELECT T.CRAFT_SEQ, T.CRAFT_FILE_NO,T.INDEX_SEQ
FROM PLN_ZY_RCL_M T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO_OLD#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
SELECT T.CRAFT_SEQ, T.CRAFT_FILE_NO,T.INDEX_SEQ
FROM PLN_ZY_RCL_M T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
SELECT REPLACE(DBMS_LOB.SUBSTR(WMSYS.WM_CONCAT(DISTINCT DECODE(REPORT_NO,
'4',
'ET',
'UT')),
400),
',',
'+') TESTING_TYPE
FROM HTT_CRACK_DETECTION_PARA
WHERE HEAT_PLAN_NO = '#HEAT_PLAN_NO_OLD#'
AND BATCH_NO = '#BATCH_NO#'
SELECT REPLACE(DBMS_LOB.SUBSTR(WMSYS.WM_CONCAT(DISTINCT TESTING_GRAGE),
400),
',',
'+') TESTING_GRAGE
FROM (SELECT LONGITUDINAL_EXTERNAL TESTING_GRAGE
FROM HTT_CRACK_DETECTION_PARA
WHERE HEAT_PLAN_NO = '#HEAT_PLAN_NO_OLD#'
AND BATCH_NO = '#BATCH_NO#'
AND LONGITUDINAL_EXTERNAL IS NOT NULL
AND LONGITUDINAL_EXTERNAL != '/'
UNION
SELECT ACCPETANCE_LEVEL TESTING_GRAGE
FROM HTT_CRACK_DETECTION_PARA
WHERE HEAT_PLAN_NO = '#HEAT_PLAN_NO_OLD#'
AND BATCH_NO = '#BATCH_NO#'
AND ACCPETANCE_LEVEL IS NOT NULL
AND ACCPETANCE_LEVEL != '/')
SELECT COUNT(*) COUNT
FROM QCM_ZC_CHECKCONSIGN T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.PROCESS_CODE = 'F'
AND T.CYCLES_FLAG = '1'
SELECT T.CRAFT_SEQ, T.CRAFT_FILE_NO,T.INDEX_SEQ
FROM PLN_ZY_JGX_M T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO_OLD#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
'0')
AND T.VALIDFLAG <> '0'
AND T.VALIDFLAG <> '5'
ORDER BY T.CRAFT_NO_V DESC
]]>
select NVL(SUM(T.ACT_COUNT), 0) ACT_COUNT
from PORT_HTT_BATCH_SAMPLE_RESULT t
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO_OLD#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND ((T.MAT_STATUS = '00' and t.instore_flag='0')
or t.mat_status = '20')
select NVL(SUM(T.ACT_COUNT), 0) ACT_COUNT
from PORT_MCH_BATCH_SAMPLE_RESULT t
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO_OLD#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND ((T.MAT_STATUS = '00' and t.instore_flag='0')
or t.mat_status = '20')
SELECT COUNT(1) COUNT
FROM PORT_MCH_BATCH_SAMPLE_RESULT P, MAT_BC_M T
WHERE P.MAT_NO = T.MAT_NO
AND P.JUDGE_STOVE_NO = T.JUDGE_STOVE_NO
AND P.PHY_BATCH_NO = T.BATCH_NO
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.PRO_ORDER_ID = '#PRO_ORDER_ID#'
AND T.GX_PLAN_NO = '#GX_PLAN_NO#'
AND T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.QCM_STAUS = '00'
AND T.JUGDE_APPLY_CODE IS NULL
AND T.ACT_WEIGHT != P.ACT_WEIGHT
AND P.INSTORE_FLAG = '1'
AND P.JUGDE_APPLY_CODE IS NULL
select NVL(MIN(T.BESIDE_STATUS), '00') BESIDE_STATUS
from PLN_ZY_JGX_C t
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND BATCH_NO = '#BATCH_NO#'
SELECT T.BASECODE, T.BASENAME
FROM COM_BASE_INFO T
WHERE T.BASECODE = (SELECT GET_DELIVERY_STATE(?,
?) SORTCODE
FROM DUAL)
AND T.SORTCODE='4100'
SELECT T.BASECODE, T.BASENAME
FROM COM_BASE_INFO T
WHERE T.BASECODE = (SELECT GET_SHIPPED_STATE(?,?,?) SORTCODE
FROM DUAL)
AND T.SORTCODE='4100'
SELECT T.BASECODE, T.BASENAME
FROM COM_BASE_INFO T
WHERE T.BASECODE =
(SELECT GET_SHIPPED_STATE((SELECT MAX(T.DESGIN_KEY_BL)
FROM CRAFT_ORD_DESIGN_MSC_BL T
WHERE T.DESGIN_KEY = ?),
NVL((select MAX(T1.MSC_PLINE)
from CRAFT_ORD_DESIGN_MSC_PL_STI t1,
CRAFT_ORD_DESIGN_MSC_BL T2
WHERE T1.DESGIN_KEY = T2.DESGIN_KEY_BL
AND T2.DESGIN_KEY = ?),
'000001'),
?) SORTCODE
FROM DUAL)
AND T.SORTCODE = '4100'
SELECT S.SALE_ORG, S.SALE_ORG_DESC
FROM SLM_ORDER_HEAD S, SLM_ORDER_LINE S1, MAT_BC_M T
WHERE S.ORD_PK = S1.ORD_PK
AND (S.ORDER_NO || '/' || S1.ORDER_SEQ = T.PRO_ORDER_NO OR
S1.ORD_LN_PK = T.ORD_LN_PK)
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND ROWNUM = 1
SELECT P.DEPARTMENT_CODE,P.DEPARTMENT_DESC
FROM (SELECT S.ORD_LN_DLY_PK, S.PLN_DIVIDE_ID
FROM PLN_ZY_DBK_M T, PLN_ORDER_DBK_S S
WHERE T.PRO_PLAN_ID = S.PRO_PLAN_ID
AND T.GX_PLAN_NO = S.GX_PLAN_NO
AND T.HEAT_PLAN_NO = '#HEAT_PLAN_NO_OLD#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#') E,
#PLAN# F,
COM_BASE_PLINE P
WHERE E.ORD_LN_DLY_PK = F.ORD_LN_DLY_PK
AND E.PLN_DIVIDE_ID = F.PLN_DIVIDE_ID
AND F.PLINE_CODE = P.PLINE_CODE
AND ROWNUM = 1
SELECT T.VALIDFLAG,T.INSTOCK_FLAG
FROM QCM_ZG_JUGDE_APPLY T
WHERE T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
AND T.JUGDE_APPLY_SEQUENO = '#JUGDE_APPLY_SEQUENO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.IS_ALL_SCRAP = '0'
SELECT T.VALIDFLAG,T.INSTOCK_FLAG
FROM QCM_ZG_JUGDE_APPLY T
WHERE T.IS_ALL_SCRAP = '0'
DECLARE
V_APPLY_FLAG QCM_ZG_JUGDE_APPLY.APPLY_FLAG%TYPE := NULL;
V_COUNT NUMBER :=0;
BEGIN
SELECT T.APPLY_FLAG
INTO V_APPLY_FLAG
FROM QCM_ZG_JUGDE_APPLY T
WHERE T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
AND T.JUGDE_APPLY_SEQUENO = '#JUGDE_APPLY_SEQUENO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND NVL(T.LOT_NO,'/') = NVL('#LOT_NO#','/')
AND T.IS_ALL_SCRAP = '0';
FOR MYROW IN (SELECT *
FROM MAT_BC_M T
WHERE T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
AND T.JUGDE_APPLY_SEQUENO = '#JUGDE_APPLY_SEQUENO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND NVL(T.LOT_NO,'/') = NVL('#LOT_NO#','/')
UNION
SELECT *
FROM MAT_BC_BACKUP T
WHERE T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
AND T.JUGDE_APPLY_SEQUENO = '#JUGDE_APPLY_SEQUENO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND NVL(T.LOT_NO,'/') = NVL('#LOT_NO#','/')) LOOP
UPDATE MAT_BC_M S
SET S.JUGDE_APPLY_CODE = '',
S.JUGDE_APPLY_TIME = '',
S.JUGDE_APPLY_SEQUENO = ''
WHERE S.MAT_NO = MYROW.MAT_NO
AND S.PLINE_CODE = MYROW.PLINE_CODE;
UPDATE MAT_BC_BACKUP S
SET S.JUGDE_APPLY_CODE = '',
S.JUGDE_APPLY_TIME = '',
S.JUGDE_APPLY_SEQUENO = ''
WHERE S.MAT_NO = MYROW.MAT_NO
AND S.PLINE_CODE = MYROW.PLINE_CODE;
DELETE FROM MAT_BC_QCMTRACK S
WHERE S.MAT_NO = MYROW.MAT_NO
AND S.PROCESS_CDOE = MYROW.PROCESS_CDOE;
IF ('#PROCESS_CDOE#' = 'E') THEN
UPDATE PORT_VRP_BATCH_SAMPLE_RESULT S
SET S.JUGDE_APPLY_CODE = '', S.TR_FLAG = '0'
WHERE S.MAT_NO = MYROW.MAT_NO
AND S.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#';
ELSIF ('#PROCESS_CDOE#' = 'F') THEN
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT S
SET S.JUGDE_APPLY_CODE = '', S.TR_FLAG = '0'
WHERE S.MAT_NO = MYROW.MAT_NO
AND S.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#';
ELSIF ('#PROCESS_CDOE#' = 'G') THEN
UPDATE PORT_MCH_BATCH_SAMPLE_RESULT S
SET S.JUGDE_APPLY_CODE = ''
WHERE S.MAT_NO = MYROW.MAT_NO
AND S.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#';
END IF;
SELECT COUNT(1)
INTO V_COUNT
FROM MCH_TWISTINGLY_JUDGE T
WHERE T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
AND T.JUGDE_APPLY_SEQUENO = '#JUGDE_APPLY_SEQUENO#'
AND T.MAT_NO = MYROW.MAT_NO;
IF (V_COUNT > 0) THEN
FOR MYROW1 IN (SELECT *
FROM MCH_TWISTINGLY_JUDGE T
WHERE T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
AND T.JUGDE_APPLY_SEQUENO =
'#JUGDE_APPLY_SEQUENO#'
AND T.MAT_NO = MYROW.MAT_NO
AND ROWNUM = 1) LOOP
DELETE FROM MCH_TWISTINGLY_JUDGE T
WHERE T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
AND T.JUGDE_APPLY_SEQUENO = '#JUGDE_APPLY_SEQUENO#'
AND T.MAT_NO = MYROW.MAT_NO;
UPDATE MCH_TWISTINGLY_RESULT_D
SET JUDGE_NUM = NVL(JUDGE_NUM, 0) - 1
WHERE RESULT_NO = MYROW1.RESULT_NO
AND SEQ = MYROW1.SEQ;
END LOOP;
END IF;
END LOOP;
IF (V_APPLY_FLAG = '1') THEN
UPDATE QCM_ZG_JUGDE_APPLY T
SET T.IS_FLAG = '1'
WHERE T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
AND T.JUGDE_APPLY_SEQUENO = '#JUGDE_APPLY_SEQUENO#'
AND NVL(T.GX_PLAN_NO_NEXT, '/') = NVL('#GX_PLAN_NO_NEXT#', '/')
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#';
ELSE
DELETE FROM QCM_ZG_JUGDE_APPLY S
WHERE S.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
AND S.JUGDE_APPLY_SEQUENO = '#JUGDE_APPLY_SEQUENO#'
AND S.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(S.GX_PLAN_NO_NEXT, '/') = NVL('#GX_PLAN_NO_NEXT#', '/')
AND S.BATCH_NO = '#BATCH_NO#'
AND S.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND S.PLINE_CODE = '#PLINE_CODE#';
END IF;
DELETE FROM QCM_ADD_ASK Q
WHERE Q.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
AND Q.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
--更新成品送判量统计表
SET_QCM_ZC_APPLY2('#ORD_LN_DLY_PK#');
END;
DECLARE
BEGIN
FOR MYROW IN (SELECT *
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND T.QCM_STAUS = '00'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
AND T.JUGDE_APPLY_SEQUENO = '#JUGDE_APPLY_SEQUENO#'
AND T.LOT_NO = '#LOT_NO#'
UNION
SELECT *
FROM MAT_BC_BACKUP T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND T.QCM_STAUS = '00'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
AND T.JUGDE_APPLY_SEQUENO = '#JUGDE_APPLY_SEQUENO#'
AND T.LOT_NO = '#LOT_NO#'
) LOOP
INSERT INTO MAT_BC_QCMTRACK
(MAT_NO,
PROCESS_CDOE,
STOVE_NO,
JUDGE_STOVE_NO,
BATCH_NO,
GRADECODE,
GRADENAME,
MATERIAL_NO,
MATERIAL_NAME,
JUGDE_APPLY_CODE,
JUGDE_APPLY_TIME,
JUGDE_APPLY_MAKER)
VALUES
(MYROW.MAT_NO,
MYROW.PROCESS_CDOE,
MYROW.STOVE_NO,
MYROW.JUDGE_STOVE_NO,
MYROW.BATCH_NO,
MYROW.GRADECODE,
MYROW.GRADENAME,
MYROW.MATERIAL_NO,
MYROW.MATERIAL_NAME,
'#JUGDE_APPLY_CODE#',
TO_DATE('#APPLY_TIME#','YYYY-MM-DD HH24:MI:SS'),
'#APPLY_NAME#');
END LOOP;
END;
SELECT COUNT(1) ACOUNT
FROM CRAFT_ORD_DESIGN_MSC_PL_PRC T, CRAFT_ORD_DESIGN_STD_WIC W
WHERE T.DESGIN_KEY = W.DESGIN_KEY
AND T.MSC_PLINE = W.MSC_PLINE
and t.PROCESS_CODE = W.PROCESS_CODE
AND W.SPECL_FL = '2'
AND T.PROCESS_CODE = ?
AND T.DESGIN_KEY = ?
select t.*
from MCH_WATERGAGE_RESULT t
WHERE T.HEAT_PLAN_NO = ?
AND T.JUDGE_STOVE_NO = ?
select MAX(T.DRIFT_MODEL_MIN) DRIFT_MODEL_MIN,
MAX(T.DRIFT_MODEL_MIN2) DRIFT_MODEL_MIN2,
MAX(T.DRIFT_MODEL_LEN) DRIFT_MODEL_LEN,
MAX(T.DRIFT_MODEL_LEN2) DRIFT_MODEL_LEN2,
MIN(T2.MEASURED_END_PART) MEASURED_END_PART,
MIN(T2.MEASURED_MIDDLE_PART) MEASURED_MIDDLE_PART,
MIN(T2.MEASURED_TAIL_PART) MEASURED_TAIL_PART,
COUNT(1) ACOUNT
from MCH_PATH_RESULT t, MCH_PATH_RESULT_D T2
WHERE T.HEAT_PLAN_NO = T2.HEAT_PLAN_NO(+)
AND T.HEAT_PLAN_NO = ?
AND T.JUDGE_STOVE_NO = ?
select t.*
from MCH_CHAMFERING_RESULT t
WHERE T.HEAT_PLAN_NO = ?
AND T.JUDGE_STOVE_NO = ?
select t.*
from MCH_TWISTINGLY_RESULT t
WHERE T.HEAT_PLAN_NO = ?
AND T.JUDGE_STOVE_NO = ?
SELECT SUM(T.ACT_COUNT) ACT_COUNT
FROM QCM_ZG_JUGDE_APPLY T
WHERE T.JUDGE_STOVE_NO = ?
AND T.PLINE_CODE = ?
AND T.PROCESS_CODE = 'F'
0
]]>
SELECT COUNT(1) ACOUNT
FROM QCM_ZG_JUGDE_APPLY T
WHERE T.JUDGE_STOVE_NO = ?
AND T.PROCESS_CODE = ?
AND T.IS_FLAG = '0'
AND T.IS_ALL_SCRAP IN ('0', '1')
?
AND T.BATCH_NO = ?
AND T.IS_FLAG = '0'
AND T.IS_ALL_SCRAP = '0'
AND T.JUDGE_RESULT_CODE NOT IN ('40740701', '40740707', '40740709')
]]>
SELECT T.IF_MATCH_ODD FROM PLN_ZY_DBK_M T WHERE T.HEAT_PLAN_NO = ? AND T.JUDGE_STOVE_NO = ?
SELECT T.IF_MATCH_ODD FROM PLN_ZY_RCL_M T WHERE T.HEAT_PLAN_NO = ? AND T.JUDGE_STOVE_NO = ?
SELECT T.IF_MATCH_ODD FROM PLN_ZY_JGX_M T WHERE T.HEAT_PLAN_NO = ? AND T.JUDGE_STOVE_NO = ?
SELECT T.HEAT_PLAN_NO
FROM PLN_ZY_DBK_M T
WHERE T.PRO_PLAN_ID = '#PRO_PLAN_ID#'
AND T.GX_PLAN_NO = '#GX_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.IF_MATCH_ODD IN('0','1')
SELECT T.HEAT_PLAN_NO
FROM PLN_ZY_RCL_M T
WHERE T.PRO_PLAN_ID = '#PRO_PLAN_ID#'
AND T.GX_PLAN_NO = '#GX_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.IF_MATCH_ODD IN('0','1')
SELECT T.HEAT_PLAN_NO
FROM PLN_ZY_JGX_M T
WHERE T.PRO_PLAN_ID = '#PRO_PLAN_ID#'
AND T.GX_PLAN_NO = '#GX_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.IF_MATCH_ODD IN('0','1')
0;
IF (V_BUNDLE_NUM > 0) THEN
UPDATE QCM_ZG_JUGDE_APPLY T
SET T.BUNDLE_NUM = V_BUNDLE_NUM
WHERE T.JUGDE_APPLY_CODE = V_JUGDE_APPLY_CODE
AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO;
END IF;
END;
]]>
SELECT COUNT(DISTINCT T.MAT_NO ) COUNT
FROM MAT_BC_M T LEFT JOIN MCH_FINAL_CHECK_RESULT_MAT_NO D ON T.MAT_NO = D.MAT_NO
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.PRO_ORDER_ID = '#PRO_ORDER_ID#'
AND T.GX_PLAN_NO = '#GX_PLAN_NO#'
AND T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.QCM_STAUS = '00'
AND T.JUGDE_APPLY_CODE IS NULL
AND D.MAT_NO IS NULL
SELECT COUNT(1) COUNT FROM mch_final_check_result_d d,mch_final_check_treatment t WHERE t.result_no = d.result_no AND
mat_No IN( SELECT mat_No FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.PRO_ORDER_ID = '#PRO_ORDER_ID#'
AND T.GX_PLAN_NO = '#GX_PLAN_NO#'
AND T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.QCM_STAUS = '00'
AND T.JUGDE_APPLY_CODE IS NULL)
AND APPROVAL_STATUS != '2'
SELECT SUM(T.ACT_COUNT) ACOUNT
FROM MAT_BC_M T
WHERE T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
AND T.JUGDE_APPLY_SEQUENO = '#JUGDE_APPLY_SEQUENO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
SELECT COUNT(1) ACOUNT
FROM QCM_BC_PASS_APPLY T
WHERE T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.VALIDFLAG = '1'
SELECT C.SUPPLY_UNIT_CODE SUPPLY_UNIT, C.SUPPLY_UNIT SUPPLY_UNIT_DESC
FROM MAT_BC_M T, COM_BASE_PLINE C
WHERE T.PLINE_CODE = C.PLINE_CODE
AND T.QCM_STAUS = '00'
AND T.JUDGE_STOVE_NO = ?
AND T.PROCESS_CDOE = ?
AND ROWNUM = 1
SELECT ? || TO_CHAR(SYSDATE, 'yyyyMMDD') ||
LPAD(NVL(MAX(TO_NUMBER(SUBSTR(T.INSPECTION_NO,
LENGTH(T.INSPECTION_NO) - 5))),
0) + 1,
6,
'0') INSPECTION_NO
FROM MIL_INSPECTION T
WHERE T.INSPECTION_NO LIKE ? || TO_CHAR(SYSDATE, 'yyyyMMDD') || '______'
0 OR
INSTR('#STD_NAME#', '8163') > 0 OR
INSTR('#STD_NAME#', '3087') > 0) THEN
'0'
ELSE
'1'
END
INTO V_TYPE
FROM DUAL;
--抽检状态(普通品种 10抽1,特殊品种必抽,其实免检)
SELECT CASE
WHEN V_TYPE = '0' AND SUBSTR(V_SEQ, -1) = '1' THEN
'1'
WHEN V_TYPE = '1' THEN
'1'
ELSE
'3'
END
INTO V_INSPECTION_FLAG
FROM DUAL;
--查钢种
IF (V_PROCESS_CODE = 'E') THEN
SELECT T.GRADECODE, T.GRADENAME, T.INDEX_SEQ
INTO V_GRADECODE, V_GRADENAME, V_INDEX_SEQ
FROM PLN_ZY_DBK_M T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#';
ELSIF (V_PROCESS_CODE = 'F') THEN
SELECT T.GRADECODE, T.GRADENAME, T.INDEX_SEQ
INTO V_GRADECODE, V_GRADENAME, V_INDEX_SEQ
FROM PLN_ZY_RCL_M T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#';
ELSIF (V_PROCESS_CODE = 'G') THEN
SELECT T.GRADECODE, T.GRADENAME, T.INDEX_SEQ
INTO V_GRADECODE, V_GRADENAME, V_INDEX_SEQ
FROM PLN_ZY_JGX_M T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#';
END IF;
--需要复检
FOR MYROW IN (SELECT T.*
FROM MIL_INSPECTION T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.RECHECK = '1') LOOP
INSERT INTO MIL_INSPECTION
(INSPECTION_NO,
INSPECTION_NUM,
HEAT_PLAN_NO,
ZY_BATCH_ID,
JUDGE_STOVE_NO,
BATCH_NO,
INSPECTION_FLAG,
INSPECTION_RESULT,
PRODUCCODE,
PRODUCNAME,
STEELCODE,
STEELNAME,
GRADECODE,
GRADENAME,
SPEC_CODE,
SPEC_NAME,
MODEL_CODE,
MODEL_DESC,
STD_CODE,
STD_NAME,
STD_STYLE,
STD_STYLE_DESC,
CRAFT_FILE_NO,
CUSTOMER_NM,
ACT_COUNT,
ACT_WEIGHT,
CREATE_TIME,
LOAD_TIME,
INSPECTION_TIME,
INSPECTION_NAME,
APPLY_FLAG,
PROCESS_CODE,
UNQUALIFIED_REASONS,
DISPOSAL_METHOD,
DISPOSAL_FLAG,
PLINE_CODE,
PLINE_NAME,
DISPOSAL_TIME,
DISPOSAL_NAME,
ORDER_NO,
ORDER_SEQ,
PROC_DATE)
SELECT INSPECTION_NO,
INSPECTION_NUM + 1,
HEAT_PLAN_NO,
ZY_BATCH_ID,
JUDGE_STOVE_NO,
BATCH_NO,
'1',
'',
PRODUCCODE,
PRODUCNAME,
STEELCODE,
STEELNAME,
GRADECODE,
GRADENAME,
SPEC_CODE,
SPEC_NAME,
MODEL_CODE,
MODEL_DESC,
STD_CODE,
STD_NAME,
STD_STYLE,
STD_STYLE_DESC,
CRAFT_FILE_NO,
CUSTOMER_NM,
ACT_COUNT - NVL(SCRAP_NUM, 0),
ACT_WEIGHT - NVL(SCRAP_WT, 0),
V_SYSDATE,
LOAD_TIME,
'',
'',
'0',
PROCESS_CODE,
'',
'',
'',
PLINE_CODE,
PLINE_NAME,
'',
'',
ORDER_NO,
ORDER_SEQ,
CASE
WHEN TO_CHAR(V_SYSDATE, 'HH24') < 7 THEN
TO_CHAR(V_SYSDATE - 1, 'YYYYMMDD')
ELSE
TO_CHAR(V_SYSDATE, 'YYYYMMDD')
END
FROM MIL_INSPECTION T1
WHERE T1.INSPECTION_NO = MYROW.INSPECTION_NO
AND T1.INSPECTION_NUM = MYROW.INSPECTION_NUM;
FOR MYROW1 IN (SELECT T.*
FROM MIL_INSPECTION_DETAIL T
WHERE T.INSPECTION_NO = MYROW.INSPECTION_NO
AND T.INSPECTION_NUM = MYROW.INSPECTION_NUM) LOOP
INSERT INTO MIL_INSPECTION_DETAIL
(INSPECTION_NO, INSPECTION_NUM, PROJECT_CATEGORY, PROJECT_NAME)
SELECT T1.INSPECTION_NO,
T1.INSPECTION_NUM + 1,
T1.PROJECT_CATEGORY,
T1.PROJECT_NAME
FROM MIL_INSPECTION_DETAIL T1
WHERE T1.GUID = MYROW1.GUID;
END LOOP;
UPDATE MIL_INSPECTION T
SET T.RECHECK = '2'
WHERE T.INSPECTION_NO = MYROW.INSPECTION_NO
AND T.INSPECTION_NUM = MYROW.INSPECTION_NUM;
END LOOP;
--交库支吨
SELECT SUM(ACT_COUNT), SUM(ACT_WEIGHT)
INTO V_ACT_COUNT1, V_ACT_WEIGHT1
FROM (SELECT SUM(T.ACT_COUNT) ACT_COUNT, SUM(T.ACT_WEIGHT) ACT_WEIGHT
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.QCM_STAUS = '00'
AND T.TARGET = 'A'
AND T.JUGDE_APPLY_CODE IS NULL
UNION ALL
SELECT SUM(T1.ACT_COUNT) ACT_COUNT, SUM(T1.ACT_WEIGHT) ACT_WEIGHT
FROM QCM_ZG_JUGDE_APPLY T1
WHERE T1.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T1.BATCH_NO = '#BATCH_NO#'
AND T1.PLINE_CODE = '#PLINE_CODE#'
AND T1.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T1.TARGET = 'A');
--找库存信息
SELECT SUBSTR(MAX(T.CRAF_NO), 1, INSTR(MAX(T.CRAF_NO), '/') - 1),
SUBSTR(MAX(T.CRAF_NO), INSTR(MAX(T.CRAF_NO), '/') + 1, 3),
MAX(T.CRAF_NO),
MAX(T.LOT_NO)
INTO V_ORDER_NO, V_ORDER_SEQ, V_CRAFT_FILE_NO, V_ZY_BATCH_ID
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.QCM_STAUS = '00'
AND T.TARGET = 'A'
AND T.JUGDE_APPLY_CODE IS NULL;
--找客户名称
SELECT MAX(T.CUSTOMER_NM)
INTO V_CUSTOMER_NM
FROM SLM_ORDER_HEAD T
WHERE T.ORDER_NO = V_ORDER_NO;
--报检支吨
SELECT SUM(T.ACT_COUNT), SUM(T.ACT_WEIGHT)
INTO V_ACT_COUNT2, V_ACT_WEIGHT2
FROM MIL_INSPECTION T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.VALIDFLAG = '1'
AND T.RECHECK = '0';
--交库支数大于报检支数才会增加报检记录
IF (NVL(V_ACT_COUNT1, 0) - NVL(V_ACT_COUNT2, 0) > 0) THEN
--增加主表
INSERT INTO MIL_INSPECTION
(INSPECTION_NO,
INSPECTION_NUM,
HEAT_PLAN_NO,
ZY_BATCH_ID,
JUDGE_STOVE_NO,
BATCH_NO,
INSPECTION_FLAG,
INSPECTION_RESULT,
PRODUCCODE,
PRODUCNAME,
STEELCODE,
STEELNAME,
GRADECODE,
GRADENAME,
SPEC_CODE,
SPEC_NAME,
MODEL_CODE,
MODEL_DESC,
STD_CODE,
STD_NAME,
STD_STYLE,
STD_STYLE_DESC,
CRAFT_FILE_NO,
CUSTOMER_NM,
ACT_COUNT,
ACT_WEIGHT,
CREATE_TIME,
LOAD_TIME,
INSPECTION_TIME,
INSPECTION_NAME,
APPLY_FLAG,
PROCESS_CODE,
PLINE_CODE,
PLINE_NAME,
ORDER_NO,
ORDER_SEQ,
PROC_DATE,
SEQ)
VALUES
(V_INSPECTION_NO,
'1',
'#HEAT_PLAN_NO#',
V_ZY_BATCH_ID,
'#JUDGE_STOVE_NO#',
'#BATCH_NO#',
V_FLAG,
'',
'#PRODUCCODE#',
'#PRODUCNAME#',
'#STEELCODE#',
'#STEELNAME#',
V_GRADECODE,
V_GRADENAME,
'#SPEC_CODE#',
'#SPEC_NAME#',
'#MODEL_CODE#',
'#MODEL_DESC#',
'#STD_CODE#',
'#STD_NAME#',
'#STD_STYLE#',
'#STD_STYLE_DESC#',
V_CRAFT_FILE_NO,
V_CUSTOMER_NM,
NVL(V_ACT_COUNT1, 0) - NVL(V_ACT_COUNT2, 0),
NVL(V_ACT_WEIGHT1, 0) - NVL(V_ACT_WEIGHT2, 0),
SYSDATE,
SYSDATE,
'',
'',
'0',
V_PROCESS_CODE,
'#PLINE_CODE#',
(SELECT P.PLINE_NAME
FROM COM_BASE_PLINE P
WHERE P.PLINE_CODE = '#PLINE_CODE#'),
V_ORDER_NO,
V_ORDER_SEQ,
V_PROC_DATE,
V_SEQ);
--增加子表
FOR MYROW2 IN (SELECT '几何尺寸' XM, NVL(S.BIAS_NAME, '-') GC
FROM CRAFT_ORD_DESIGN_MSC_PL_PRC T,
CRAFT_ORD_DESIGN_STD_SIC S
WHERE T.DESGIN_KEY = S.DESGIN_KEY(+)
AND T.MSC_PLINE = S.MSC_PLINE(+)
and t.PROCESS_CODE = S.PROCESS_CODE(+)
AND S.SPECL_FL(+) = '2'
AND T.PROCESS_CODE = 'D'
AND T.MSC_PLINE = V_INDEX_SEQ
AND T.DESGIN_KEY IN
(SELECT C.DESGIN_KEY
FROM SLM_ORDER_HEAD A,
SLM_ORDER_LINE B,
CRAFT_ORD_DESIGN C
WHERE A.ORD_PK = B.ORD_PK
AND C.ORD_LN_PK = B.ORD_LN_PK
AND C.VALIDFLAG = '1'
AND A.ORDER_NO = V_ORDER_NO
AND B.ORDER_SEQ = V_ORDER_SEQ)) LOOP
INSERT INTO MIL_INSPECTION_DETAIL
(INSPECTION_NO, INSPECTION_NUM, PROJECT_CATEGORY, PROJECT_NAME)
values
(V_INSPECTION_NO, 1, MYROW2.XM, MYROW2.GC);
END LOOP;
INSERT INTO MIL_INSPECTION_DETAIL
(INSPECTION_NO, INSPECTION_NUM, PROJECT_CATEGORY, PROJECT_NAME)
values
(V_INSPECTION_NO, 1, '表面质量', '表面质量');
INSERT INTO MIL_INSPECTION_DETAIL
(INSPECTION_NO, INSPECTION_NUM, PROJECT_CATEGORY, PROJECT_NAME)
values
(V_INSPECTION_NO, 1, '外包装质量', '外包装质量');
END IF;
END;
]]>
0
]]>