SELECT T1.BELONG_CODE, T1.BELONG_NAME, T1.LOT_NO, T1.STOVE_NO, T1.JUDGE_STOVE_NO, T1.BATCH_NO, T1.BATCH_GROUD_NO, T1.PLINE_CODE, T1.PLINE_NAME, T1.PRODUCT_FLAG, T1.MAT_STATUS, T1.SPEC_CODE, T1.SPEC_NAME, T1.ACT_DIMATER, T1.ACT_HEIGHT, T1.ACT_LEN_MIN, T1.ACT_LEN_MAX, T1.PRODUCCODE, T1.PRODUCNAME, T1.MATERIAL_NO, T1.MATERIAL_NAME, T1.STEELCODE, T1.STEELNAME, T1.STD_CODE, T1.STD_NAME, T1.ORDER_NO, T1.ORDER_SEQ, T1.ORDER_SEQ_NO, T2.STORAGE_NO, T1.MODEL_CODE, T1.MODEL_DESC, T1.STD_STYLE, T1.STD_STYLE_DESC, T1.LOCK_FLAG, T1.MNG_LOCK_FLAG, T1.MAT_NO, T1.MEASURING_SEQ, T1.ACT_LEN, T1.ACT_COUNT, T1.ACT_WEIGHT, T1.ZBS_FLAG, T1.PRO_NO, T1.PRO_ORDER_NO, T1.FIX_NUM FROM MAT_ZC_M T1, YDM_ZC_BUTTRESS T2 WHERE T1.MAT_NO = T2.MAT_NO AND T1.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T1.BATCH_NO = '#BATCH_NO#' AND T1.BATCH_GROUD_NO = '#BATCH_GROUD_NO#' AND NVL(T1.ACT_LEN_MIN,'0') = NVL('#ACT_LEN_MIN#','0') AND NVL(T1.ACT_LEN_MAX,'0') = NVL('#ACT_LEN_MAX#','0') AND T1.BELONG_CODE = '#BELONG_CODE#' AND T1.MAT_STATUS = '#MAT_STATUS#' AND NVL(T1.FIX_NUM,'0') = NVL('#FIX_NUM#','0') AND NVL(T1.PIPMEMO,'/') = NVL('#PIPMEMO#','/') AND NVL(T2.STORAGE_NO,'/') = NVL('#STORAGE_NO#','/') AND NVL(T2.LOCATION_NO,'/') = NVL('#LOCATION_NO#','/') AND T1.PRODUCT_FLAG = '801402' AND T1.LOCK_FLAG = '0' AND T1.MNG_LOCK_FLAG = '0' ORDER BY T1.MAT_NO ASC SELECT T1.BELONG_CODE, T1.BELONG_NAME, T1.LOT_NO, T1.STOVE_NO, T1.JUDGE_STOVE_NO, T1.BATCH_NO, T1.BATCH_GROUD_NO, T1.PLINE_CODE, T1.PLINE_NAME, T1.PRODUCT_FLAG, T1.MAT_STATUS, T1.SPEC_CODE, T1.SPEC_NAME, T1.ACT_DIMATER, T1.ACT_HEIGHT, T1.ACT_LEN_MIN, T1.ACT_LEN_MAX, T1.PRODUCCODE, T1.PRODUCNAME, T1.MATERIAL_NO, T1.MATERIAL_NAME, T1.STEELCODE, T1.STEELNAME, T1.STD_CODE, T1.STD_NAME, T1.ORDER_NO, T1.ORDER_SEQ, T1.ORDER_SEQ_NO, T2.STORAGE_NO, T1.MODEL_CODE, T1.MODEL_DESC, T1.STD_STYLE, T1.STD_STYLE_DESC, T1.LOCK_FLAG, T1.MNG_LOCK_FLAG, T1.MAT_NO, T1.MEASURING_SEQ, T1.ACT_LEN, T1.ACT_COUNT, T1.ACT_WEIGHT, T1.ZBS_FLAG, T1.PRO_NO, T1.FIX_NUM FROM MAT_ZC_M T1, YDM_ZC_BUTTRESS T2 WHERE T1.MAT_NO = T2.MAT_NO AND T1.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T1.BATCH_NO = '#BATCH_NO#' AND T1.BATCH_GROUD_NO = '#BATCH_GROUD_NO#' AND NVL(T1.ACT_LEN_MIN,'0') = NVL('#ACT_LEN_MIN#','0') AND NVL(T1.ACT_LEN_MAX,'0') = NVL('#ACT_LEN_MAX#','0') AND T1.BELONG_CODE = '#BELONG_CODE#' AND NVL(T1.FIX_NUM,'0') = NVL('#FIX_NUM#','0') AND NVL(T1.PIPMEMO,'/') = NVL('#PIPMEMO#','/') AND NVL(T2.STORAGE_NO,'/') = NVL('#STORAGE_NO#','/') AND NVL(T2.LOCATION_NO,'/') = NVL('#LOCATION_NO#','/') AND T1.PRODUCT_FLAG = '801403' AND T1.MAT_STATUS = '80150301' AND T1.LOCK_FLAG = '0' AND T1.MNG_LOCK_FLAG = '0' ORDER BY T1.MAT_NO ASC DECLARE V_TIME SLM_ORDER_LINE_DELIVERY.CREATE_TIME%TYPE := SYSDATE; V_DELIVERY_NO SLM_ORDER_LINE_DELIVERY.DELIVERY_NO%TYPE := NULL; V_ORD_LN_DLY_PK SLM_ORDER_LINE_DELIVERY.ORD_LN_DLY_PK%TYPE := NULL; BEGIN SELECT LPAD(MAX(T.DELIVERY_NO)+1,3,'0') INTO V_DELIVERY_NO FROM SLM_ORDER_LINE_DELIVERY T WHERE T.ORD_PK = ? AND T.ORD_LN_PK = ?; FOR MYROW IN (SELECT T.* FROM SLM_ORDER_LINE_DELIVERY T WHERE T.ORD_PK = ? AND T.ORD_LN_PK = ? AND T.ORD_LN_DLY_PK = ?) LOOP V_ORD_LN_DLY_PK := MYROW.ORD_LN_PK|| LPAD(V_DELIVERY_NO, 3, '0'); INSERT INTO SLM_ORDER_LINE_DELIVERY (EXTRA_FLAG, IS_ADD, ORD_PK, ORD_LN_PK, ORD_LN_DLY_PK, DELIVERY_NO, DELVRY_BDATE, DELVRY_EDATE, DELVRY_QTY, ORDER_UNIT, WGT_ESTMT, ENSU_TOTL_LEN, RECEIV_NO, RECEIV_NM, DELVRY_ADDR, AGENCY_FL, RECEIV_ADDR, TRANSIT_TYP, TRANSIT_PLAN, TRANSIT_MNY, BE_DELIVERY_STATUS, BE_OBJ_STS_OP, DELIVERY_STATUS, OBJ_STS_OP, VALIDFLAG, CREATE_NAME, CREATE_TIME, UPDATE_NAME, UPDATE_TIME, DELETE_NAME, DELETE_TIME, ISLOCK, PICKUP_FLAG) VALUES (MYROW.EXTRA_FLAG, '2', MYROW.ORD_PK, MYROW.ORD_LN_PK, V_ORD_LN_DLY_PK, V_DELIVERY_NO, MYROW.DELVRY_BDATE, MYROW.DELVRY_EDATE, ?, MYROW.ORDER_UNIT, ?, MYROW.ENSU_TOTL_LEN, MYROW.RECEIV_NO, MYROW.RECEIV_NM, MYROW.DELVRY_ADDR, MYROW.AGENCY_FL, MYROW.RECEIV_ADDR, MYROW.TRANSIT_TYP, MYROW.TRANSIT_PLAN, MYROW.TRANSIT_MNY, MYROW.BE_DELIVERY_STATUS, '脱单补量', MYROW.DELIVERY_STATUS, '脱单补量', '1', ?, V_TIME, '', '', '', '', '0', MYROW.PICKUP_FLAG); END LOOP; END; UPDATE MAT_ZC_TRACK T SET T.FILL_QUANTITY_FLAG = '1' WHERE T.JUDGE_STOVE_NO = ? AND T.BATCH_NO = ? AND T.BATCH_GROUD_NO = ? SELECT T.FILL_QUANTITY_FLAG FROM MAT_ZC_TRACK T WHERE T.ORD_PK = ? AND T.ORD_LN_PK = ? AND T.ORD_LN_DLY_PK = ? UPDATE MAT_ZC_M T1 SET T1.ORDER_NO = '#ORDER_NO#', T1.ORDER_SEQ = '#ORDER_SEQ#', T1.ORDER_SEQ_NO = '#ORDER_SEQ_NO#', T1.PRODUCT_FLAG = '801403', T1.MAT_STATUS = '80150301', T1.ORD_PK = '#ORD_PK#', T1.ORD_LN_PK = '#ORD_LN_PK#', T1.ORD_LN_DLY_PK = '#ORD_LN_DLY_PK#', T1.BELONG_CODE = '#BELONG_CODE#', T1.BELONG_NAME = '#BELONG_NAME#', T1.STD_CODE = '#STD_CODE#', T1.STD_NAME = '#STD_NAME#', T1.PRO_NO = '#PRO_NO#', T1.LOCK_LIKU = '#LOCK_LIKU#', T1.LOCK_FLAG = '#LOCK_FLAG#', T1.LOCK_ID = '#LOCK_ID#' WHERE T1.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T1.BATCH_NO = '#BATCH_NO#' AND T1.BATCH_GROUD_NO = '#BATCH_GROUD_NO#' AND T1.MAT_NO IN (SELECT DISTINCT (T1.MAT_NO) FROM YDM_ZC_BUTTRESS T2 WHERE T2.STORAGE_NO = '#STORAGE_NO#') AND T1.MAT_NO='#MAT_NO#' '80150201' AND T1.INSTOCK_DOC IS NULL AND T1.ORD_LN_PK IS NULL order by T1.MAT_NO desc) T1 where rownum < ? ]]> DELETE FROM MAT_ZC_TRACK T WHERE T.MAT_NO = ? SELECT SUM(T.ACT_COUNT) ACT_COUNT, SUM(T.ACT_WEIGHT) ACT_WEIGHT, SUM(T.ACT_LEN) ACT_LEN FROM MAT_ZC_TRACK T WHERE T.ORD_LN_DLY_PK = ? SELECT T1.BELONG_CODE, T1.BELONG_NAME, T1.JUDGE_STOVE_NO, T1.BATCH_NO, T1.BATCH_GROUD_NO, T1.EVENT_ID, T1.EVENT_DESC, T1.PRODUCT_FLAG, T1.MAT_STATUS, T1.SPEC_CODE, T1.SPEC_NAME, T1.ACT_LEN_MIN, T1.ACT_LEN_MAX, T1.PRODUCCODE, T1.PRODUCNAME, T1.MATERIAL_NO, T1.MATERIAL_NAME, T1.STEELCODE, T1.STEELNAME, T1.STD_CODE, T1.STD_NAME, T1.ORDER_NO, T1.ORDER_SEQ, T1.ORDER_SEQ_NO, T1.ORD_PK, T1.ORD_LN_PK, T1.ORD_LN_DLY_PK, T1.PRO_ORDER_NO, T1.PRO_ORDER_ID, TO_CHAR(T1.CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS') CREATE_TIME, T1.CREATE_NAME, T1.MODEL_CODE, T1.MODEL_DESC, T1.STD_STYLE, T1.STD_STYLE_DESC, T1.MEMO, T1.Mat_No FROM MAT_ZC_TRACK T1 where NVL(T1.ORD_LN_DLY_PK,'/') = NVL(?,'/') AND T1.ORD_LN_PK = ? AND T1.ORD_PK = ? AND T1.JUDGE_STOVE_NO = ? AND T1.BATCH_NO = ? AND T1.Batch_Groud_No = ? AND T1.EVENT_ID = '900101' SELECT T.PRODUCT_FLAG FROM MAT_ZC_M T, YDM_ZC_BUTTRESS S WHERE T.MAT_NO = S.MAT_NO AND T.MAT_NO = ? SELECT SUM(T.ACT_COUNT)ACOUNT 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 NVL(T.PRODUCCODE,'/') = NVL('#PRODUCCODE#','/') AND NVL(T.STEELCODE,'/') = NVL('#STEELCODE#','/') AND NVL(T.SPEC_CODE,'/') = NVL('#SPEC_CODE#','/') AND NVL(T.MODEL_CODE,'/') = NVL('#MODEL_CODE#','/') AND NVL(T.STD_STYLE,'/') = NVL('#STD_STYLE#','/') AND NVL(T.ACT_LEN_MIN,'/') = NVL('#ACT_LEN_MIN#','/') AND NVL(T.ACT_LEN_MAX,'/') = NVL('#ACT_LEN_MAX#','/') AND T.MAT_STATUS = '#MAT_STATUS#' AND NVL(S.STORAGE_NO,'/') = NVL('#STORAGE_NO#','/') AND NVL(S.LOCATION_NO,'/') = NVL('#LOCATION_NO#','/') AND T.ORD_PK = '#ORD_PK#' AND T.ORD_LN_PK = '#ORD_LN_PK#' AND NVL(T.ORD_LN_DLY_PK,'/') = NVL('#ORD_LN_DLY_PK#','/') AND NVL(T.PRO_NO,'/') = NVL('#PRO_NO#','/') AND NVL(T.IN_MOLD,'/')= NVL('#IN_MOLD#','/') AND NVL(T.JUDGE_STD_NAME,'/') = NVL('#JUDGE_STD_NAME#','/') AND NVL(T.STD_NAME,'/') = NVL('#STD_NAME#','/') AND NVL(T.MEMO,'/') = NVL('#MEMO#','/') AND NVL(T.PIPMEMO,'/') = NVL('#PIPMEMO#','/') AND T.BELONG_CODE = '#BELONG_CODE#' AND NVL(T.FIX_NUM,'0') = NVL('#FIX_NUM#','0') paramList', '物料主表关键字(group)实体类集合', 'String monomerExplain', '脱单说明', 'String isRolling', '是否补轧', 'String userName', '操作人', 'String deptId', '操作人部门ID', '', '', '', '', MYROW.MAT_NO, MYROW.PRODUCT_FLAG, MYROW.MAT_STATUS, 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.STEELCODE, MYROW.STEELNAME, MYROW.STD_CODE, MYROW.STD_NAME, MYROW.STD_STYLE, MYROW.STD_STYLE_DESC, MYROW.SPEC_CODE, MYROW.SPEC_NAME, MYROW.MODEL_CODE, MYROW.MODEL_DESC, MYROW.ACT_LEN, MYROW.ACT_LEN_MIN, MYROW.ACT_LEN_MAX, MYROW.ACT_COUNT, MYROW.ACT_WEIGHT, MYROW.ACT_THEORY_WEIGHT, MYROW.PRO_ORDER_NO, MYROW.PRO_ORDER_ID, MYROW.PRO_ORDER_NO1, MYROW.PRO_ORDER_ID1, MYROW.ORD_PK, MYROW.ORD_LN_PK, MYROW.ORD_LN_DLY_PK, MYROW.ORDER_NO, MYROW.ORDER_SEQ, MYROW.ORDER_SEQ_NO, MYROW.OLD_ORD_PK, MYROW.OLD_ORD_LN_PK, MYROW.OLD_ORD_LN_DLY_PK, MYROW.OLD_ORDER_NO, MYROW.OLD_ORDER_SEQ, MYROW.OLD_ORDER_SEQ_NO, MYROW.BELONG_CODE, MYROW.BELONG_NAME, ?, ?, V_TIME, ?, MYROW.IN_MOLD, MYROW.SUPPLY_UNIT_CODE, MYROW.SUPPLY_UNIT); UPDATE MAT_ZC_M T1 SET T1.ORDER_NO = '', T1.ORDER_SEQ = '', T1.ORDER_SEQ_NO = '', T1.PRODUCT_FLAG = '801402', T1.MAT_STATUS = '80150204', T1.ORD_PK = '', T1.ORD_LN_PK = '', T1.ORD_LN_DLY_PK = '', T1.OLD_ORDER_NO = T1.ORDER_NO, T1.OLD_ORDER_SEQ = T1.ORDER_SEQ, T1.OLD_ORDER_SEQ_NO = T1.ORDER_SEQ_NO, T1.OLD_ORD_PK = T1.ORD_PK, T1.OLD_ORD_LN_PK = T1.ORD_LN_PK, T1.OLD_ORD_LN_DLY_PK = T1.ORD_LN_DLY_PK, T1.OLD_MATERIAL_NO = T1.MATERIAL_NO, T1.OLD_MATERIAL_NAME = T1.MATERIAL_NAME, T1.LOCK_LIKU = '0', T1.LOCK_FLAG = '0', T1.FINISHPRO_MOLD = ? WHERE T1.MAT_NO = MYROW.MAT_NO; V_OCOUNT := V_OCOUNT + 1; END LOOP; UPDATE PROCESS_ORDER_M T SET T.ELIM_NUM = TO_NUMBER(NVL(T.ELIM_NUM,0)) + TO_NUMBER(V_ELIM_NUM), T.ELIM_WGT = TO_NUMBER(NVL(T.ELIM_WGT,0)) + TO_NUMBER(V_ELIM_WGT), T.ELIM_LEN = TO_NUMBER(NVL(T.ELIM_LEN,0)) + TO_NUMBER(V_ELIM_LEN) WHERE ORD_LN_DLY_PK = ?; END; ]]> UPDATE PROCESS_ORDER_M T SET T.ELIM_NUM = TO_NUMBER(NVL(T.ELIM_NUM,0)) + TO_NUMBER(?), T.ELIM_WGT = TO_NUMBER(NVL(T.ELIM_WGT,0)) + TO_NUMBER(?), T.ELIM_LEN = TO_NUMBER(NVL(T.ELIM_LEN,0)) + TO_NUMBER(?) WHERE ORD_LN_DLY_PK = ? paramList', '物料主表关键字(group)实体类集合', 'String monomerExplain', '脱单说明', 'String isRolling', '是否补轧', 'String userName', '操作人', 'String deptId', '操作人部门ID', '', '', '', '', MYROW.MAT_NO, MYROW.PRODUCT_FLAG, MYROW.MAT_STATUS, 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.STEELCODE, MYROW.STEELNAME, MYROW.STD_CODE, MYROW.STD_NAME, MYROW.STD_STYLE, MYROW.STD_STYLE_DESC, MYROW.SPEC_CODE, MYROW.SPEC_NAME, MYROW.MODEL_CODE, MYROW.MODEL_DESC, MYROW.ACT_LEN, MYROW.ACT_LEN_MIN, MYROW.ACT_LEN_MAX, MYROW.ACT_COUNT, MYROW.ACT_WEIGHT, MYROW.ACT_THEORY_WEIGHT, MYROW.PRO_ORDER_NO, MYROW.PRO_ORDER_ID, MYROW.PRO_ORDER_NO1, MYROW.PRO_ORDER_ID1, MYROW.ORD_PK, MYROW.ORD_LN_PK, MYROW.ORD_LN_DLY_PK, MYROW.ORDER_NO, MYROW.ORDER_SEQ, MYROW.ORDER_SEQ_NO, MYROW.OLD_ORD_PK, MYROW.OLD_ORD_LN_PK, MYROW.OLD_ORD_LN_DLY_PK, MYROW.OLD_ORDER_NO, MYROW.OLD_ORDER_SEQ, MYROW.OLD_ORDER_SEQ_NO, MYROW.BELONG_CODE, MYROW.BELONG_NAME, '#MEMO#', '#CREATE_NAME#', V_TIME, '#FINISHPRO_MOLD#', MYROW.IN_MOLD, MYROW.SUPPLY_UNIT_CODE, MYROW.SUPPLY_UNIT); UPDATE MAT_ZC_M T1 SET T1.ORDER_NO = '', T1.ORDER_SEQ = '', T1.ORDER_SEQ_NO = '', T1.PRODUCT_FLAG = '801402', T1.MAT_STATUS = '80150204', T1.ORD_PK = '', T1.ORD_LN_PK = '', T1.ORD_LN_DLY_PK = '', T1.OLD_ORDER_NO = T1.ORDER_NO, T1.OLD_ORDER_SEQ = T1.ORDER_SEQ, T1.OLD_ORDER_SEQ_NO = T1.ORDER_SEQ_NO, T1.OLD_ORD_PK = T1.ORD_PK, T1.OLD_ORD_LN_PK = T1.ORD_LN_PK, T1.OLD_ORD_LN_DLY_PK = T1.ORD_LN_DLY_PK, T1.OLD_MATERIAL_NO = T1.MATERIAL_NO, T1.OLD_MATERIAL_NAME = T1.MATERIAL_NAME, T1.LOCK_LIKU = '0', T1.FINISHPRO_MOLD = '#FINISHPRO_MOLD#' WHERE T1.MAT_NO = MYROW.MAT_NO; V_OCOUNT := V_OCOUNT + 1; END LOOP; END; ]]> UPDATE MAT_ZC_M T1 SET T1.ORDER_NO = '', T1.ORDER_SEQ = '', T1.ORDER_SEQ_NO = '', T1.PRODUCT_FLAG = '801402', T1.MAT_STATUS = '80150204', T1.ORD_PK = '', T1.ORD_LN_PK = '', T1.ORD_LN_DLY_PK = '', T1.OLD_ORDER_NO = T1.ORDER_NO, T1.OLD_ORDER_SEQ = T1.ORDER_SEQ, T1.OLD_ORDER_SEQ_NO = T1.ORDER_SEQ_NO, T1.OLD_ORD_PK = T1.ORD_PK, T1.OLD_ORD_LN_PK = T1.ORD_LN_PK, T1.OLD_ORD_LN_DLY_PK = T1.ORD_LN_DLY_PK, T1.OLD_MATERIAL_NO = T1.MATERIAL_NO, T1.OLD_MATERIAL_NAME = T1.MATERIAL_NAME, T1.LOCK_LIKU = '0', T1.FINISHPRO_MOLD = '#FINISHPRO_MOLD#' WHERE T1.MAT_NO = '#MAT_NO#' SELECT ? || ? || TO_CHAR(SYSDATE,'YYMMDD') || LPAD(SUBSTR(NVL(MAX(T.PRO_NO), '00000'), -5, 5) + 1, 5, '0') AS PRO_NO FROM MAT_ZC_TRACK T WHERE T.PRO_NO LIKE ? || ? || TO_CHAR(SYSDATE,'YYMMDD')||'_____' UPDATE MAT_ZC_M T SET T.LOCK_LIKU = '0' WHERE T.PRO_NO = ? UPDATE MAT_ZC_M T SET T.LOCK_LIKU = '0', (ACT_LEN_MIN, ACT_LEN_MAX ) = (SELECT LEN_MIN, LEN_MAX FROM SLM_ORDER_LINE WHERE ORD_LN_PK = t.ORD_LN_PK AND VALIDFLAG = '1') WHERE T.PRO_NO = ? UPDATE MAT_ZC_M T SET T.LOCK_LIKU = '0' WHERE T.PRO_NO = ? SELECT COUNT(1)ACOUNT FROM CRAFT_ORD_DESIGN T WHERE T.ORD_LN_PK = ? AND T.VALIDFLAG = '1' SELECT T.PROCESS_CODE FROM COM_BASE_PLINE T WHERE T.PLINE_CODE = '#PLINE_CODE#' SELECT TO_CHAR(SYSDATE, 'YYYYMMDD') || LPAD(NVL(MAX(SUBSTR(T.JUDGE_ID, 9)), 0) + 1, 5, 0) JUDGE_ID FROM QCM_LK_JUDGE_CHANGE T WHERE T.JUDGE_ID LIKE TO_CHAR(SYSDATE, 'YYYYMMDD') || '_____' INSERT INTO QCM_LK_JUDGE_CHANGE( JUDGE_ID, JUDGE_STOVE_NO, BATCH_NO, BATCH_GROUD_NO, ACT_COUNT, ACT_WEIGHT, MATERIAL_NO, MATERIAL_NAME, PRODUCCODE, PRODUCNAME, STEELCODE, STEELNAME, SPEC_CODE, SPEC_NAME, MODEL_CODE, MODEL_DESC, STD_STYLE, STD_STYLE_DESC, ACT_DIMATER, ACT_HEIGHT, ACT_LEN, ACT_LEN_MIN, ACT_LEN_MAX, ORDER_NO, ORDER_SEQ, ORDER_SEQ_NO, ORD_PK, ORD_LN_PK, ORD_LN_DLY_PK, PLINE_CODE, PLINE_NAME, LOT_NO, STOVE_NO, CREATE_NAME, CREATE_TIME, IS_VD, PRO_ORDER_NO, MANAGE_NO, MANAGE_MENT, STD_CODE, STD_NAME, GRADECODE, GRADENAME, JUDGE_STD_NAME, CRAFT_NO, CRAFT_SEQ, CRAFT_PATH, OLD_CIC, SUPPLY_UNIT_CODE, SUPPLY_UNIT) VALUES( '#JUDGE_ID#', '#JUDGE_STOVE_NO#', '#BATCH_NO#', '#BATCH_GROUD_NO#', '#ACT_COUNT#', '#ACT_WEIGHT#', '#MATERIAL_NO#', '#MATERIAL_NAME#', '#PRODUCCODE#', '#PRODUCNAME#', '#STEELCODE#', '#STEELNAME#', '#SPEC_CODE#', '#SPEC_NAME#', '#MODEL_CODE#', '#MODEL_DESC#', '#STD_STYLE#', '#STD_STYLE_DESC#', '#ACT_DIMATER#', '#ACT_HEIGHT#', '#ACT_LEN#', '#ACT_LEN_MIN#', '#ACT_LEN_MAX#', '#ORDER_NO#', '#ORDER_SEQ#', '#ORDER_SEQ_NO#', '#ORD_PK#', '#ORD_LN_PK#', '#ORD_LN_DLY_PK#', '#PLINE_CODE#', '#PLINE_NAME#', '#LOT_NO#', '#STOVE_NO#', '#CREATE_NAME#', SYSDATE, '#IS_VD#', '#PRO_ORDER_NO#', '#MANAGE_NO#', '#MANAGE_MENT#', '#STD_CODE#', '#STD_NAME#', '#GRADECODE#', '#GRADENAME#', '#JUDGE_STD_NAME#', '#CRAFT_NO#', '#CRAFT_SEQ#', '#CRAFT_PATH#', '#OLD_CIC#', '#SUPPLY_UNIT_CODE#', '#SUPPLY_UNIT#') SELECT 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.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_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, 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, MAX(T.BELONG_CODE) BELONG_CODE, MAX(T.BELONG_NAME) BELONG_NAME, MAX(T.JUDGE_STD_NAME)JUDGE_STD_NAME FROM MAT_ZC_M T, YDM_ZC_BUTTRESS T2 WHERE T.MAT_NO = T2.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 T.BELONG_CODE = '#NEWBELONG_CODE#' AND T.LOCK_ID = '#LOCK_ID#' AND T.LOCK_FLAG = '2' GROUP BY T.LOT_NO, T.STOVE_NO, T.JUDGE_STOVE_NO, T.BATCH_NO, T.BATCH_GROUD_NO, T.PRO_ORDER_NO SELECT COUNT(1) ACOUNT FROM STL_VDS_OPTINFO T WHERE T.STOVE_NO = '#STOVE_NO#' SELECT T5.UNIT_CODE_PROCESS,T5.UNIT_DESC_PROCESS,T3.CRAFT_NO,T3.CRAFT_SEQ,T3.CRAFT_PATH FROM CRAFT_ORD_DESIGN T3, CRAFT_ORD_DESIGN_MSC T4, COM_MSC T5 WHERE T3.ORD_LN_PK = T4.ORD_LN_PK AND T3.VALIDFLAG = '1' AND T4.DESGIN_KEY = T3.DESGIN_KEY AND T5.MSC = T4.MSC AND T3.ORD_LN_PK = '#ORD_LN_PK#' SELECT '002023005003' UNIT_CODE_PROCESS,'工艺科' UNIT_DESC_PROCESS,T3.CRAFT_NO,T3.CRAFT_SEQ,T3.CRAFT_PATH FROM CRAFT_ORD_DESIGN T3, CRAFT_ORD_DESIGN_MSC T4 WHERE T3.ORD_LN_PK = T4.ORD_LN_PK AND T3.VALIDFLAG = '1' AND T4.DESGIN_KEY = T3.DESGIN_KEY AND T3.ORD_LN_PK = '#ORD_LN_PK#' SELECT T.PRO_ORDER_NO FROM MAT_ZC_M T WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.BATCH_NO = '#BATCH_NO#' AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#' AND T.BELONG_CODE = '#BELONG_CODE#' AND ROWNUM = 1 SELECT S1.WHOLE_BACKLOG FROM PLN_ORDER_ZG_S S,CRAFT_ORD_DESIGN_MSC_PL S1 WHERE S.WHOLE_BACKLOG_DESC = S1.WHOLE_BACKLOG_DESC AND S.ORDER_NO || '/' || S.ORDER_SEQ = '#ORDER_NO#' AND ROWNUM = 1 SELECT S1.WHOLE_BACKLOG FROM PLN_ORDER_ZG_S S,CRAFT_ORD_DESIGN_MSC_PL S1 WHERE S.WHOLE_BACKLOG_DESC = S1.WHOLE_BACKLOG_DESC AND S.ORDER_NO = '#ORDER_NO#' AND S.ORDER_SEQ = '#ORDER_SEQ#' AND S.ORD_LN_DLY_PK = '#ORD_LN_DLY_PK#' AND ROWNUM = 1 SELECT T.* FROM MAT_ZC_M T WHERE T.MAT_NO = ? SELECT T.CIC FROM QCM_ZG_JUGDE_APPLY T WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.BATCH_NO = '#BATCH_NO#' AND T.TARGET = 'A' AND T.IS_FLAG = '0' AND T.IS_ALL_SCRAP = '0' AND ROWNUM = 1 DECLARE V_INSTOCK_SEQ YDM_ZC_INLIST.INSTOCK_SQE%TYPE := NULL; V_INCOUNT NUMBER := 1; V_OUTSTOCK_SQE YDM_ZC_OUTLIST.OUTSTOCK_SQE%TYPE := NULL; V_OUTCOUNT NUMBER := 1; BEGIN FOR MYROW IN (SELECT T.*, S.STORAGE_NO, S.LOCATION_NO, S.LARY_NO, S.LOC_NO, S.STORAGE_ATTR, S.STORAGE_ATTR_NAME, S.STORAGE_TYPE_NO, S.STORAGE_TYPE_NAME FROM MAT_ZC_M T, YDM_ZC_BUTTRESS S WHERE T.MAT_NO = S.MAT_NO AND T.MAT_NO = '#MAT_NO#' AND T.BELONG_CODE IN ('100101', '100103', '100102','100105') ) LOOP V_INSTOCK_SEQ := '#INSTOCK_DOC#' || LPAD(V_INCOUNT, 4, 0); V_OUTSTOCK_SQE := '#OUTSTOCK_DOC#' || LPAD(V_OUTCOUNT, 4, 0); INSERT INTO YDM_ZC_INLIST (INSTOCK_SQE, INSTOCK_DOC, INSTOCK_TYPE_CODE, INSTOCK_TYPE_NAME, MAT_NO, LOT_NO, STOVE_NO, JUDGE_STOVE_NO, BATCH_NO, BATCH_GROUD_NO, PRODUCCODE, PRODUCNAME, STD_CODE, STD_NAME, STEELCODE, STEELNAME, STD_STYLE, STD_STYLE_DESC, SPEC_CODE, SPEC_NAME, MODEL_CODE, MODEL_DESC, ACT_DIMATER, ACT_HEIGHT, ACT_LEN_MIN, ACT_LEN_MAX, ACT_COUNT, ACT_WEIGHT, BELONG_CODE, BELONG_NAME, STORAGE_NO, MEMO, CREATE_NAME, CREATE_TIME, PRODUCT_FLAG, MAT_STATUS, INSTOCK_TIME, ACT_LEN, JUDGE_STD_NAME, PLINE_CODE, PLINE_NAME, GRADECODE, GRADENAME, BAL_YEAR_MONTH, IN_TIME_F, PIPMEMO, MAT_ORIGIN_CODE, MAT_ORIGIN_NAME, SOURE_CODE, SOURE_NAME, MATERIAL_NO, MATERIAL_NAME, IN_MOLD, PACK_NO, PRO_ORDER_NO) VALUES ('#INSTOCK_SQE#', '#INSTOCK_DOC#', '800712', '转所属权入库', MYROW.MAT_NO, MYROW.LOT_NO, MYROW.STOVE_NO, MYROW.JUDGE_STOVE_NO, MYROW.BATCH_NO, MYROW.BATCH_GROUD_NO, MYROW.PRODUCCODE, MYROW.PRODUCNAME, MYROW.STD_CODE, MYROW.STD_NAME, MYROW.STEELCODE, MYROW.STEELNAME, MYROW.STD_STYLE, MYROW.STD_STYLE_DESC, MYROW.SPEC_CODE, MYROW.SPEC_NAME, MYROW.MODEL_CODE, MYROW.MODEL_DESC, MYROW.ACT_DIMATER, MYROW.ACT_HEIGHT, MYROW.ACT_LEN_MIN, MYROW.ACT_LEN_MAX, MYROW.ACT_COUNT, MYROW.ACT_WEIGHT, '#NEWBELONG_CODE#', '#NEWBELONG_NAME#', MYROW.STORAGE_NO, MYROW.MEMO, '#CREATE_NAME#', TO_DATE('#CREATE_TIME#', 'YYYY-MM-DD HH24:MI:SS'), MYROW.PRODUCT_FLAG, MYROW.MAT_STATUS, TO_DATE('#CREATE_TIME#', 'YYYY-MM-DD HH24:MI:SS'), MYROW.ACT_LEN, MYROW.JUDGE_STD_NAME, MYROW.PLINE_CODE, MYROW.PLINE_NAME, MYROW.GRADECODE, MYROW.GRADENAME, '#BAL_YEAR_MONTH#', MYROW.INSTOCK_TIME, MYROW.PIPMEMO, '801302', '产线', MYROW.BELONG_CODE, MYROW.BELONG_NAME, MYROW.MATERIAL_NO, MYROW.MATERIAL_NAME, MYROW.IN_MOLD, MYROW.PACK_NO, MYROW.PRO_ORDER_NO); INSERT INTO YDM_ZC_INLIST_XS (INSTOCK_SQE, INSTOCK_DOC, INSTOCK_TYPE_CODE, INSTOCK_TYPE_NAME, MAT_NO, LOT_NO, STOVE_NO, JUDGE_STOVE_NO, BATCH_NO, BATCH_GROUD_NO, PRODUCCODE, PRODUCNAME, STD_CODE, STD_NAME, STEELCODE, STEELNAME, STD_STYLE, STD_STYLE_DESC, SPEC_CODE, SPEC_NAME, MODEL_CODE, MODEL_DESC, ACT_DIMATER, ACT_HEIGHT, ACT_LEN_MIN, ACT_LEN_MAX, ACT_COUNT, ACT_WEIGHT, BELONG_CODE, BELONG_NAME, STORAGE_NO, MEMO, CREATE_NAME, CREATE_TIME, PRODUCT_FLAG, MAT_STATUS, INSTOCK_TIME, ACT_LEN, JUDGE_STD_NAME, PLINE_CODE, PLINE_NAME, GRADECODE, GRADENAME, BAL_YEAR_MONTH, IN_TIME_F, PIPMEMO, MAT_ORIGIN_CODE, MAT_ORIGIN_NAME, SOURE_CODE, SOURE_NAME, MATERIAL_NO, MATERIAL_NAME, IN_MOLD, PACK_NO, PRO_ORDER_NO) VALUES ('#INSTOCK_SQE#', '#INSTOCK_DOC#', '800712', '转所属权入库', MYROW.MAT_NO, MYROW.LOT_NO, MYROW.STOVE_NO, MYROW.JUDGE_STOVE_NO, MYROW.BATCH_NO, MYROW.BATCH_GROUD_NO, MYROW.PRODUCCODE, MYROW.PRODUCNAME, MYROW.STD_CODE, MYROW.STD_NAME, MYROW.STEELCODE, MYROW.STEELNAME, MYROW.STD_STYLE, MYROW.STD_STYLE_DESC, MYROW.SPEC_CODE, MYROW.SPEC_NAME, MYROW.MODEL_CODE, MYROW.MODEL_DESC, MYROW.ACT_DIMATER, MYROW.ACT_HEIGHT, MYROW.ACT_LEN_MIN, MYROW.ACT_LEN_MAX, MYROW.ACT_COUNT, MYROW.ACT_WEIGHT, '#NEWBELONG_CODE#', '#NEWBELONG_NAME#', MYROW.STORAGE_NO, MYROW.MEMO, '#CREATE_NAME#', TO_DATE('#CREATE_TIME#', 'YYYY-MM-DD HH24:MI:SS'), MYROW.PRODUCT_FLAG, MYROW.MAT_STATUS, TO_DATE('#CREATE_TIME#', 'YYYY-MM-DD HH24:MI:SS'), MYROW.ACT_LEN, MYROW.JUDGE_STD_NAME, MYROW.PLINE_CODE, MYROW.PLINE_NAME, MYROW.GRADECODE, MYROW.GRADENAME, '#BAL_YEAR_MONTH#', MYROW.INSTOCK_TIME, MYROW.PIPMEMO, '801302', '产线', MYROW.BELONG_CODE, MYROW.BELONG_NAME, MYROW.MATERIAL_NO, MYROW.MATERIAL_NAME, MYROW.IN_MOLD, MYROW.PACK_NO, MYROW.PRO_ORDER_NO); INSERT INTO YDM_ZC_OUTLIST (OUTSTOCK_SQE, OUTSTOCK_DOC, OUTSTOCK_TYPE_CODE, OUTSTOCK_TYPE_NAME, MAT_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, STORAGE_ATTR, STORAGE_ATTR_NAME, STORAGE_TYPE_NO, STORAGE_TYPE_NAME, OUTSTOCK_TIME, CREATE_NAME, CREATE_TIME, PRODUCT_FLAG, MAT_STATUS, JUDGE_STD_NAME, JUDGE_STD_CODE, BAL_YEAR_MONTH, FINISHPRO_MOLD, IN_MOLD) VALUES ('#OUTSTOCK_SQE#', '#OUTSTOCK_DOC#', '800812', '转所属权出库', MYROW.MAT_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.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, MYROW.STORAGE_NO, MYROW.LOCATION_NO, MYROW.STORAGE_ATTR, MYROW.STORAGE_ATTR_NAME, MYROW.STORAGE_TYPE_NO, MYROW.STORAGE_TYPE_NAME, TO_DATE('#CREATE_TIME#', 'YYYY-MM-DD HH24:MI:SS'), '#CREATE_NAME#', TO_DATE('#CREATE_TIME#', 'YYYY-MM-DD HH24:MI:SS'), MYROW.PRODUCT_FLAG, MYROW.MAT_STATUS, MYROW.JUDGE_STD_NAME, MYROW.JUDGE_STD_CODE, '#BAL_YEAR_MONTH#', MYROW.FINISHPRO_MOLD, MYROW.IN_MOLD); INSERT INTO YDM_ZC_OUTLIST_XS (OUTSTOCK_SQE, OUTSTOCK_DOC, OUTSTOCK_TYPE_CODE, OUTSTOCK_TYPE_NAME, MAT_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, STORAGE_ATTR, STORAGE_ATTR_NAME, STORAGE_TYPE_NO, STORAGE_TYPE_NAME, OUTSTOCK_TIME, CREATE_NAME, CREATE_TIME, PRODUCT_FLAG, MAT_STATUS, JUDGE_STD_NAME, JUDGE_STD_CODE, BAL_YEAR_MONTH, FINISHPRO_MOLD, IN_MOLD) VALUES ('#OUTSTOCK_SQE#', '#OUTSTOCK_DOC#', '800812', '转所属权出库', MYROW.MAT_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.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, MYROW.STORAGE_NO, MYROW.LOCATION_NO, MYROW.STORAGE_ATTR, MYROW.STORAGE_ATTR_NAME, MYROW.STORAGE_TYPE_NO, MYROW.STORAGE_TYPE_NAME, TO_DATE('#CREATE_TIME#', 'YYYY-MM-DD HH24:MI:SS'), '#CREATE_NAME#', TO_DATE('#CREATE_TIME#', 'YYYY-MM-DD HH24:MI:SS'), MYROW.PRODUCT_FLAG, MYROW.MAT_STATUS, MYROW.JUDGE_STD_NAME, MYROW.JUDGE_STD_CODE, '#BAL_YEAR_MONTH#', MYROW.FINISHPRO_MOLD, MYROW.IN_MOLD); END LOOP; END;