create 执行存储过程报错出现符号_oracle存储过程编译错误:PLS-00103: 出现符号 "end-of-file"在需要下列之一时...
CREATEORREPLACEPROCEDUREUNFOLD_STANDBOM_FINAL_SEQ(CODEVARCHAR2,GROSS_TYPEVARCHAR2,--'N'表示使用净耗；'G'表示使用总耗COMPANYvarchar2)ASCURSOREXPORTCURSORisSELECTITEM,SUM(Q...
CREATE OR REPLACE PROCEDURE UNFOLD_STANDBOM_FINAL_SEQ(
CODE VARCHAR2,
GROSS_TYPE VARCHAR2,--'N'表示使用净耗；'G'表示使用总耗
COMPANY varchar2)
AS
CURSOR EXPORTCURSOR is SELECT ITEM,SUM(QTY),bom_ver FROM CC_FINAL
where code=CODE and company=COMPANY
and bom_ver is not null and bom_ver<>'' GROUP BY ITEM,bom_ver;
-- 展BOM数
ITEM VARCHAR2(64);
ITEM_QTY NUMBER(18,8);
bom_ver VARCHAR2(64);
rec_EXPORTCURSOR EXPORTCURSOR%rowtype;
BEGIN
execute immediate 'CREATE TABLE TEMPPROCESS
(
CODE VARCHAR2(64) , --核销代码,
ITEM_CODE VARCHAR2(64) , --成品料号
APPLY_QTY NUMBER(18,8) , --需展BOM数量
ITEM_CODE_D VARCHAR2(64) , --展后料号
GROSS_QTY NUMBER(18,8) , --展后用量
STEP VARCHAR2(10) , --第几阶
PROCESS VARCHAR2(4000), --展BOM过程
ITEM_CLASS VARCHAR2(1) , --父阶料号属性
ITEM_D_CLASS VARCHAR2(1) --子阶料号属性
)';
--删除旧的展BOM数据
DELETE FROM CC_RESULT_STAND_BOM_FINAL WHERE CODE=CODE and company=COMPANY;
FOR rec_EXPORTCURSOR in EXPORTCURSOR loop -- 需展BOM资料的游标
--展BOM
DECLARE S INT;
begin
if GROSS_TYPE='N'--使用净耗计算
then
S:=1;
--PRINT '成品:'+ITEMCODE
INSERT into TEMPPROCESS SELECT CODE,ITEM,ITEM_QTY,ITEM_D,SUM(NET_QTY*ITEM_QTY),S,
ITEM|| '◇'|| to_char(ITEM_QTY) || '→' ||
ITEM_D || '◇' ||to_char(SUM(NET_QTY*ITEM_QTY)),ITEM_CLASS,ITEM_D_CLASS
FROM CC_STAND_BOM
WHERE ITEM =ITEM
AND CODE=CODE
AND bom_ver=bom_ver
and company=COMPANY
GROUP BY ITEM,ITEM_D,ITEM_CLASS,ITEM_D_CLASS;
-- PRINT 'OUTER '+ITEM
--SELECT * FROM #TEMPPROCESS
elsif GROSS_TYPE='G'--使用总耗计算
then
S:=1;
--PRINT '成品:'+ITEMCODE
INSERT into TEMPPROCESS SELECT CODE,ITEM,ITEM_QTY,ITEM_D,SUM(total_qty*ITEM_QTY),S,
ITEM|| '◇'|| to_char(ITEM_QTY) || '→' ||
ITEM_D || '◇' +to_char(SUM(total_qty*ITEM_QTY)),ITEM_CLASS,ITEM_D_CLASS
FROM CC_STAND_BOM
WHERE ITEM =ITEM
AND CODE=CODE
AND bom_ver=bom_ver
and company=COMPANY
GROUP BY ITEM,ITEM_D,ITEM_CLASS,ITEM_D_CLASS;
INSERT into CC_RESULT_STAND_BOM_FINAL (CODE,PROCESS,ITEM,ITEM_D,ITEM_QTY,ITEM_D_QTY,ITEM_CLASS,ITEM_D_CLASS,company)
SELECT CODE,PROCESS,T.ITEM_CODE,T.ITEM_CODE_D,T.APPLY_QTY,T.GROSS_QTY ,T.ITEM_CLASS,T.ITEM_D_CLASS,COMPANY
FROM TEMPPROCESS T;
INSERT into CC_RESULT_STAND_BOM_FINAL (CODE,PROCESS,ITEM,ITEM_D,ITEM_QTY,ITEM_D_QTY,ITEM_CLASS,ITEM_D_CLASS,company)
SELECT CODE,'',ITEM,ITEM,QTY,QTY,'F','M',COMPANY
FROM CC_FINAL
where code=CODE
and company=COMPANY
and (bom_ver is null or bom_ver='');
END if;
COMMIT;
end;
END loop;
请高手帮忙解决下，我得瑟所有存储过程最后都是报这个错误。。。
展开