VVGR#74274 VVGR0

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

VVGR/vvgr.sql

@@ -62,7 +62,6 @@ BEGIN
                                                 - INSTR (fac_imp_file_line, ';', 1, 9)
                                                 - 1)
     WHERE fac_import_key = p_import_key AND fac_imp_file_index > 1;
-   COMMIT;
 
    -- Functie-kolom=10 resetten (op 'XXX' want verplicht)!
    UPDATE fac_imp_file i
@@ -83,7 +82,6 @@ BEGIN
                                                 - INSTR (fac_imp_file_line, ';', 1, 14)
                                                 - 1)
     WHERE fac_import_key = p_import_key AND fac_imp_file_index > 1;
-   COMMIT;
 
    -- Afdelingscode-kolom=15 resetten (op 'XXX' want verplicht)!
    UPDATE fac_imp_file i
@@ -112,18 +110,17 @@ BEGIN
    -- Afdeling-kolom altijd op 'VVGR' (en kenmerk7 negeren)!
    UPDATE fac_imp_perslid i
       SET i.prs_afdeling_naam = 'VVGR';
-   COMMIT;
 */
    -- Functie-kolom volgens kenmerk6 of anders op Onbekend!
    UPDATE fac_imp_perslid i
       SET i.prs_srtperslid_omschrijving = COALESCE (SUBSTR (i.prs_kenmerk6, 1, 60), 'Onbekend')
     WHERE i.prs_perslid_naam IS NOT NULL;
-
+/*
    -- Login-kolom volgens e-mail (en eventueel niet gevuld)!
    UPDATE fac_imp_perslid i
       SET i.prs_perslid_oslogin = SUBSTR (i.prs_perslid_email, 1, 30)
     WHERE i.prs_perslid_naam IS NOT NULL;
-/*
+
    -- Als geen Voornaam aangeleverd, dan handmatig toegekende niet wissen.
    UPDATE fac_imp_perslid i
       SET i.prs_perslid_voornaam =
@@ -136,7 +133,6 @@ BEGIN
                    FROM prs_v_aanwezigperslid
                   WHERE prs_perslid_voornaam IS NOT NULL
                         AND prs_perslid_nr = i.prs_perslid_nr);
-   COMMIT;
 
    -- Als geen Email aangeleverd, dan handmatig toegekende niet wissen.
    UPDATE fac_imp_perslid i
@@ -150,7 +146,6 @@ BEGIN
                    FROM prs_v_aanwezigperslid
                   WHERE prs_perslid_email IS NOT NULL
                         AND prs_perslid_nr = i.prs_perslid_nr);
-   COMMIT;
 
    -- Als geen Telefoonnr aangeleverd, dan handmatig toegekende niet wissen.
    UPDATE fac_imp_perslid i
@@ -164,7 +159,6 @@ BEGIN
                    FROM prs_v_aanwezigperslid
                   WHERE prs_perslid_telefoonnr IS NOT NULL
                         AND prs_perslid_nr = i.prs_perslid_nr);
-   COMMIT;
 
    -- Als geen Mobiel aangeleverd, dan handmatig toegekende niet wissen.
    UPDATE fac_imp_perslid i
@@ -178,7 +172,6 @@ BEGIN
                    FROM prs_v_aanwezigperslid
                   WHERE prs_perslid_mobiel IS NOT NULL
                         AND prs_perslid_nr = i.prs_perslid_nr);
-   COMMIT;
 
    -- Klantspecifieke aanpassingen.
    -- Locatie/Gebouw/Verdieping/Ruimte bepalen via Kenmerk1-kolom -> Eigen tabel (key = 1) ->
@@ -282,14 +275,12 @@ BEGIN
                      AND cr.alg_verdieping_key = cv.alg_verdieping_key
                      AND cv.alg_gebouw_key = cg.alg_gebouw_key
                      AND cg.alg_locatie_key = il.alg_locatie_key);
-   COMMIT;
 
    -- Resulteert in nette foutmelding als ruimte niet kan worden bepaald.
    UPDATE fac_imp_perslid
       SET alg_verdieping_volgnr = 0
     WHERE alg_gebouw_code IS NOT NULL
       AND alg_verdieping_volgnr IS NULL;
-   COMMIT;
 */
 EXCEPTION
    WHEN OTHERS
@@ -356,11 +347,9 @@ BEGIN
              VALUES (2, rec.prs_afdeling_naam, rec.prs_afdeling_omschrijving);
       END;
    END LOOP;
-
    COMMIT;
 
-   -- Generic update
-/*
+   -- Generic update.
    SELECT COUNT(*) INTO v_count FROM fac_imp_perslid;
 
    IF v_count < 100
@@ -373,7 +362,7 @@ BEGIN
 
    -- Generieke update (op e-mail adres).
    prs.update_perslid (p_import_key, 'NR', 'L');
-*/
+
    -- Verwijderen personen *binnen VVGR* niet meer in importbestand.
 /*
    FOR rec IN c_del