SELECT
DECODE(T.PRODUCT_FLAG,'801401','在制品','801402','成品','801403','商品')PRODUCT_FLAG,
DECODE(T.MAT_STATUS,'80150101','材料产出待判','80150102','材料产出(已判定)','80150103','材料已编计划','80150104','材料待处理','80150105','材料加工','80150201','材料产出待判（未综合判定）','80150202','材料产出（已综合判定）')MAT_STATUS,
T.STOVE_NO,
T.LOT_NO,
T.FLAG_STOVE_NO_ZG,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.BATCH_GROUD_NO,
T.PRO_PLAN_ID_NEXT,
T.GX_PLAN_NO_NEXT,
T.MATERIAL_NO,
T.MATERIAL_NAME,
T.MATERIAL_NO OLD_MATERIAL_NO,
T.MATERIAL_NAME OLD_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,
T.PRO_ORDER_ID,
T.PROCESS_CDOE,
T.PROCESS_DESC,
T.REDCHONG_FLAG,
MAX(TO_CHAR(T.INSTOCK_TIME,'YYYY-MM-DD'))INSTOCK_TIME,
MAX(TO_CHAR(T.JUDGE_RESULT_TIME,'YYYY-MM-DD'))JUDGE_RESULT_TIME,
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,
SUM(T.ACT_WEIGHT)ACT_WEIGHT,
T.BELONG_CODE,
T.BELONG_NAME,
MAX(T.BAL_YEAR_MONTH)BAL_YEAR_MONTH,
MAX(T.TARGET)TARGET,
DECODE(T.QCM_STAUS,'00','合格','11','待处理','22','判废','33','判废待审核')QCM_STAUS,
T.GX_PLAN_NO,
MAX(T.PRO_ORDER_NO)PRO_ORDER_NO,
MAX(T.ORDER_NO||'/'||T.ORDER_SEQ) ORDER_NO,
MAX(T.JUDGE_RESULT_CODE)SPEC_RESULT_CODE,
MAX((SELECT S.BASENAME FROM COM_BASE_INFO S WHERE S.BASECODE = T.JUDGE_RESULT_CODE))JUDGE_RESULT_CODE,
MAX(T.JUDGE_TOLRESULT)JUDGE_TOLRESULT,
(SELECT S1.STORAGE_NAME FROM YDM_BS_STORAGE S1 WHERE S1.STORAGE_NO = S.STORAGE_NO)STORAGE_NAME,
S.STORAGE_NO,
MAX(T.NEXT_PROCESS_CDOE)NEXT_PROCESS_CDOE,
MAX(T.NEXT_PROCESS_DESC)NEXT_PROCESS_DESC,
MAX(T.CRAF_NO)CRAF_NO,
MAX(T.JUDGE_STD_DES)JUDGE_STD_DES,
T.JUDGE_RESULT,
T.MEMO,
T.MEMO AS UPDATE_MEMO,
MAX(CASE
WHEN T.NEXT_PROCESS_CDOE = 'E' THEN
(SELECT T1.ORDER_NO || '/' || T1.ORDER_SEQ
FROM PLN_ORDER_DBK_S T1
WHERE T1.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
AND T1.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
WHEN T.NEXT_PROCESS_CDOE = 'F' THEN
(SELECT T2.ORDER_NO || '/' || T2.ORDER_SEQ
FROM PLN_ORDER_RCL_S T2
WHERE T2.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
AND T2.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
WHEN T.NEXT_PROCESS_CDOE = 'G' THEN
(SELECT T3.ORDER_NO || '/' || T3.ORDER_SEQ
FROM PLN_ORDER_JGX_S T3
WHERE T3.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
AND T3.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
ELSE
NULL
END) ORDER_NO_NEXT,
MAX(DECODE(T.INSTANCY_FLAG,'0','否','1','是'))INSTANCY_FLAG,
DECODE(T.SCRAP_FRIM_FLAG,'0','未申请','1','已申请','2','已审核')SCRAP_FRIM_FLAG,
T.SCRAP_REASON,
DECODE(T.HANGING_FLAG,'0','否','1','是')HANGING_FLAG,
MAX(T.REASON3) REASON,
MAX(T.BELONG_CODE_RESPONSE) BELONG_CODE_RESPONSE,
MAX(T.BELONG_NAME_RESPONSE) BELONG_NAME_RESPONSE,
MAX((SELECT
MAX(D.DELVRY_EDATE) DELVRY_EDATE
FROM
SLM_ORDER_HEAD H
LEFT JOIN SLM_ORDER_LINE L ON H.ORD_PK = L.ORD_PK
AND L.VALIDFLAG = '1'
LEFT JOIN SLM_ORDER_LINE_DELIVERY D ON L.ORD_LN_PK = D.ORD_LN_PK
WHERE H.VALIDFLAG = '1'
AND H.ORDER_NO = T.ORDER_NO
AND L.ORDER_SEQ = T.ORDER_SEQ
GROUP BY H.ORDER_NO,L.ORDER_SEQ)) DELVRY_EDATE
FROM MAT_BC_M T LEFT JOIN YDM_BC_BUTTRESS S
ON T.MAT_NO = S.MAT_NO
WHERE 1 = 1
AND T.PRODUCT_FLAG = '801401'
#BAL_YEAR_MONTH#
#JUDGE_STOVE_NO#
#BELONG_CODE#
#PLINE_CODE#
#GROUP#
UNION ALL
SELECT
DECODE(T.PRODUCT_FLAG,'801401','在制品','801402','成品','801403','商品')PRODUCT_FLAG,
DECODE(T.MAT_STATUS,'80150101','材料产出待判','80150102','材料产出(已判定)','80150103','材料已编计划','80150104','材料待处理','80150105','材料加工','80150201','材料产出待判（未综合判定）','80150202','材料产出（已综合判定）')MAT_STATUS,
T.STOVE_NO,
T.LOT_NO,
T.FLAG_STOVE_NO_ZG,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.BATCH_GROUD_NO,
T.PRO_PLAN_ID_NEXT,
T.GX_PLAN_NO_NEXT,
T.MATERIAL_NO,
T.MATERIAL_NAME,
T.MATERIAL_NO OLD_MATERIAL_NO,
T.MATERIAL_NAME OLD_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,
T.PRO_ORDER_ID,
T.PROCESS_CDOE,
T.PROCESS_DESC,
T.REDCHONG_FLAG,
MAX(TO_CHAR(T.INSTOCK_TIME,'YYYY-MM-DD'))INSTOCK_TIME,
MAX(TO_CHAR(T.JUDGE_RESULT_TIME,'YYYY-MM-DD'))JUDGE_RESULT_TIME,
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,
SUM(T.ACT_WEIGHT)ACT_WEIGHT,
T.BELONG_CODE,
T.BELONG_NAME,
MAX(T.BAL_YEAR_MONTH)BAL_YEAR_MONTH,
MAX(T.TARGET)TARGET,
DECODE(T.QCM_STAUS,'00','合格','11','待处理','22','判废','33','判废待审核')QCM_STAUS,
T.GX_PLAN_NO,
MAX(T.PRO_ORDER_NO)PRO_ORDER_NO,
MAX(T.ORDER_NO||'/'||T.ORDER_SEQ) ORDER_NO,
MAX(T.JUDGE_RESULT_CODE)SPEC_RESULT_CODE,
MAX((SELECT S.BASENAME FROM COM_BASE_INFO S WHERE S.BASECODE = T.JUDGE_RESULT_CODE))JUDGE_RESULT_CODE,
MAX(T.JUDGE_TOLRESULT)JUDGE_TOLRESULT,
(SELECT S1.STORAGE_NAME FROM YDM_BS_STORAGE S1 WHERE S1.STORAGE_NO = S.STORAGE_NO)STORAGE_NAME,
S.STORAGE_NO,
MAX(T.NEXT_PROCESS_CDOE)NEXT_PROCESS_CDOE,
MAX(T.NEXT_PROCESS_DESC)NEXT_PROCESS_DESC,
MAX(T.CRAF_NO)CRAF_NO,
MAX(T.JUDGE_STD_DES)JUDGE_STD_DES,
T.JUDGE_RESULT,
T.MEMO,
T.MEMO AS UPDATE_MEMO,
MAX(CASE
WHEN T.NEXT_PROCESS_CDOE = 'E' THEN
(SELECT T1.ORDER_NO || '/' || T1.ORDER_SEQ
FROM PLN_ORDER_DBK_S T1
WHERE T1.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
AND T1.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
WHEN T.NEXT_PROCESS_CDOE = 'F' THEN
(SELECT T2.ORDER_NO || '/' || T2.ORDER_SEQ
FROM PLN_ORDER_RCL_S T2
WHERE T2.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
AND T2.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
WHEN T.NEXT_PROCESS_CDOE = 'G' THEN
(SELECT T3.ORDER_NO || '/' || T3.ORDER_SEQ
FROM PLN_ORDER_JGX_S T3
WHERE T3.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
AND T3.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
ELSE
NULL
END) ORDER_NO_NEXT,
MAX(DECODE(T.INSTANCY_FLAG,'0','否','1','是'))INSTANCY_FLAG,
DECODE(T.SCRAP_FRIM_FLAG,'0','未申请','1','已申请','2','已审核')SCRAP_FRIM_FLAG,
T.SCRAP_REASON,
DECODE(T.HANGING_FLAG,'0','否','1','是')HANGING_FLAG,
MAX(T.REASON3) REASON,
MAX(T.BELONG_CODE_RESPONSE) BELONG_CODE_RESPONSE,
MAX(T.BELONG_NAME_RESPONSE) BELONG_NAME_RESPONSE,
MAX((SELECT
MAX(D.DELVRY_EDATE) DELVRY_EDATE
FROM
SLM_ORDER_HEAD H
LEFT JOIN SLM_ORDER_LINE L ON H.ORD_PK = L.ORD_PK
AND L.VALIDFLAG = '1'
LEFT JOIN SLM_ORDER_LINE_DELIVERY D ON L.ORD_LN_PK = D.ORD_LN_PK
WHERE H.VALIDFLAG = '1'
AND H.ORDER_NO = T.ORDER_NO
AND L.ORDER_SEQ = T.ORDER_SEQ
GROUP BY H.ORDER_NO,L.ORDER_SEQ)) DELVRY_EDATE
FROM MAT_BC_M T LEFT JOIN YDM_BC_BUTTRESS S
ON T.MAT_NO = S.MAT_NO
WHERE 1 = 1
AND T.PRODUCT_FLAG = '801401'
AND T.PLINE_CODE IN ('100101','100102')
#BAL_YEAR_MONTH#
#JUDGE_STOVE_NO#
#BELONG_CODE#
#GROUP#
UNION ALL
SELECT
DECODE(T.PRODUCT_FLAG,'801401','在制品','801402','成品','801403','商品')PRODUCT_FLAG,
DECODE(T.MAT_STATUS,'80150101','材料产出待判','80150102','材料产出(已判定)','80150103','材料已编计划','80150104','材料待处理','80150105','材料加工','80150201','材料产出待判（未综合判定）','80150202','材料产出（已综合判定）')MAT_STATUS,
T.STOVE_NO,
T.LOT_NO,
T.FLAG_STOVE_NO_ZG,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.BATCH_GROUD_NO,
T.PRO_PLAN_ID_NEXT,
T.GX_PLAN_NO_NEXT,
MAX(T.MATERIAL_NO) MATERIAL_NO,
MAX(T.MATERIAL_NAME) MATERIAL_NAME,
MAX(T.MATERIAL_NO) OLD_MATERIAL_NO,
MAX(T.MATERIAL_NAME) OLD_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,
T.PRO_ORDER_ID,
T.PROCESS_CDOE,
T.PROCESS_DESC,
T.REDCHONG_FLAG,
MAX(TO_CHAR(T.INSTOCK_TIME,'YYYY-MM-DD'))INSTOCK_TIME,
MAX(TO_CHAR(T.JUDGE_RESULT_TIME,'YYYY-MM-DD'))JUDGE_RESULT_TIME,
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,
SUM(T.ACT_WEIGHT)ACT_WEIGHT,
T.BELONG_CODE,
T.BELONG_NAME,
MAX(T.BAL_YEAR_MONTH)BAL_YEAR_MONTH,
MAX(T.TARGET)TARGET,
DECODE(T.QCM_STAUS,'00','合格','11','待处理','22','判废')QCM_STAUS,
T.GX_PLAN_NO,
MAX(T.PRO_ORDER_NO)PRO_ORDER_NO,
MAX(T.ORDER_NO||'/'||T.ORDER_SEQ) ORDER_NO,
MAX(T.JUDGE_RESULT_CODE)SPEC_RESULT_CODE,
MAX((SELECT S.BASENAME FROM COM_BASE_INFO S WHERE S.BASECODE = T.JUDGE_RESULT_CODE))JUDGE_RESULT_CODE,
MAX(T.JUDGE_TOLRESULT)JUDGE_TOLRESULT,
(SELECT S1.STORAGE_NAME FROM YDM_BS_STORAGE S1 WHERE S1.STORAGE_NO = S.STORAGE_NO)STORAGE_NAME,
S.STORAGE_NO,
MAX(T.NEXT_PROCESS_CDOE)NEXT_PROCESS_CDOE,
MAX(T.NEXT_PROCESS_DESC)NEXT_PROCESS_DESC,
MAX(T.CRAF_NO)CRAF_NO,
MAX(T.JUDGE_STD_DES)JUDGE_STD_DES,
T.JUDGE_RESULT,
T.MEMO,
T.MEMO AS UPDATE_MEMO,
MAX(CASE
WHEN T.NEXT_PROCESS_CDOE = 'E' THEN
(SELECT T1.ORDER_NO || '/' || T1.ORDER_SEQ
FROM PLN_ORDER_DBK_S T1
WHERE T1.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
AND T1.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
WHEN T.NEXT_PROCESS_CDOE = 'F' THEN
(SELECT T2.ORDER_NO || '/' || T2.ORDER_SEQ
FROM PLN_ORDER_RCL_S T2
WHERE T2.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
AND T2.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
WHEN T.NEXT_PROCESS_CDOE = 'G' THEN
(SELECT T3.ORDER_NO || '/' || T3.ORDER_SEQ
FROM PLN_ORDER_JGX_S T3
WHERE T3.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
AND T3.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
ELSE
NULL
END )ORDER_NO_NEXT,
MAX(DECODE(T.INSTANCY_FLAG,'0','否','1','是'))INSTANCY_FLAG,
DECODE(T.SCRAP_FRIM_FLAG,'0','未申请','1','已申请','2','已审核')SCRAP_FRIM_FLAG,
T.SCRAP_REASON,
DECODE(T.HANGING_FLAG,'0','否','1','是')HANGING_FLAG,
MAX(T.REASON3) REASON,
MAX(T.BELONG_CODE_RESPONSE) BELONG_CODE_RESPONSE,
MAX(T.BELONG_NAME_RESPONSE) BELONG_NAME_RESPONSE,
MAX((SELECT
MAX(D.DELVRY_EDATE) DELVRY_EDATE
FROM
SLM_ORDER_HEAD H
LEFT JOIN SLM_ORDER_LINE L ON H.ORD_PK = L.ORD_PK
AND L.VALIDFLAG = '1'
LEFT JOIN SLM_ORDER_LINE_DELIVERY D ON L.ORD_LN_PK = D.ORD_LN_PK
WHERE H.VALIDFLAG = '1'
AND H.ORDER_NO = T.ORDER_NO
AND L.ORDER_SEQ = T.ORDER_SEQ
GROUP BY H.ORDER_NO,L.ORDER_SEQ)) DELVRY_EDATE
FROM MAT_BC_M T LEFT JOIN YDM_BC_BUTTRESS S
ON T.MAT_NO = S.MAT_NO
WHERE 1 = 1
AND T.PRODUCT_FLAG = '801402'
#BAL_YEAR_MONTH#
#JUDGE_STOVE_NO#
#BELONG_CODE#
#PLINE_CODE#
#GROUP#
SELECT * FROM YDM_BC_SCRAPOUTLIST T WHERE 1 = 1
SELECT S.STORAGE_NAME,S.STORAGE_NO FROM YDM_BS_STORAGE S WHERE S.VALIDFLAG = '1'
SELECT S.STORAGE_NAME,S.STORAGE_NO FROM YDM_BS_STORAGE S WHERE S.VALIDFLAG = '1' AND S.STORAGE_TYPE_NO IN('800201','800205')
DECLARE
BEGIN
FOR MYROW IN (SELECT T.PRODUCT_FLAG,
T.MAT_STATUS,
T.STOVE_NO,
T.LOT_NO,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.BATCH_GROUD_NO,
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,
T.PROCESS_CDOE,
T.PROCESS_DESC,
MAX(TO_CHAR(T.INSTOCK_TIME, 'YYYY-MM-DD')) INSTOCK_TIME,
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,
SUM(T.ACT_WEIGHT) ACT_WEIGHT,
T.BELONG_CODE,
T.BELONG_NAME,
MAX(T.PRO_ORDER_NO) PRO_ORDER_NO,
S.STORAGE_NO,
(SELECT S1.STORAGE_NAME
FROM YDM_BS_STORAGE S1
WHERE S1.STORAGE_NO = S.STORAGE_NO) STORAGE_NAME,
MAX(T.JUDGE_STD_DES) JUDGE_STD_DES
FROM MAT_BC_M T
LEFT JOIN YDM_BC_BUTTRESS S ON T.MAT_NO = S.MAT_NO
WHERE T.BELONG_CODE = '002001001'
AND T.JUDGE_RESULT_CODE IS NOT NULL
GROUP BY T.PRODUCT_FLAG,
T.MAT_STATUS,
T.STOVE_NO,
T.LOT_NO,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.BATCH_GROUD_NO,
T.BELONG_CODE,
T.BELONG_NAME,
S.STORAGE_NO,
T.PROCESS_CDOE,
T.PROCESS_DESC) LOOP
INSERT INTO YDM_BC_INITIAL
(JUDGE_STOVE_NO,
BATCH_NO,
BATCH_GROUD_NO,
PRODUCT_FLAG,
MAT_STATUS,
MATERIAL_NO,
MATERIAL_NAME,
PRODUCCODE,
PRODUCNAME,
STEELCODE,
STEELNAME,
SPEC_CODE,
SPEC_NAME,
MODEL_CODE,
MODEL_DESC,
STD_CODE,
STD_NAME,
STD_STYLE,
STD_STYLE_DESC,
DIMATER,
HEIGHT,
LEN,
LEN_MIN,
LEN_MAX,
ACT_COUNT,
ACT_WEIGHT,
ACT_THEORY_WEIGHT,
STORAGE_NO,
STORAGE_NAME,
CREATE_NAME,
CREATE_TIME,
BAL_YEAR_MONTH,
GRADECODE,
GRADENAME,
PLINE_CODE,
PLINE_NAME,
INSTOCK_TIME,
BELONG_CODE,
BELONG_NAME,
LOT_NO,
STOVE_NO,
JUDGE_STD_DES)
VALUES
(MYROW.JUDGE_STOVE_NO,
MYROW.BATCH_NO,
MYROW.BATCH_GROUD_NO,
MYROW.PRODUCT_FLAG,
MYROW.MAT_STATUS,
MYROW.MATERIAL_NO,
MYROW.MATERIAL_NAME,
MYROW.PRODUCCODE,
MYROW.PRODUCNAME,
MYROW.STEELCODE,
MYROW.STEELNAME,
MYROW.SPEC_CODE,
MYROW.SPEC_NAME,
MYROW.MODEL_CODE,
MYROW.MODEL_DESC,
MYROW.STD_CODE,
MYROW.STD_NAME,
MYROW.STD_STYLE,
MYROW.STD_STYLE_DESC,
MYROW.ACT_DIMATER,
MYROW.ACT_HEIGHT,
MYROW.ACT_LEN,
MYROW.ACT_LEN_MIN,
MYROW.ACT_LEN_MAX,
MYROW.ACT_COUNT,
MYROW.ACT_WEIGHT,
'',
MYROW.STORAGE_NO,
MYROW.STORAGE_NAME,
'admin',
SYSDATE,
'201805',
MYROW.GRADECODE,
MYROW.GRADENAME,
MYROW.PLINE_CODE,
MYROW.PLINE_NAME,
SYSDATE,
MYROW.BELONG_CODE,
MYROW.BELONG_NAME,
MYROW.LOT_NO,
MYROW.STOVE_NO,
MYROW.JUDGE_STD_DES);
END LOOP;
END;
SELECT 'OP' || TO_CHAR(SYSDATE, 'YYMMDD') ||
LPAD(NVL(MAX(SUBSTR(T.OUTSTOCK_DOC, 9)), 0) + 1, 5, 0) OUTSTOCK_DOC
FROM YDM_BC_OUTLIST T
WHERE T.OUTSTOCK_TYPE_CODE = '800808'
AND T.OUTSTOCK_DOC LIKE 'OP' || TO_CHAR(SYSDATE, 'YYMMDD') || '_____'
SELECT 'IP' || 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 = '800706'
AND T.INSTOCK_DOC LIKE 'IP' || TO_CHAR(SYSDATE, 'YYMMDD') || '_____'
SELECT NVL(SUM(T.ACT_COUNT), 0) ACOUNT
FROM MAT_BC_M T, YDM_BC_BUTTRESS S
WHERE T.MAT_NO = S.MAT_NO
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND NVL(T.BATCH_NO, '/') = NVL('#BATCH_NO#', '/')
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND T.QCM_STAUS = '22'
AND T.BELONG_CODE = '#BELONG_CODE#'
AND T.PLINE_CODE = '#PLINE_CODE#'
AND T.SCRAP_FRIM_FLAG = '2'
INSERT INTO YDM_BC_SCRAPOUTLIST(
OUTSTOCK_DOC,
OUTSTOCK_TYPE_CODE,
OUTSTOCK_TYPE_NAME,
FLAG_STOVE_NO,
ACT_COUNT,
ACT_WEIGHT,
CRATE_NAME,
CRATE_TIME)
VALUES(
'#OUTSTOCK_DOC#',
'#OUTSTOCK_TYPE_CODE#',
'#OUTSTOCK_TYPE_NAME#',
'#FLAG_STOVE_NO#',
'#ACT_COUNT#',
'#ACT_WEIGHT#',
'#CRATE_NAME#',
TO_DATE('#CRATE_TIME#','YYYY-MM-DD HH24:MI:SS'))
SELECT
T.OUTSTOCK_DOC,
MAX(T.OUTSTOCK_TYPE_CODE)OUTSTOCK_TYPE_CODE,
MAX(T.OUTSTOCK_TYPE_NAME)OUTSTOCK_TYPE_NAME,
T.LOT_NO,
T.STOVE_NO,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.BATCH_GROUD_NO,
MAX(T.MATERIAL_NO)MATERIAL_NO,
MAX(T.MATERIAL_NAME)MATERIAL_NAME,
MAX(T.PRODUCCODE)PRODUCCODE,
MAX(T.PRODUCNAME)PRODUCNAME,
MAX(T.STD_CODE)STD_CODE,
MAX(T.STD_NAME)STD_NAME,
MAX(T.GRADECODE)GRADECODE,
MAX(T.GRADENAME)GRADENAME,
MAX(T.STEELCODE)STEELCODE,
MAX(T.STEELNAME)STEELNAME,
MAX(T.STD_STYLE)STD_STYLE,
MAX(T.STD_STYLE_DESC)STD_STYLE_DESC,
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.PRO_ORDER_NO)PRO_ORDER_NO,
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)ACT_LEN,
MAX(T.ACT_LEN_MIN)ACT_LEN_MIN,
MAX(T.ACT_LEN_MAX)ACT_LEN_MAX,
SUM(T.ACT_COUNT)ACT_COUNT,
SUM(T.ACT_WEIGHT)ACT_WEIGHT,
SUM(T.ACT_THEORY_WEIGHT)ACT_THEORY_WEIGHT,
MAX(T.BELONG_CODE)BELONG_CODE,
MAX(T.BELONG_NAME)BELONG_NAME,
T.STORAGE_NO,
(SELECT T1.STORAGE_NAME FROM YDM_BS_STORAGE T1 WHERE T1.STORAGE_NO = T.STORAGE_NO)STORAGE_NAME,
T.TAR_STORAGE_NO,
(SELECT T2.STORAGE_NAME FROM YDM_BS_STORAGE T2 WHERE T2.STORAGE_NO = T.TAR_STORAGE_NO)TAR_STORAGE_NAME,
MAX(TO_CHAR(T.OUTSTOCK_TIME, 'YYYY-MM-DD HH24:MI:SS')) OUTSTOCK_TIME,
MAX(TO_CHAR(T.INSTOCK_TIME, 'YYYY-MM-DD HH24:MI:SS')) INSTOCK_TIME,
MAX(T.JUDGE_STD_NAME)JUDGE_STD_NAME,
T.LOAD_PLINE_CODE,
T.LOAD_PLINE_NAME,
T.BELONG_CODE_RESPONSE,
T.BELONG_NAME_RESPONSE
FROM YDM_BC_OUTLIST T
WHERE T.OUTSTOCK_DOC = ?
GROUP BY T.OUTSTOCK_DOC,T.LOT_NO,
T.STOVE_NO,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.BATCH_GROUD_NO,
T.LOAD_PLINE_CODE,
T.LOAD_PLINE_NAME,
T.BELONG_CODE_RESPONSE,
T.BELONG_NAME_RESPONSE,
T.STORAGE_NO,
T.TAR_STORAGE_NO
SELECT *
FROM (SELECT T.DEPARTMENT_DESC AS DEPARTMENT_DESC_P,
T.DEPARTMENT_CODE AS DEPARTMENT_CODE_P
FROM COM_BASE_PLINE T
WHERE T.VALIDFLAG = '1'
GROUP BY T.DEPARTMENT_CODE, T.DEPARTMENT_DESC
UNION ALL
SELECT '待定' DEPARTMENT_DESC_P, '0' DEPARTMENT_CODE_P
FROM DUAL
UNION ALL
SELECT '供方责任' DEPARTMENT_DESC_P, '1' DEPARTMENT_CODE_P
FROM DUAL
UNION ALL
SELECT '新品/试验品/难干品种' DEPARTMENT_DESC_P, '2' DEPARTMENT_CODE_P
FROM DUAL
UNION ALL
SELECT '生产物流部' DEPARTMENT_DESC_P, '3' DEPARTMENT_CODE_P
FROM DUAL
)
ORDER BY DEPARTMENT_CODE_P ASC
DECLARE
BEGIN
FOR MYROW IN (SELECT *
FROM YDM_BC_OUTLIST T
WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'
ORDER BY T.MAT_NO ASC) LOOP
INSERT INTO MAT_BC_M
SELECT *
FROM MAT_BC_BACKUP T
WHERE T.MAT_NO = MYROW.MAT_NO
AND T.PLINE_CODE = MYROW.PLINE_CODE;
INSERT INTO YDM_BC_BUTTRESS
(MAT_NO,
JUDGE_STOVE_NO,
BATCH_NO,
BATCH_GROUD_NO,
STORAGE_NO,
LOCATION_NO,
CREATE_NAME,
CREATE_TIME)
VALUES
(MYROW.MAT_NO,
MYROW.Judge_Stove_No,
MYROW.BATCH_NO,
MYROW.BATCH_GROUD_NO,
MYROW.STORAGE_NO,
MYROW.STORAGE_NO || '10101',
'#CRATE_NAME#',
MYROW.INSTOCK_TIME);
DELETE FROM MAT_BC_BACKUP T WHERE T.MAT_NO = MYROW.MAT_NO
AND T.PLINE_CODE = MYROW.PLINE_CODE;
DELETE FROM YDM_BC_OUTLIST T
WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'
AND T.MAT_NO = MYROW.MAT_NO;
END LOOP;
DELETE FROM YDM_BC_SCRAPOUTLIST T
WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#';
END;
DECLARE
V_ACOUNT NUMBER:=0;
V_WGT NUMBER:=0;
BEGIN
FOR MYROW IN (SELECT *
FROM YDM_BC_OUTLIST T
WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
ORDER BY T.MAT_NO ASC) LOOP
INSERT INTO MAT_BC_M
SELECT *
FROM MAT_BC_BACKUP T
WHERE T.MAT_NO = MYROW.MAT_NO
AND T.PLINE_CODE = MYROW.PLINE_CODE;
INSERT INTO YDM_BC_BUTTRESS
(MAT_NO,
JUDGE_STOVE_NO,
BATCH_NO,
BATCH_GROUD_NO,
STORAGE_NO,
LOCATION_NO,
CREATE_NAME,
CREATE_TIME)
VALUES
(MYROW.MAT_NO,
MYROW.Judge_Stove_No,
MYROW.BATCH_NO,
MYROW.BATCH_GROUD_NO,
MYROW.STORAGE_NO,
MYROW.STORAGE_NO || '10101',
'#CREATE_NAME#',
MYROW.INSTOCK_TIME);
DELETE FROM MAT_BC_BACKUP T WHERE T.MAT_NO = MYROW.MAT_NO
AND T.PLINE_CODE = MYROW.PLINE_CODE;
DELETE FROM YDM_BC_OUTLIST T
WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'
AND T.MAT_NO = MYROW.MAT_NO;
V_ACOUNT := V_ACOUNT + 1;
V_WGT := V_WGT + TO_NUMBER(MYROW.ACT_WEIGHT);
END LOOP;
UPDATE YDM_BC_SCRAPOUTLIST T SET T.ACT_COUNT = TO_NUMBER(T.ACT_COUNT)-V_ACOUNT,
T.ACT_WEIGHT = TO_NUMBER(T.ACT_WEIGHT)-V_WGT
WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#';
END;