admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ALLV#23264 PRS-import

Browse Source 
svn path=/Customer/trunk/; revision=18436
This commit is contained in:
Maarten van der Heide
2013-07-11 08:50:40 +00:00
parent 367a503d53
commit a603318ae8
1 changed files with 6 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
ALLV/allv.sql
View File

@@ -699,7 +699,7 @@ EXCEPTION
END allv_import_prs;
/
/* Formatted on 1-7-2013 12:35:25 (QP5 v5.115.810.9015) */
/* Formatted on 11-7-2013 10:48:58 (QP5 v5.115.810.9015) */
CREATE OR REPLACE PROCEDURE allv_update_prs (p_import_key IN NUMBER)
IS
c_persoon_inactief VARCHAR2 (30) := 'INACTIEF: ';
@@ -709,7 +709,7 @@ IS
c_ruimte_nr VARCHAR2 (10) := '000';
-- Groep waar personen in geplaatst worden (indien nog geen groep)
c_groep_upper VARCHAR2 (30) := '_DEFAULT';
c_profiel_omschrijving VARCHAR2 (30) := 'DEFAULT';
c_profiel_key NUMBER (10) := 21; -- Niet bevoegd tot bestellen!
v_aanduiding VARCHAR2 (200);
v_errorhint VARCHAR2 (1000);
v_errormsg VARCHAR2 (1000);
@@ -837,18 +837,17 @@ BEGIN
SELECT MAX (fac_profiel_key), COUNT ( * )
INTO v_profiel_key, v_count
FROM fac_profiel
WHERE UPPER (TRIM (fac_profiel_omschrijving)) =
c_profiel_omschrijving;
WHERE fac_profiel_key = c_profiel_key;
IF (v_count = 0)
THEN
fac.imp_writelog (
p_import_key,
'I',
'Standaard profiel ['
|| c_profiel_omschrijving
'Standaard profiel [key='
|| TO_CHAR (c_profiel_key)
|| '] niet gevonden.',
'Personen zonder profiel kunnen niet worden gekoppeld aan een profiel.'
'Personen zonder profiel krijgen geen default profiel.'
);
COMMIT;
END IF;