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

VNOG#83559 -- Import bepakkinglijst maakt nu gebruik van standaard parent kolommen per 2025.1

Browse Source 
svn path=/Customer/trunk/; revision=68276
This commit is contained in:
Robin Stoker
2025-03-04 13:25:37 +00:00
parent 03c821aac2
commit a82fd79b57
1 changed files with 16 additions and 113 deletions
Download Patch File Download Diff File Expand all files Collapse all files

129
VNOG/vnog.sql
View File

@@ -80,6 +80,8 @@ IS
v_res_discipline_kostensoort VARCHAR2 (255); -- C60
v_prs_perslid_matchcode VARCHAR2 (4000);
v_prs_perslid_matchwaarde VARCHAR2 (4000);
v_ins_srtdeel_omschr_parent VARCHAR2 (255); -- C100
v_ins_deel_omschr_parent VARCHAR2 (255); -- C60
v_ins_kenmerkwaarde1 VARCHAR2 (4053);
v_ins_kenmerkwaarde2 VARCHAR2 (4053);
v_ins_kenmerkwaarde3 VARCHAR2 (4053);
@@ -125,6 +127,8 @@ IS
CURSOR loc_ins
IS
SELECT i.ins_deel_key deel_key,
i.ins_srtdeel_upper psrt_deel,
i.ins_deel_omschrijving pdeel,
l.alg_locatie_code locatie,
i.alg_gebouw_code gebouw,
i.alg_verdieping_code verdieping,
@@ -467,7 +471,9 @@ BEGIN
ins_deel_aanmaak,
ins_deel_vervaldatum,
ins_deel_aantal,
ins_deel_externnr
ins_deel_externnr,
ins_srtdeel_omschr_parent,
ins_deel_omschr_parent
)
VALUES (
v_ins_discipline_omschrijving,
@@ -513,7 +519,9 @@ BEGIN
v_ins_deel_aanmaak_d,
v_ins_deel_vervaldatum_d,
v_ins_deel_aantal_n,
v_ins_deel_externnr
v_ins_deel_externnr,
v_ins_srtdeel_omschr_parent,
v_ins_deel_omschr_parent
);
COMMIT;
@@ -608,7 +616,9 @@ BEGIN
SET alg_locatie_code = rec.locatie,
alg_gebouw_code = rec.gebouw,
alg_verdieping_volgnr = rec.verdieping,
alg_ruimte_nr = rec.ruimte
alg_ruimte_nr = rec.ruimte,
ins_srtdeel_omschr_parent = rec.psrt_deel, -- parent (onderdeel van)
ins_deel_omschr_parent = rec.pdeel -- parentdeel
WHERE ins_kenmerkwaarde19 = rec.deel_key;
END;
@@ -663,7 +673,7 @@ AS
-- Gerelateerd maken van ingelezen items aan voertuig.
CURSOR imp_ins
IS
SELECT i.ins_deel_key asset, fac.safe_to_number (f.ins_kenmerkwaarde19) parent, f.ins_kenmerkwaarde18 image
SELECT i.ins_deel_key asset, f.ins_kenmerkwaarde18 image
FROM ins_deel i,
fac_imp_ins f
WHERE i.ins_deel_omschrijving = f.ins_deel_omschrijving
@@ -686,13 +696,11 @@ BEGIN
-- Eerst de objecten verwerken op de normale manier
fac_update_ins (p_import_key);
-- Dan de zojuist aangemaakte objecten gerelateerd maken aan de parent en de afbeelding toekennen.
-- Dan de zojuist aangemaakte objecten voorzien van een afbeelding.
FOR rec IN imp_ins
LOOP
BEGIN
INSERT INTO ins_deelkoppeling (ins_deelkoppeling_van_key, ins_deelkoppeling_naar_key)
VALUES (rec.parent, rec.asset);
UPDATE ins_deel
SET ins_deel_image = rec.image
WHERE ins_deel_key = rec.asset;
@@ -1346,7 +1354,6 @@ CREATE OR REPLACE PACKAGE VNOG
AS
PROCEDURE afmelden_mld;
PROCEDURE afmelden_ord;
PROCEDURE verhuis_inv;
PROCEDURE verstuur_gmo;
PROCEDURE post_helloid;
END;
@@ -1473,109 +1480,6 @@ AS
fac.writelog (c_applname, 'E', v_aanduiding || v_errormsg, 'Taak afgebroken!');
END;
PROCEDURE verhuis_inv
AS
c_applname VARCHAR2 (50) := 'VERHUIS_INV';
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_aanduiding VARCHAR2 (200);
v_count_tot NUMBER (10);
v_deel_key NUMBER (10);
v_perslid_key NUMBER (5) := 3;
CURSOR c1 IS
SELECT i2.ins_deel_omschrijving vrt,
i.ins_deel_omschrijving inv,
i.ins_deel_opmerking nummer,
i.ins_deel_key inventaris,
i2.ins_deel_key voertuig,
i.ins_alg_ruimte_key ruimte_oud,
i2.ins_alg_ruimte_key ruimte_nieuw,
COALESCE (SUBSTR (i2.ins_deel_omschrijving,
1,
INSTR (i2.ins_deel_omschrijving, '/') - 1), i2.ins_deel_omschrijving) waarde
FROM ins_deel i, ins_deel i2, ins_deelkoppeling k
WHERE i.ins_deel_key = k.ins_deelkoppeling_naar_key
AND i2.ins_deel_key = k.ins_deelkoppeling_van_key
AND i.ins_alg_ruimte_key <> i2.ins_alg_ruimte_key
AND i.ins_alg_ruimte_type = 'R'
AND i2.ins_alg_ruimte_type = 'R'
AND i.ins_deel_verwijder IS NULL
AND i2.ins_deel_verwijder IS NULL;
CURSOR c2 IS
SELECT x.inventaris,
x.nummer,
x.waarde
FROM (SELECT i2.ins_deel_omschrijving vrt,
i.ins_deel_omschrijving inv,
i.ins_deel_opmerking nummer,
i.ins_deel_key inventaris,
i2.ins_deel_key voertuig,
i.ins_alg_ruimte_key ruimte_oud,
i2.ins_alg_ruimte_key ruimte_nieuw,
SUBSTR (i2.ins_deel_omschrijving,
1,
INSTR (i2.ins_deel_omschrijving, '/') - 1) waarde
FROM ins_deel i, ins_deel i2, ins_deelkoppeling k
WHERE i.ins_deel_key = k.ins_deelkoppeling_naar_key
AND i2.ins_deel_key = k.ins_deelkoppeling_van_key
AND i.ins_alg_ruimte_type = 'R'
AND i2.ins_alg_ruimte_type = 'R'
AND i.ins_deel_verwijder IS NULL
AND i2.ins_deel_verwijder IS NULL) x
WHERE x.nummer != x.waarde;
BEGIN
v_count_tot := 0;
FOR rec IN c1
LOOP
v_errormsg := 'Fout verhuizen inventarisitem';
v_aanduiding := '[deelkey: ' || TO_CHAR (rec.inventaris) || ']';
BEGIN
UPDATE ins_deel
SET ins_alg_ruimte_key = rec.ruimte_nieuw,
ins_deel_opmerking = rec.waarde
WHERE ins_deel_key = rec.inventaris
RETURNING ins_deel_key
INTO v_deel_key;
fac.trackaction ('INSUPD', v_deel_key, v_perslid_key, NULL, '#Inventarisitem verhuisd met voertuig');
END;
v_count_tot := v_count_tot + 1;
END LOOP;
fac.writelog (c_applname, 'S', '#Inventarisitems verplaatst: ' || TO_CHAR (v_count_tot), '');
COMMIT;
v_count_tot := 0;
FOR rec IN c2
LOOP
v_errormsg := 'Fout toekennen nieuw 06-nummer';
v_aanduiding := '[deelkey: ' || TO_CHAR (rec.inventaris) || ']';
BEGIN
UPDATE ins_deel
SET ins_deel_opmerking = rec.waarde
WHERE ins_deel_key = rec.inventaris
RETURNING ins_deel_key
INTO v_deel_key;
fac.trackaction ('INSUPD', v_deel_key, v_perslid_key, NULL, '#Nieuw 06-nummer toegekend aan inventarisitem');
END;
v_count_tot := v_count_tot + 1;
END LOOP;
fac.writelog (c_applname, 'S', '#Inventarisitems aangepast: ' || TO_CHAR (v_count_tot), '');
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog (c_applname, 'E', v_aanduiding || v_errormsg, 'Taak afgebroken!');
END;
-- Maak elke jaar op 1 augustus voor iedereen met objecten een GMO melding aan.
-- Objecten in bezit worden hieraan gekoppeld.
-- Wanneer een GMO melding voorzien is van een handtekening wordt deze de volgende dag afgemeld.
@@ -1834,7 +1738,6 @@ AS
BEGIN
vnog.afmelden_mld;
vnog.afmelden_ord;
vnog.verhuis_inv;
vnog.verstuur_gmo;
vnog.post_helloid;
EXCEPTION