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

NOVA#86590 DAILY/Bijwerken O-kanaal van relaties

Browse Source 
svn path=/Customer/trunk/; revision=67234
This commit is contained in:
Maarten van der Heide
2024-11-28 15:30:10 +00:00
parent a3eceb8274
commit 74276363dd
1 changed files with 105 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

192
NOVA/nova.sql
View File

@@ -636,7 +636,7 @@ AS
PROCEDURE update_prs2loc; PROCEDURE update_prs2loc;
PROCEDURE afmelden_bes; PROCEDURE afmelden_bes;
PROCEDURE afmelden_mld; PROCEDURE afmelden_mld;
PROCEDURE insert_kanaal; PROCEDURE upsert_kanaal;
PROCEDURE verwerken_res; -- VOOR res2benq: Verwerkt eerder doorgezette RES! PROCEDURE verwerken_res; -- VOOR res2benq: Verwerkt eerder doorgezette RES!
PROCEDURE res2benq; PROCEDURE res2benq;
END; END;
@@ -954,7 +954,7 @@ AS
END afmelden_bes; END afmelden_bes;
-- Automatisch sluiten meldingen waarvoor geldt dat: -- Automatisch sluiten meldingen waarvoor geldt dat:
-- - Daaronder precies <20><>n (= /1) via API2 afgemelde 'TOPdesk (intern)'- -- - Daaronder precies <20><>n (= /1) via API2 afgemelde 'TOPdesk (intern)'-
-- opdracht. -- opdracht.
-- NB. In andere gevallen moet melding maar handmatig worden gesloten. -- NB. In andere gevallen moet melding maar handmatig worden gesloten.
PROCEDURE afmelden_mld PROCEDURE afmelden_mld
@@ -1002,8 +1002,8 @@ AS
fac.writelog ('AFMELDEN_MLD', 'E', v_errormsg, ''); fac.writelog ('AFMELDEN_MLD', 'E', v_errormsg, '');
END afmelden_mld; END afmelden_mld;
-- Automatisch toevoegen O-kanaal (prs_bedrijfadres) voor nieuwe relaties. -- Automatisch bijwerken O-kanaal (prs_bedrijfadres) van relaties.
PROCEDURE insert_kanaal PROCEDURE upsert_kanaal
AS AS
v_errormsg VARCHAR2 (1000); v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER; oracle_err_num NUMBER;
@@ -1013,16 +1013,27 @@ AS
-- Bepalen nieuwe relaties nog zonder O-kanaal. -- Bepalen nieuwe relaties nog zonder O-kanaal.
CURSOR c1 CURSOR c1
IS IS
SELECT b.prs_bedrijf_key, b.prs_bedrijf_email SELECT b.prs_bedrijf_key, b.prs_bedrijf_email, TO_NUMBER (NULL) prs_bedrijfadres_key, NULL prs_bedrijfadres_url
FROM prs_v_aanwezigbedrijf b FROM prs_v_aanwezigbedrijf b
WHERE b.prs_bedrijf_intern IS NULL WHERE b.prs_bedrijf_intern IS NULL
AND b.prs_bedrijf_key NOT IN (3661) -- Benque AND b.prs_bedrijf_key NOT IN (3661) -- Benque
AND b.prs_bedrijf_email IS NOT NULL AND b.prs_bedrijf_email IS NOT NULL
AND NOT EXISTS AND NOT EXISTS
(SELECT 1 (SELECT 1
FROM prs_bedrijfadres FROM prs_bedrijfadres
WHERE prs_bedrijfadres_type = 'O' WHERE prs_bedrijfadres_type = 'O'
AND prs_bedrijf_key = b.prs_bedrijf_key) AND prs_bedrijf_key = b.prs_bedrijf_key)
UNION ALL
SELECT b.prs_bedrijf_key, b.prs_bedrijf_email, ba.prs_bedrijfadres_key, ba.prs_bedrijfadres_url
FROM prs_v_aanwezigbedrijf b,
(SELECT *
FROM prs_bedrijfadres
WHERE prs_bedrijfadres_type = 'O'
AND INSTR (UPPER (prs_bedrijfadres_url), 'MAILTO:') = 1) ba
WHERE b.prs_bedrijf_intern IS NULL
AND b.prs_bedrijf_key NOT IN (3661) -- Benque
AND b.prs_bedrijf_key = ba.prs_bedrijf_key
AND 'MAILTO:' || UPPER (b.prs_bedrijf_email) != UPPER (ba.prs_bedrijfadres_url)
ORDER BY 1; ORDER BY 1;
BEGIN BEGIN
v_count := 0; v_count := 0;
@@ -1033,32 +1044,39 @@ AS
SET prs_bedrijf_uitvoerende = 1 SET prs_bedrijf_uitvoerende = 1
WHERE prs_bedrijf_key = rec.prs_bedrijf_key; WHERE prs_bedrijf_key = rec.prs_bedrijf_key;
INSERT INTO prs_bedrijfadres (prs_bedrijf_key, IF rec.prs_bedrijfadres_key IS NULL
prs_bedrijfadres_type, THEN
prs_bedrijfadres_url, INSERT INTO prs_bedrijfadres (prs_bedrijf_key,
prs_bedrijfadres_ordermode, prs_bedrijfadres_type,
prs_bedrijfadres_xsl, prs_bedrijfadres_url,
prs_bedrijfadres_attachfile, prs_bedrijfadres_ordermode,
prs_bedrijfadres_flexfiles) prs_bedrijfadres_xsl,
VALUES (rec.prs_bedrijf_key, prs_bedrijfadres_attachfile,
'O', prs_bedrijfadres_flexfiles)
'mailto:' || rec.prs_bedrijf_email, VALUES (rec.prs_bedrijf_key,
0, 'O',
'xsl/NOVA.xsl', 'mailto:' || rec.prs_bedrijf_email,
'Algemene-Inkoopvoorwaarden-FSR-V4.0.pdf', 0,
1); 'xsl/NOVA.xsl',
'Algemene-Inkoopvoorwaarden-FSR-V4.0.pdf',
1);
ELSE
UPDATE prs_bedrijfadres
SET prs_bedrijfadres_url = 'mailto:' || TRIM (rec.prs_bedrijf_email)
WHERE prs_bedrijfadres_key = rec.prs_bedrijfadres_key;
END IF;
v_count := v_count + 1; v_count := v_count + 1;
END LOOP; END LOOP;
fac.writelog ('INSERT_KANAAL', 'S', 'Relaties/#gekanaliseerd: ' || TO_CHAR (v_count), ''); fac.writelog ('UPSERT_KANAAL', 'S', 'Relaties/#gekanaliseerd: ' || TO_CHAR (v_count), '');
EXCEPTION EXCEPTION
WHEN OTHERS WHEN OTHERS
THEN THEN
oracle_err_num := SQLCODE; oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100); oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')'; v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog ('INSERT_KANAAL', 'E', v_errormsg, ''); fac.writelog ('UPSERT_KANAAL', 'E', v_errormsg, '');
END insert_kanaal; END upsert_kanaal;
-- Automatisch verwerken ruimte-reserveringen (roomservice-reserveringen -- Automatisch verwerken ruimte-reserveringen (roomservice-reserveringen
-- hebben geen BO-status) die eerder (= voorgaande dag) zijn doogezet naar -- hebben geen BO-status) die eerder (= voorgaande dag) zijn doogezet naar
@@ -1291,10 +1309,10 @@ BEGIN
-- Automatisch sluiten MLD (zoals helder gespecificeerd)! -- Automatisch sluiten MLD (zoals helder gespecificeerd)!
nova.afmelden_mld; nova.afmelden_mld;
-- Automatisch toevoegen O-kanaal voor nieuwe relaties! -- Automatisch bijwerken O-kanaal van relaties!
nova.insert_kanaal; nova.upsert_kanaal;
-- Automatisch na 5 werkdagen doorzetten RES met App<70>l-catering naar Benque -- Automatisch na 5 werkdagen doorzetten RES met App<70>l-catering naar Benque
-- en de volgende dag pas verwerken van de bovenliggende ruimte-reservering -- en de volgende dag pas verwerken van de bovenliggende ruimte-reservering
-- (roomservice-reserveringen hebben geen BO-status)! -- (roomservice-reserveringen hebben geen BO-status)!
-- LET OP: De procedure 'verwerken_res' moet draaien VOOR 'res2benq'! -- LET OP: De procedure 'verwerken_res' moet draaien VOOR 'res2benq'!
@@ -1734,40 +1752,40 @@ BEGIN
-- Controleer kritische veldwaarden -- Controleer kritische veldwaarden
-- Overige werkzaamheden -- Overige werkzaamheden
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_mjop, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF; IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_mjop, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_hv_algemeen, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF; IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_hv_algemeen, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_aanp_gebter, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF; IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_aanp_gebter, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_inventaris, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF; IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_inventaris, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
-- Projecten -- Projecten
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_bouwkosten, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_bouwkosten, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL
OR fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_vaste_inr, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL OR fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_vaste_inr, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL
OR fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_advieskosten, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL OR fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_advieskosten, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL
OR fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_losse_inv, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL OR fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_losse_inv, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL
OR fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_bijkomende_kosten, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL OR fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_bijkomende_kosten, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL
OR fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_onvoorzien, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL OR fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_onvoorzien, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL
THEN THEN
v_count_tst := v_count_tst + 1; v_count_tst := v_count_tst + 1;
END IF; END IF;
-- Investeringen -- Investeringen
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_terrein, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF; IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_terrein, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_inr_terreinen40k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF; IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_inr_terreinen40k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_nieuwbouw, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF; IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_nieuwbouw, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gebouwen_aankoop, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF; IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gebouwen_aankoop, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_verbouwingen40k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF; IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_verbouwingen40k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh8j25k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF; IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh8j25k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh10j25k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF; IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh10j25k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh15j25k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF; IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh15j25k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh20j25k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF; IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh20j25k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh25j25k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF; IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh25j25k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh30j25k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF; IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh30j25k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh40j25k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF; IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh40j25k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_lesinv3k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF; IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_lesinv3k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_overige_inv3k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF; IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_overige_inv3k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_computerapp3k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF; IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_computerapp3k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_software3k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF; IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_software3k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_transportmid5k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF; IF fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_transportmid5k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
IF v_count_tst = 0 IF v_count_tst = 0
THEN THEN
@@ -1824,40 +1842,40 @@ BEGIN
VALUES (TRIM (v_gebouw), VALUES (TRIM (v_gebouw),
TRIM (v_nrs), TRIM (v_nrs),
TRIM (v_omschrijving), TRIM (v_omschrijving),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_mjop, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_mjop, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_hv_algemeen, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_hv_algemeen, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_aanp_gebter, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_aanp_gebter, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_inventaris, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_inventaris, '.', ''), ',', '.'), '<EFBFBD>', '')),
TRIM (v_noodzaak), TRIM (v_noodzaak),
TRIM (v_vervuitbrvern), TRIM (v_vervuitbrvern),
TRIM (v_leverancier), TRIM (v_leverancier),
TRIM (v_maand), TRIM (v_maand),
TRIM (v_contactpers), TRIM (v_contactpers),
TRIM (v_toelichting), TRIM (v_toelichting),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_bouwkosten, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_bouwkosten, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_vaste_inr, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_vaste_inr, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_advieskosten, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_advieskosten, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_losse_inv, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_losse_inv, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_bijkomende_kosten, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_bijkomende_kosten, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_onvoorzien, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_onvoorzien, '.', ''), ',', '.'), '<EFBFBD>', '')),
--fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_totaal, '.', ''), ',', '.'), '<EFBFBD>', '')), --fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_totaal, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_terrein, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_terrein, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_inr_terreinen40k, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_inr_terreinen40k, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_nieuwbouw, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_nieuwbouw, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gebouwen_aankoop, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gebouwen_aankoop, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_verbouwingen40k, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_verbouwingen40k, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh8j25k, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh8j25k, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh10j25k, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh10j25k, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh15j25k, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh15j25k, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh20j25k, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh20j25k, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh25j25k, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh25j25k, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh30j25k, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh30j25k, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh40j25k, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_gr_onderh40j25k, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_lesinv3k, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_lesinv3k, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_overige_inv3k, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_overige_inv3k, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_computerapp3k, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_computerapp3k, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_software3k, '.', ''), ',', '.'), '<EFBFBD>', '')), fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_software3k, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_transportmid5k, '.', ''), ',', '.'), '<EFBFBD>', ''))); fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_transportmid5k, '.', ''), ',', '.'), '<EFBFBD>', '')));
v_count_imp := v_count_imp + 1; v_count_imp := v_count_imp + 1;
EXCEPTION EXCEPTION
WHEN OTHERS WHEN OTHERS
@@ -2041,7 +2059,7 @@ BEGIN
RETURNING mld_melding_key RETURNING mld_melding_key
INTO v_melding_key; INTO v_melding_key;
fac.trackaction ('MLDNEW', v_melding_key, NULL, SYSDATE, 'Ge<EFBFBD>mporteerd vanuit HV-sjabloon'); fac.trackaction ('MLDNEW', v_melding_key, NULL, SYSDATE, 'Ge<EFBFBD>mporteerd vanuit HV-sjabloon');
IF rec.stdmelding_key = 102 IF rec.stdmelding_key = 102
THEN THEN
@@ -2495,7 +2513,7 @@ BEGIN
RETURNING mld_melding_key RETURNING mld_melding_key
INTO v_melding_key; INTO v_melding_key;
fac.trackaction ('MLDNEW', v_melding_key, NULL, SYSDATE, 'Ge<EFBFBD>mporteerd vanuit INK-sjabloon'); fac.trackaction ('MLDNEW', v_melding_key, NULL, SYSDATE, 'Ge<EFBFBD>mporteerd vanuit INK-sjabloon');
-- Moet bestaan! -- Moet bestaan!
v_errormsg := 'Fout toevoegen investeringsrubriek'; v_errormsg := 'Fout toevoegen investeringsrubriek';