SELECT
T.HEAT_PLAN_NO,
T.GX_PRO_SEQ,
T.ZY_BATCH_ID,
T.STOVE_NO,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.PLANSTATUS,
DECODE(T.PER_STATUS,'00','上料开始','10','旋扩开始','20','均整开始','30','定径开始','40','表检开始','50','测量开始','60','交库开始') PER_STATUS,
DECODE(T.BESIDE_STATUS,'00','上料结炉','10','旋扩结炉','20','均整结炉','30','定径结炉','40','表检结炉','50','测量结炉','60','交库结炉')BESIDE_STATUS,
T.UPPER_HEATPLAN_ID,
T.PRO_PLAN_ID,
T.GX_PLAN_NO,
T.PLINE_CODE,
T.PLINE_NAME,
T.PROCESS_CODE_C,
T.PROCESS_DESC_C,
T.UPPER_PROCESS_CODE,
T.NEXT_PROCESS_CODE,
T.GOWHERE_CODE,
T.GOWHERE_NAME,
T.PROD_STANDARD,
T.OUTPUT_STANDARD,
T.ISENDGX,
T.IF_MATCH_ODD,
T.IF_DO_HEAT_PLAN,
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.PRO_DAY,
T.BAL_YEAR_MONTH,
T.IF_MONITOR,
T.PRDCR_NO,
T.MONITOR_POINT,
T.BOM,
T.WHOLE_BACKLOG,
T.WHOLE_BACKLOG_DESC,
T.STATION_ROAD,
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.GRADECODE,
T.GRADENAME,
T.STEELCODE,
T.STEELNAME,
T.PRODUCCODE,
T.PRODUCNAME,
T.MODEL_CODE,
T.MODEL_DESC,
T.INWL_ID,
T.INWL_DESC,
T.OUTWL_ID,
T.OUTWL_DESC,
T.OUTDIAMETER_IN,
T.WALLTHICK_IN,
T.LENGTH_IN,
T.LENGTHMAX_IN,
T.LENGTHMIN_IN,
T.OUTNUM_CUT,
T.AIMOUTDIAMETER,
T.AIMWALLTHICK,
T.AIMLENGTH,
T.AIMLENGTH_MAX,
T.AIMLENGTH_MIN,
T.LEN_CUTHEAD,
T.LEN_CUTEND,
T.PLN_INSINGLE_NUM,
T.PLN_INSINGLE_WT,
T.PLN_INDOUBLE_NUM,
T.PLN_INDOUBLE_WT,
T.PLN_OUTSINGLE_NUM,
T.PLN_OUTSINGLE_W,
T.PLN_OUTDOUBLE_NUM,
T.PLN_OUTDOUBLE_W,
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,
T.INDEX_SEQ,
T.STD_CODE,
T.STD_NAME,
T.STD_STYLE,
T.STD_STYLE_DESC,
T.DECISION,
T.SPEC_CODE,
T.SPEC_NAME,
T.IF_PRODUCT,
T.FEED_HEAT_NO,
T.ACT_LEN_CUTHEAD,
T.ACT_LEN_CUTEND,
T.FLAG_STOVE_NO
FROM PLN_ZY_DBK_M T
WHERE 1 =1
SELECT T.INSTOCK_DOC,
T.LOT_NO,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.BATCH_GROUD_NO,
T.PRODUCCODE,
T.PRODUCNAME,
T.STD_CODE,
T.STD_NAME,
T.STEELCODE,
T.STEELNAME,
T.STD_STYLE,
T.STD_STYLE_DESC,
T.SPEC_CODE,
T.SPEC_NAME,
T.MODEL_CODE,
T.MODEL_DESC,
T.ACT_DIMATER,
T.ACT_HEIGHT,
TO_CHAR(T.ACT_LEN_MIN, 'FM999990.00') AS ACT_LEN_MIN,
TO_CHAR(T.ACT_LEN_MAX, 'FM999990.00') AS ACT_LEN_MAX,
SUM(T.ACT_COUNT) AS ACT_COUNT,
TO_CHAR(SUM(T.ACT_WEIGHT), 'FM999999990.000') AS ACT_WEIGHT,
T.ACT_LEN,
T.BELONG_CODE,
T.BELONG_NAME,
T.STORAGE_NO,
T.MEMO,
T.CREATE_NAME,
MAX(TO_CHAR(T.INSTOCK_TIME, 'YYYY-MM-DD HH24:MI:SS')) AS INSTOCK_TIME,
MAX(TO_CHAR(T.IN_TIME_F, 'YYYY-MM-DD')) AS IN_TIME_F,
TO_CHAR(TO_DATE(T.BAL_YEAR_MONTH, 'YYYY-MM'), 'YYYY-MM') AS BAL_YEAR_MONTH,
T.ORDER_NO,
T.ORDER_SEQ,
T.DELIVERY_NO,
T.JUDGE_STD_CODE,
T.JUDGE_STD_NAME,
T.PLINE_CODE,
T.PLINE_NAME,
T.GRADECODE,
T.GRADENAME,
T.MATERIAL_NO,
T.MATERIAL_NAME,
DECODE(T.PRODUCT_FLAG,
'801401',
'在制品',
'801402',
'成品',
'801403',
'商品') PRODUCT_FLAG,
T.MAT_STATUS,
T.PIPMEMO,
T.PRO_PLAN_ID,
T.GX_PLAN_NO,
DECODE(B.STORAGE_NO,NULL,'已倒运','未倒运') STATUS
FROM YDM_BC_INLIST T LEFT JOIN ( SELECT M.MAT_NO,B.STORAGE_NO,M.PLINE_CODE
FROM MAT_BC_M M, YDM_BC_BUTTRESS B, COM_BASE_PLINE C
WHERE M.MAT_NO = B.MAT_NO
AND B.STORAGE_NO = C.OUT_REPOSITORY
AND M.PLINE_CODE = C.PLINE_CODE) B ON T.MAT_NO = B.MAT_NO AND T.PLINE_CODE = B.PLINE_CODE
WHERE T.INSTOCK_TYPE_CODE = '800701'
AND T.HAND_FLAG = '0'
AND T.QCM_STAUS = '00'
AND T.SUBCONTRACT_NO IS NULL
SELECT T.HEAT_PLAN_NO,
T.JUDGE_STOVE_NO,
T.FLAG_STOVE_NO,
T.BATCH_NO,
T.GROUP_NO,
SUM(T.ACT_COUNT) ACT_COUNT,
SUM(T.ACT_WEIGHT) ACT_WEIGHT,
DECODE(T.IS_SAMPLE_PIPE,'0','非样管','1','样管')IS_SAMPLE_PIPE,
T.PHY_BATCH_NO,
T.PHY_BATCH_NO NEW_PHY_BATCH_NO,
T.ACT_LEN
FROM PORT_VRP_BATCH_SAMPLE_RESULT T
WHERE T.HEAT_PLAN_NO = ?
AND T.JUDGE_STOVE_NO = ?
AND T.MAT_STATUS = '00'
AND T.INSTORE_FLAG = '0'
GROUP BY T.HEAT_PLAN_NO,
T.JUDGE_STOVE_NO,
T.FLAG_STOVE_NO,
T.BATCH_NO,
T.GROUP_NO,
T.IS_SAMPLE_PIPE,
T.PHY_BATCH_NO,
T.ACT_LEN
SELECT NVL(SUM(S.ACT_COUNT),'0')ACOUNT
FROM PORT_VRP_BATCH_SAMPLE_RESULT S
WHERE S.MAT_STATUS = '00'
AND S.INSTORE_FLAG = '0'
AND S.HEAT_PLAN_NO = ?
AND S.JUDGE_STOVE_NO = ?
AND NVL(S.PHY_BATCH_NO,'/') = NVL(?,'/')
AND S.IS_SAMPLE_PIPE = ?
SELECT COUNT(*) COUNT
FROM QCM_ZG_JUGDE_APPLY T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.PROCESS_CODE = 'E'
SELECT COUNT(*) COUNT
FROM QCM_ZG_JUGDE_APPLY T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.PROCESS_CODE = 'F'
SELECT T.ORD_PK,T.ORD_LN_PK FROM SLM_ORDER_LINE_DELIVERY T WHERE T.ORD_LN_DLY_PK = '#ORD_LN_DLY_PK#'
SELECT 'IA' || TO_CHAR(SYSDATE, 'YYMMDD') ||
LPAD(NVL(MAX(SUBSTR(T.INSTOCK_DOC, 9)), 0) + 1, 5, 0) INSTOCK_DOC
FROM YDM_BC_INLIST T
WHERE T.INSTOCK_TYPE_CODE = ?
AND TRUNC(T.CREATE_TIME) =
TRUNC(SYSDATE)
= T.ACT_LEN_MIN
AND ? <= T.ACT_LEN_MAX
AND T.PROCESS_CODE = ?
]]>
SELECT LPAD(NVL(MAX(T.BATCH_GROUD_NO), 0)+1,3,0)BATCH_GROUD_NO FROM MAT_BC_M T WHERE T.JUDGE_STOVE_NO = ? AND T.BATCH_NO = ?
INSERT INTO MIL_INSTORE(
INSTORE_ID,
JUDGE_STOVE_NO,
BATCH_NO,
SAMPLE_FLAG,
TEST_STAUS,
SURFACE_STAUS,
ACT_LEN_MIN,
ACT_LEN_MAX,
BATCH_GROUD_NO,
PROCESS_CODE)
VALUES(
?,
?,
?,
'',
?,
?,
?,
?,
?,
?)
SELECT ? ||
LPAD(NVL(MAX(SUBSTR(T.INSTOCK_SQE, LENGTH(T.INSTOCK_SQE) - 3)), 0) + 1,
4,
0) INSTOCK_SQE
FROM YDM_BC_INLIST T
WHERE TRUNC(T.CREATE_TIME) = TRUNC(SYSDATE)
AND T.INSTOCK_DOC = ?
DECLARE
V_COUNT NUMBER := 0;
V_RESULT_NO VRP_INSTORE_RESULT.RESULT_NO%TYPE := NULL;
BEGIN
SELECT COUNT(1)
INTO V_COUNT
FROM VRP_INSTORE_RESULT S
WHERE S.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND S.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
IF (V_COUNT > 0) THEN
UPDATE VRP_INSTORE_RESULT T
SET T.PRO_NUM = TO_NUMBER(T.PRO_NUM) + TO_NUMBER('#PRO_NUM#'),
T.PRO_WT = TO_NUMBER(T.PRO_WT) + TO_NUMBER('#PRO_WT#')
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
ELSE
SELECT '#PLINE_CODE#'|| TO_CHAR(SYSDATE, 'YYMMDD') ||
LPAD(NVL(MAX(SUBSTR(T.RESULT_NO, LENGTH(T.RESULT_NO) - 4)), 0) + 1,
5,
0) INTO V_RESULT_NO
FROM VRP_INSTORE_RESULT T
WHERE TRUNC(T.CREATE_TIME) = TRUNC(SYSDATE);
INSERT INTO VRP_INSTORE_RESULT
(RESULT_NO,
HEAT_PLAN_NO,
ZY_BATCH_ID,
PRO_PLAN_ID,
GX_PLAN_NO,
PLINE_CODE,
PLINE_NAME,
PRO_NUM,
PRO_WT,
CREATE_NAME,
CREATE_TIME,
COL_SHIFT,
COL_GROUP,
JUDGE_STOVE_NO)
VALUES
(V_RESULT_NO,
'#HEAT_PLAN_NO#',
'#ZY_BATCH_ID#',
'#PRO_PLAN_ID#',
'#GX_PLAN_NO#',
'#PLINE_CODE#',
'#PLINE_NAME#',
'#PRO_NUM#',
'#PRO_WT#',
'#CREATE_NAME#',
SYSDATE,
'#COL_SHIFT#',
'#COL_GROUP#',
'#JUDGE_STOVE_NO#');
END IF;
END;
DECLARE
V_VRP_STATION_CODE VRP_COM_INFO.PLINE_CODE%TYPE := NULL;
V_RESULT_NO VRP_COM_INFO.RESULT_NO%TYPE := NULL;
BEGIN
IF ('#PLINE_CODE#' = 'C013') THEN
V_VRP_STATION_CODE := '650605';
ELSIF ('#PLINE_CODE#' = 'C014') THEN
V_VRP_STATION_CODE := '650505';
ELSIF ('#PLINE_CODE#' = 'C018') THEN
V_VRP_STATION_CODE := '650107';
ELSIF ('#PLINE_CODE#' = 'C021') THEN
V_VRP_STATION_CODE := '650405';
ELSIF ('#PLINE_CODE#' = 'C070') THEN
V_VRP_STATION_CODE := '650705';
END IF;
SELECT '#PLINE_CODE#' || V_VRP_STATION_CODE || TO_CHAR(SYSDATE, 'YYMMDD') ||
LPAD(NVL(MAX(SUBSTR(T.RESULT_NO, LENGTH(T.RESULT_NO) - 5)), 0) + 1,
6,
0)
INTO V_RESULT_NO
FROM VRP_COM_INFO T
WHERE TRUNC(T.CREATE_TIME) = TRUNC(SYSDATE);
INSERT INTO VRP_COM_INFO(
RESULT_NO,
HEAT_PLAN_NO,
STATION_CODE,
STATION_DESC,
PLINE_CODE,
PLINE_NAME,
ZY_BATCH_ID,
PRO_PLAN_ID,
GX_PLAN_NO,
IF_MONITOR_DBK,
PRDCR_NO,
MONITORDEMAND,
CRAFT_FILE_NO,
CRAFT_FILE_MAN,
CRAFT_SEQ,
JUDGE_STOVE_NO,
BATCH_NO,
BATCH_GROUD_NO,
GRADECODE,
GRADENAME,
STEELCODE,
STEELNAME,
SPEC_CODE,
SPEC_NAME,
LEN,
DIMATER,
PLN_LEN,
PLN_LEN_MIN,
PLN_LEN_MAX,
HEIGHT,
LEN_MIN,
LEN_MAX,
LEN_CUT_HEAD,
LEN_CUT_END,
ACT_SPEC_CODE,
ACT_SPEC_NAME,
ACT_DIMATER,
ACT_HEIGHT,
ACT_LEN,
ACT_LEN_MIN,
ACT_LEN_MAX,
PLN_SPEC_CODE,
PLN_SPEC_NAME,
PLN_DIMATER,
PLN_HEIGHT,
ACT_MATERIAL_NO,
ACT_MATERIAL_NAME,
IN_WL_ID,
IN_WL_DESC,
PRO_NUM,
PRO_WT,
STATION_STATUS,
RRO_TIME,
RRO_TIME_NU,
PRO_USER,
PRO_SHIFT,
PRO_GROUP,
CREATE_TIME,
COL_OPERATOR,
PRO_YEAR_MONTH_DAY,
BAL_YEAR_MONTH,
INSTOCK_DOC)
VALUES(
V_RESULT_NO,
'#HEAT_PLAN_NO#',
V_VRP_STATION_CODE,
'交库',
'#PLINE_CODE#',
'#PLINE_NAME#',
'#ZY_BATCH_ID#',
'#PRO_PLAN_ID#',
'#GX_PLAN_NO#',
'#IF_MONITOR_DBK#',
'#PRDCR_NO#',
'#MONITORDEMAND#',
'#CRAFT_FILE_NO#',
'#CRAFT_FILE_MAN#',
'#CRAFT_SEQ#',
'#JUDGE_STOVE_NO#',
'#BATCH_NO#',
'#BATCH_GROUD_NO#',
'#GRADECODE#',
'#GRADENAME#',
'#STEELCODE#',
'#STEELNAME#',
'#SPEC_CODE#',
'#SPEC_NAME#',
'#LEN#',
'#DIMATER#',
'#PLN_LEN#',
'#PLN_LEN_MIN#',
'#PLN_LEN_MAX#',
'#HEIGHT#',
'#LEN_MIN#',
'#LEN_MAX#',
'#LEN_CUT_HEAD#',
'#LEN_CUT_END#',
'#ACT_SPEC_CODE#',
'#ACT_SPEC_NAME#',
'#ACT_DIMATER#',
'#ACT_HEIGHT#',
'#ACT_LEN#',
'#ACT_LEN_MIN#',
'#ACT_LEN_MAX#',
'#PLN_SPEC_CODE#',
'#PLN_SPEC_NAME#',
'#PLN_DIMATER#',
'#PLN_HEIGHT#',
'#ACT_MATERIAL_NO#',
'#ACT_MATERIAL_NAME#',
'#IN_WL_ID#',
'#IN_WL_DESC#',
'#PRO_NUM#',
'#PRO_WT#',
'#STATION_STATUS#',
TO_DATE('#CREATE_TIME#','YYYY-MM-DD HH24:MI:SS'),
'#RRO_TIME_NU#',
'#PRO_USER#',
'#PRO_SHIFT#',
'#PRO_GROUP#',
TO_DATE('#CREATE_TIME#','YYYY-MM-DD HH24:MI:SS'),
'#COL_OPERATOR#',
'#PRO_YEAR_MONTH_DAY#',
'#BAL_YEAR_MONTH#',
'#INSTOCK_DOC#');
END;
DECLARE
V_VRP_STATION_CODE VRP_COM_INFO.Station_Code%TYPE := NULL;
V_RESULT_NO VRP_COM_INFO.RESULT_NO%TYPE := NULL;
BEGIN
FOR MYROW IN (SELECT PLINE_CODE,
PLINE_NAME,
LOT_NO,
PRO_PLAN_ID,
GX_PLAN_NO,
JUDGE_STOVE_NO,
BATCH_NO,
BATCH_GROUD_NO,
GRADECODE,
GRADENAME,
STEELCODE,
STEELNAME,
SPEC_CODE,
SPEC_NAME,
ACT_DIMATER,
ACT_HEIGHT,
ACT_LEN_MIN,
ACT_LEN_MAX,
CREATE_NAME,
PRO_BC,
PRO_BZ,
BAL_YEAR_MONTH,
INSTOCK_DOC,
SUM(T.ACT_COUNT) ACT_COUNT,
SUM(T.ACT_WEIGHT) ACT_WEIGHT,
ACT_LEN
FROM YDM_BC_INLIST T
WHERE T.INSTOCK_DOC = ?
GROUP BY PLINE_CODE,
PLINE_NAME,
LOT_NO,
PRO_PLAN_ID,
GX_PLAN_NO,
JUDGE_STOVE_NO,
BATCH_NO,
BATCH_GROUD_NO,
GRADECODE,
GRADENAME,
STEELCODE,
STEELNAME,
SPEC_CODE,
SPEC_NAME,
ACT_HEIGHT,
ACT_DIMATER,
ACT_HEIGHT,
ACT_LEN,
ACT_LEN_MIN,
ACT_LEN_MAX,
ACT_DIMATER,
ACT_HEIGHT,
ACT_LEN_MIN,
ACT_LEN_MAX,
CREATE_NAME,
PRO_BC,
PRO_BZ,
BAL_YEAR_MONTH,
INSTOCK_DOC
) LOOP
V_VRP_STATION_CODE := '650705';
SELECT MYROW.PLINE_CODE || V_VRP_STATION_CODE || TO_CHAR(SYSDATE, 'YYMMDD') ||
LPAD(NVL(MAX(SUBSTR(T.RESULT_NO, LENGTH(T.RESULT_NO) - 5)), 0) + 1,
6,
0)
INTO V_RESULT_NO
FROM VRP_COM_INFO T
WHERE RESULT_NO LIKE MYROW.PLINE_CODE || V_VRP_STATION_CODE || TO_CHAR(SYSDATE, 'YYMMDD') || '______';
INSERT INTO VRP_COM_INFO(
RESULT_NO,
HEAT_PLAN_NO,
STATION_CODE,
STATION_DESC,
PLINE_CODE,
PLINE_NAME,
ZY_BATCH_ID,
PRO_PLAN_ID,
GX_PLAN_NO,
PRDCR_NO,
MONITORDEMAND,
CRAFT_FILE_NO,
CRAFT_FILE_MAN,
CRAFT_SEQ,
JUDGE_STOVE_NO,
BATCH_NO,
BATCH_GROUD_NO,
GRADECODE,
GRADENAME,
STEELCODE,
STEELNAME,
SPEC_CODE,
SPEC_NAME,
LEN,
DIMATER,
PLN_LEN,
PLN_LEN_MIN,
PLN_LEN_MAX,
HEIGHT,
LEN_MIN,
LEN_MAX,
LEN_CUT_HEAD,
LEN_CUT_END,
ACT_SPEC_CODE,
ACT_SPEC_NAME,
ACT_DIMATER,
ACT_HEIGHT,
ACT_LEN,
ACT_LEN_MIN,
ACT_LEN_MAX,
ACT_MATERIAL_NO,
ACT_MATERIAL_NAME,
PRO_NUM,
PRO_WT,
STATION_STATUS,
RRO_TIME,
RRO_TIME_NU,
COL_OPERATOR,
PRO_SHIFT,
PRO_GROUP,
CREATE_TIME,
BAL_YEAR_MONTH,
INSTOCK_DOC)
VALUES(
V_RESULT_NO,
?,
V_VRP_STATION_CODE,
'交库',
MYROW.PLINE_CODE,
MYROW.PLINE_NAME,
MYROW.LOT_NO,
MYROW.PRO_PLAN_ID,
MYROW.GX_PLAN_NO,
'',
'',
'',
'',
'',
MYROW.JUDGE_STOVE_NO,
MYROW.BATCH_NO,
MYROW.BATCH_GROUD_NO,
MYROW.GRADECODE,
MYROW.GRADENAME,
MYROW.STEELCODE,
MYROW.STEELNAME,
MYROW.SPEC_CODE,
MYROW.SPEC_NAME,
'',
MYROW.ACT_DIMATER,
MYROW.ACT_LEN,
MYROW.ACT_LEN_MIN,
MYROW.ACT_LEN_MAX,
MYROW.ACT_HEIGHT,
MYROW.ACT_LEN_MIN,
MYROW.ACT_LEN_MAX,
'',
'',
MYROW.SPEC_CODE,
MYROW.SPEC_NAME,
MYROW.ACT_DIMATER,
MYROW.ACT_HEIGHT,
MYROW.ACT_LEN,
MYROW.ACT_LEN_MIN,
MYROW.ACT_LEN_MAX,
'',
'',
MYROW.ACT_COUNT,
MYROW.ACT_WEIGHT,
'1',
SYSDATE,
'',
MYROW.CREATE_NAME,
MYROW.PRO_BC,
MYROW.PRO_BZ,
SYSDATE,
MYROW.BAL_YEAR_MONTH,
MYROW.INSTOCK_DOC);
END LOOP;
END;
SELECT S.STORAGE_NO
FROM YDM_BS_STORAGE S,COM_BASE_PLINE T
WHERE S.STORAGE_NO = T.OUT_REPOSITORY
AND T.PLINE_CODE = ?
SELECT T.PHY_BATCH_NO FROM PORT_VRP_BATCH_SAMPLE_RESULT T WHERE T.PLINE_CODE = ? AND T.HEAT_PLAN_NO = ?
SELECT T.DEPARTMENT_CODE,T.DEPARTMENT_DESC FROM COM_BASE_PLINE T WHERE T.PLINE_CODE = '#PLINE_CODE#'
SELECT COUNT(1) ACOUNT
FROM PORT_VRP_BATCH_SAMPLE_RESULT T
WHERE T.MAT_STATUS IN ('00', '20')
AND T.INSTORE_FLAG = '0'
AND T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
SELECT T.BESIDE_STATUS
FROM PLN_ZY_DBK_M T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
DECLARE
BEGIN
FOR MYROW IN (SELECT SUM(S.ACT_COUNT) ACT_COUNT,
SUM(S.ACT_WEIGHT) ACT_WEIGHT,
S.HEAT_PLAN_NO,
S.HEAT_PLAN_SQE
FROM PORT_VRP_BATCH_SAMPLE_RESULT S
WHERE S.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND S.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND S.MAT_STATUS = '00'
GROUP BY S.HEAT_PLAN_NO, S.HEAT_PLAN_SQE) LOOP
UPDATE PLN_ZY_DBK_C S
SET S.REAL_OUTDOUBLE_NUM = MYROW.ACT_COUNT,
S.REAL_OUTDOUBLE_WT = MYROW.ACT_WEIGHT
WHERE S.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO
AND S.HEAT_PLAN_SQE = MYROW.HEAT_PLAN_SQE;
END LOOP;
UPDATE PLN_ZY_DBK_M T
SET T.BESIDE_STATUS = '60',
T.PLANSTATUS = '30'
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
UPDATE VRP_INSTORE_RESULT S
SET S.NODE_FUR_FLAG = '1'
WHERE S.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND S.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
UPDATE VRP_COM_INFO T SET T.STATION_STATUS = '2'
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.STATION_DESC = '交库';
END;
SELECT COUNT(1) ACOUNT
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.BESIDE_STATUS = '60'
SELECT COUNT(1) ACOUNT
FROM (SELECT COUNT(1) ACOUNT
FROM mat_bc_m T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.PROCESS_CDOE = 'F'
AND T.JUGDE_APPLY_CODE IS NULL
UNION
SELECT COUNT(1) ACOUNT
FROM mat_bc_backup T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.PROCESS_CDOE = 'F'
AND T.JUGDE_APPLY_CODE IS NULL)
SELECT COUNT(1) ACOUNT
FROM (SELECT COUNT(1) ACOUNT
FROM mat_bc_m T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.PROCESS_CDOE = 'E'
AND T.JUGDE_APPLY_CODE IS NULL
UNION
SELECT COUNT(1) ACOUNT
FROM mat_bc_backup T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.PROCESS_CDOE = 'E'
AND T.JUGDE_APPLY_CODE IS NULL)
SELECT NVL(SUM(T.ACT_COUNT), 0) ACOUNT,
MAX(T.JUGDE_APPLY_CODE) JUGDE_APPLY_CODE,
NVL(MAX(T.LOCK_LIKU), 0) LOCK_LIKU
FROM (SELECT S.STORAGE_NO,
T1.ACT_COUNT,
T1.JUGDE_APPLY_CODE,
T1.LOCK_LIKU,
T.PLINE_CODE
FROM YDM_BC_INLIST T, MAT_BC_M T1, YDM_BC_BUTTRESS S
WHERE T.MAT_NO = T1.MAT_NO
AND T.MAT_NO = S.MAT_NO
AND T.INSTOCK_DOC = '#INSTOCK_DOC#'
AND T1.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T1.BATCH_NO = '#BATCH_NO#'
--AND T.ACT_LEN = '#ACT_LEN#'
AND T1.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
-- AND S.STORAGE_NO = '#STORAGE_NO#'
AND T1.PLINE_CODE = '#PLINE_CODE#'
AND T1.QCM_STAUS = '00'
AND T1.PROCESS_CDOE = 'E') T
LEFT JOIN COM_BASE_PLINE C
ON C.OUT_REPOSITORY = T.STORAGE_NO
AND C.PLINE_CODE = T.PLINE_CODE
WHERE DECODE(C.OUT_REPOSITORY,NULL,'已倒运','未倒运') = '#STATUS#'
SELECT NVL(SUM(T.ACT_COUNT), 0) ACOUNT,
MAX(T.JUGDE_APPLY_CODE) JUGDE_APPLY_CODE,
NVL(MAX(T.LOCK_LIKU), 0) LOCK_LIKU
FROM (SELECT S.STORAGE_NO,
T1.ACT_COUNT,
T1.JUGDE_APPLY_CODE,
T1.LOCK_LIKU,
T.PLINE_CODE
FROM YDM_BC_INLIST T, MAT_BC_M T1, YDM_BC_BUTTRESS S
WHERE T.MAT_NO = T1.MAT_NO
AND T.MAT_NO = S.MAT_NO
AND T.INSTOCK_DOC = '#INSTOCK_DOC#'
AND T1.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T1.BATCH_NO = '#BATCH_NO#'
AND T.ACT_LEN = '#ACT_LEN#'
AND T1.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
-- AND S.STORAGE_NO = '#STORAGE_NO#'
AND T1.PLINE_CODE = '#PLINE_CODE#'
AND T1.QCM_STAUS = '00'
AND T1.PROCESS_CDOE = 'F') T
LEFT JOIN COM_BASE_PLINE C
ON C.OUT_REPOSITORY = T.STORAGE_NO
AND C.PLINE_CODE = T.PLINE_CODE
WHERE DECODE(C.OUT_REPOSITORY,NULL,'已倒运','未倒运') = '#STATUS#'
SELECT NVL(SUM(T.ACT_COUNT), 0) ACOUNT,
MAX(T.JUGDE_APPLY_CODE) JUGDE_APPLY_CODE,
NVL(MAX(T.LOCK_LIKU), 0) LOCK_LIKU
FROM (SELECT S.STORAGE_NO,
T1.ACT_COUNT,
T1.JUGDE_APPLY_CODE,
T1.LOCK_LIKU,
T.PLINE_CODE
FROM YDM_BC_INLIST T, MAT_BC_M T1, YDM_BC_BUTTRESS S
WHERE T.MAT_NO = T1.MAT_NO
AND T.MAT_NO = S.MAT_NO
AND T.INSTOCK_DOC = '#INSTOCK_DOC#'
AND T1.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T1.BATCH_NO = '#BATCH_NO#'
--AND T.ACT_LEN = '#ACT_LEN#'
AND T.ACT_LEN_MIN = #ACT_LEN_MIN#
AND T.ACT_LEN_MAX = #ACT_LEN_MAX#
AND T1.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
-- AND S.STORAGE_NO = '#STORAGE_NO#'
AND T1.PLINE_CODE = '#PLINE_CODE#'
AND T1.QCM_STAUS = '00'
AND T1.PROCESS_CDOE = 'G') T
LEFT JOIN COM_BASE_PLINE C
ON C.OUT_REPOSITORY = T.STORAGE_NO
AND C.PLINE_CODE = T.PLINE_CODE
WHERE DECODE(C.OUT_REPOSITORY,NULL,'已倒运','未倒运') = '#STATUS#'
SELECT T.JUGDE_APPLY_CODE
FROM MAT_BC_M T
WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.JUGDE_APPLY_CODE IS NOT NULL
0
AND ROWNUM = 1;
END;
]]>
SELECT S.*
FROM PLN_ZY_RCL_M S
WHERE S.UPPER_HEATPLAN_ID ='#HEAT_PLAN_NO#'
ORDER BY TO_NUMBER(S.GX_PRO_SEQ) ASC
SELECT S.*
FROM PLN_ZY_JGX_M S
WHERE S.UPPER_HEATPLAN_ID ='#HEAT_PLAN_NO#'
ORDER BY TO_NUMBER(S.GX_PRO_SEQ) ASC
SELECT S.*
FROM PLN_ZY_JG_M S
WHERE S.UPPER_HEATPLAN_ID ='#HEAT_PLAN_NO#'
ORDER BY TO_NUMBER(S.GX_PRO_SEQ) ASC
SELECT MIN(T.CODE_JG_BL) CODE_JG_BL
FROM PLN_GX_JG_PROP_S T
WHERE T.ORD_LN_DLY_PK = '#ORD_LN_DLY_PK#'
SELECT nvl(SUM(ACT_COUNT),0) ACT_COUNT
FROM (SELECT T.ACT_COUNT
FROM MAT_BC_M T
WHERE T.PRO_PLAN_ID_NEXT = '#PRO_PLAN_ID#'
AND T.GX_PLAN_NO_NEXT = '#GX_PLAN_NO#'
AND T.HEAT_PLAN_NO = '#UPPER_HEATPLAN_ID#'
UNION ALL
SELECT T.ACT_COUNT
FROM MAT_BC_BACKUP T
WHERE T.PRO_PLAN_ID_NEXT = '#PRO_PLAN_ID#'
AND T.GX_PLAN_NO_NEXT = '#GX_PLAN_NO#'
AND T.HEAT_PLAN_NO = '#UPPER_HEATPLAN_ID#')
SELECT NVL(SUM(T.REAL_INDOUBLE_NUM),0) REAL_INDOUBLE_NUM,NVL(SUM(T.REAL_OUTDOUBLE_NUM),0) REAL_OUTDOUBLE_NUM
FROM PLN_ZY_DBK_C T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
select NVL(SUM(T.OFFLINE_NUM),0) OFFLINE_NUM, NVL(SUM(T.RE_NUM),0) RE_NUM,NVL(SUM(T.GROUP_NUM),0) GROUP_NUM
from VRP_OFFLINE_RESULT T
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
select NVL(SUM(T.ACT_COUNT), 0) ACT_COUNT
from PORT_VRP_BATCH_SAMPLE_RESULT t
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
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(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 = 'E'
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 = 'E')
DECLARE
BEGIN
UPDATE PLN_ZY_DBK_C S
SET S.REAL_OUTDOUBLE_NUM = '',
S.REAL_OUTDOUBLE_WT = ''
WHERE S.HEAT_PLAN_NO = '#HEAT_PLAN_NO#';
UPDATE PLN_ZY_DBK_M T
SET T.BESIDE_STATUS = '40',
T.PLANSTATUS = '20'
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
UPDATE VRP_INSTORE_RESULT S
SET S.NODE_FUR_FLAG = '0'
WHERE S.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND S.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
UPDATE VRP_COM_INFO T SET T.STATION_STATUS = '1'
WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.STATION_DESC = '交库';
END;
0) THEN
IF (MYROW.DEMAND_QTY_VAL >= V_ACT_COUNT) THEN
UPDATE TMS_DEMAND_M T
SET T.OUTPUT_QTY_VAL = V_ACT_COUNT,
T.OUTPUT_WT_VAL = V_ACT_WEIGHT
WHERE T.DEMAND_NO = MYROW.DEMAND_NO;
V_ACT_COUNT := 0;
V_ACT_WEIGHT := 0;
ELSE
UPDATE TMS_DEMAND_M T
SET T.OUTPUT_QTY_VAL = T.DEMAND_QTY_VAL,
T.OUTPUT_WT_VAL = T.DEMAND_WT_VAL
WHERE T.DEMAND_NO = MYROW.DEMAND_NO;
V_ACT_COUNT := V_ACT_COUNT - MYROW.DEMAND_QTY_VAL;
V_ACT_WEIGHT := V_ACT_WEIGHT - MYROW.DEMAND_WT_VAL;
END IF;
END IF;
END LOOP;
--结炉的数据处理
FOR MYROW1 IN (SELECT T.*
FROM TMS_DEMAND_M T
WHERE T.HEAT_NO = V_JUDGE_STOVE_NO
AND T.CURRENT_JOB_NO = V_CURRENT_JOB_NO
AND T.TRAN_CLASS_CODE = 'XX'
ORDER BY T.CREATE_TIME DESC) LOOP
IF (V_FLAG = 'JL') THEN
IF (V_SCRAP_QTY_VAL > 0) THEN
IF (MYROW1.DEMAND_QTY_VAL - MYROW1.OUTPUT_QTY_VAL >=
V_SCRAP_QTY_VAL) THEN
UPDATE TMS_DEMAND_M T
SET T.SCRAP_QTY_VAL = V_SCRAP_QTY_VAL,
T.SCRAP_WT_VAL = V_SCRAP_WT_VAL
WHERE T.DEMAND_NO = MYROW1.DEMAND_NO;
V_SCRAP_QTY_VAL := 0;
V_SCRAP_WT_VAL := 0;
ELSE
UPDATE TMS_DEMAND_M T
SET T.SCRAP_QTY_VAL = T.DEMAND_QTY_VAL - T.OUTPUT_QTY_VAL,
T.SCRAP_WT_VAL =
(T.DEMAND_QTY_VAL - T.OUTPUT_QTY_VAL) / V_SCRAP_QTY_VAL *
V_SCRAP_WT_VAL
WHERE T.DEMAND_NO = MYROW1.DEMAND_NO;
V_SCRAP_QTY_VAL := V_SCRAP_QTY_VAL - MYROW1.DEMAND_QTY_VAL +
MYROW1.OUTPUT_QTY_VAL;
V_SCRAP_WT_VAL := (V_SCRAP_QTY_VAL - MYROW1.DEMAND_QTY_VAL +
MYROW1.OUTPUT_QTY_VAL) / V_SCRAP_QTY_VAL *
V_SCRAP_WT_VAL;
END IF;
END IF;
END IF;
END LOOP;
END;
]]>
SELECT T.*
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#'
MYROW.DEMAND_QTY_VAL THEN
V_DEMAND_QTY_VAL
ELSE
MYROW.DEMAND_QTY_VAL
END,
T.DEMAND_WT_VAL = CASE
WHEN V_DEMAND_WT_VAL > MYROW.DEMAND_WT_VAL THEN
V_DEMAND_WT_VAL
ELSE
MYROW.DEMAND_WT_VAL
END
WHERE T.DEMAND_NO = MYROW.DEMAND_NO;
END LOOP;
END;
]]>