LPNL#80059 -- Import functie inrichten om ALD personen toe te voegen

svn path=/Customer/trunk/; revision=67023

LPNL/LPNL.sql

@@ -425,7 +425,21 @@ BEGIN
 END lpnl_import_perslid;
 /
 
-CREATE OR REPLACE PROCEDURE lpnl_update_perslid (p_import_key IN NUMBER)
+CREATE OR REPLACE PROCEDURE lpnl_import_perslid_lp (p_import_key IN NUMBER)
+AS
+BEGIN
+   lpnl_import_perslid (p_import_key);
+END;
+/
+
+CREATE OR REPLACE PROCEDURE lpnl_import_perslid_ald (p_import_key IN NUMBER)
+AS
+BEGIN
+   lpnl_import_perslid (p_import_key);
+END;
+/
+
+CREATE OR REPLACE PROCEDURE lpnl_update_perslid (p_import_key IN NUMBER, p_bedrijf_key IN NUMBER)
 IS
    CURSOR c_del IS
       SELECT p.prs_perslid_key,
@@ -434,7 +448,7 @@ IS
              p.prs_perslid_oslogin
         FROM prs_perslid p, prs_v_perslid_fullnames_all pf, prs_afdeling a
        WHERE     p.prs_afdeling_key = a.prs_afdeling_key
-             AND a.prs_bedrijf_key = 41                                 -- Leaseplan
+             AND a.prs_bedrijf_key = p_bedrijf_key
              AND pf.prs_perslid_key = p.prs_perslid_key
              AND p.prs_perslid_verwijder IS NULL
              AND NOT EXISTS
@@ -458,6 +472,7 @@ IS
         SELECT *
           FROM prs_afdeling a
          WHERE     prs_afdeling_verwijder IS NULL
+               AND a.prs_bedrijf_key = p_bedrijf_key
                AND NOT EXISTS
                     (SELECT 1
                        FROM prs_perslid p
@@ -495,7 +510,7 @@ BEGIN
         INSERT INTO prs_afdeling (prs_bedrijf_key,
                                   prs_afdeling_naam,
                                   prs_afdeling_omschrijving)
-             VALUES (41, '123456', rec.prs_kenmerk4)
+             VALUES (p_bedrijf_key, '123456', rec.prs_kenmerk4)
           RETURNING prs_afdeling_key
                INTO v_afdeling_key;
 
@@ -613,6 +628,20 @@ EXCEPTION
 END lpnl_update_perslid;
 /
 
+CREATE OR REPLACE PROCEDURE lpnl_update_perslid_lp (p_import_key IN NUMBER)
+AS
+BEGIN
+   lpnl_update_perslid (p_import_key, 41);
+END;
+/
+
+CREATE OR REPLACE PROCEDURE lpnl_update_perslid_ald (p_import_key IN NUMBER)
+AS
+BEGIN
+   lpnl_update_perslid (p_import_key, 13163);
+END;
+/
+
 
 CREATE OR REPLACE PROCEDURE lpnl_select_update_noti (p_applname IN VARCHAR2,
                                                      p_applrun IN VARCHAR2)