CREATE OR REPLACE PACKAGE QZ_STD_TASK IS
/*=====制絲車間煙絲立庫、輔料立庫、嘴棒庫和成品庫日常點檢資料手動觸發（每班一次）======*/
PROCEDURE QZ_LKRCDJ_TASK(IN_USERID IN NUMBER ) IS
V_INDOCNO NUMBER ;
RT_VUSERS VUSERS%ROWTYPE ;
V_COUNT NUMBER;
BEGIN
--取得人員資料
SELECT * INTO RT_VUSERS FROM VUSERS WHERE ID = IN_USERID;
FOR REC IN (SELECT * FROM QZ_V_LKRCDJ_STD) LOOP
--取得主鍵
SELECT SEQ_QZ_RCDJ_TASK.NEXTVAL INTO V_INDOCNO FROM DUAL;
--判斷記錄表中是否已存在資料（根據當前時間和班組）
SELECT COUNT(1) INTO V_COUNT FROM QZ_RCDJ_TASK T
WHERE TO_CHAR(T.DNTIME,'YYYY-MM-DD')=TO_CHAR(SYSDATE,'YYYY-MM-DD')
AND T.IBZ=RT_VUSERS.IBZ
AND T.IXMID=REC.ILINKNO;
IF V_COUNT=0 THEN
INSERT INTO QZ_RCDJ_TASK (INDOCNO,SBOOKNM,IDOCID,SFCODE,SFNAME
,IDEPT,SDEPT,IXMID,ITYPE,STYPE
,SITEMNM,SCHECKDETAIL,SCHECKMETHOD,SRESULT
,IUPPER,SUPPEROP,ILOWER,SLOWEROP,SREMARK
,SCOPECODE,ICYCLEVALUE,SCYCLEUNIT,STODO,DNTIME
,IFUN,INUM,ICUSER,SCUSER,IBZ,DCUSER
,ICHECK,SCHECK,DCHECK
,SREGID,SREGNM,DREGT,SMODID,SMODNM,DMODT
,IDOCTYPE,ISTEPID,SSTEPNM,SSTEPSTATE,ISTEPCHARTTYPE
,SSTEPOPERID,SSTEPOPERNM,IDEL,SPHOTO)
VALUES(V_INDOCNO,REC.SBOOKNM,REC.IDOCID,REC.SFCODE,REC.SFNAME
,REC.IDEPT,REC.SDEPT,REC.ILINKNO,REC.ITYPE,REC.STYPE
,REC.SITEM,REC.SCHECKDETAIL,REC.SCHECKMETHOD,NULL
,REC.UPPER_NUM,REC.UPPER_OP,REC.LOWER_NUM,REC.LOWER_OP,NULL
,REC.SCOPECODE,REC.ICYCLEVALUE,REC.SCYCLEUNIT,REC.TODO,TRUNC(SYSDATE)
,0,NULL,NULL,NULL,RT_VUSERS.IBZ,NULL
,NULL,NULL,NULL
,RT_VUSERS.ID,RT_VUSERS.NAME,SYSDATE,NULL,NULL,NULL
,NULL,NULL,NULL,NULL,NULL
,NULL,NULL,0,NULL)
;
COMMIT;
END IF;
END LOOP;
END;
END QZ_STD_TASK;
PACKAGE TNPMQZYC.QZ_STD_TASK 編譯錯誤
錯誤：PLS-00103: 出現符號 "V_INDOCNO"在需要下列之一時：
language
行：7
文本：V_COUNT NUMBER;
錯誤：PLS-00103: 出現符號 "QZ_STD_TASK"在需要下列之一時：
;
行：49
uj5u.com熱心網友回復：
請問下，這是什么情況啊？uj5u.com熱心網友回復：
包，應該建立兩個東西，一個包頭，一個包體。你現在這個是包頭， 包頭只能定義，具體的實作，要放在包體中。
你混在一起了。
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/66586.html
標籤：基礎和管理
上一篇：jdbc操作Oracle求助