SELECT * FROM YDM_GP_INITIAL T WHERE T.HANDLE_LOG = '0' INSERT INTO YDM_GP_BUTTRESS( MAT_NO, STOVE_NO, FLAG_STOVE_NO, JUDGE_STOVE_NO, STORAGE_NO, LOCATION_NO, LARY_NO, LOC_NO, CREATE_NAME, CREATE_TIME, GROUD_NO, LOCATION_NAME) VALUES( '#MAT_NO#', '#STOVE_NO#', '', '#JUDGE_STOVE_NO#', '#STORAGE_NO#', '#LOCATION_NO#', '#LARY_NO#', '#LOC_NO#', '#CREATE_NAME#', SYSDATE, '#GROUD_NO#', '#LOCATION_NAME#') 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, DIMATER, ACT_LEN, FIX_NUM, FIX_LEN, ACT_COUNT, ACT_WEIGHT, BELONG_CODE, BELONG_NAME, INSTOCK_TIME, BAL_YEAR_MONTH, CREATE_NAME, CREATE_TIME, GROUD_NO, DB_ACT_COUNT, QCM_STAUS, CIC, PIC, DIC, SIC, PRODUCCODE, PRODUCNAME, CRAFTNO, PLAN_ROUTE, JUGDE_APPLY_CODE, GPTYPE, MNG_LOCK_FLAG, JUGDE_APPLY_FLAG, INSTOCK_FLAG, RPO_TIME, PRO_PLAN_ID_ZG, GX_PLAN_NO_ZG, PLINE_CODE, PLINE_NAME, JUDGE_RESULT_CODE, MAT_ORIGIN_CODE, MAT_ORIGIN_NAME, ACT_THEORY_WEIGHT, STEEL_STANDRAD ) VALUES( '#MAT_NO#', '#PRODUCT_FLAG#', '#MAT_STATUS#', '#STOVE_NO#', '#JUDGE_STOVE_NO#', '#MATERIAL_NO#', '#MATERIAL_NAME#', '#GRADECODE#', '#GRADENAME#', '#STD_CODE#', '#STD_NAME#', '#DIMATER#', '#ACT_LEN#', '#FIX_NUM#', '#FIX_LEN#', '#ACT_COUNT#', '#ACT_WEIGHT#', '#BELONG_CODE#', '#BELONG_NAME#', TO_DATE('#INSTOCK_TIME#','YYYY-MM-DD HH24:MI:SS'), '#BAL_YEAR_MONTH#', '#CREATE_NAME#', SYSDATE, '#GROUD_NO#', '#DB_ACT_COUNT#', '#QCM_STAUS#', '#CIC#', '#PIC#', '#DIC#', '#SIC#', '#PRODUCCODE#', '#PRODUCNAME#', '#CRAFTNO#', '#PLAN_ROUTE#', '#JUGDE_APPLY_CODE#', '#GPTYPE#', '#MNG_LOCK_FLAG#', '#JUGDE_APPLY_FLAG#', '#INSTOCK_FLAG#', TO_DATE('#RPO_TIME#','YYYY-MM-DD HH24:MI:SS'), '#PRO_PLAN_ID_ZG#', '#GX_PLAN_NO_ZG#', '#PLINE_CODE#', '#PLINE_NAME#', '#JUDGE_RESULT_CODE#', '#MAT_ORIGIN_CODE#', '#MAT_ORIGIN_NAME#', '#ACT_THEORY_WEIGHT#', '#STEEL_STANDRAD#') UPDATE YDM_GP_INITIAL T SET T.HANDLE_LOG = '1' WHERE T.INITIAL_ID = '#INITIAL_ID#' SELECT T.OUT_MATERIAL_NO FROM SLM_BASE_MATERIAL_B T WHERE T.OUT_MATERIAL_DESC = ? UNION ALL SELECT S.OUT_MATERIAL_NO FROM SLM_BASE_MATERIAL_C S WHERE S.OUT_MATERIAL_DESC = ? SELECT T.CIC_GP,T.PIC_GP,T.DIC_GP,T.SIC_GP FROM PLN_ORDER_ZG_S T WHERE T.ORDER_NO||'/'||T.ORDER_SEQ = ? AND ROWNUM = 1 SELECT T.GRADECODE FROM COM_BASE_GRADE T WHERE T.GRADENAME = ? SELECT T.LOCATION_NO FROM YDM_BS_LOCATION T WHERE T.LOCATION_NAME = ? AND T.STORAGE_NO = ? INSERT INTO YDM_GP_INITIAL( JUDGE_STOVE_NO, GROUD_NO, PRODUCT_FLAG, MAT_STATUS, STOVE_NO, MATERIAL_NO, MATERIAL_NAME, GRADECODE, GRADENAME, DIMATER, ACT_LEN, FIX_NUM, FIX_LEN, ACT_COUNT, ACT_WEIGHT, PLINE_CODE, PLINE_NAME, STORAGE_NO, LOCATION_NO, BELONG_CODE, BELONG_NAME, ORIGINAL_DATE, BAL_YEAR_MONTH, INSTOCK_TIME, CREATE_NAME, CREATE_TIME, PRODUCCODE, PRODUCNAME, GPTYPE, JUGDE_APPLY_CODE, PLAN_ROUTE, QCM_STAUS, LOCATION_NAME, MAT_ORIGIN_CODE, MAT_ORIGIN_NAME) VALUES( '#JUDGE_STOVE_NO#', '#GROUD_NO#', '#PRODUCT_FLAG#', '#MAT_STATUS#', '#STOVE_NO#', '#MATERIAL_NO#', '#MATERIAL_NAME#', '#GRADECODE#', '#GRADENAME#', '#DIMATER#', '#ACT_LEN#', '#FIX_NUM#', '#FIX_LEN#', '#ACT_COUNT#', '#ACT_WEIGHT#', '#PLINE_CODE#', '#PLINE_NAME#', '#STORAGE_NO#', '#LOCATION_NO#', '#BELONG_CODE#', '#BELONG_NAME#', '#ORIGINAL_DATE#', '#BAL_YEAR_MONTH#', TO_DATE('#INSTOCK_TIME#','YYYY-MM-DD HH24:MI:SS'), '#CREATE_NAME#', SYSDATE, '#PRODUCCODE#', '#PRODUCNAME#', '#GPTYPE#', '#JUGDE_APPLY_CODE#', '#PLAN_ROUTE#', '#QCM_STAUS#', '#LOCATION_NAME#', '#MAT_ORIGIN_CODE#', '#MAT_ORIGIN_NAME#') exec [TPCO_CXPLAN].[dbo].[pro_insert_stockinfo_gpk_forcx] @itemid = ?, @if_insert = ?, @sign = ? SELECT T.REAL_INDOUBLE_NUM, T.PRO_PLAN_ID, T.GX_PLAN_NO FROM PLN_ZY_ZG_C T WHERE T.JUDGE_STOVE_NO = ? AND T.CUT_NUM_GP = ? SELECT T.REAL_INDOUBLE_NUM, T.PRO_PLAN_ID, T.GX_PLAN_NO FROM PLN_ZY_DZ_C T WHERE T.JUDGE_STOVE_NO = ? AND T.CUT_NUM_GP = ? SELECT PZ AS PRODUCNAME, STEELGRADE AS GRADENAME, GG AS DIMATER, LENGTH AS ACT_LEN, FIXEDLENGTH AS FIX_LEN, MORETYPE AS FIX_NUM, STOCKZONE AS STORAGE_NO, ITEMNAME AS MATERIAL_NAME, BELONG_DEPARTMENTNAME AS BELONG_NAME, LOTREF1 AS JUDGE_STOVE_NO, DLcode AS STOVE_NO, pline_cx AS PLINE_CODE, ROTYPEname AS INSTOCK_TYPE_NAME, PLANQUANTITY AS ACT_WEIGHT, PLANQUANTITY1 AS ACT_COUNT, LOCATION AS LOCATION_NO, LOCATIONNAME AS LOCATION_NAME, LOCATIONLEVEL AS LARY_NO, BALANCEIDSTS AS CCMID FROM TPCO_CXPLAN . dbo . v_stock_trans_gpk_forcx WHERE ROTYPENAME IN('外购坯入库','生产缴库') DECLARE V_INSTOCK_DOC YDM_GP_INLIST.INSTOCK_DOC%TYPE := NULL; V_INSTOCK_SQE YDM_GP_INLIST.INSTOCK_SQE%TYPE := NULL; IQ_INSTOCK_DOC YDM_GP_INLIST.INSTOCK_DOC%TYPE := NULL; IQ_INSTOCK_SQE YDM_GP_INLIST.INSTOCK_SQE%TYPE := NULL; V_MAT_NO YDM_GP_INLIST.MAT_NO%TYPE := NULL; V_ICOUNT NUMBER :=1; V_ACOUTN YDM_GP_INLIST.ACT_COUNT%TYPE := NULL; BEGIN SELECT 'IA' || TO_CHAR(SYSDATE, 'YYMMDD') || LPAD(NVL(MAX(SUBSTR(T.INSTOCK_DOC, 9)), 0) + 1, 5, 0) INTO V_INSTOCK_DOC FROM YDM_GP_INLIST T WHERE T.INSTOCK_TYPE_CODE = '800701' AND TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD') = TO_CHAR(SYSDATE, 'YYYY-MM-DD'); SELECT 'IQ' || TO_CHAR(SYSDATE, 'YYMMDD') || LPAD(NVL(MAX(SUBSTR(T.INSTOCK_DOC, 9)), 0) + 1, 5, 0) INTO IQ_INSTOCK_DOC FROM YDM_GP_INLIST T WHERE T.INSTOCK_TYPE_CODE = '800701' AND TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD') = TO_CHAR(SYSDATE, 'YYYY-MM-DD'); SELECT COUNT(1)INTO V_ACOUTN FROM YDM_GP_INITIAL T WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.HANDLE_LOG = '0'; V_INSTOCK_SQE := V_INSTOCK_DOC || LPAD(V_ICOUNT, 4, 0); INSERT INTO YDM_GP_INLIST (INSTOCK_SQE, INSTOCK_DOC, INSTOCK_TYPE_CODE, INSTOCK_TYPE_NAME, MAT_NO, PRODUCT_FLAG, MAT_STATUS, STOVE_NO, JUDGE_STOVE_NO, PLINE_CODE, PLINE_NAME, MAT_ORIGIN_CODE, MAT_ORIGIN_NAME, MATERIAL_NO, MATERIAL_NAME, GRADECODE, GRADENAME, DIMATER, ACT_LEN, FIX_NUM, FIX_LEN, ACT_COUNT, ACT_WEIGHT, BELONG_CODE, BELONG_NAME, STORAGE_NO, LOCATION_NO, LARY_NO, INSTOCK_TIME, IN_TIME_F, BAL_YEAR_MONTH, M_BILL_NO, CREATE_NAME, CREATE_TIME, GROUD_NO, PRODUCCODE, PRODUCNAME, EF_PLINE_CODE, EF_PLINE_NAME) VALUES (V_INSTOCK_SQE, V_INSTOCK_DOC, '#INSTOCK_TYPE_CODE#', '#INSTOCK_TYPE_NAME#', '#MAT_NO#', '#PRODUCT_FLAG#', '#MAT_STATUS#', '#STOVE_NO#', '#JUDGE_STOVE_NO#', '#PLINE_CODE#', '#PLINE_NAME#', '#MAT_ORIGIN_CODE#', '#MAT_ORIGIN_NAME#', '#MATERIAL_NO#', '#MATERIAL_NAME#', '#GRADECODE#', '#GRADENAME#', '#DIMATER#', '#ACT_LEN#', '#FIX_NUM#', '#FIX_LEN#', '#ACT_COUNT#', '#ACT_WEIGHT#', '#BELONG_CODE#', '#BELONG_NAME#', '#STORAGE_NO#', '#LOCATION_NO#', '#LARY_NO#', SYSDATE, SYSDATE, '#BAL_YEAR_MONTH#', '#M_BILL_NO#', '#CREATE_NAME#', SYSDATE, '#GROUD_NO#', '#PRODUCCODE#', '#PRODUCNAME#', '#EF_PLINE_CODE#', '#EF_PLINE_NAME#'); IF ('#CCMID#' = '1') THEN IQ_INSTOCK_SQE := IQ_INSTOCK_DOC || LPAD(V_ICOUNT, 4, 0); INSERT INTO YDM_GP_INLIST (INSTOCK_SQE, INSTOCK_DOC, INSTOCK_TYPE_CODE, INSTOCK_TYPE_NAME, MAT_NO, PRODUCT_FLAG, MAT_STATUS, STOVE_NO, JUDGE_STOVE_NO, PLINE_CODE, PLINE_NAME, MAT_ORIGIN_CODE, MAT_ORIGIN_NAME, MATERIAL_NO, MATERIAL_NAME, GRADECODE, GRADENAME, DIMATER, ACT_LEN, FIX_NUM, FIX_LEN, ACT_COUNT, ACT_WEIGHT, BELONG_CODE, BELONG_NAME, STORAGE_NO, LOCATION_NO, LARY_NO, INSTOCK_TIME, IN_TIME_F, BAL_YEAR_MONTH, M_BILL_NO, CREATE_NAME, CREATE_TIME, GROUD_NO, PRODUCCODE, PRODUCNAME, EF_PLINE_CODE, EF_PLINE_NAME) VALUES (IQ_INSTOCK_SQE, IQ_INSTOCK_DOC, '800709', '产权入库', '#MAT_NO#', '#PRODUCT_FLAG#', '80150102', '#STOVE_NO#', '#JUDGE_STOVE_NO#', '#PLINE_CODE#', '#PLINE_NAME#', '#MAT_ORIGIN_CODE#', '#MAT_ORIGIN_NAME#', '#MATERIAL_NO#', '#MATERIAL_NAME#', '#GRADECODE#', '#GRADENAME#', '#DIMATER#', '#ACT_LEN#', '#FIX_NUM#', '#FIX_LEN#', '#ACT_COUNT#', '#ACT_WEIGHT#', '002001001', '制造部', '#STORAGE_NO#', '#LOCATION_NO#', '#LARY_NO#', SYSDATE, SYSDATE, '#BAL_YEAR_MONTH#', '#M_BILL_NO#', '#CREATE_NAME#', SYSDATE, '#GROUD_NO#', '#PRODUCCODE#', '#PRODUCNAME#', '#EF_PLINE_CODE#', '#EF_PLINE_NAME#'); END IF; END; SELECT PZ AS PRODUCNAME, STEELGRADE AS GRADENAME, GG AS DIMATER, LENGTH AS ACT_LEN, FIXEDLENGTH AS FIX_LEN, MORETYPE AS FIX_NUM, STOCKZONE AS STORAGE_NO, ITEMNAME AS MATERIAL_NAME, BELONG_DEPARTMENTNAME AS BELONG_NAME, LOTREF1 AS JUDGE_STOVE_NO, DLcode AS STOVE_NO, pline_cx AS PLINE_CODE, ROTYPEname AS INSTOCK_TYPE_NAME, abs(PLANQUANTITY) AS ACT_WEIGHT, abs(PLANQUANTITY1) AS ACT_COUNT, LOCATION AS LOCATION_NO, LOCATIONNAME AS LOCATION_NAME, LOCATIONLEVEL AS LARY_NO, BALANCEIDSTS AS CCMID, ROTYPE AS OUTSTOCK_TYPE_CODE FROM TPCO_CXPLAN . dbo . v_stock_trans_gpk_forcx WHERE [ROTYPE] in('C01','C13') --AND [LOTREF1] = '080001' 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_OCOUNT NUMBER :=1; 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'); V_OUTSTOCK_SQE := V_OUTSTOCK_DOC || LPAD(V_OCOUNT, 4, 0); V_TOUTSTOCK_SQE :=V_TOUTSTOCK_DOC||LPAD(V_OCOUNT, 4, 0); INSERT INTO YDM_GP_OUTLIST( OUTSTOCK_SQE, OUTSTOCK_DOC, OUTSTOCK_TYPE_CODE, OUTSTOCK_TYPE_NAME, MAT_NO, PRODUCT_FLAG, MAT_STATUS, STOVE_NO, JUDGE_STOVE_NO, MATERIAL_NO, MATERIAL_NAME, GRADECODE, GRADENAME, DIMATER, ACT_LEN, FIX_NUM, FIX_LEN, ACT_COUNT, ACT_WEIGHT, PLINE_CODE, PLINE_NAME, BELONG_CODE, BELONG_NAME, STORAGE_NO, LOCATION_NO, LARY_NO, BAL_YEAR_MONTH, OUTSTOCK_TIME, CREATE_NAME, CREATE_TIME, GROUD_NO, M_BILL_NO) VALUES( V_OUTSTOCK_SQE, V_OUTSTOCK_DOC, '#OUTSTOCK_TYPE_CODE#', '#OUTSTOCK_TYPE_NAME#', '#MAT_NO#', '#PRODUCT_FLAG#', '#MAT_STATUS#', '#STOVE_NO#', '#JUDGE_STOVE_NO#', '#MATERIAL_NO#', '#MATERIAL_NAME#', '#GRADECODE#', '#GRADENAME#', '#DIMATER#', '#ACT_LEN#', '#FIX_NUM#', '#FIX_LEN#', '#ACT_COUNT#', '#ACT_WEIGHT#', '#PLINE_CODE#', '#PLINE_NAME#', '#BELONG_CODE#', '#BELONG_NAME#', '#STORAGE_NO#', '#LOCATION_NO#', '#LARY_NO#', '#BAL_YEAR_MONTH#', SYSDATE, '#CREATE_NAME#', SYSDATE, '#GROUD_NO#', '#M_BILL_NO#'); INSERT INTO YDM_GP_OUTLIST( OUTSTOCK_SQE, OUTSTOCK_DOC, OUTSTOCK_TYPE_CODE, OUTSTOCK_TYPE_NAME, MAT_NO, PRODUCT_FLAG, MAT_STATUS, STOVE_NO, JUDGE_STOVE_NO, MATERIAL_NO, MATERIAL_NAME, GRADECODE, GRADENAME, DIMATER, ACT_LEN, FIX_NUM, FIX_LEN, ACT_COUNT, ACT_WEIGHT, PLINE_CODE, PLINE_NAME, BELONG_CODE, BELONG_NAME, STORAGE_NO, LOCATION_NO, LARY_NO, BAL_YEAR_MONTH, OUTSTOCK_TIME, CREATE_NAME, CREATE_TIME, GROUD_NO, M_BILL_NO) VALUES( V_TOUTSTOCK_SQE, V_TOUTSTOCK_DOC, '800801', '投料出库', '#MAT_NO#', '#PRODUCT_FLAG#', '#MAT_STATUS#', '#STOVE_NO#', '#JUDGE_STOVE_NO#', '#MATERIAL_NO#', '#MATERIAL_NAME#', '#GRADECODE#', '#GRADENAME#', '#DIMATER#', '#ACT_LEN#', '#FIX_NUM#', '#FIX_LEN#', '#ACT_COUNT#', '#ACT_WEIGHT#', '#PLINE_CODE#', '#PLINE_NAME#', '#BELONG_CODE#', '#BELONG_NAME#', '#STORAGE_NO#', '#LOCATION_NO#', '#LARY_NO#', '#BAL_YEAR_MONTH#', SYSDATE, '#CREATE_NAME#', SYSDATE, '#GROUD_NO#', '#M_BILL_NO#'); END; SELECT [pz] AS PRODUCNAME ,[steelgrade] AS GRADENAME ,[gg] AS DIMATER ,[ypdnum] AS JUGDE_APPLY_CODE ,[length] AS ACT_LEN ,CONVERT(VARCHAR(20), CONVERT(int,[moretype])) AS FIX_NUM ,[fixedlength] AS FIX_LEN ,[lotref1] AS JUDGE_STOVE_NO ,[QCWEIGHT] AS ACT_WEIGHT ,CONVERT(VARCHAR(20), CONVERT(int,[QCQUANTITY]))AS ACT_COUNT ,[stockzone]AS STORAGE_NO ,CONVERT(VARCHAR(19), [inputdate] , 100)AS INSTOCK_TIME ,[balanceidsts] AS QCM_STAUS ,[DLcode] AS STOVE_NO ,[pline_cx] AS PLINE_CODE ,[ATTR1] AS MAT_ORIGIN_NAME FROM [TPCO_CXPLAN].[dbo].[v_stock_info_gpk_qcz_forcx] --WHERE [lotref1] = '578933' SELECT PZ AS PRODUCNAME, STEELGRADE AS GRADENAME, GG AS DIMATER, LENGTH AS ACT_LEN, FIXEDLENGTH AS FIX_LEN, MORETYPE AS FIX_NUM, STOCKZONE AS STORAGE_NO, ITEMNAME AS MATERIAL_NAME, BELONG_DEPARTMENTNAME AS BELONG_NAME, LOTREF1 AS JUDGE_STOVE_NO, DLcode AS STOVE_NO, pline_cx AS PLINE_CODE, ROTYPE AS OUTSTOCK_TYPE_CODE, PLANQUANTITY AS ACT_WEIGHT, PLANQUANTITY1 AS ACT_COUNT, LOCATION AS LOCATION_NO, LOCATIONNAME AS LOCATION_NAME, LOCATIONLEVEL AS LARY_NO, BALANCEIDSTS AS CCMID FROM TPCO_CXPLAN . dbo . v_stock_trans_gpk_forcx WHERE ROTYPE IN('C10','R10') --AND LOTREF1 IN('979826','473517') DECLARE IQ_INSTOCK_DOC YDM_GP_INLIST.INSTOCK_DOC%TYPE := NULL; IQ_INSTOCK_SQE YDM_GP_INLIST.INSTOCK_SQE%TYPE := NULL; V_MAT_NO YDM_GP_INLIST.MAT_NO%TYPE := NULL; V_ICOUNT NUMBER :=1; V_ACOUTN YDM_GP_INLIST.ACT_COUNT%TYPE := NULL; BEGIN SELECT 'IQ' || TO_CHAR(SYSDATE, 'YYMMDD') || LPAD(NVL(MAX(SUBSTR(T.INSTOCK_DOC, 9)), 0) + 1, 5, 0) INTO IQ_INSTOCK_DOC FROM YDM_GP_INLIST T WHERE T.INSTOCK_TYPE_CODE = '800709' AND TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD') = TO_CHAR(SYSDATE, 'YYYY-MM-DD'); IQ_INSTOCK_SQE := IQ_INSTOCK_DOC || LPAD(V_ICOUNT, 4, 0); INSERT INTO YDM_GP_INLIST (INSTOCK_SQE, INSTOCK_DOC, INSTOCK_TYPE_CODE, INSTOCK_TYPE_NAME, MAT_NO, PRODUCT_FLAG, MAT_STATUS, STOVE_NO, JUDGE_STOVE_NO, PLINE_CODE, PLINE_NAME, MAT_ORIGIN_CODE, MAT_ORIGIN_NAME, MATERIAL_NO, MATERIAL_NAME, GRADECODE, GRADENAME, DIMATER, ACT_LEN, FIX_NUM, FIX_LEN, ACT_COUNT, ACT_WEIGHT, BELONG_CODE, BELONG_NAME, STORAGE_NO, LOCATION_NO, LARY_NO, INSTOCK_TIME, IN_TIME_F, BAL_YEAR_MONTH, M_BILL_NO, CREATE_NAME, CREATE_TIME, GROUD_NO, PRODUCCODE, PRODUCNAME, EF_PLINE_CODE, EF_PLINE_NAME) VALUES (IQ_INSTOCK_SQE, IQ_INSTOCK_DOC, '800709', '产权入库', '#MAT_NO#', '#PRODUCT_FLAG#', '80150102', '#STOVE_NO#', '#JUDGE_STOVE_NO#', '#PLINE_CODE#', '#PLINE_NAME#', '#MAT_ORIGIN_CODE#', '#MAT_ORIGIN_NAME#', '#MATERIAL_NO#', '#MATERIAL_NAME#', '#GRADECODE#', '#GRADENAME#', '#DIMATER#', '#ACT_LEN#', '#FIX_NUM#', '#FIX_LEN#', '#ACT_COUNT#', '#ACT_WEIGHT#', '002001001', '制造部', '#STORAGE_NO#', '#LOCATION_NO#', '#LARY_NO#', SYSDATE, SYSDATE, '#BAL_YEAR_MONTH#', '#M_BILL_NO#', '#CREATE_NAME#', SYSDATE, '#GROUD_NO#', '#PRODUCCODE#', '#PRODUCNAME#', '#EF_PLINE_CODE#', '#EF_PLINE_NAME#'); END; DECLARE V_OUTSTOCK_DOC YDM_GP_OUTLIST.OUTSTOCK_DOC%TYPE := NULL; V_OUTSTOCK_SQE YDM_GP_OUTLIST.OUTSTOCK_SQE%TYPE := NULL; V_OCOUNT NUMBER :=1; 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'); V_OUTSTOCK_SQE := V_OUTSTOCK_DOC || LPAD(V_OCOUNT, 4, 0); INSERT INTO YDM_GP_OUTLIST( OUTSTOCK_SQE, OUTSTOCK_DOC, OUTSTOCK_TYPE_CODE, OUTSTOCK_TYPE_NAME, MAT_NO, PRODUCT_FLAG, MAT_STATUS, STOVE_NO, JUDGE_STOVE_NO, MATERIAL_NO, MATERIAL_NAME, GRADECODE, GRADENAME, DIMATER, ACT_LEN, FIX_NUM, FIX_LEN, ACT_COUNT, ACT_WEIGHT, PLINE_CODE, PLINE_NAME, BELONG_CODE, BELONG_NAME, STORAGE_NO, LOCATION_NO, LARY_NO, BAL_YEAR_MONTH, OUTSTOCK_TIME, CREATE_NAME, CREATE_TIME, GROUD_NO, M_BILL_NO) VALUES( V_OUTSTOCK_SQE, V_OUTSTOCK_DOC, '#OUTSTOCK_TYPE_CODE#', '#OUTSTOCK_TYPE_NAME#', '#MAT_NO#', '#PRODUCT_FLAG#', '#MAT_STATUS#', '#STOVE_NO#', '#JUDGE_STOVE_NO#', '#MATERIAL_NO#', '#MATERIAL_NAME#', '#GRADECODE#', '#GRADENAME#', '#DIMATER#', '#ACT_LEN#', '#FIX_NUM#', '#FIX_LEN#', '#ACT_COUNT#', '#ACT_WEIGHT#', '#PLINE_CODE#', '#PLINE_NAME#', '#BELONG_CODE#', '#BELONG_NAME#', '#STORAGE_NO#', '#LOCATION_NO#', '#LARY_NO#', '#BAL_YEAR_MONTH#', SYSDATE, '#CREATE_NAME#', SYSDATE, '#GROUD_NO#', '#M_BILL_NO#'); END;