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

154
NOVA/nova.sql
View File

@@ -636,7 +636,7 @@ AS
PROCEDURE update_prs2loc;
PROCEDURE afmelden_bes;
PROCEDURE afmelden_mld;
PROCEDURE insert_kanaal;
PROCEDURE upsert_kanaal;
PROCEDURE verwerken_res; -- VOOR res2benq: Verwerkt eerder doorgezette RES!
PROCEDURE res2benq;
END;
@@ -954,7 +954,7 @@ AS
END afmelden_bes;
-- 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.
-- NB. In andere gevallen moet melding maar handmatig worden gesloten.
PROCEDURE afmelden_mld
@@ -1002,8 +1002,8 @@ AS
fac.writelog ('AFMELDEN_MLD', 'E', v_errormsg, '');
END afmelden_mld;
-- Automatisch toevoegen O-kanaal (prs_bedrijfadres) voor nieuwe relaties.
PROCEDURE insert_kanaal
-- Automatisch bijwerken O-kanaal (prs_bedrijfadres) van relaties.
PROCEDURE upsert_kanaal
AS
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
@@ -1013,7 +1013,7 @@ AS
-- Bepalen nieuwe relaties nog zonder O-kanaal.
CURSOR c1
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
WHERE b.prs_bedrijf_intern IS NULL
AND b.prs_bedrijf_key NOT IN (3661) -- Benque
@@ -1023,6 +1023,17 @@ AS
FROM prs_bedrijfadres
WHERE prs_bedrijfadres_type = 'O'
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;
BEGIN
v_count := 0;
@@ -1033,6 +1044,8 @@ AS
SET prs_bedrijf_uitvoerende = 1
WHERE prs_bedrijf_key = rec.prs_bedrijf_key;
IF rec.prs_bedrijfadres_key IS NULL
THEN
INSERT INTO prs_bedrijfadres (prs_bedrijf_key,
prs_bedrijfadres_type,
prs_bedrijfadres_url,
@@ -1047,18 +1060,23 @@ AS
'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;
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
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog ('INSERT_KANAAL', 'E', v_errormsg, '');
END insert_kanaal;
fac.writelog ('UPSERT_KANAAL', 'E', v_errormsg, '');
END upsert_kanaal;
-- Automatisch verwerken ruimte-reserveringen (roomservice-reserveringen
-- hebben geen BO-status) die eerder (= voorgaande dag) zijn doogezet naar
@@ -1291,10 +1309,10 @@ BEGIN
-- Automatisch sluiten MLD (zoals helder gespecificeerd)!
nova.afmelden_mld;
-- Automatisch toevoegen O-kanaal voor nieuwe relaties!
nova.insert_kanaal;
-- Automatisch bijwerken O-kanaal van relaties!
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
-- (roomservice-reserveringen hebben geen BO-status)!
-- LET OP: De procedure 'verwerken_res' moet draaien VOOR 'res2benq'!
@@ -1734,40 +1752,40 @@ BEGIN
-- Controleer kritische veldwaarden
-- 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_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_inventaris, '.', ''), ',', '.'), '<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_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;
-- Projecten
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_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_bijkomende_kosten, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL
OR fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_onvoorzien, '.', ''), ',', '.'), '<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_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_bijkomende_kosten, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL
OR fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_onvoorzien, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL
THEN
v_count_tst := v_count_tst + 1;
END IF;
-- 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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_transportmid5k, '.', ''), ',', '.'), '<EFBFBD>', '')) IS NOT NULL THEN v_count_tst := v_count_tst + 1; END IF;
IF v_count_tst = 0
THEN
@@ -1824,40 +1842,40 @@ BEGIN
VALUES (TRIM (v_gebouw),
TRIM (v_nrs),
TRIM (v_omschrijving),
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_aanp_gebter, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_inventaris, '.', ''), ',', '.'), '<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_aanp_gebter, '.', ''), ',', '.'), '<EFBFBD>', '')),
fac.safe_to_number (REPLACE (REPLACE (REPLACE (v_inventaris, '.', ''), ',', '.'), '<EFBFBD>', '')),
TRIM (v_noodzaak),
TRIM (v_vervuitbrvern),
TRIM (v_leverancier),
TRIM (v_maand),
TRIM (v_contactpers),
TRIM (v_toelichting),
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_advieskosten, '.', ''), ',', '.'), '<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_onvoorzien, '.', ''), ',', '.'), '<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_inr_terreinen40k, '.', ''), ',', '.'), '<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_verbouwingen40k, '.', ''), ',', '.'), '<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_onderh15j25k, '.', ''), ',', '.'), '<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_onderh30j25k, '.', ''), ',', '.'), '<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_overige_inv3k, '.', ''), ',', '.'), '<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_transportmid5k, '.', ''), ',', '.'), '<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_advieskosten, '.', ''), ',', '.'), '<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_onvoorzien, '.', ''), ',', '.'), '<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_inr_terreinen40k, '.', ''), ',', '.'), '<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_verbouwingen40k, '.', ''), ',', '.'), '<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_onderh15j25k, '.', ''), ',', '.'), '<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_onderh30j25k, '.', ''), ',', '.'), '<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_overige_inv3k, '.', ''), ',', '.'), '<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_transportmid5k, '.', ''), ',', '.'), '<EFBFBD>', '')));
v_count_imp := v_count_imp + 1;
EXCEPTION
WHEN OTHERS
@@ -2041,7 +2059,7 @@ BEGIN
RETURNING mld_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
THEN
@@ -2495,7 +2513,7 @@ BEGIN
RETURNING mld_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!
v_errormsg := 'Fout toevoegen investeringsrubriek';