PROR#74299 -- Inrichten Prorail omgeving
svn path=/Customer/trunk/; revision=60863
This commit is contained in:
@@ -123,16 +123,23 @@ AS
|
||||
oracle_err_num NUMBER;
|
||||
oracle_err_mes VARCHAR2 (200);
|
||||
v_errormsg VARCHAR2 (200);
|
||||
v_count NUMBER;
|
||||
BEGIN
|
||||
v_errormsg :='Mandatering voor '||(p_perslid_key);
|
||||
INSERT INTO prs_perslidkostenplaats(prs_perslid_key,
|
||||
prs_perslidkostenplaats_boeken,
|
||||
prs_perslidkostenplaats_inzage,
|
||||
prs_perslidkostenplaats_aanmk)
|
||||
VALUES(p_perslid_key,
|
||||
1,
|
||||
0,
|
||||
SYSDATE);
|
||||
|
||||
SELECT COUNT(*) INTO v_count
|
||||
FROM prs_perslidkostenplaats
|
||||
WHERE prs_perslid_key=p_perslid_key;
|
||||
IF v_COUNT=0 THEN
|
||||
INSERT INTO prs_perslidkostenplaats(prs_perslid_key,
|
||||
prs_perslidkostenplaats_boeken,
|
||||
prs_perslidkostenplaats_inzage,
|
||||
prs_perslidkostenplaats_aanmk)
|
||||
VALUES(p_perslid_key,
|
||||
1,
|
||||
0,
|
||||
SYSDATE);
|
||||
END IF;
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
|
||||
Reference in New Issue
Block a user