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

VBGO#77039 -- Vebego Cleaning Services e-mailadres omzetten

Browse Source 
svn path=/Customer/trunk/; revision=59488
This commit is contained in:
Arthur Egberink
2023-03-08 08:59:23 +00:00
parent a7d1c07faf
commit e0a224c92a
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
VBGO/vbgo.sql
View File

@@ -541,7 +541,7 @@ BEGIN
LOOP
IF v_header_is_valid = 0
THEN
IF UPPER (rec.fac_imp_csv_col03) = 'CUSTOMER EMAIL' AND UPPER (rec.fac_imp_csv_col06) = 'NIEUWE UPN'
IF UPPER (rec.fac_imp_csv_col03) = 'CUSTOMER EMAIL' AND UPPER (rec.fac_imp_csv_col25) = 'NIEUWE UPN'
THEN
v_header_is_valid := 1;
END IF;
@@ -597,10 +597,10 @@ BEGIN
FOR rec IN c
LOOP
BEGIN
v_aanduiding := 'Omzetten ' || rec.fac_imp_csv_col03 || ' -> ' || rec.fac_imp_csv_col06;
v_aanduiding := 'Omzetten ' || rec.fac_imp_csv_col03 || ' -> ' || rec.fac_imp_csv_col25;
IF v_header_is_valid = 0
THEN
IF UPPER (rec.fac_imp_csv_col03) = 'CUSTOMER EMAIL' AND UPPER (rec.fac_imp_csv_col06) = 'NIEUWE UPN'
IF UPPER (rec.fac_imp_csv_col03) = 'CUSTOMER EMAIL' AND UPPER (rec.fac_imp_csv_col25) = 'NIEUWE UPN'
THEN
v_header_is_valid := 1;
END IF;
@@ -618,10 +618,10 @@ BEGIN
WHERE prs_perslid_verwijder IS NULL AND UPPER (prs_perslid_email) = UPPER (rec.fac_imp_csv_col03);
UPDATE prs_perslid
SET prs_perslid_email = rec.fac_imp_csv_col06
SET prs_perslid_email = rec.fac_imp_csv_col25
WHERE prs_perslid_key = v_prs_perslid_key;
BEGIN fac.trackaction('PRSUPD', v_prs_perslid_key, NULL, NULL, 'E-mail: ' || rec.fac_imp_csv_col03 || ' --> ' || rec.fac_imp_csv_col06); END;
BEGIN fac.trackaction('PRSUPD', v_prs_perslid_key, NULL, NULL, 'E-mail: ' || rec.fac_imp_csv_col03 || ' --> ' || rec.fac_imp_csv_col25); END;
fac.imp_writelog (p_import_key, 'I', 'Email is aangepast: ' || rec.fac_imp_csv_col02 || ' <' || rec.fac_imp_csv_col03 || '>', '');
END IF;
END IF;