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.WLID_IN,
T.WLDESC_IN,
T.LEN_GP_SINGLE_OUT,
T.OUT_WT_ONE,
(SELECT TO_CHAR(WM_CONCAT(S1.ORDER_NO_SEQ)) ORDER_NO_SEQ
FROM (SELECT S.ORDER_NO || '/' || S.ORDER_SEQ ORDER_NO_SEQ,
S.GPREQ_ID
FROM PLN_ORDER_ZG_S S, FRG_ENTRUSTED_BILL T1
WHERE S.GPREQ_ID IS NOT NULL
AND S.GPREQ_ID = T1.PRO_PLAN_ID
GROUP BY S.GPREQ_ID, S.ORDER_NO, S.ORDER_SEQ) S1
WHERE S1.GPREQ_ID = T.PRO_PLAN_ID) ORDER_NO
FROM FRG_ENTRUSTED_BILL T
WHERE 1 = 1
INSERT INTO FRG_ENTRUSTED_BILL_RESULT(
SUBCONTRACT_NO,
SUBCONTRACT_NO_SEQ,
OUTNUM_CUT,
LENGTH_OUT,
ACT_COUNT,
ACT_WEIGHT,
JUDGE_STOVE_NO,
DIMATER_OUT,
LEN_GP_SINGLE)
VALUES(
'#SUBCONTRACT_NO#',
'#SUBCONTRACT_NO_SEQ#',
'#OUTNUM_CUT#',
'#LENGTH_OUT#',
'#ACT_COUNT#',
'#ACT_WEIGHT#',
'#JUDGE_STOVE_NO#',
'#DIMATER_OUT#',
'#LEN_GP_SINGLE#')
UPDATE FRG_ENTRUSTED_BILL T
SET
T.SUBCONTRACT_LOG = '#SUBCONTRACT_LOG#',
T.HB_FP_NUM = '#HB_FP_NUM#',
T.HB_FP_WT = '#HB_FP_WT#'
WHERE
T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
UPDATE PLN_ZY_DZ_M T SET T.PLANSTATUS = '30' WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
UPDATE PLN_ZY_DZ_M T SET T.PLANSTATUS = '10' WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
SELECT
T.SUBCONTRACT_NO,
T.SUBCONTRACT_NO_SEQ,
T.OUTNUM_CUT,
T.LENGTH_OUT,
T.ACT_COUNT,
T.ACT_WEIGHT,
T.JUDGE_STOVE_NO,
T.DIMATER_OUT,
T.LEN_GP_SINGLE
FROM FRG_ENTRUSTED_BILL_RESULT T
WHERE
T.SUBCONTRACT_NO = ?
AND T.SUBCONTRACT_NO_SEQ = ?
DELETE FROM FRG_ENTRUSTED_BILL_RESULT T
WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
SELECT SUM(T.ACT_COUNT)ACOUNT
FROM FRG_ENTRUSTED_BILL_RESULT T
WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
SELECT NVL(SUM(T.ACT_COUNT),0)APPCOUNT
FROM MAT_GP_M T
WHERE T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO_LG = '#JUDGE_STOVE_NO#'
AND NVL(T.PRO_PLAN_ID,'/') = NVL('#PRO_PLAN_ID#','/')
AND NVL(T.GX_PLAN_NO,'/') = NVL('#GX_PLAN_NO#','/')
AND T.OUTSOURCING_DOC = '#SUBCONTRACT_NO#'
AND T.GPTYPE = '2'
AND T.JUGDE_APPLY_CODE IS NOT NULL
INSERT INTO MAT_GP_M(
MAT_NO,
PRODUCT_FLAG,
MAT_STATUS,
STOVE_NO,
JUDGE_STOVE_NO,
MATERIAL_NO,
MATERIAL_NAME,
GRADECODE,
GRADENAME,
STD_CODE,
STD_NAME,
PRO_ORDER_NO,
ORDER_NO,
ORDER_SEQ,
ORDER_SEQ_NO,
ORD_PK,
ORD_LN_PK,
ORD_LN_DLY_PK,
PLINE_CODE,
PLINE_NAME,
DIMATER,
ACT_LEN,
FIX_NUM,
FIX_LEN,
ACT_COUNT,
ACT_WEIGHT,
ACT_THEORY_WEIGHT,
BELONG_CODE,
BELONG_NAME,
INSTOCK_TIME,
BAL_YEAR_MONTH,
CREATE_NAME,
CREATE_TIME,
GROUD_NO,
PRO_PLAN_ID,
GX_PLAN_NO,
DB_ACT_COUNT,
CIC,
PIC,
SIC,
DIC,
GPTYPE,
QCM_STAUS,
LG_CRAFT_NO,
ISENDGX,
CRAFTNO,
OUTSOURCING_DOC,
STEEL_STANDRAD,
JUDGE_STOVE_NO_LG)
VALUES(
'#MAT_NO#',
'#PRODUCT_FLAG#',
'#MAT_STATUS#',
'#STOVE_NO#',
'#JUDGE_STOVE_NO#',
'#MATERIAL_NO#',
'#MATERIAL_NAME#',
'#GRADECODE#',
'#GRADENAME#',
'#STD_CODE#',
'#STD_NAME#',
'#PRO_ORDER_NO#',
'#ORDER_NO#',
'#ORDER_SEQ#',
'#ORDER_SEQ_NO#',
'#ORD_PK#',
'#ORD_LN_PK#',
'#ORD_LN_DLY_PK#',
'#PLINE_CODE#',
'#PLINE_NAME#',
'#DIMATER#',
'#ACT_LEN#',
'#FIX_NUM#',
'#FIX_LEN#',
'#ACT_COUNT#',
'#ACT_WEIGHT#',
'#ACT_THEORY_WEIGHT#',
'#BELONG_CODE#',
'#BELONG_NAME#',
TO_DATE('#INSTOCK_TIME#','YYYY-MM-DD HH24:MI:SS'),
'#BAL_YEAR_MONTH#',
'#CREATE_NAME#',
TO_DATE('#CREATE_TIME#','YYYY-MM-DD HH24:MI:SS'),
'#GROUD_NO#',
'#PRO_PLAN_ID#',
'#GX_PLAN_NO#',
'#DB_ACT_COUNT#',
'#CIC#',
'#PIC#',
'#SIC#',
'#DIC#',
'#GPTYPE#',
'#QCM_STAUS#',
'#LG_CRAFT_NO#',
'#ISENDGX#',
'#CRAFTNO#',
'#OUTSOURCING_DOC#',
'#STEEL_STANDRAD#',
'#JUDGE_STOVE_NO_LG#')
SELECT NVL(SUM(T.ACT_COUNT),0)ACT_COUNT, T.FIX_NUM,T.STOVE_NO,T.JUDGE_STOVE_NO,T.PRO_PLAN_ID,T.GX_PLAN_NO
FROM MAT_GP_M T
WHERE T.PRO_PLAN_ID = '#PRO_PLAN_ID#'
AND T.GX_PLAN_NO = '#GX_PLAN_NO#'
AND T.DIMATER = '#DIAMETER_OUT#'
AND T.FIX_LEN = '#LEN_GP_SINGLE_OUT#'
AND T.PRO_PLAN_ID_ZG IS NULL
AND T.QCM_STAUS = '00'
GROUP BY T.PRO_PLAN_ID,
T.GX_PLAN_NO,
T.STOVE_NO,
T.JUDGE_STOVE_NO,
T.FIX_NUM
ORDER BY T.FIX_NUM DESC
SELECT S.*
FROM
PLN_ORDER_ZG_S S
WHERE S.GPREQ_ID = '#PRO_PLAN_ID#'
AND S.EXE_STATUS='0'
ORDER BY
TO_NUMBER(S.GX_PRO_SEQ) ASC
SELECT GET_GP_PLNZGM_NUM('#PRO_PLAN_ID#','#GX_PLAN_NO#') AS DB_ACT_COUNT FROM DUAL
DECLARE
BEGIN
FOR MYROW IN (SELECT T.*,
S.STORAGE_NO,
S.LOCATION_NO,
S.LARY_NO,
(SELECT F.LOCATION_NAME
FROM YDM_BS_LOCATION F
WHERE F.LOCATION_NO = S.LOCATION_NO) LOCATION_NAME
FROM MAT_GP_M_HISTORY T, YDM_GP_OUTLIST S
WHERE T.MAT_NO = S.MAT_NO
AND S.OUTSTOCK_TYPE_CODE = '800809'
AND T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.OUTSOURCING_DOC =
'#SUBCONTRACT_NO#' || '#SUBCONTRACT_NO_SEQ#') LOOP
INSERT INTO MAT_GP_M
(MAT_NO,
PRODUCT_FLAG,
MAT_STATUS,
STOVE_NO,
FLAG_STOVE_NO,
JUDGE_STOVE_NO,
CAST_NO,
CCMID,
MAT_ORIGIN_CODE,
MAT_ORIGIN_NAME,
SOURE_CODE,
SOURE_NAME,
MATERIAL_NO,
MATERIAL_NAME,
INPUT_MATERIAL_NAME,
INPUT_MATERIAL_NO,
INPUT_ORIGIN_CODE,
GRADECODE,
GRADENAME,
STD_CODE,
STD_NAME,
PRO_ORDER_NO,
ORDER_NO,
ORDER_SEQ,
ORDER_SEQ_NO,
ORD_PK,
ORD_LN_PK,
ORD_LN_DLY_PK,
PROCESS_CDOE,
PROCESS_DESC,
NEXT_PROCESS_CDOE,
NEXT_PROCESS_DESC,
PLINE_CODE,
PLINE_NAME,
DIMATER,
HEIGHT,
ACT_LEN,
FIX_NUM,
FIX_LEN,
ACT_COUNT,
ACT_WEIGHT,
ACT_THEORY_WEIGHT,
PONDER_NO,
PONDER_GROSS_WT,
MEASURE_FLAG,
STOVE_PRINT_FLAG,
MAT_GOWHERE_CODE,
MAT_GOWHERE_NAME,
BELONG_CODE,
BELONG_NAME,
LOCK_FLAG,
MNG_LOCK_FLAG,
MNG_LOCK_RSN_CODE,
MNG_LOCK_TIME,
MNG_LOCK_MAKER,
MNG_LOCK_REMARK,
LOCK_RSN_CODE,
LOCK_TIME,
LOCK_MAKER,
LOCK_REMARK,
UNLOCK_TIME,
UNLOCK_MAKER,
UNLOCK_REMARK,
OLD_ORDER_NO,
OLD_ORDER_SEQ,
OLD_ORDER_SEQ_NO,
OLD_MATERIAL_NO,
OLD_MATERIAL_NAME,
REMAIN_RSN_CODE,
REMAIN_JUGDE_TIME,
REMAIN_JUGDE_MAKER,
REMAIN_JUGDE_CODE,
REMAIN_REMARK,
JUGDE_APPLY_FLAG,
JUGDE_APPLY_CODE,
JUGDE_APPLY_TIME,
JUGDE_SCAN_TIME,
FACE_RESULT_CODE,
FACE_RESULT_TIME,
FACE_MAKER,
CHEM_RESULT_CODE,
CHEM_RESULT_TIME,
CHEM_MAKER,
PHY_RESULT_CODE,
PHY_RESULT_TIME,
PHY_MAKER,
DETECT_REPORT_NO,
DETECT_RESULT_CODE,
BUG_NO,
BUG_DEAL,
OUTSOURCING_DOC,
OUTSOURCING_FLAG,
SAMPLING_FLAG,
SAMPLING_TYPE,
SAMPLING_NO,
CHECKOUT_NO,
CHEM_STCHECK_NO,
CHEM_PROCHECK_NO,
INSTOCK_FLAG,
INSTOCK_TIME,
OUTSTOCK_TIME,
PRO_BC,
PRO_BZ,
RPO_TIME,
BAR_CODE,
BEGINNING_FLAG,
BAL_YEAR_MONTH,
MEMO,
CREATE_NAME,
CREATE_TIME,
UPDATE_NAME,
UPDATE_TIME,
GROUD_NO,
BUG_DEAL_CODE,
SURFACE_CHECK_NO,
CHEM_JUDGE_ID,
PHY_JUDGE_ID,
PHY_RESULT_ID,
OLD_JUDGE_STOVE_NO,
OLD_GROUD_NO,
OLD_GRADECODE,
OLD_GRADENAME,
OLD_STD_CODE,
OLD_STD_NAME,
JUDGE_RESULT_CODE,
JUDGE_RESULT_TIME,
JUDGE_MAKER,
OLD_STOVE_NO,
PRINT_STOVE_NO,
PRO_PLAN_ID,
GX_PLAN_NO,
GPREQ_ID,
DB_ACT_COUNT,
CIC,
PIC,
SIC,
DIC,
GPTYPE,
SEQUENCENO,
FURNACENO,
QCM_STAUS,
HANGING_FLAG,
LG_CRAFT_NO,
ISENDGX,
PRODUCCODE,
PRODUCNAME,
CRAFTNO,
PLAN_ROUTE,
PRO_PLAN_ID_ZG,
GX_PLAN_NO_ZG,
STEELCODE,
STEELNAME,
CUT_YU_LONG,
LK_FLAG,
STEEL_STANDRAD,
JUDGE_ID,
EF_PLINE_CODE,
EF_PLINE_NAME,
INSTANCY_FLAG,
JUDGE_STOVE_NO_LG)
VALUES
(MYROW.MAT_NO,
MYROW.PRODUCT_FLAG,
MYROW.MAT_STATUS,
MYROW.STOVE_NO,
MYROW.FLAG_STOVE_NO,
MYROW.JUDGE_STOVE_NO,
MYROW.CAST_NO,
MYROW.CCMID,
MYROW.MAT_ORIGIN_CODE,
MYROW.MAT_ORIGIN_NAME,
MYROW.SOURE_CODE,
MYROW.SOURE_NAME,
MYROW.MATERIAL_NO,
MYROW.MATERIAL_NAME,
MYROW.INPUT_MATERIAL_NAME,
MYROW.INPUT_MATERIAL_NO,
MYROW.INPUT_ORIGIN_CODE,
MYROW.GRADECODE,
MYROW.GRADENAME,
MYROW.STD_CODE,
MYROW.STD_NAME,
MYROW.PRO_ORDER_NO,
MYROW.ORDER_NO,
MYROW.ORDER_SEQ,
MYROW.ORDER_SEQ_NO,
MYROW.ORD_PK,
MYROW.ORD_LN_PK,
MYROW.ORD_LN_DLY_PK,
MYROW.PROCESS_CDOE,
MYROW.PROCESS_DESC,
MYROW.NEXT_PROCESS_CDOE,
MYROW.NEXT_PROCESS_DESC,
MYROW.PLINE_CODE,
MYROW.PLINE_NAME,
MYROW.DIMATER,
MYROW.HEIGHT,
MYROW.ACT_LEN,
MYROW.FIX_NUM,
MYROW.FIX_LEN,
MYROW.ACT_COUNT,
MYROW.ACT_WEIGHT,
MYROW.ACT_THEORY_WEIGHT,
MYROW.PONDER_NO,
MYROW.PONDER_GROSS_WT,
MYROW.MEASURE_FLAG,
MYROW.STOVE_PRINT_FLAG,
MYROW.MAT_GOWHERE_CODE,
MYROW.MAT_GOWHERE_NAME,
MYROW.BELONG_CODE,
MYROW.BELONG_NAME,
MYROW.LOCK_FLAG,
MYROW.MNG_LOCK_FLAG,
MYROW.MNG_LOCK_RSN_CODE,
MYROW.MNG_LOCK_TIME,
MYROW.MNG_LOCK_MAKER,
MYROW.MNG_LOCK_REMARK,
MYROW.LOCK_RSN_CODE,
MYROW.LOCK_TIME,
MYROW.LOCK_MAKER,
MYROW.LOCK_REMARK,
MYROW.UNLOCK_TIME,
MYROW.UNLOCK_MAKER,
MYROW.UNLOCK_REMARK,
MYROW.OLD_ORDER_NO,
MYROW.OLD_ORDER_SEQ,
MYROW.OLD_ORDER_SEQ_NO,
MYROW.OLD_MATERIAL_NO,
MYROW.OLD_MATERIAL_NAME,
MYROW.REMAIN_RSN_CODE,
MYROW.REMAIN_JUGDE_TIME,
MYROW.REMAIN_JUGDE_MAKER,
MYROW.REMAIN_JUGDE_CODE,
MYROW.REMAIN_REMARK,
MYROW.JUGDE_APPLY_FLAG,
MYROW.JUGDE_APPLY_CODE,
MYROW.JUGDE_APPLY_TIME,
MYROW.JUGDE_SCAN_TIME,
MYROW.FACE_RESULT_CODE,
MYROW.FACE_RESULT_TIME,
MYROW.FACE_MAKER,
MYROW.CHEM_RESULT_CODE,
MYROW.CHEM_RESULT_TIME,
MYROW.CHEM_MAKER,
MYROW.PHY_RESULT_CODE,
MYROW.PHY_RESULT_TIME,
MYROW.PHY_MAKER,
MYROW.DETECT_REPORT_NO,
MYROW.DETECT_RESULT_CODE,
MYROW.BUG_NO,
MYROW.BUG_DEAL,
MYROW.OUTSOURCING_DOC,
MYROW.OUTSOURCING_FLAG,
MYROW.SAMPLING_FLAG,
MYROW.SAMPLING_TYPE,
MYROW.SAMPLING_NO,
MYROW.CHECKOUT_NO,
MYROW.CHEM_STCHECK_NO,
MYROW.CHEM_PROCHECK_NO,
MYROW.INSTOCK_FLAG,
MYROW.INSTOCK_TIME,
MYROW.OUTSTOCK_TIME,
MYROW.PRO_BC,
MYROW.PRO_BZ,
MYROW.RPO_TIME,
MYROW.BAR_CODE,
MYROW.BEGINNING_FLAG,
MYROW.BAL_YEAR_MONTH,
MYROW.MEMO,
MYROW.CREATE_NAME,
MYROW.CREATE_TIME,
MYROW.UPDATE_NAME,
MYROW.UPDATE_TIME,
MYROW.GROUD_NO,
MYROW.BUG_DEAL_CODE,
MYROW.SURFACE_CHECK_NO,
MYROW.CHEM_JUDGE_ID,
MYROW.PHY_JUDGE_ID,
MYROW.PHY_RESULT_ID,
MYROW.OLD_JUDGE_STOVE_NO,
MYROW.OLD_GROUD_NO,
MYROW.OLD_GRADECODE,
MYROW.OLD_GRADENAME,
MYROW.OLD_STD_CODE,
MYROW.OLD_STD_NAME,
MYROW.JUDGE_RESULT_CODE,
MYROW.JUDGE_RESULT_TIME,
MYROW.JUDGE_MAKER,
MYROW.OLD_STOVE_NO,
MYROW.PRINT_STOVE_NO,
MYROW.PRO_PLAN_ID,
MYROW.GX_PLAN_NO,
MYROW.GPREQ_ID,
MYROW.DB_ACT_COUNT,
MYROW.CIC,
MYROW.PIC,
MYROW.SIC,
MYROW.DIC,
MYROW.GPTYPE,
MYROW.SEQUENCENO,
MYROW.FURNACENO,
MYROW.QCM_STAUS,
MYROW.HANGING_FLAG,
MYROW.LG_CRAFT_NO,
MYROW.ISENDGX,
MYROW.PRODUCCODE,
MYROW.PRODUCNAME,
MYROW.CRAFTNO,
MYROW.PLAN_ROUTE,
MYROW.PRO_PLAN_ID_ZG,
MYROW.GX_PLAN_NO_ZG,
MYROW.STEELCODE,
MYROW.STEELNAME,
MYROW.CUT_YU_LONG,
MYROW.LK_FLAG,
MYROW.STEEL_STANDRAD,
MYROW.JUDGE_ID,
MYROW.EF_PLINE_CODE,
MYROW.EF_PLINE_NAME,
MYROW.INSTANCY_FLAG,
MYROW.JUDGE_STOVE_NO_LG);
INSERT INTO YDM_GP_BUTTRESS
(MAT_NO,
STOVE_NO,
FLAG_STOVE_NO,
JUDGE_STOVE_NO,
STORAGE_NO,
LOCATION_NO,
LARY_NO,
CREATE_NAME,
CREATE_TIME,
GROUD_NO,
LOCATION_NAME,
JUDGE_STOVE_NO_LG)
VALUES
(MYROW.MAT_NO,
MYROW.STOVE_NO,
MYROW.FLAG_STOVE_NO,
MYROW.JUDGE_STOVE_NO,
MYROW.STORAGE_NO,
MYROW.LOCATION_NO,
MYROW.LARY_NO,
MYROW.CREATE_NAME,
MYROW.CREATE_TIME,
MYROW.GROUD_NO,
MYROW.LOCATION_NAME,
MYROW.JUDGE_STOVE_NO_LG);
DELETE FROM YDM_GP_OUTLIST T
WHERE T.MAT_NO = MYROW.MAT_NO
AND T.OUTSTOCK_TYPE_CODE IN ('800801', '800809');
DELETE FROM MAT_GP_M_HISTORY T WHERE T.MAT_NO = MYROW.MAT_NO;
END LOOP;
END;
DECLARE
V_OUTSTOCK_DOC YDM_GP_OUTLIST.OUTSTOCK_DOC%TYPE := NULL;
V_OUTSTOCK_SQE YDM_GP_OUTLIST.OUTSTOCK_SQE%TYPE := NULL;
V_TOUTSTOCK_DOC YDM_GP_OUTLIST.OUTSTOCK_DOC%TYPE := NULL;
V_TOUTSTOCK_SQE YDM_GP_OUTLIST.OUTSTOCK_SQE%TYPE := NULL;
V_COUNT NUMBER:=1;
V_TIME YDM_GP_INLIST.CREATE_TIME%TYPE := SYSDATE;
V_BATHYEAR YDM_GP_INLIST.BAL_YEAR_MONTH%TYPE := TO_CHAR(SYSDATE,'YYYYMM');
BEGIN
SELECT 'CQ' || TO_CHAR(SYSDATE, 'YYMMDD') ||
LPAD(NVL(MAX(SUBSTR(T.OUTSTOCK_DOC, 9)), 0) + 1, 5, 0) INTO V_OUTSTOCK_DOC
FROM YDM_GP_OUTLIST T
WHERE T.OUTSTOCK_TYPE_CODE = '800809'
AND TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD') =
TO_CHAR(SYSDATE, 'YYYY-MM-DD');
SELECT 'OA' || TO_CHAR(SYSDATE, 'YYMMDD') ||
LPAD(NVL(MAX(SUBSTR(T.OUTSTOCK_DOC, 9)), 0) + 1, 5, 0) INTO V_TOUTSTOCK_DOC
FROM YDM_GP_OUTLIST T
WHERE T.OUTSTOCK_TYPE_CODE = '800801'
AND TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD') =
TO_CHAR(SYSDATE, 'YYYY-MM-DD');
FOR MYROW IN (SELECT T.*,
S.STORAGE_NO,
S.LOCATION_NO,
S.LOCATION_NAME,
S.LARY_NO
FROM MAT_GP_M T, YDM_GP_BUTTRESS S
WHERE T.MAT_NO = S.MAT_NO
AND T.STOVE_NO = '#STOVE_NO#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.OUTSOURCING_DOC =
'#SUBCONTRACT_NO#' || '#SUBCONTRACT_NO_SEQ#'
ORDER BY T.MAT_NO DESC) LOOP
INSERT INTO MAT_GP_M_HISTORY
(MAT_NO,
PRODUCT_FLAG,
MAT_STATUS,
STOVE_NO,
FLAG_STOVE_NO,
JUDGE_STOVE_NO,
CAST_NO,
CCMID,
MAT_ORIGIN_CODE,
MAT_ORIGIN_NAME,
SOURE_CODE,
SOURE_NAME,
MATERIAL_NO,
MATERIAL_NAME,
INPUT_MATERIAL_NAME,
INPUT_MATERIAL_NO,
INPUT_ORIGIN_CODE,
GRADECODE,
GRADENAME,
STD_CODE,
STD_NAME,
PRO_ORDER_NO,
ORDER_NO,
ORDER_SEQ,
ORDER_SEQ_NO,
ORD_PK,
ORD_LN_PK,
ORD_LN_DLY_PK,
PROCESS_CDOE,
PROCESS_DESC,
NEXT_PROCESS_CDOE,
NEXT_PROCESS_DESC,
PLINE_CODE,
PLINE_NAME,
DIMATER,
HEIGHT,
ACT_LEN,
FIX_NUM,
FIX_LEN,
ACT_COUNT,
ACT_WEIGHT,
ACT_THEORY_WEIGHT,
PONDER_NO,
PONDER_GROSS_WT,
MEASURE_FLAG,
STOVE_PRINT_FLAG,
MAT_GOWHERE_CODE,
MAT_GOWHERE_NAME,
BELONG_CODE,
BELONG_NAME,
LOCK_FLAG,
MNG_LOCK_FLAG,
MNG_LOCK_RSN_CODE,
MNG_LOCK_TIME,
MNG_LOCK_MAKER,
MNG_LOCK_REMARK,
LOCK_RSN_CODE,
LOCK_TIME,
LOCK_MAKER,
LOCK_REMARK,
UNLOCK_TIME,
UNLOCK_MAKER,
UNLOCK_REMARK,
OLD_ORDER_NO,
OLD_ORDER_SEQ,
OLD_ORDER_SEQ_NO,
OLD_MATERIAL_NO,
OLD_MATERIAL_NAME,
REMAIN_RSN_CODE,
REMAIN_JUGDE_TIME,
REMAIN_JUGDE_MAKER,
REMAIN_JUGDE_CODE,
REMAIN_REMARK,
JUGDE_APPLY_FLAG,
JUGDE_APPLY_CODE,
JUGDE_APPLY_TIME,
JUGDE_SCAN_TIME,
FACE_RESULT_CODE,
FACE_RESULT_TIME,
FACE_MAKER,
CHEM_RESULT_CODE,
CHEM_RESULT_TIME,
CHEM_MAKER,
PHY_RESULT_CODE,
PHY_RESULT_TIME,
PHY_MAKER,
DETECT_REPORT_NO,
DETECT_RESULT_CODE,
BUG_NO,
BUG_DEAL,
OUTSOURCING_DOC,
OUTSOURCING_FLAG,
SAMPLING_FLAG,
SAMPLING_TYPE,
SAMPLING_NO,
CHECKOUT_NO,
CHEM_STCHECK_NO,
CHEM_PROCHECK_NO,
INSTOCK_FLAG,
INSTOCK_TIME,
OUTSTOCK_TIME,
PRO_BC,
PRO_BZ,
RPO_TIME,
BAR_CODE,
BEGINNING_FLAG,
BAL_YEAR_MONTH,
MEMO,
CREATE_NAME,
CREATE_TIME,
UPDATE_NAME,
UPDATE_TIME,
GROUD_NO,
BUG_DEAL_CODE,
SURFACE_CHECK_NO,
CHEM_JUDGE_ID,
PHY_JUDGE_ID,
PHY_RESULT_ID,
OLD_JUDGE_STOVE_NO,
OLD_GROUD_NO,
OLD_GRADECODE,
OLD_GRADENAME,
OLD_STD_CODE,
OLD_STD_NAME,
JUDGE_RESULT_CODE,
JUDGE_RESULT_TIME,
JUDGE_MAKER,
OLD_STOVE_NO,
PRINT_STOVE_NO,
PRO_PLAN_ID,
GX_PLAN_NO,
GPREQ_ID,
DB_ACT_COUNT,
CIC,
PIC,
SIC,
DIC,
GPTYPE,
SEQUENCENO,
FURNACENO,
QCM_STAUS,
HANGING_FLAG,
LG_CRAFT_NO,
ISENDGX,
PRODUCCODE,
PRODUCNAME,
CRAFTNO,
PLAN_ROUTE,
PRO_PLAN_ID_ZG,
GX_PLAN_NO_ZG,
STEELCODE,
STEELNAME,
CUT_YU_LONG,
LK_FLAG,
STEEL_STANDRAD,
JUDGE_ID,
EF_PLINE_CODE,
EF_PLINE_NAME,
INSTANCY_FLAG,
JUDGE_STOVE_NO_LG)
VALUES
(MYROW.MAT_NO,
MYROW.PRODUCT_FLAG,
MYROW.MAT_STATUS,
MYROW.STOVE_NO,
MYROW.FLAG_STOVE_NO,
MYROW.JUDGE_STOVE_NO,
MYROW.CAST_NO,
MYROW.CCMID,
MYROW.MAT_ORIGIN_CODE,
MYROW.MAT_ORIGIN_NAME,
MYROW.SOURE_CODE,
MYROW.SOURE_NAME,
MYROW.MATERIAL_NO,
MYROW.MATERIAL_NAME,
MYROW.INPUT_MATERIAL_NAME,
MYROW.INPUT_MATERIAL_NO,
MYROW.INPUT_ORIGIN_CODE,
MYROW.GRADECODE,
MYROW.GRADENAME,
MYROW.STD_CODE,
MYROW.STD_NAME,
MYROW.PRO_ORDER_NO,
MYROW.ORDER_NO,
MYROW.ORDER_SEQ,
MYROW.ORDER_SEQ_NO,
MYROW.ORD_PK,
MYROW.ORD_LN_PK,
MYROW.ORD_LN_DLY_PK,
MYROW.PROCESS_CDOE,
MYROW.PROCESS_DESC,
MYROW.NEXT_PROCESS_CDOE,
MYROW.NEXT_PROCESS_DESC,
MYROW.PLINE_CODE,
MYROW.PLINE_NAME,
MYROW.DIMATER,
MYROW.HEIGHT,
MYROW.ACT_LEN,
MYROW.FIX_NUM,
MYROW.FIX_LEN,
MYROW.ACT_COUNT,
MYROW.ACT_WEIGHT,
MYROW.ACT_THEORY_WEIGHT,
MYROW.PONDER_NO,
MYROW.PONDER_GROSS_WT,
MYROW.MEASURE_FLAG,
MYROW.STOVE_PRINT_FLAG,
MYROW.MAT_GOWHERE_CODE,
MYROW.MAT_GOWHERE_NAME,
MYROW.BELONG_CODE,
MYROW.BELONG_NAME,
MYROW.LOCK_FLAG,
MYROW.MNG_LOCK_FLAG,
MYROW.MNG_LOCK_RSN_CODE,
MYROW.MNG_LOCK_TIME,
MYROW.MNG_LOCK_MAKER,
MYROW.MNG_LOCK_REMARK,
MYROW.LOCK_RSN_CODE,
MYROW.LOCK_TIME,
MYROW.LOCK_MAKER,
MYROW.LOCK_REMARK,
MYROW.UNLOCK_TIME,
MYROW.UNLOCK_MAKER,
MYROW.UNLOCK_REMARK,
MYROW.OLD_ORDER_NO,
MYROW.OLD_ORDER_SEQ,
MYROW.OLD_ORDER_SEQ_NO,
MYROW.OLD_MATERIAL_NO,
MYROW.OLD_MATERIAL_NAME,
MYROW.REMAIN_RSN_CODE,
MYROW.REMAIN_JUGDE_TIME,
MYROW.REMAIN_JUGDE_MAKER,
MYROW.REMAIN_JUGDE_CODE,
MYROW.REMAIN_REMARK,
MYROW.JUGDE_APPLY_FLAG,
MYROW.JUGDE_APPLY_CODE,
MYROW.JUGDE_APPLY_TIME,
MYROW.JUGDE_SCAN_TIME,
MYROW.FACE_RESULT_CODE,
MYROW.FACE_RESULT_TIME,
MYROW.FACE_MAKER,
MYROW.CHEM_RESULT_CODE,
MYROW.CHEM_RESULT_TIME,
MYROW.CHEM_MAKER,
MYROW.PHY_RESULT_CODE,
MYROW.PHY_RESULT_TIME,
MYROW.PHY_MAKER,
MYROW.DETECT_REPORT_NO,
MYROW.DETECT_RESULT_CODE,
MYROW.BUG_NO,
MYROW.BUG_DEAL,
MYROW.OUTSOURCING_DOC,
MYROW.OUTSOURCING_FLAG,
MYROW.SAMPLING_FLAG,
MYROW.SAMPLING_TYPE,
MYROW.SAMPLING_NO,
MYROW.CHECKOUT_NO,
MYROW.CHEM_STCHECK_NO,
MYROW.CHEM_PROCHECK_NO,
MYROW.INSTOCK_FLAG,
MYROW.INSTOCK_TIME,
MYROW.OUTSTOCK_TIME,
MYROW.PRO_BC,
MYROW.PRO_BZ,
MYROW.RPO_TIME,
MYROW.BAR_CODE,
MYROW.BEGINNING_FLAG,
MYROW.BAL_YEAR_MONTH,
MYROW.MEMO,
MYROW.CREATE_NAME,
MYROW.CREATE_TIME,
MYROW.UPDATE_NAME,
MYROW.UPDATE_TIME,
MYROW.GROUD_NO,
MYROW.BUG_DEAL_CODE,
MYROW.SURFACE_CHECK_NO,
MYROW.CHEM_JUDGE_ID,
MYROW.PHY_JUDGE_ID,
MYROW.PHY_RESULT_ID,
MYROW.OLD_JUDGE_STOVE_NO,
MYROW.OLD_GROUD_NO,
MYROW.OLD_GRADECODE,
MYROW.OLD_GRADENAME,
MYROW.OLD_STD_CODE,
MYROW.OLD_STD_NAME,
MYROW.JUDGE_RESULT_CODE,
MYROW.JUDGE_RESULT_TIME,
MYROW.JUDGE_MAKER,
MYROW.OLD_STOVE_NO,
MYROW.PRINT_STOVE_NO,
MYROW.PRO_PLAN_ID,
MYROW.GX_PLAN_NO,
MYROW.GPREQ_ID,
MYROW.DB_ACT_COUNT,
MYROW.CIC,
MYROW.PIC,
MYROW.SIC,
MYROW.DIC,
MYROW.GPTYPE,
MYROW.SEQUENCENO,
MYROW.FURNACENO,
MYROW.QCM_STAUS,
MYROW.HANGING_FLAG,
MYROW.LG_CRAFT_NO,
MYROW.ISENDGX,
MYROW.PRODUCCODE,
MYROW.PRODUCNAME,
MYROW.CRAFTNO,
MYROW.PLAN_ROUTE,
MYROW.PRO_PLAN_ID_ZG,
MYROW.GX_PLAN_NO_ZG,
MYROW.STEELCODE,
MYROW.STEELNAME,
MYROW.CUT_YU_LONG,
MYROW.LK_FLAG,
MYROW.STEEL_STANDRAD,
MYROW.JUDGE_ID,
MYROW.EF_PLINE_CODE,
MYROW.EF_PLINE_NAME,
MYROW.INSTANCY_FLAG,
MYROW.JUDGE_STOVE_NO_LG);
V_OUTSTOCK_SQE := V_OUTSTOCK_DOC || LPAD(V_COUNT,4,0);
INSERT INTO YDM_GP_OUTLIST(
OUTSTOCK_SQE,
OUTSTOCK_PLAN_NO,
OUTSTOCK_DOC,
OUTSTOCK_TYPE_CODE,
OUTSTOCK_TYPE_NAME,
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,
DIMATER,
ACT_LEN,
FIX_NUM,
FIX_LEN,
ACT_COUNT,
ACT_WEIGHT,
ACT_THEORY_WEIGHT,
PLINE_CODE,
PLINE_NAME,
PRO_ORDER_NO,
BELONG_CODE,
BELONG_NAME,
STORAGE_NO,
LOCATION_NO,
LARY_NO,
BAL_YEAR_MONTH,
OUTSTOCK_TIME,
CREATE_NAME,
CREATE_TIME,
GROUD_NO,
PRO_PLAN_ID,
GX_PLAN_NO,
FURNACENO,
SEQUENCENO,
GPTYPE,
CIC,
PIC,
SIC,
DIC,
PRODUCCODE,
PRODUCNAME,
PRO_PLAN_ID_ZG,
GX_PLAN_NO_ZG)
VALUES(
V_OUTSTOCK_SQE,
'#HEAT_PLAN_NO#',
V_OUTSTOCK_DOC,
'800809',
'产权出库',
MYROW.MAT_NO,
MYROW.PRODUCT_FLAG,
MYROW.MAT_STATUS,
MYROW.STOVE_NO,
MYROW.FLAG_STOVE_NO,
MYROW.JUDGE_STOVE_NO,
MYROW.CAST_NO,
MYROW.CCMID,
MYROW.MATERIAL_NO,
MYROW.MATERIAL_NAME,
MYROW.GRADECODE,
MYROW.GRADENAME,
MYROW.STD_CODE,
MYROW.STD_NAME,
MYROW.DIMATER,
MYROW.ACT_LEN,
MYROW.FIX_NUM,
MYROW.FIX_LEN,
MYROW.ACT_COUNT,
MYROW.ACT_WEIGHT,
MYROW.ACT_THEORY_WEIGHT,
MYROW.PLINE_CODE,
MYROW.PLINE_NAME,
MYROW.PRO_ORDER_NO,
MYROW.BELONG_CODE,
MYROW.BELONG_NAME,
MYROW.STORAGE_NO,
MYROW.LOCATION_NO,
MYROW.LARY_NO,
V_BATHYEAR,
V_TIME,
'#CREATE_NAME#',
V_TIME,
MYROW.GROUD_NO,
MYROW.PRO_PLAN_ID,
MYROW.GX_PLAN_NO,
MYROW.FURNACENO,
MYROW.SEQUENCENO,
MYROW.GPTYPE,
MYROW.CIC,
MYROW.PIC,
MYROW.SIC,
MYROW.DIC,
MYROW.PRODUCCODE,
MYROW.PRODUCNAME,
MYROW.PRO_PLAN_ID_ZG,
MYROW.GX_PLAN_NO_ZG);
V_TOUTSTOCK_SQE := V_TOUTSTOCK_DOC || LPAD(V_COUNT,4,0);
INSERT INTO YDM_GP_OUTLIST(
OUTSTOCK_SQE,
OUTSTOCK_PLAN_NO,
OUTSTOCK_DOC,
OUTSTOCK_TYPE_CODE,
OUTSTOCK_TYPE_NAME,
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,
DIMATER,
ACT_LEN,
FIX_NUM,
FIX_LEN,
ACT_COUNT,
ACT_WEIGHT,
ACT_THEORY_WEIGHT,
PLINE_CODE,
PLINE_NAME,
PRO_ORDER_NO,
BELONG_CODE,
BELONG_NAME,
STORAGE_NO,
LOCATION_NO,
LARY_NO,
BAL_YEAR_MONTH,
OUTSTOCK_TIME,
CREATE_NAME,
CREATE_TIME,
GROUD_NO,
PRO_PLAN_ID,
GX_PLAN_NO,
FURNACENO,
SEQUENCENO,
GPTYPE,
CIC,
PIC,
SIC,
DIC,
PRODUCCODE,
PRODUCNAME,
PRO_PLAN_ID_ZG,
GX_PLAN_NO_ZG)
VALUES(
V_TOUTSTOCK_SQE,
'#HEAT_PLAN_NO#',
V_TOUTSTOCK_DOC,
'800801',
'投料出库',
MYROW.MAT_NO,
MYROW.PRODUCT_FLAG,
MYROW.MAT_STATUS,
MYROW.STOVE_NO,
MYROW.FLAG_STOVE_NO,
MYROW.JUDGE_STOVE_NO,
MYROW.CAST_NO,
MYROW.CCMID,
MYROW.MATERIAL_NO,
MYROW.MATERIAL_NAME,
MYROW.GRADECODE,
MYROW.GRADENAME,
MYROW.STD_CODE,
MYROW.STD_NAME,
MYROW.DIMATER,
MYROW.ACT_LEN,
MYROW.FIX_NUM,
MYROW.FIX_LEN,
MYROW.ACT_COUNT,
MYROW.ACT_WEIGHT,
MYROW.ACT_THEORY_WEIGHT,
MYROW.PLINE_CODE,
MYROW.PLINE_NAME,
MYROW.PRO_ORDER_NO,
MYROW.BELONG_CODE,
MYROW.BELONG_NAME,
MYROW.STORAGE_NO,
MYROW.LOCATION_NO,
MYROW.LARY_NO,
V_BATHYEAR,
V_TIME,
'#CREATE_NAME#',
V_TIME,
MYROW.GROUD_NO,
MYROW.PRO_PLAN_ID,
MYROW.GX_PLAN_NO,
MYROW.FURNACENO,
MYROW.SEQUENCENO,
MYROW.GPTYPE,
MYROW.CIC,
MYROW.PIC,
MYROW.SIC,
MYROW.DIC,
MYROW.PRODUCCODE,
MYROW.PRODUCNAME,
MYROW.PRO_PLAN_ID_ZG,
MYROW.GX_PLAN_NO_ZG);
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;
V_COUNT := V_COUNT +1;
END LOOP;
END;