0 ]]> 0 ]]> SELECT T.DEPARTMENT_CODE,T.DEPARTMENT_DESC FROM COM_BASE_PLINE T WHERE T.PLINE_CODE = ? SELECT T.DESGIN_KEY FROM CRAFT_ORD_DESIGN T WHERE T.CRAFT_NO = ? AND T.CRAFT_SEQ = ? SELECT T.BASECODE, T.BASENAME FROM COM_BASE_INFO T WHERE T.BASECODE = (SELECT GET_SHIPPED_STATE(?,?,?) SORTCODE FROM DUAL) AND T.SORTCODE='4100' SELECT T.HEAT_PLAN_NO FROM QCM_ZG_JUGDE_APPLY T WHERE T.JUDGE_STOVE_NO = ? AND T.BATCH_NO = ? AND T.PROCESS_CODE = 'G' AND T.IS_FLAG = '0' AND T.IS_ALL_SCRAP = '0' 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') || '_____' DECLARE V_OUTSTOCK_SQE YDM_BC_OUTLIST.OUTSTOCK_SQE%TYPE := NULL; --出库流水 V_ICOUNT NUMBER := 1; V_TIME YDM_BC_OUTLIST.CREATE_TIME%TYPE := TO_DATE('#CREATE_TIME#', 'YYYY-MM-DD HH24:MI:SS'); V_BATHYEAR YDM_BC_OUTLIST.BAL_YEAR_MONTH%TYPE := TO_CHAR(SYSDATE, 'YYYYMM'); BEGIN SELECT '#OUTSTOCK_DOC#' || LPAD(NVL(MAX(SUBSTR(T.OUTSTOCK_SQE, LENGTH(T.OUTSTOCK_SQE) - 3)), 0) + 1, 4, 0) INTO V_OUTSTOCK_SQE FROM YDM_BC_OUTLIST T WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'; FOR MYROW IN (SELECT T.*,S.STORAGE_NO,S.LOCATION_NO FROM MAT_BC_M T LEFT JOIN YDM_BC_BUTTRESS S ON T.MAT_NO = S.MAT_NO WHERE T.MAT_NO = '#MAT_NO#') LOOP INSERT INTO YDM_BC_OUTLIST (FLAG_STOVE_NO_ZG, OUTSTOCK_SQE, OUTSTOCK_DOC, OUTSTOCK_TYPE_CODE, OUTSTOCK_TYPE_NAME, 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, OUTSTOCK_TIME, CREATE_NAME, CREATE_TIME, ORD_PK, ORD_LN_PK, ORD_LN_DLY_PK, ORDER_NO, ORDER_SEQ, DELIVERY_NO, PRODUCT_FLAG, MAT_STATUS, JUDGE_STD_NAME, BAL_YEAR_MONTH, LOAD_PLINE_CODE, LOAD_PLINE_NAME, PROCESS_CDOE, PROCESS_DESC) VALUES (MYROW.FLAG_STOVE_NO_ZG, V_OUTSTOCK_SQE, '#OUTSTOCK_DOC#', '800809', '产权出库', 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, MYROW.STORAGE_NO, MYROW.LOCATION_NO, V_TIME, '#CREATE_NAME#', V_TIME, MYROW.ORD_PK, MYROW.ORD_LN_PK, MYROW.ORD_LN_DLY_PK, MYROW.ORDER_NO, MYROW.ORDER_SEQ, MYROW.ORDER_SEQ_NO, MYROW.PRODUCT_FLAG, MYROW.MAT_STATUS, MYROW.JUDGE_STD_NAME, V_BATHYEAR, '#LOAD_PLINE_CODE#', '#LOAD_PLINE_NAME#', MYROW.PROCESS_CDOE, MYROW.PROCESS_DESC); END LOOP; END;