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

FMHN#78242 uitbreiding import Relaties

Browse Source 
svn path=/Customer/trunk/; revision=60851
This commit is contained in:
Sander Schepers
2023-06-20 13:12:14 +00:00
parent 72ccc5d2c4
commit feaa016f7a
1 changed files with 26 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
FMHN/fmhn.sql
View File

@@ -5146,6 +5146,9 @@ AS
v_telefoon VARCHAR2 (255);
v_email VARCHAR2 (255);
v_contractant VARCHAR2 (255);
v_uitvoerende VARCHAR2 (255);
v_overeenkomstdatum VARCHAR2 (255);
v_einddatum VARCHAR2 (255);
CURSOR c1
IS
@@ -5164,7 +5167,7 @@ BEGIN
v_errormsg := 'Fout opvragen importregel';
v_aanduiding := '';
-- Lees alle veldwaarden
--Leveranciernr;Bedrijfsnaam;Postadres;PPostcode;PPlaats;PLand;BezoekAdres;BPostcode;BPlaats;BLand;Status;Classificatie;Sector;SubSector;Telefoon;Email;Contractant
--Leveranciernr;Bedrijfsnaam;Postadres;PPostcode;PPlaats;PLand;BezoekAdres;BPostcode;BPlaats;BLand;Status;Classificatie;Sector;SubSector;Telefoon;Email;Contractant;Uitvoerende;Overeenkomstdatum;Einddatum
fac.imp_getfield (v_newline, c_delim, v_levnr);
fac.imp_getfield (v_newline, c_delim, v_bedrnaam);
fac.imp_getfield (v_newline, c_delim, v_postadres);
@@ -5182,6 +5185,9 @@ BEGIN
fac.imp_getfield (v_newline, c_delim, v_telefoon);
fac.imp_getfield (v_newline, c_delim, v_email);
fac.imp_getfield (v_newline, c_delim, v_contractant);
fac.imp_getfield (v_newline, c_delim, v_uitvoerende);
fac.imp_getfield (v_newline, c_delim, v_overeenkomstdatum);
fac.imp_getfield (v_newline, c_delim, v_einddatum);
v_aanduiding := '[' || v_levnr || '|' || v_bedrnaam || '] ';
@@ -5207,6 +5213,9 @@ BEGIN
AND UPPER (v_telefoon) = 'TELEFOON'
AND UPPER (v_email) = 'EMAIL'
AND UPPER (v_contractant) = 'CONTRACTANT'
AND UPPER (v_uitvoerende) = 'UITVOERENDE'
AND UPPER (v_overeenkomstdatum) = 'OVEREENKOMSTDATUM'
AND UPPER (v_einddatum) = 'EINDDATUM'
THEN
header_is_valid := 1;
END IF;
@@ -5233,7 +5242,10 @@ BEGIN
prs_dienst_omschrijving, -- Status
prs_bedrijf_overig1,
prs_bedrijf_overig2,
prs_bedrijf_overig3)
prs_bedrijf_overig3,
prs_bedrijf_uitvoerende,
prs_overeenkomst_datum,
prs_bedrijf_contact_fax) -- Einddatum
VALUES (TRIM (v_levnr),
SUBSTR (TRIM (v_bedrnaam), 1, 60),
SUBSTR (TRIM (v_bezoekadres), 1, 50),
@@ -5251,7 +5263,10 @@ BEGIN
SUBSTR (TRIM (v_status), 1, 60),
TRIM (v_classificatie),
TRIM (v_sector),
TRIM (v_subsector));
TRIM (v_subsector),
DECODE (SUBSTR (UPPER (COALESCE (TRIM (v_uitvoerende), '0')), 1, 1), '0', 0, '1', 1, 9), -- 9=Error!
TO_DATE (v_overeenkomstdatum, 'DD-MM-YYYY'),
TO_DATE (v_einddatum, 'DD-MM-YYYY'),;
v_count_imp := v_count_imp + 1;
EXCEPTION
@@ -5349,7 +5364,8 @@ AS
prs_bedrijf_contract,
--prs_bedrijf_huurder,
prs_bedrijf_telefoon,
prs_bedrijf_email)
prs_bedrijf_email,
prs_overeenkomst_datum)
VALUES (rec.prs_leverancier_nr,
rec.prs_bedrijf_naam,
rec.prs_bedrijf_bezoek_adres,
@@ -5361,11 +5377,12 @@ AS
rec.prs_bedrijf_post_plaats,
rec.prs_bedrijf_post_land,
--NULL,
NULL,
DECODE (rec.prs_bedrijf_uitvoerende, 1, 1, NULL),
DECODE (rec.prs_bedrijf_contract, 1, 1, NULL),
--NULL,
rec.prs_bedrijf_telefoon,
rec.prs_bedrijf_email)
rec.prs_bedrijf_email,
rec.prs_overeenkomst_datum)
RETURNING prs_bedrijf_key
INTO v_bedrijf_key;
@@ -5406,7 +5423,9 @@ AS
prs.upsertkenmerk (1041, v_bedrijf_key, rec.prs_bedrijf_overig2); -- Sector
v_errormsg := 'Fout bijwerken Subsector';
prs.upsertkenmerk (1042, v_bedrijf_key, rec.prs_bedrijf_overig3); -- Subsector
v_errormsg := 'Fout bijwerken Subsector';
prs.upsertkenmerk (1044, v_bedrijf_key, TO_DATE (rec.prs_bedrijf_contact_fax, 'DD-MM-YYYY')); -- Einddatum
IF MOD (v_count_tot, 500) = 0 THEN COMMIT; END IF;
END IF;
EXCEPTION