Bunu nasıl düzeltebilirm
Kod: Tümünü seç
CREATE OR REPLACE PROCEDURE "CINS_EKLE"(CKOD IN VARCHAR2,
CACK IN VARCHAR2,
CBIRIM IN VARCHAR2,
DURUM IN NUMBER,
ESKIKOD IN VARCHAR2) IS
cinskodkontrolu EXCEPTION;
KODU NUMBER;
BEGIN
SELECT COUNT(1) INTO KODU FROM CINSTANIMLAMA WHERE CINSTANIMLAMA.KOD = CKOD;
IF KODU > 0 THEN
RAISE cinskodkontrolu;
ELSE
INSERT INTO CINSTANIMLAMA VALUES (CINS_SEQ.NEXTVAL, CKOD, CACK, CBIRIM);
END IF;
COMMIT;
EXCEPTION
WHEN cinskodkontrolu then
raise_application_error(-20001,
'Boyle Bir Cins Kodu Vardır.Lütfen Değiştiriniz.');
END;
Kod: Tümünü seç
CREATE OR REPLACE PROCEDURE "CINS_EKLE"(CKOD IN VARCHAR2,
CACK IN VARCHAR2,
CBIRIM IN VARCHAR2,
DURUM IN NUMBER,
ESKIKOD IN VARCHAR2) IS
cinskodkontrolu EXCEPTION;
KODU NUMBER;
BEGIN
IF DURUM = 0 THEN
BEGIN
SELECT COUNT(1) INTO KODU FROM CINSTANIMLAMA WHERE CINSTANIMLAMA.KOD = CKOD;
IF KODU > 0 THEN
RAISE cinskodkontrolu;
ELSE
INSERT INTO CINSTANIMLAMA VALUES (CINS_SEQ.NEXTVAL, CKOD, CACK, CBIRIM);
END IF;
END;
END IF;
COMMIT;
EXCEPTION
WHEN cinskodkontrolu then
raise_application_error(-20001,
'Boyle Bir Cins Kodu Vardır.Lütfen Değiştiriniz.');
END;