【发布时间】:2019-01-05 19:12:06
【问题描述】:
我有一些程序问题,我找不到解决方案。结束循环的一些错误。
你有什么解决办法吗?
请找到附有错误截图的附件。
CREATE OR REPLACE PROCEDURE PR_GEN_TRANSAKCJI
IS
KL NUMBER;
ZN NUMBER;
L_POZ NUMBER;
POK NUMBER;
CE NUMBER;
CZP NUMBER;
DNI NUMBER;
POZ NUMBER;
BEGIN
KL :=FN_LOSUJ_KLIENTA();
SELECT ZNIZKA
INTO ZN
FROM KLIENT
WHERE ID_KLIENTA=KL;
INSERT INTO FAKTURA (ID_FAKTURY, DATA_WYSTAWIENIA_FAKTURY, WARTOSC_FAKTURY,
WARTOSC_FAKTURY_PO_ZNIZCE, ID_KLIENTA, WARTOSC_ZNIZKI) VALUES
(SEQUENCE_FAKTURA.NEXTAL, SYSDATE, 0, 0, KL, ZN);
LICZNIK :=0;
L_POZ :=FN_LOSUJ_POKOJ();
SELECT CENA_ZA_DOBE
INTO CE
FROM TYP_POKOJU, POKOJ
WHERE POK=POKUJ.NR_POKOJU AND POKOJ.ID_TYPU_POKOJU =
TYP_POKOJU.ID_TYPU_POKOJU;
DNI :=FN+LOSUJ(1,5);
CZP :=DNI*CE;
POZ :=LICZNIK + 1;
INSERT INTO FAKTURA_DETALE (POZYCJA, CENA_ZA_POKOJ, ID_FAKTURY, NR_POKOJU,
LICZBA_DNI) VALUES (POZ, CZP, SEQUENCE_FAKTURA.CURRVAL, POK, DNI);
LICZNIK := LICZNIK = 1;
EXIT WHEN LICZNIK > L_POZ;
END LOOP;
END;
/
感谢您的帮助!
【问题讨论】:
-
我没有看到
END LOOP对应的LOOP。END LOOP应该结束什么? -
好的,我明白了,但是当我在函数之前添加循环时,这个过程不理解 LOOP。
-
这就是你编写丑陋代码时得到的结果。如果你正确地格式化它,缩进,你会看到 END LOOP 没有它的对 - beginning 的循环。您说您添加了 LOOP 关键字,但又遇到了另一个错误。好吧,是你知道这段代码应该做什么,它的哪一部分应该循环执行。我们其他人没有。
标签: sql database oracle procedure