SELECT T.STORAGE_NAME,T.STORAGE_NO FROM YDM_BS_STORAGE T WHERE T.STORAGE_TYPE_NO IN('800202','800205') AND T.VALIDFLAG = '1'
SELECT T.OUTSTOCK_DOC,
MAX(T.OUTSTOCK_TYPE_CODE) OUTSTOCK_TYPE_CODE,
MAX(T.OUTSTOCK_TYPE_NAME) OUTSTOCK_TYPE_NAME,
T.ICCAR_NO,
T.VEHICLE_NO,
MAX(T.LOT_NO)LOT_NO,
T.STOVE_NO,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.BATCH_GROUD_NO,
T.MATERIAL_NO,
T.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,
T.PRO_ORDER_NO,
T.PLINE_CODE,
T.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,
T.ACT_LEN_MIN,T.ACT_LEN_MAX,
SUM(T.ACT_COUNT) ACT_COUNT,
SUM(T.ACT_WEIGHT) ACT_WEIGHT,
T.BELONG_CODE,
T.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 T1.STORAGE_NAME FROM YDM_BS_STORAGE T1 WHERE T1.STORAGE_NO = T.TAR_STORAGE_NO)TAR_STORAGE_NAME,
DECODE(T.TAR_REC_FLAG, '0', '未接收', '1', '已接收') TAR_REC_FLAG,
MAX(TO_CHAR(T.OUTSTOCK_TIME, 'YYYY-MM-DD HH24:MI:SS')) OUTSTOCK_TIME,
--MAX(T.JUDGE_STD_NAME) JUDGE_STD_NAME,
T.JUDGE_STD_NAME,
T.DATA_SUORCE,
DECODE(T.QCM_STAUS,'00','合格','11','待处理','22','判废')QCM_STAUS,
MAX(T.PRODUCT_FLAG)PRODUCT_FLAG,
MAX(DECODE(T.OUT_TYPE,'0','写卡倒运','1','票据倒运','2','纠错倒运','3','外委倒运','4','装车皮倒运'))OUT_TYPE,
MAX(T.FLAG_STOVE_NO_ZG)FLAG_STOVE_NO_ZG,
T.PIPMEMO,
T.MEMO
FROM YDM_BC_OUTLIST T
WHERE T.OUTSTOCK_DOC = ?
AND T.VALIDFLAG = '1'
AND T.TAR_REC_FLAG = '0'
GROUP BY T.OUTSTOCK_DOC,
T.ICCAR_NO,
T.VEHICLE_NO,
--T.LOT_NO,
T.STOVE_NO,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.BATCH_GROUD_NO,
T.PRO_ORDER_NO,
T.PLINE_CODE,
T.PLINE_NAME,
T.BELONG_CODE,
T.BELONG_NAME,
T.STORAGE_NO,
T.TAR_STORAGE_NO,
T.DATA_SUORCE,
T.QCM_STAUS,
T.TAR_REC_FLAG,
T.JUDGE_STD_NAME,
T.ACT_LEN_MIN,T.ACT_LEN_MAX,
T.MATERIAL_NO,
T.MATERIAL_NAME,
T.PIPMEMO,
T.MEMO
SELECT T.OUTSTOCK_DOC,
MAX(T.OUTSTOCK_TYPE_CODE) OUTSTOCK_TYPE_CODE,
MAX(T.OUTSTOCK_TYPE_NAME) OUTSTOCK_TYPE_NAME,
T.ICCAR_NO,
T.VEHICLE_NO,
MAX(T.LOT_NO)LOT_NO,
T.STOVE_NO,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.BATCH_GROUD_NO,
T.MATERIAL_NO,
T.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,
T.PRO_ORDER_NO,
T.PLINE_CODE,
T.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,
T.ACT_LEN_MIN,T.ACT_LEN_MAX,
SUM(T.ACT_COUNT) ACT_COUNT,
SUM(T.ACT_WEIGHT) ACT_WEIGHT,
T.BELONG_CODE,
T.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 T1.STORAGE_NAME FROM YDM_BS_STORAGE T1 WHERE T1.STORAGE_NO = T.TAR_STORAGE_NO)TAR_STORAGE_NAME,
DECODE(T.TAR_REC_FLAG, '0', '未接收', '1', '已接收') TAR_REC_FLAG,
MAX(TO_CHAR(T.OUTSTOCK_TIME, 'YYYY-MM-DD HH24:MI:SS')) OUTSTOCK_TIME,
--MAX(T.JUDGE_STD_NAME) JUDGE_STD_NAME,
T.JUDGE_STD_NAME,
T.DATA_SUORCE,
DECODE(T.QCM_STAUS,'00','合格','11','待处理','22','判废')QCM_STAUS,
MAX(T.PRODUCT_FLAG)PRODUCT_FLAG,
MAX(DECODE(T.OUT_TYPE,'0','写卡倒运','1','票据倒运','2','纠错倒运','3','外委倒运','4','装车皮倒运'))OUT_TYPE,
MAX(T.FLAG_STOVE_NO_ZG)FLAG_STOVE_NO_ZG,
MAX(T.CREATE_NAME)CREATE_NAME,
MAX(TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS'))CREATE_TIME,
T.PIPMEMO,
T.MEMO
FROM YDM_BC_OUTLIST T
WHERE T.OUTSTOCK_TYPE_CODE = '800803'
AND T.VALIDFLAG = '1'
AND T.TAR_REC_FLAG = '0'
SELECT T.INSTOCK_DOC,
T.ICCAR_NO,
T.VEHICLE_NO,
--T.LOT_NO,
T.STOVE_NO,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.BATCH_GROUD_NO,
T.MATERIAL_NO,
T.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,
T.PRO_ORDER_NO,
T.PLINE_CODE,
T.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,
T.ACT_LEN_MIN,
T.ACT_LEN_MAX,
SUM(T.ACT_COUNT) ACT_COUNT,
SUM(T.ACT_WEIGHT) ACT_WEIGHT,
SUM(T.PONDER_GROSS_WT) PONDER_GROSS_WT,
T.BELONG_CODE,
T.BELONG_NAME,
T.STORAGE_NO,
MAX((SELECT T2.STORAGE_NAME FROM YDM_BS_STORAGE T2 WHERE T2.STORAGE_NO = T.STORAGE_NO))STORAGE_NAME,
T.LOCATION_NO,
(SELECT T1.LOCATION_NAME FROM YDM_BS_LOCATION T1 WHERE T1.LOCATION_NO = T.LOCATION_NO)LOCATION_NAME,
T.LARY_NO,
MAX(TO_CHAR(T.INSTOCK_TIME, 'YYYY-MM-DD HH24:MI:SS')) INSTOCK_TIME,
MAX(TO_CHAR(T.OUTSTOCK_TIME, 'YYYY-MM-DD HH24:MI:SS')) OUTSTOCK_TIME,
MAX(TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS')) CREATE_TIME,
MAX(T.CREATE_NAME)CREATE_NAME，
--MAX(T.JUDGE_STD_NAME) JUDGE_STD_NAME,
T.JUDGE_STD_NAME,
DECODE(T.QCM_STAUS,'00','合格','11','待处理','22','判废')QCM_STAUS,
T.DATA_SUORCE,
MAX(T.OUTSTOCK_DOC)OUTSTOCK_DOC,
MAX(DECODE(T.OUT_TYPE,'0','写卡倒运','1','票据倒运','2','纠错倒运','3','外委倒运','4','装车皮倒运'))OUT_TYPE,
MAX(T.SOURE_CODE)SOURE_CODE,
MAX(T.SOURE_NAME)SOURE_NAME,
MAX(T.FLAG_STOVE_NO_ZG)FLAG_STOVE_NO_ZG,
MAX(T.OUTSTOCK_DOC)OUTSTOCK_DOC,
T.M_BILL_NO
FROM YDM_BC_INLIST T
WHERE T.INSTOCK_TYPE_CODE = '800703'
SELECT T.LOCATION_NAME,T.LOCATION_NO FROM YDM_BS_LOCATION T WHERE T.STORAGE_NO = ? ORDER BY T.LOCATION_NO ASC
SELECT 'IC' || 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 = '800703'
AND T.INSTOCK_DOC LIKE 'IC' || TO_CHAR(SYSDATE, 'YYMMDD') || '_____'
SELECT 'IQ' || 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 = '800709'
AND T.INSTOCK_DOC LIKE 'IQ' || TO_CHAR(SYSDATE, 'YYMMDD') || '_____'
SELECT 'CQ' || 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 = '800809'
AND T.OUTSTOCK_DOC LIKE 'CQ' || TO_CHAR(SYSDATE, 'YYMMDD') || '_____'
0) THEN
SELECT T.PLAN_TRANS_TYPE
INTO V_LOAD_TYPE
FROM YDM_ZC_BILL_M T, YDM_ZC_BILL_C S
WHERE T.BILL_NO = S.BILL_NO
AND S.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND S.BATCH_NO = '#BATCH_NO#'
AND S.GROUP_NO = '#BATCH_GROUD_NO#'
AND S.MAT_NO = MYROW.MAT_NO
AND ROWNUM = 1;
IF (V_LOAD_TYPE = '110501') THEN
UPDATE YDM_ZC_BILL_C T
SET T.STORAGE_NO = '#TAR_STORAGE_NO#',
T.LOCATION_NO = '#TAR_LOCATION_NO#',
T.VSTEL = '#TAR_STORAGE_NO#',
T.VSTEL_DESC = V_STORAGE_NAME
WHERE T.MAT_NO = MYROW.MAT_NO
AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO;
UPDATE YDM_ZC_LOADVEHICLE_MAT T
SET T.STORAGE_NO = '#TAR_STORAGE_NO#',
T.LOCATION_NO = '#TAR_LOCATION_NO#'
WHERE T.MAT_NO = MYROW.MAT_NO
AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO;
UPDATE YDM_ZC_TALLYSHEET_C T
SET T.STORAGE_NO = '#TAR_STORAGE_NO#',
T.LOCATION_NO = '#TAR_LOCATION_NO#'
WHERE T.MAT_NO = MYROW.MAT_NO
AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO;
ELSE
UPDATE YDM_ZC_BILL_C T
SET T.STORAGE_NO = '#TAR_STORAGE_NO#',
T.LOCATION_NO = '#TAR_LOCATION_NO#'
WHERE T.MAT_NO = MYROW.MAT_NO
AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO;
END IF;
END IF;
END IF;
V_INSTOCK_SQE := V_INSTOCK_DOC || LPAD(V_ICOUNT, 4, 0);
INSERT INTO YDM_BC_INLIST
(INSTOCK_SQE,
INSTOCK_DOC,
INSTOCK_TYPE_CODE,
INSTOCK_TYPE_NAME,
ICCAR_NO,
VEHICLE_NO,
MAT_NO,
LOT_NO,
STOVE_NO,
JUDGE_STOVE_NO,
BATCH_NO,
BATCH_GROUD_NO,
MATERIAL_NO,
MATERIAL_NAME,
PRODUCCODE,
PRODUCNAME,
STD_CODE,
STD_NAME,
GRADECODE,
GRADENAME,
STEELCODE,
STEELNAME,
STD_STYLE,
STD_STYLE_DESC,
SPEC_CODE,
SPEC_NAME,
MODEL_CODE,
MODEL_DESC,
PRO_ORDER_NO,
PLINE_CODE,
PLINE_NAME,
ACT_DIMATER,
ACT_HEIGHT,
ACT_LEN,
ACT_LEN_MIN,
ACT_LEN_MAX,
ACT_COUNT,
ACT_WEIGHT,
ACT_THEORY_WEIGHT,
BELONG_CODE,
BELONG_NAME,
STORAGE_NO,
LOCATION_NO,
LARY_NO,
LOC_NO,
MANAGEMENT_NO,
MANAGEMENT_NAME,
INSTOCK_TIME,
IN_BC,
IN_BZ,
CREATE_NAME,
CREATE_TIME,
ORD_PK,
ORD_LN_PK,
ORD_LN_DLY_PK,
DEPARTMENT_CODE,
DEPARTMENT_DESC,
ORDER_NO,
ORDER_SEQ,
DELIVERY_NO,
PRODUCT_FLAG,
MAT_STATUS,
JUDGE_STD_NAME,
JUDGE_STD_CODE,
IN_TIME_F,
BAL_YEAR_MONTH,
QCM_STAUS,
DATA_SUORCE,
OUTSTOCK_DOC,
OUT_TYPE,
SOURE_CODE,
SOURE_NAME,
FLAG_STOVE_NO_ZG,
OUTSTOCK_TIME,
PONDER_GROSS_WT,
M_BILL_NO)
VALUES
(V_INSTOCK_SQE,
V_INSTOCK_DOC,
'800703',
'倒库入库',
MYROW.ICCAR_NO,
MYROW.VEHICLE_NO,
MYROW.MAT_NO,
MYROW.LOT_NO,
MYROW.STOVE_NO,
MYROW.JUDGE_STOVE_NO,
MYROW.BATCH_NO,
MYROW.BATCH_GROUD_NO,
MYROW.MATERIAL_NO,
MYROW.MATERIAL_NAME,
MYROW.PRODUCCODE,
MYROW.PRODUCNAME,
MYROW.STD_CODE,
MYROW.STD_NAME,
MYROW.GRADECODE,
MYROW.GRADENAME,
MYROW.STEELCODE,
MYROW.STEELNAME,
MYROW.STD_STYLE,
MYROW.STD_STYLE_DESC,
MYROW.SPEC_CODE,
MYROW.SPEC_NAME,
MYROW.MODEL_CODE,
MYROW.MODEL_DESC,
MYROW.PRO_ORDER_NO,
MYROW.PLINE_CODE,
MYROW.PLINE_NAME,
MYROW.ACT_DIMATER,
MYROW.ACT_HEIGHT,
MYROW.ACT_LEN,
MYROW.ACT_LEN_MIN,
MYROW.ACT_LEN_MAX,
MYROW.ACT_COUNT,
MYROW.ACT_WEIGHT,
MYROW.ACT_THEORY_WEIGHT,
MYROW.BELONG_CODE,
MYROW.BELONG_NAME,
'#TAR_STORAGE_NO#',
'#TAR_LOCATION_NO#',
'#TAR_LARY_NO#',
'',
'#MANAGEMENT_NO#',
'#MANAGEMENT_NAME#',
V_TIME,
'#IN_BC#',
'#IN_BZ#',
'#CREATE_NAME#',
V_TIME,
MYROW.ORD_PK,
MYROW.ORD_LN_PK,
MYROW.ORD_LN_DLY_PK,
'#DEPARTMENT_CODE#',
'#DEPARTMENT_DESC#',
MYROW.ORDER_NO,
MYROW.ORDER_SEQ,
MYROW.DELIVERY_NO,
MYROW.PRODUCT_FLAG,
MYROW.MAT_STATUS,
MYROW.JUDGE_STD_NAME,
MYROW.JUDGE_STD_CODE,
V_TIME,
'#BAL_YEAR_MONTH#',
MYROW.QCM_STAUS,
MYROW.DATA_SUORCE,
MYROW.OUTSTOCK_DOC,
MYROW.OUT_TYPE,
MYROW.STORAGE_NO,
(SELECT T1.STORAGE_NAME
FROM YDM_BS_STORAGE T1
WHERE T1.STORAGE_NO = MYROW.STORAGE_NO),
MYROW.FLAG_STOVE_NO_ZG,
MYROW.OUTSTOCK_TIME,
MYROW.PONDER_GROSS_WT,
MYROW.M_BILL_NO);
UPDATE YDM_BC_OUTLIST T
SET T.TAR_REC_FLAG = '1',
T.TAR_DEPARTMENT_CODE = '#DEPARTMENT_CODE#',
T.TAR_DEPARTMENT_DESC = '#DEPARTMENT_DESC#',
T.TAR_MANAGEMENT_NO = '#MANAGEMENT_NO#',
T.TAR_MANAGEMENT_NAME = '#MANAGEMENT_NAME#',
T.INSTOCK_TIME = V_TIME,
T.LOAD_PLINE_CODE = '#TAR_STORAGE_NO#',
T.LOAD_PLINE_NAME = V_STORAGE_NAME
WHERE T.OUTSTOCK_SQE = MYROW.OUTSTOCK_SQE;
IF (MYROW.DATA_SUORCE = '0') THEN
UPDATE MAT_BC_M T
SET T.MAT_GOWHERE_CODE = '#TAR_STORAGE_NO#',
T.MAT_GOWHERE_NAME = V_STORAGE_NAME,
T.IN_BC = '#IN_BC#',
T.IN_BZ = '#IN_BZ#'
WHERE T.MAT_NO = MYROW.MAT_NO
AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND T.BATCH_NO = MYROW.BATCH_NO
AND T.BATCH_GROUD_NO = MYROW.BATCH_GROUD_NO;
ELSE
UPDATE MAT_ZC_M T
SET T.IN_BC = '#IN_BC#',
T.IN_BZ = '#IN_BZ#'
WHERE T.MAT_NO = MYROW.MAT_NO
AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND T.BATCH_NO = MYROW.BATCH_NO
AND T.BATCH_GROUD_NO = MYROW.BATCH_GROUD_NO;
END IF;
V_ICOUNT := V_ICOUNT + 1;
END LOOP;
END;
]]>
SELECT COUNT(1) ACOUNT
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#'
AND T.STORAGE_NO = '#STORAGE_NO#'
AND T.BELONG_CODE = '#BELONG_CODE#'
AND NVL(T.MATERIAL_NO, '/') = NVL('#MATERIAL_NO#', '/')
AND NVL(T.PRODUCCODE,'/') = NVL('#PRODUCCODE#','/')
AND NVL(T.STEELCODE,'/') = NVL('#STEELCODE#','/')
AND NVL(T.SPEC_CODE,'/') = NVL('#SPEC_CODE#','/')
AND NVL(T.STD_STYLE, '/') = NVL('#STD_STYLE#','/')
AND NVL(T.MODEL_CODE,'/') = NVL('#MODEL_CODE#','/')
AND NVL(T.STD_CODE, '/') = NVL('#STD_CODE#', '/')
AND NVL(T.JUDGE_STD_NAME, '/') = NVL('#JUDGE_STD_NAME#', '/')
AND NVL(T.ACT_LEN_MIN,'0') = NVL('#ACT_LEN_MIN#','0')
AND NVL(T.ACT_LEN_MAX,'0') = NVL('#ACT_LEN_MAX#','0')
AND T.TAR_REC_FLAG = '1'
DECLARE
V_TIME YDM_BC_INLIST.CREATE_TIME%TYPE := TO_DATE('#CRATE_TIME#',
'YYYY-MM-DD HH24:MI:SS');
V_BATHYEAR YDM_BC_INLIST.BAL_YEAR_MONTH%TYPE := TO_CHAR(SYSDATE,
'YYYYMM');
V_COUNT YDM_BC_OUTLIST.ACT_COUNT%TYPE := NULL;
V_ACT_COUNT YDM_BC_SCRAPOUTLIST.ACT_COUNT%TYPE := NULL;
V_ACT_WEIGHT YDM_BC_SCRAPOUTLIST.ACT_WEIGHT%TYPE := NULL;
V_POSS_WGT YDM_BC_OUTLIST.PONDER_GROSS_WT%TYPE := NULL;
BEGIN
SELECT COUNT(1)
INTO V_COUNT
FROM YDM_BC_SCRAPOUTLIST T
WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#';
IF (V_COUNT = 0) THEN
SELECT SUM(T.ACT_COUNT), SUM(T.ACT_WEIGHT),SUM(T.PONDER_GROSS_WT)
INTO V_ACT_COUNT, V_ACT_WEIGHT,V_POSS_WGT
FROM YDM_BC_OUTLIST T
WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#';
INSERT INTO YDM_BC_SCRAPOUTLIST
(OUTSTOCK_DOC,
OUTSTOCK_TYPE_CODE,
OUTSTOCK_TYPE_NAME,
FLAG_STOVE_NO,
ACT_COUNT,
ACT_WEIGHT,
CRATE_NAME,
CRATE_TIME,
BAL_YEAR_MONTH,
PONDER_GROSS_WT)
VALUES
('#OUTSTOCK_DOC#',
'800803',
'倒库出库',
'000000',
V_ACT_COUNT,
V_ACT_WEIGHT,
'#CRATE_NAME#',
V_TIME,
V_BATHYEAR,
V_POSS_WGT);
FOR MYROW IN (SELECT *
FROM YDM_BC_OUTLIST T
WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'
AND T.QCM_STAUS = '22'
ORDER BY T.MAT_NO ASC) LOOP
INSERT INTO MAT_BC_BACKUP
SELECT *
FROM MAT_BC_M T
WHERE T.MAT_NO = MYROW.MAT_NO
AND T.PLINE_CODE = MYROW.PLINE_CODE;
DELETE FROM MAT_BC_M T
WHERE T.MAT_NO = MYROW.MAT_NO
AND T.PLINE_CODE = MYROW.PLINE_CODE;
DELETE FROM YDM_BC_BUTTRESS S
WHERE S.MAT_NO = MYROW.MAT_NO
AND S.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND S.BATCH_NO = MYROW.BATCH_NO
AND S.BATCH_GROUD_NO = MYROW.BATCH_GROUD_NO;
END LOOP;
END IF;
END;
SELECT COUNT(1) ACOUNT
FROM YDM_BC_INLIST F,
(SELECT T.MAT_NO
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 T.BATCH_NO = '#BATCH_NO#'
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND S.STORAGE_NO = '#STORAGE_NO#'
AND NVL(T.PRODUCCODE,'/') = NVL('#PRODUCCODE#','/')
AND NVL(T.MODEL_CODE,'/') = NVL('#MODEL_CODE#','/')
AND NVL(T.JUDGE_STD_DES, '/') = NVL('#JUDGE_STD_NAME#', '/')
AND NVL(T.ACT_LEN_MIN,'0') = NVL('#ACT_LEN_MIN#','0')
AND NVL(T.ACT_LEN_MAX,'0') = NVL('#ACT_LEN_MAX#','0')
) T1
WHERE F.MAT_NO = T1.MAT_NO
AND F.INSTOCK_DOC = '#INSTOCK_DOC#'
AND F.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND F.BATCH_NO = '#BATCH_NO#'
AND F.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND NVL(F.PRODUCCODE,'/') = NVL('#PRODUCCODE#','/')
AND NVL(F.MODEL_CODE,'/') = NVL('#MODEL_CODE#','/')
AND NVL(F.JUDGE_STD_NAME, '/') = NVL('#JUDGE_STD_NAME#', '/')
AND NVL(F.ACT_LEN_MIN,'0') = NVL('#ACT_LEN_MIN#','0')
AND NVL(F.ACT_LEN_MAX,'0') = NVL('#ACT_LEN_MAX#','0')
SELECT COUNT(1) ACOUNT
FROM YDM_BC_INLIST F,
(SELECT T.MAT_NO
FROM MAT_ZC_M T, YDM_ZC_BUTTRESS S
WHERE T.MAT_NO = S.MAT_NO
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.BATCH_NO = '#BATCH_NO#'
AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND S.STORAGE_NO = '#STORAGE_NO#'
AND NVL(T.PRODUCCODE,'/') = NVL('#PRODUCCODE#','/')
AND NVL(T.MODEL_CODE,'/') = NVL('#MODEL_CODE#','/')
AND NVL(T.JUDGE_STD_NAME, '/') = NVL('#JUDGE_STD_NAME#', '/')
AND NVL(T.ACT_LEN_MIN,'0') = NVL('#ACT_LEN_MIN#','0')
AND NVL(T.ACT_LEN_MAX,'0') = NVL('#ACT_LEN_MAX#','0')
) T1
WHERE F.MAT_NO = T1.MAT_NO
AND F.INSTOCK_DOC = '#INSTOCK_DOC#'
AND F.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND F.BATCH_NO = '#BATCH_NO#'
AND F.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
AND NVL(F.PRODUCCODE,'/') = NVL('#PRODUCCODE#','/')
AND NVL(F.MODEL_CODE,'/') = NVL('#MODEL_CODE#','/')
AND NVL(F.JUDGE_STD_NAME, '/') = NVL('#JUDGE_STD_NAME#', '/')
AND NVL(F.ACT_LEN_MIN,'0') = NVL('#ACT_LEN_MIN#','0')
AND NVL(F.ACT_LEN_MAX,'0') = NVL('#ACT_LEN_MAX#','0')
DECLARE
V_STORAGE_NO_AREA YDM_BS_STORAGE.SEAM_AREA%TYPE := NULL;
V_TARSTORAGE_NO_AREA YDM_BS_STORAGE.SEAM_AREA%TYPE := NULL;
BEGIN
SELECT S.SEAM_AREA
INTO V_TARSTORAGE_NO_AREA
FROM YDM_BC_INLIST T, YDM_BS_STORAGE S
WHERE T.STORAGE_NO = S.STORAGE_NO
AND T.INSTOCK_DOC = '#INSTOCK_DOC#'
AND ROWNUM = 1;
SELECT S.SEAM_AREA
INTO V_STORAGE_NO_AREA
FROM YDM_BC_INLIST T, YDM_BS_STORAGE S
WHERE T.SOURE_CODE = S.STORAGE_NO
AND T.INSTOCK_DOC = '#INSTOCK_DOC#'
AND ROWNUM = 1;
FOR MYROW IN (SELECT T.*
FROM YDM_BC_INLIST T
WHERE T.INSTOCK_DOC = '#INSTOCK_DOC#'
AND T.INSTOCK_TYPE_CODE = '800703'
ORDER BY T.MAT_NO DESC) LOOP
UPDATE YDM_BC_OUTLIST S
SET S.TAR_REC_FLAG = '0'
WHERE S.MAT_NO = MYROW.MAT_NO
AND S.PLINE_CODE = MYROW.PLINE_CODE
AND S.OUTSTOCK_TYPE_CODE = '800803'
AND S.OUTSTOCK_DOC = MYROW.OUTSTOCK_DOC;
--判断数据来源
IF (MYROW.DATA_SUORCE = '0') THEN
UPDATE YDM_BC_BUTTRESS S
SET S.STORAGE_NO = '', S.LOCATION_NO = '', S.LARY_NO = ''
WHERE S.MAT_NO = MYROW.MAT_NO
AND S.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
AND S.BATCH_NO = MYROW.BATCH_NO
AND S.BATCH_GROUD_NO = MYROW.BATCH_GROUD_NO;
IF (V_STORAGE_NO_AREA = 0 AND V_TARSTORAGE_NO_AREA = 1) THEN
DELETE FROM YDM_BC_OUTLIST T
WHERE T.MAT_NO = MYROW.MAT_NO
AND T.LOAD_PLINE_CODE = '120504'
AND T.OUTSTOCK_TYPE_CODE = '800809';
DELETE FROM YDM_BC_INLIST T
WHERE T.MAT_NO = MYROW.MAT_NO
AND T.SOURE_CODE = '120501'
AND T.INSTOCK_TYPE_CODE = '800709';
UPDATE MAT_BC_M T
SET T.BELONG_CODE = '002001001', T.BELONG_NAME = '生产计划部'
WHERE T.MAT_NO = MYROW.MAT_NO;
ELSIF (V_STORAGE_NO_AREA = 1 AND V_TARSTORAGE_NO_AREA = 0) THEN
DELETE FROM YDM_BC_OUTLIST T
WHERE T.MAT_NO = MYROW.MAT_NO
AND T.LOAD_PLINE_CODE = '120501'
AND T.OUTSTOCK_TYPE_CODE = '800809';
DELETE FROM YDM_BC_INLIST T
WHERE T.MAT_NO = MYROW.MAT_NO
AND T.SOURE_CODE = '120504'
AND T.INSTOCK_TYPE_CODE = '800709';
UPDATE MAT_BC_M T
SET T.BELONG_CODE = '002023005', T.BELONG_NAME = '产品制造部'
WHERE T.MAT_NO = MYROW.MAT_NO;
END IF;
IF (MYROW.QCM_STAUS = '22' AND
('#STORAGE_NO#' = 'LFG1' OR '#STORAGE_NO#' = 'LYY1' OR
'#STORAGE_NO#' = 'LFG2')) THEN
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;
DELETE 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,
CREATE_NAME,
CREATE_TIME)
VALUES
(MYROW.MAT_NO,
MYROW.JUDGE_STOVE_NO,
MYROW.BATCH_NO,
MYROW.BATCH_GROUD_NO,
'#CREATE_NAME#',
TO_DATE('#CREATE_TIME#', 'YYYY-MM-DD HH24:MI:SS'));
END IF;
ELSE
UPDATE YDM_ZC_BUTTRESS S
SET S.STORAGE_NO = '', S.LOCATION_NO = '', S.LARY_NO = ''
WHERE S.MAT_NO = MYROW.MAT_NO
AND S.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO;
UPDATE YDM_ZC_BILL_C T
SET T.STORAGE_NO = MYROW.SOURE_CODE
WHERE T.MAT_NO = MYROW.MAT_NO
AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO;
END IF;
DELETE YDM_BC_INLIST T
WHERE T.MAT_NO = MYROW.MAT_NO
AND T.INSTOCK_SQE = MYROW.INSTOCK_SQE
AND T.LOCATION_NO = MYROW.LOCATION_NO
AND T.LARY_NO = MYROW.LARY_NO;
END LOOP;
IF ('#QCM_STAUS#' = '22' AND
('#STORAGE_NO#' = 'LFG1' OR '#STORAGE_NO#' = 'LYY1' OR
'#STORAGE_NO#' = 'LFG2')) THEN
DELETE FROM YDM_BC_SCRAPOUTLIST T
WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#';
END IF;
END;
SELECT TO_CHAR(NVL(S.SUTTLE,0),'FM999999990.000')SUTTLE FROM TGJL_USER.V_CX_MEASURE_T S WHERE S.MATCHID = '#OUTSTOCK_DOC#'
SELECT T.MAT_NO
FROM YDM_BC_OUTLIST T
LEFT JOIN MAT_BC_M S
ON T.MAT_NO = S.MAT_NO
WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'
AND S.PLINE_CODE = '#PLINE_CODE#'
AND S.JUGDE_APPLY_CODE IS NULL
SELECT SUM(T.ACT_COUNT)ACOUNT FROM YDM_BC_OUTLIST T WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'
DECLARE
BEGIN
UPDATE YDM_BC_OUTLIST T
SET T.PONDER_GROSS_WT = '#PONDER_GROSS_WT#'
WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'
AND T.MAT_NO = '#MAT_NO#';
UPDATE MAT_BC_M T
SET T.PONDER_GROSS_WT = '#PONDER_GROSS_WT#',
T.ACT_WEIGHT = '#PONDER_GROSS_WT#'
WHERE T.MAT_NO = '#MAT_NO#';
END;
DECLARE
BEGIN
UPDATE YDM_BC_OUTLIST T
SET T.PONDER_GROSS_WT = '#PONDER_GROSS_WT#'
WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'
AND T.MAT_NO = '#MAT_NO#';
UPDATE YDM_BC_INLIST T
SET T.PONDER_GROSS_WT = '#PONDER_GROSS_WT#'
WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'
--AND T.INSTOCK_DOC = '#INSTOCK_DOC#'
AND T.MAT_NO = '#MAT_NO#';
UPDATE MAT_BC_M T
SET T.PONDER_GROSS_WT = '#PONDER_GROSS_WT#',
T.ACT_WEIGHT = '#PONDER_GROSS_WT#'
WHERE T.MAT_NO = '#MAT_NO#';
END;
UPDATE YDM_BC_SCRAPOUTLIST T SET T.PONDER_GROSS_WT = '#PONDER_GROSS_WT#' WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'
SELECT T.IS_CRANE_UNLOADING FROM YDM_BS_STORAGE T WHERE T.STORAGE_NO = ?
SELECT S.SEAM_AREA,T.TAR_STORAGE_NO
FROM YDM_BC_OUTLIST T, YDM_BS_STORAGE S
WHERE T.STORAGE_NO = S.STORAGE_NO
AND T.OUTSTOCK_DOC = ?
AND ROWNUM = 1