SELECT
T.HEAT_PLAN_NO,
T.GX_PRO_SEQ,
T.ZY_BATCH_ID,
CASE
WHEN T.STOVE_NO IS NULL THEN
(SELECT O.STOVE_NO
FROM PLN_STEELFOR_ORD O
WHERE O.FURNACENO || '/' || O.SEQUENCENO = T.UPPER_HEATPLAN_ID)
ELSE
T.STOVE_NO
END STOVE_NO,
CASE
WHEN T.JUDGE_STOVE_NO IS NULL THEN
(SELECT O.JUDGE_STOVE_NO
FROM PLN_STEELFOR_ORD O
WHERE O.FURNACENO || '/' || O.SEQUENCENO = T.UPPER_HEATPLAN_ID)
ELSE
T.JUDGE_STOVE_NO
END JUDGE_STOVE_NO,
CASE
WHEN T.FLAG_STOVE_NO IS NULL THEN
(SELECT O.FLAG_STOVE_NO
FROM PLN_STEELFOR_ORD O
WHERE O.FURNACENO || '/' || O.SEQUENCENO = T.UPPER_HEATPLAN_ID)
ELSE
T.FLAG_STOVE_NO
END FLAG_STOVE_NO,
T.UPPER_HEATPLAN_ID,
DECODE(T.PLANSTATUS,'00','计划准备','10','计划下发','20','计划生产中','30','计划生产完成','40','计划关闭')PLANSTATUS,
T.NODE_ESTATUS,
T.UPPER_PROCESS_CODE,
T.NEXT_PROCESS_CODE,
DECODE(T.ISENDGX,'0','否','1','是')ISENDGX,
T.IF_MATCH_ODD,
T.IF_DO_HEAT_PLAN,
T.PRO_PLAN_ID,
T.GX_PLAN_NO,
T.CCM_PRO_PLAN_ID,
T.CCM_GX_PLAN_NO,
T.GOWHERE_CODE,
T.GOWHERE_NAME,
T.PLINE_CODE,
T.PLINE_NAME,
T.CASTINGTYPE,
T.GRADECODE,
T.GRADENAME,
T.STEELCODE,
T.STEELNAME,
T.WLID_IN,
T.WLDESC_IN,
T.OUTWL_ID,
T.OUTWL_DESC,
T.PROD_STANDARD,
T.OUTPUT_STANDARD,
T.DIAMETER_IN,
T.LENGTH_IN,
T.WT_ONE_IN,
T.LEN_GP_SINGLE,
T.WT_GP_SINGLE,
T.PLN_INSINGLE_NUM,
T.PLN_INSINGLE_WT,
T.CUT_NUM_GP,
T.PLN_INDOUBLE_NUM,
T.PLN_INDOUBLE_WT,
T.DIAMETER_OUT,
T.LENGTH_OUT,
T.OUT_WT_ONE,
T.PLN_OUTSINGLE_NUM,
T.PLN_OUTSINGLE_W,
T.CUT_NUM_OUT,
T.PLN_OUTDOUBLE_NUM,
T.PLN_OUTDOUBLE_W,
T.LEN_CUTHEAD,
T.LEN_CUTEND,
T.ORDER_SOURCE,
T.ORD_LN_DLY_PK,
T.ORDER_NO,
T.ORDER_SEQ,
T.DELIVERY_NO,
T.REQ_BL_ID,
T.IF_EXPORT,
T.PRIORITY,
T.PRIORITY_MEMO,
T.PRO_MONTH,
T.IF_MONITOR,
T.PRDCR_NO,
T.MONITOR_POINT,
T.BOM,
T.INDEX_SEQ,
T.WHOLE_BACKLOG,
T.WHOLE_BACKLOG_DESC,
T.CIC,
T.PIC,
T.SIC,
T.DIC,
T.CRAFT_FILE_NO,
T.CRAFT_FILE_MAN,
T.CRAFT_SEQ,
T.SEC_CRAFT_FILE_NO,
T.STATION_ROAD,
T.PRO_DAY,
T.BAL_YEAR_MONTH,
T.CREATE_NAME,
TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS') CREATE_TIME,
T.UPDATE_NAME,
TO_CHAR(T.UPDATE_TIME, 'YYYY-MM-DD HH24:MI:SS') UPDATE_TIME,
T.DOWNMAN,
TO_CHAR(T.DOWNTIME, 'YYYY-MM-DD HH24:MI:SS') DOWNTIME,
DECODE(T.SUBCONTRACT_FLAG,'0','未委外','1','已委外')SUBCONTRACT_FLAG,
T.LEN_GP_SINGLE_OUT
FROM PLN_ZY_DZ_M T
WHERE 1 = 1
SELECT
T.HEAT_PLAN_NO,
T.HEAT_PLAN_SQE,
T.JUGDE_APPLY_CODE,
T.ZY_BATCH_ID,
T.STOVE_NO,
T.JUDGE_STOVE_NO,
T.PRO_PLAN_ID,
T.GX_PLAN_NO,
T.PLINE_CODE,
T.PLINE_NAME,
T.DIAMETER,
T.LEN_GP_SINGLE,
T.WT_GP_SINGLE,
T.CUT_NUM_GP,
T.LENGTH_M,
T.WEIGHT_M,
T.PLAN_INDOUBLE_NUM,
T.PLAN_INDOUBLE_WT,
T.REAL_INDOUBLE_NUM,
T.REAL_INDOUBLE_WT,
T.FLAG_STOVE_NO
FROM PLN_ZY_DZ_C T
WHERE 1=1
SELECT
T.SUBCONTRACT_NO,
T.SUBCONTRACT_NO_SEQ,
DECODE(T.SUBCONTRACT_TYPE,'1','内部委托','2','外部委托')SUBCONTRACT_TYPE,
T.HEAT_PLAN_NO,
T.STOVE_NO,
T.JUDGE_STOVE_NO,
T.PRO_PLAN_ID,
T.GX_PLAN_NO,
T.PLINE_CODE,
T.PLINE_NAME,
T.SOURE_CODE,
T.SOURE_NAME,
T.GRADECODE,
T.GRADENAME,
T.DIAMETER_IN,
T.LEN_SINGLE_IN,
T.INNUM_CUT,
T.LENGTH_IN,
T.DIAMETER_OUT,
T.SUBCONTRACT_NUM,
T.SUBCONTRACT_WT,
T.SUBCONTRACT_USER,
T.SUBCONTRACT_SHIFT,
T.SUBCONTRACT_GROUP,
TO_CHAR(T.SUBCONTRACT_TIME, 'YYYY-MM-DD HH24:MI:SS') SUBCONTRACT_TIME,
T.SP_USER,
T.SP_NOTE,
TO_CHAR(T.SP_TIME, 'YYYY-MM-DD HH24:MI:SS') SP_TIME,
DECODE(T.SUBCONTRACT_LOG,'00','未审核','10','审核通过','20','审核不通过','30','委托实绩已回报')SUBCONTRACT_LOG,
T.SUBCONTRACT_PLINE_CODE,
T.SUBCONTRACT_PLINE_NAME,
T.SUBCONTRACT_NOTE,
T.HB_FP_NUM,
T.HB_FP_WT,
T.BAL_YEAR_MONTH,
T.OUTWL_ID,
T.OUTWL_DESC,
T.OUT_WT_ONE,
T.WLID_IN,
T.WLDESC_IN,
T.LEN_GP_SINGLE_OUT
FROM FRG_ENTRUSTED_BILL T
WHERE 1 = 1
SELECT * FROM PLN_ZY_DZ_M T WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
SELECT ? || TO_CHAR(SYSDATE, 'YYYYMMDD') ||
LPAD(NVL(MAX(SUBSTR(T.SUBCONTRACT_NO, 13,4)), 0) + 1, 4, 0) SUBCONTRACT_NO
FROM FRG_ENTRUSTED_BILL T
WHERE TRUNC(T.SUBCONTRACT_TIME) = TRUNC(SYSDATE)
INSERT INTO FRG_ENTRUSTED_BILL(
SUBCONTRACT_NO,
SUBCONTRACT_NO_SEQ,
SUBCONTRACT_TYPE,
HEAT_PLAN_NO,
STOVE_NO,
JUDGE_STOVE_NO,
PRO_PLAN_ID,
GX_PLAN_NO,
PLINE_CODE,
PLINE_NAME,
GRADECODE,
GRADENAME,
DIAMETER_IN,
LEN_SINGLE_IN,
INNUM_CUT,
LENGTH_IN,
DIAMETER_OUT,
SUBCONTRACT_NUM,
SUBCONTRACT_WT,
SUBCONTRACT_USER,
SUBCONTRACT_TIME,
SUBCONTRACT_LOG,
BAL_YEAR_MONTH,
OUTWL_ID,
OUTWL_DESC,
WLID_IN,
WLDESC_IN,
OUT_WT_ONE,
LEN_GP_SINGLE_OUT)
VALUES(
'#SUBCONTRACT_NO#',
'#SUBCONTRACT_NO_SEQ#',
'#SUBCONTRACT_TYPE#',
'#HEAT_PLAN_NO#',
'#STOVE_NO#',
'#JUDGE_STOVE_NO#',
'#PRO_PLAN_ID#',
'#GX_PLAN_NO#',
'#PLINE_CODE#',
'#PLINE_NAME#',
'#GRADECODE#',
'#GRADENAME#',
'#DIAMETER_IN#',
'#LEN_SINGLE_IN#',
'#INNUM_CUT#',
'#LENGTH_IN#',
'#DIAMETER_OUT#',
'#SUBCONTRACT_NUM#',
'#SUBCONTRACT_WT#',
'#SUBCONTRACT_USER#',
TO_DATE('#SUBCONTRACT_TIME#','YYYY-MM-DD HH24:MI:SS'),
'#SUBCONTRACT_LOG#',
'#BAL_YEAR_MONTH#',
'#OUTWL_ID#',
'#OUTWL_DESC#',
'#WLID_IN#',
'#WLDESC_IN#',
'#OUT_WT_ONE#',
'#LEN_GP_SINGLE_OUT#')
UPDATE PLN_ZY_DZ_M T
SET T.SUBCONTRACT_FLAG = '1'
WHERE
T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
UPDATE PLN_ZY_DZ_M T
SET T.SUBCONTRACT_FLAG = '0'
WHERE
T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
SELECT * FROM FRG_ENTRUSTED_BILL T WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#' AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
DELETE FROM FRG_ENTRUSTED_BILL T WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#' AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
SELECT COUNT(1) ACOUNT
FROM MAT_GP_M T, YDM_GP_BUTTRESS S
WHERE T.MAT_NO = S.MAT_NO
AND NVL(T.STOVE_NO,'/') = NVL('#STOVE_NO#','/')
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
AND T.OUTSOURCING_FLAG = '0'
AND T.HANGING_FLAG = '1'
DECLARE
BEGIN
UPDATE PLN_ZY_DZ_C T
SET T.REAL_INDOUBLE_NUM = '', T.REAL_INDOUBLE_WT = ''
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#';
UPDATE MAT_GP_M T
SET
T.OUTSOURCING_DOC = '',
T.OUTSOURCING_FLAG = '0'
WHERE T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.OUTSOURCING_DOC = '#SUBCONTRACT_NO#'||'#SUBCONTRACT_NO_SEQ#';
UPDATE MAT_GP_M T
SET T.HANGING_FLAG = '1'
WHERE T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.HANGING_FLAG = '0';
END;