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

VNOG#90384 -- Leveranciers bijwerken met de aangeleverde kenmerken

Browse Source 
svn path=/Customer/; revision=70643
This commit is contained in:
Robin Stoker
2025-10-16 13:41:41 +00:00
parent e9c7f02429
commit dd7ae721cf
1 changed files with 112 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

112
onces/VNOG/VNOG#90384.sql Normal file
View File

@@ -0,0 +1,112 @@
--
-- $Id$
--
-- Bijwerken van groot aantal kenmerken bij leveranciers
-- Eerst de CSV vanuit ticket VNOG#90384 inlezen met de generieke CSV import
DEFINE thisfile = 'VNOG#90384.SQL'
DEFINE dbuser = 'VNOG'
SET ECHO ON
SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
COLUMN fcltcusterr NEW_VALUE fcltcusterr NOPRINT;
WHENEVER SQLERROR CONTINUE;
SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
SPOOL &fcltlogfile
WHENEVER SQLERROR EXIT;
SELECT adm.checkscriptcust('&dbuser') AS fcltcusterr FROM DUAL;
WHENEVER SQLERROR CONTINUE;
PROMPT &fcltcusterr
SET DEFINE OFF
------ payload begin ------
DECLARE
CURSOR c1 IS
SELECT sub.refkey refkey,
sub.kenmerk_key kenmerk_key,
sub.waarde waarde
FROM (SELECT b.prs_bedrijf_key refkey,
1000 kenmerk_key, -- Website
fac_imp_csv_col22 waarde
FROM fac_imp_csv c, prs_bedrijf b
WHERE UPPER (c.fac_imp_csv_col01) =
b.prs_bedrijf_naam_upper
AND fac_imp_csv_col22 IS NOT NULL
UNION ALL
SELECT b.prs_bedrijf_key refkey,
1100 kenmerk_key, -- KvK Nummer
fac_imp_csv_col23 waarde
FROM fac_imp_csv c, prs_bedrijf b
WHERE UPPER (c.fac_imp_csv_col01) =
b.prs_bedrijf_naam_upper
AND fac_imp_csv_col23 IS NOT NULL
UNION ALL
SELECT b.prs_bedrijf_key refkey,
1101 kenmerk_key, -- Bankrekeningnummer
fac_imp_csv_col24 waarde
FROM fac_imp_csv c, prs_bedrijf b
WHERE UPPER (c.fac_imp_csv_col01) =
b.prs_bedrijf_naam_upper
AND fac_imp_csv_col24 IS NOT NULL
UNION ALL
SELECT b.prs_bedrijf_key refkey,
1102 kenmerk_key, -- CPV nummer
fac_imp_csv_col25 waarde
FROM fac_imp_csv c, prs_bedrijf b
WHERE UPPER (c.fac_imp_csv_col01) =
b.prs_bedrijf_naam_upper
AND fac_imp_csv_col25 IS NOT NULL
UNION ALL
SELECT b.prs_bedrijf_key refkey,
1103 kenmerk_key, -- BTW nummer
fac_imp_csv_col26 waarde
FROM fac_imp_csv c, prs_bedrijf b
WHERE UPPER (c.fac_imp_csv_col01) =
b.prs_bedrijf_naam_upper
AND fac_imp_csv_col26 IS NOT NULL
UNION ALL
SELECT b.prs_bedrijf_key refkey,
1001 kenmerk_key, -- Specificatie
fac_imp_csv_col27 waarde
FROM fac_imp_csv c, prs_bedrijf b
WHERE UPPER (c.fac_imp_csv_col01) =
b.prs_bedrijf_naam_upper
AND fac_imp_csv_col27 IS NOT NULL
UNION ALL
SELECT b.prs_bedrijf_key refkey,
1040 kenmerk_key, -- Extra telefoonnummer
fac_imp_csv_col21 waarde
FROM fac_imp_csv c, prs_bedrijf b
WHERE UPPER (c.fac_imp_csv_col01) =
b.prs_bedrijf_naam_upper
AND fac_imp_csv_col27 IS NOT NULL) sub;
BEGIN
FOR rec IN c1
LOOP
BEGIN
flx.setflex ('PRS',
rec.kenmerk_key,
rec.refkey,
rec.waarde);
END;
END LOOP;
UPDATE prs_kenmerklink
SET prs_kenmerklink_niveau = 'B'
WHERE TRUNC (prs_kenmerklink_aanmaak) = TRUNC (SYSDATE);
END;
/
------ payload end ------
SET DEFINE OFF
BEGIN adm.systrackscriptId ('$Id$', 1); END;
/
COMMIT;
SET ECHO OFF
SPOOL OFF
SET DEFINE ON
PROMPT Logfile of this upgrade is: &fcltlogfile