SELECT
T.SUBCONTRACT_NO,
T.SUBCONTRACT_NO_SEQ,
T.STOVE_NO,
T.JUDGE_STOVE_NO,
T.JUDGE_STOVE_NO_SEQ,
MAX(T.PLINE_CODE)PLINE_CODE,
SUM(T.SUBCONTRACTCOMPLETE_NUM)SUBCONTRACTCOMPLETE_NUM,
SUM(T.SUBCONTRACT_NUM)SUBCONTRACT_NUM,
MAX(TO_CHAR(T.ENTRUSTED_TIME, 'YYYY-MM-DD HH24:MI:SS')) ENTRUSTED_TIME,
MAX(T.REMARK)REMARK,
MAX(T.COL_USER)COL_USER,
MAX(DECODE(T.COL_SHIFT,
'0',
'常白班',
'1',
'早班',
'2',
'中班',
'3',
'夜班')) COL_SHIFT,
MAX(DECODE(T.COL_GROUP,
'1',
'甲班',
'2',
'乙班',
'3',
'丙班',
'4',
'丁班')) COL_GROUP,
MAX(T.ENTRUSTED_FLAG)ENTRUSTED_FLAG,
SUM(T.SUBCONTRACTSCRAP_NUM)SUBCONTRACTSCRAP_NUM,
MAX(DECODE(T.SUBCONTRACT_FLAG,'0','未完成','1','已完成'))SUBCONTRACT_FLAG,
MAX(T.ENTRUSTED_PLINE_CODE)ENTRUSTED_PLINE_CODE,
MAX(T.ENTRUSTED_PLINE_NAME)ENTRUSTED_PLINE_NAME,
MAX(T.ENTRUSTED_REMARK)ENTRUSTED_REMARK,
SUM(T.SUBCONTRACT_WGT)SUBCONTRACT_WGT,
SUM(T.SUBCONTRACT_COMPLETE_WGT)SUBCONTRACT_COMPLETE_WGT,
MAX(T.SUBCONTRACT_TYPE)SUBCONTRACT_TYPE,
MAX(T.FIX_NUM)FIX_NUM,
MAX(T.FIX_LEN)FIX_LEN,
MAX(T.LENGTH)LENGTH,
MAX(T.DIAMETER)DIAMETER,
MAX(T.PRO_PLAN_ID)PRO_PLAN_ID,
MAX(T.GX_PLAN_NO)GX_PLAN_NO,
MAX(T.GPREQ_ID)GPREQ_ID,
MAX(DECODE(T.AFFIRM_FLAG,'0','未确认','1','已确认'))AFFIRM_FLAG,
T.FURNACENO,
T.SEQUENCENO,
T.BACK_JUDGE_STOVE_NO_SEQ
FROM STL_LG_ENTRUST_BILL T
WHERE 1=1
SELECT
T.SUBCONTRACT_NO,
T.STOVE_NO,
T.JUDGE_STOVE_NO,
T.COM_FIX_NUM,
T.COM_FIX_LEN,
T.COM_LENGTH,
T.COM_DIAMETER,
T.SUBCONTRACTCOMPLETE_NUM,
T.SUBCONTRACT_COMPLETE_WGT,
T.SUBCONTRACTSCRAP_NUM,
T.SUBCONTRACTSCRAP_WGT
FROM STL_LG_ENTRUST_BILL_DETIAL T
WHERE T.SUBCONTRACT_NO = ?
AND T.STOVE_NO = ?
AND T.JUDGE_STOVE_NO_SEQ = ?
AND T.SUBCONTRACT_NO_SEQ = ?
SELECT T.AFFIRM_FLAG,T.SUBCONTRACT_FLAG
FROM STL_LG_ENTRUST_BILL T
WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
UPDATE STL_LG_ENTRUST_BILL T SET T.SUBCONTRACT_FLAG = '1'
WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
DECLARE
VCOUNT STL_LG_ENTRUST_BILL_DETIAL.COM_FIX_NUM%TYPE := 0;
BEGIN
SELECT COUNT(1)
INTO VCOUNT
FROM STL_LG_ENTRUST_BILL_DETIAL T
WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
AND T.STOVE_NO = '#STOVE_NO#'
AND T.COM_FIX_NUM = '#COM_FIX_NUM#'
AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#';
IF (VCOUNT > 0) THEN
UPDATE STL_LG_ENTRUST_BILL_DETIAL T
SET T.SUBCONTRACTSCRAP_NUM = TO_NUMBER(NVL(T.SUBCONTRACTSCRAP_NUM, 0)) +
TO_NUMBER(NVL('#SUBCONTRACTSCRAP_NUM#',
0)),
T.SUBCONTRACTSCRAP_WGT =
TO_NUMBER(NVL(T.SUBCONTRACTSCRAP_WGT, 0)) +
TO_NUMBER(NVL('#SUBCONTRACTSCRAP_WGT#',
0))
WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
AND T.STOVE_NO = '#STOVE_NO#'
AND T.COM_FIX_NUM = '#COM_FIX_NUM#'
AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#';
ELSE
INSERT INTO STL_LG_ENTRUST_BILL_DETIAL
(SUBCONTRACT_NO,
STOVE_NO,
JUDGE_STOVE_NO,
COM_FIX_NUM,
COM_FIX_LEN,
COM_LENGTH,
COM_DIAMETER,
SUBCONTRACTCOMPLETE_NUM,
SUBCONTRACT_COMPLETE_WGT,
SUBCONTRACT_NO_SEQ,
JUDGE_STOVE_NO_SEQ,
SUBCONTRACTSCRAP_NUM,
SUBCONTRACTSCRAP_WGT)
VALUES
('#SUBCONTRACT_NO#',
'#STOVE_NO#',
'#JUDGE_STOVE_NO#',
'#COM_FIX_NUM#',
'#COM_FIX_LEN#',
'#COM_LENGTH#',
'#COM_DIAMETER#',
'#SUBCONTRACTCOMPLETE_NUM#',
'#SUBCONTRACT_COMPLETE_WGT#',
'#SUBCONTRACT_NO_SEQ#',
'#JUDGE_STOVE_NO_SEQ#',
'#SUBCONTRACTSCRAP_NUM#',
'#SUBCONTRACTSCRAP_WGT#');
END IF;
END;
DECLARE
BEGIN
UPDATE STL_LG_ENTRUST_BILL T
SET T.SUBCONTRACT_FLAG = '0'
WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#';
DELETE FROM STL_LG_ENTRUST_BILL_DETIAL T
WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#';
END;
INSERT INTO STL_LG_PROGRRSS(
MAT_NO,
STOVE_NO,
CCMSTOVENO,
JUDGE_STOVE_NO,
CAST_NO,
HEATCNT,
CCMID,
FLOWNO,
CUTSEQNO,
MATERIAL_NO,
MATERIAL_NAME,
GRADECODE,
GRADENAME,
BATCH_GROUD_NO,
FLAG_STOVE_NO,
STANDARDSCODE,
STANDARDREMAK,
DIAMETER,
FIX_NUM,
FIX_LEN,
LENGTH,
ACT_COUNT,
WEIGHT,
RECIVE_FLAG,
STATUS,
CUTTIME,
AFFIRM_FLAG,
OLD_MAT_NO,
TEST_COUNT,
IS_VALID,
FURNACENO,
GROUP_FLAG,
PLINE_CODE,
PRINT_STOVE_NO,
PRO_PLAN_ID,
GX_PLAN_NO,
GPREQ_ID,
BAL_YEAR_MONTH,
PLINE_NAME,
SUBCONTRACT_NO,
SUBCONTRACT_NO_SEQ,
JUDGE_STOVE_NO_SEQ,
OP_PROCESS,
SEQUENCENO,
CIC,
PIC,
SIC,
DIC,
SCRAP_REASON)
VALUES(
'#MAT_NO#',
'#STOVE_NO#',
'#CCMSTOVENO#',
'#JUDGE_STOVE_NO#',
'#CAST_NO#',
'#HEATCNT#',
'#CCMID#',
'#FLOWNO#',
'#CUTSEQNO#',
'#MATERIAL_NO#',
'#MATERIAL_NAME#',
'#GRADECODE#',
'#GRADENAME#',
'#BATCH_GROUD_NO#',
'#FLAG_STOVE_NO#',
'#STANDARDSCODE#',
'#STANDARDREMAK#',
'#DIAMETER#',
'#FIX_NUM#',
'#FIX_LEN#',
'#LENGTH#',
'#ACT_COUNT#',
'#WEIGHT#',
'#RECIVE_FLAG#',
'#STATUS#',
TO_DATE('#CUTTIME#','YYYY-MM-DD HH24:MI:SS'),
'#AFFIRM_FLAG#',
'#OLD_MAT_NO#',
'#TEST_COUNT#',
'#IS_VALID#',
'#FURNACENO#',
'#GROUP_FLAG#',
'#PLINE_CODE#',
'#PRINT_STOVE_NO#',
'#PRO_PLAN_ID#',
'#GX_PLAN_NO#',
'#GPREQ_ID#',
'#BAL_YEAR_MONTH#',
'#PLINE_NAME#',
'#SUBCONTRACT_NO#',
'#SUBCONTRACT_NO_SEQ#',
'#JUDGE_STOVE_NO_SEQ#',
'#OP_PROCESS#',
'#SEQUENCENO#',
'#CIC#',
'#PIC#',
'#SIC#',
'#DIC#',
'#SCRAP_REASON#')
SELECT *
FROM STL_LG_ENTRUST_BILL_DETIAL T
WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
SELECT NVL(SUM(T.FIX_NUM * T.SUBCONTRACT_NUM),0)
FROM STL_LG_ENTRUST_BILL T
WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
SELECT T.MAT_NO,
T.STOVE_NO,
T.CCMSTOVENO,
T.JUDGE_STOVE_NO,
T.CAST_NO,
T.HEATCNT,
T.CCMID,
T.FLOWNO,
T.CUTSEQNO,
T.MATERIAL_NO,
T.MATERIAL_NAME,
T.GRADECODE,
T.GRADENAME,
T.BATCH_GROUD_NO,
T.FLAG_STOVE_NO,
T.STANDARDSCODE,
T.STANDARDREMAK,
T.DIAMETER,
T.FIX_NUM,
T.FIX_LEN,
T.LENGTH,
T.ACT_COUNT,
T.WEIGHT,
T.RECIVE_FLAG,
T.STATUS,
TO_CHAR(T.CUTTIME, 'YYYY-MM-DD HH24:MI:SS') CUTTIME,
T.AFFIRM_FLAG,
T.SCRAP_REASON,
T.OLD_MAT_NO,
T.ALARM_REASON,
T.TEST_COUNT,
T.IS_VALID,
T.FURNACENO,
T.GROUP_FLAG,
T.PLINE_CODE,
T.PRINT_STOVE_NO,
T.PRO_PLAN_ID,
T.GX_PLAN_NO,
T.GPREQ_ID,
T.BAL_YEAR_MONTH,
T.PLINE_NAME,
T.SUBCONTRACT_NO,
T.SUBCONTRACT_NO_SEQ,
T.CIC,
T.PIC,
T.SIC,
T.DIC,
T.JUDGE_STOVE_NO_SEQ,
T.GPTYPE,
T.SEQUENCENO,
T.OP_PROCESS
FROM STL_LG_PROGRRSS T
WHERE T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
AND T.FIX_NUM = '#FIX_NUM#'
AND T.PRO_PLAN_ID = '#PRO_PLAN_ID#'
AND T.GX_PLAN_NO = '#GX_PLAN_NO#'
AND T.STATUS = '1'
SELECT NVL(SUM(T.SCRAP_REASON_NUM), '0') SCRAP_REASON_NUM, T.SCRAP_REASON
FROM STL_LG_PROGRRSS T
WHERE T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
AND T.FIX_NUM = '#FIX_NUM#'
AND T.PRO_PLAN_ID = '#PRO_PLAN_ID#'
AND T.GX_PLAN_NO = '#GX_PLAN_NO#'
AND T.STATUS = '1'
GROUP BY T.SCRAP_REASON
SELECT ? ||
LPAD(NVL(MAX(SUBSTR(T.MAT_NO, LENGTH(T.MAT_NO) - 2)), 0) + 1, 3, 0) MAT_NO
FROM STL_LG_PROGRRSS T
WHERE T.STOVE_NO = ?
AND T.JUDGE_STOVE_NO = ?
UPDATE STL_LG_ENTRUST_BILL T
SET T.AFFIRM_FLAG = '1',
T.BACK_JUDGE_STOVE_NO_SEQ = '#BACK_JUDGE_STOVE_NO_SEQ#'
WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
DECLARE
BEGIN
FOR MYROW IN (SELECT *
FROM STL_LG_PROGRRSS T
WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
AND T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
ORDER BY T.MAT_NO ASC) LOOP
UPDATE STL_LG_PROGRRSS T
SET T.STATUS = '3'
WHERE T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
AND T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#';
DELETE FROM MAT_GP_M T WHERE T.MAT_NO = MYROW.MAT_NO;
DELETE FROM YDM_GP_BUTTRESS T WHERE T.MAT_NO = MYROW.MAT_NO;
END LOOP;
END;
DECLARE
BEGIN
DELETE FROM PLN_STEELFOR_ORD T
WHERE SUBSTR(T.FURNACENO, 0, 12) = '#FURNACENO#'
AND T.SEQUENCENO = '#SEQUENCENO#'
AND T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO_SEQ = '#BACK_JUDGE_STOVE_NO_SEQ#';
DELETE FROM STL_LG_SURFACE_M T
WHERE SUBSTR(T.FURNACENO, 0, 12) = '#FURNACENO#'
AND T.SEQUENCENO = '#SEQUENCENO#'
AND T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO_SEQ = '#BACK_JUDGE_STOVE_NO_SEQ#';
UPDATE STL_LG_ENTRUST_BILL T
SET T.AFFIRM_FLAG = '0', T.BACK_JUDGE_STOVE_NO_SEQ = ''
WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#';
END;
DECLARE
V_BELONG_CODE MAT_GP_M.BELONG_CODE%TYPE := NULL;
V_BELONG_NAME MAT_GP_M.BELONG_NAME%TYPE := NULL;
BEGIN
SELECT T.DEPARTMENT_CODE
INTO V_BELONG_CODE
FROM COM_BASE_PLINE T
WHERE T.PLINE_CODE = '#EF_PLINE_CODE#'
AND T.VALIDFLAG = '1';
SELECT T.DEPARTMENT_DESC
INTO V_BELONG_NAME
FROM COM_BASE_PLINE T
WHERE T.PLINE_CODE = '#EF_PLINE_CODE#'
AND T.VALIDFLAG = '1';
FOR MYROWM IN (SELECT *
FROM STL_LG_PROGRRSS T
WHERE T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
AND T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
AND T.STATUS = '3'
ORDER BY T.MAT_NO ASC) LOOP
INSERT INTO MAT_GP_M
(MAT_NO,
PRODUCT_FLAG,
MAT_STATUS,
STOVE_NO,
FLAG_STOVE_NO,
JUDGE_STOVE_NO,
CAST_NO,
CCMID,
MATERIAL_NO,
MATERIAL_NAME,
GRADECODE,
GRADENAME,
STD_CODE,
STD_NAME,
PLINE_CODE,
PLINE_NAME,
DIMATER,
ACT_LEN,
FIX_NUM,
FIX_LEN,
ACT_COUNT,
ACT_WEIGHT,
BELONG_CODE,
BELONG_NAME,
JUGDE_APPLY_FLAG,
INSTOCK_TIME,
BAL_YEAR_MONTH,
CREATE_NAME,
CREATE_TIME,
GROUD_NO,
PRINT_STOVE_NO,
PRO_PLAN_ID,
GX_PLAN_NO,
GPREQ_ID,
DB_ACT_COUNT,
CIC,
PIC,
SIC,
DIC,
GPTYPE,
SEQUENCENO,
FURNACENO,
QCM_STAUS)
VALUES
(MYROWM.MAT_NO,
'801401',
'80150101',
MYROWM.STOVE_NO,
MYROWM.FLAG_STOVE_NO,
MYROWM.JUDGE_STOVE_NO,
MYROWM.CAST_NO,
MYROWM.CCMID,
MYROWM.MATERIAL_NO,
MYROWM.MATERIAL_NAME,
MYROWM.GRADECODE,
MYROWM.GRADENAME,
MYROWM.STANDARDSCODE,
MYROWM.STANDARDREMAK,
MYROWM.PLINE_CODE,
MYROWM.PLINE_NAME,
MYROWM.DIAMETER,
MYROWM.LENGTH,
MYROWM.FIX_NUM,
MYROWM.FIX_LEN,
'1',
MYROWM.WEIGHT,
V_BELONG_CODE,
V_BELONG_NAME,
'0',
SYSDATE,
'',
'#COL_USER#',
SYSDATE,
MYROWM.FIX_NUM,
MYROWM.PRINT_STOVE_NO,
MYROWM.PRO_PLAN_ID,
MYROWM.GX_PLAN_NO,
MYROWM.GPREQ_ID,
MYROWM.FIX_NUM,
MYROWM.CIC,
MYROWM.PIC,
MYROWM.SIC,
MYROWM.DIC,
MYROWM.GPTYPE,
MYROWM.SEQUENCENO,
MYROWM.FURNACENO,
'11');
INSERT INTO YDM_GP_BUTTRESS
(MAT_NO,
STOVE_NO,
FLAG_STOVE_NO,
JUDGE_STOVE_NO,
STORAGE_NO,
LOCATION_NO,
LARY_NO,
LOC_NO,
CREATE_NAME,
CREATE_TIME,
GROUD_NO)
VALUES
(MYROWM.MAT_NO,
MYROWM.STOVE_NO,
MYROWM.FLAG_STOVE_NO,
MYROWM.JUDGE_STOVE_NO,
'#STORAGE_NO#',
'#LOCATION_NO#',
'',
'',
'#COL_USER#',
SYSDATE,
MYROWM.FIX_NUM);
UPDATE STL_LG_PROGRRSS T
SET T.STATUS = '1'
WHERE T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
AND T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
AND T.STATUS = '3'
AND T.MAT_NO = MYROWM.MAT_NO;
END LOOP;
DELETE FROM STL_LG_PROGRRSS T
WHERE T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO_SEQ = '#BACK_JUDGE_STOVE_NO_SEQ#'
AND T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#';
END;
SELECT SUM(T.SUBCONTRACTCOMPLETE_NUM) SUBCONTRACTCOMPLETE_NUM,
SUM(T.SUBCONTRACT_COMPLETE_WGT) SUBCONTRACT_COMPLETE_WGT
FROM STL_LG_ENTRUST_BILL_DETIAL T
WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
AND T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
SELECT T.CCM_STATE
FROM PLN_STEELFOR_ORD T
WHERE SUBSTR(T.FURNACENO,0,12) = '#FURNACENO#'
AND T.SEQUENCENO = '#SEQUENCENO#'
AND T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO_SEQ = '#BACK_JUDGE_STOVE_NO_SEQ#'
SELECT T.TOT_WEIGHT_M/T.TOT_MUM_M/CUT_NUM_GP AS WEIGHT_GP_ONE
FROM PLN_STEELFOR_ORD T
WHERE SUBSTR(T.FURNACENO, 0, 12) = '#FURNACENO#'
AND T.SEQUENCENO = '#SEQUENCENO#'
AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
SELECT * FROM STL_LG_PROGRRSS T WHERE T.JUDGE_STOVE_NO_SEQ = ? AND T.STATUS = '4'
DECLARE
BEGIN
FOR MYROW IN (SELECT T.MAT_NO
FROM STL_LG_PROGRRSS T
WHERE T.JUDGE_STOVE_NO_SEQ = '#BACK_JUDGE_STOVE_NO_SEQ#'
AND T.STATUS = '4'
ORDER BY T.MAT_NO DESC) LOOP
DELETE FROM MAT_GP_M T WHERE T.MAT_NO = MYROW.MAT_NO;
DELETE FROM YDM_GP_BUTTRESS S WHERE S.MAT_NO = MYROW.MAT_NO;
END LOOP;
END;
SELECT T.EF_PLINE_CODE, T.EF_PLINE_NAME
FROM PLN_STEELFOR_ORD T
WHERE T.FURNACENO = '#FURNACENO#'
AND T.SEQUENCENO = '#SEQUENCENO#'
AND ROWNUM = 1