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

TDNL#86074 -- Ondersteuning bij ZE laadpaalobjecten en storingsmeldingen voor Transdev

Browse Source 
svn path=/Customer/trunk/; revision=68410
This commit is contained in:
Norbert Wassink
2025-03-14 14:32:39 +00:00
parent cde0b6b304
commit f1aa0df698
1 changed files with 31 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
TDNL/TDNL.sql
View File

@@ -2079,7 +2079,7 @@ AS
ins_deel_omschrijving,
INS_KENMERKWAARDE19 ins_srtdeel_parent,
INS_KENMERKWAARDE20 ins_deel_parent,
INS_KENMERKWAARDE16 ins_deel_breedte,
INS_KENMERKWAARDE16 ins_deel_breedte,
INS_KENMERKWAARDE17 ins_deel_lengte
FROM fac_imp_ins
WHERE INS_KENMERKWAARDE19 IS NOT NULL
@@ -2093,6 +2093,7 @@ AS
v_regel NUMBER;
v_ins_deel_key NUMBER;
v_ins_deel_parent_key NUMBER;
v_ins_deelkoppeling_count NUMBER;
BEGIN
fac_update_ins(p_import_key);
@@ -2106,12 +2107,12 @@ BEGIN
v_errormsg := 'Object '||rec.ins_deel_omschrijving||' niet gevonden, regel wordt overgeslagen.';
SELECT ins_deel_key
INTO v_ins_deel_key
FROM ins_v_aanwezigdeel i, ins_srtdeel id
FROM ins_v_aanwezigdeel i , ins_srtdeel id
WHERE UPPER(i.ins_deel_omschrijving)=UPPER(rec.ins_deel_omschrijving)
AND id.ins_srtdeel_code_upper=UPPER(rec.ins_srtdeel_code)
AND id.ins_srtdeel_code=UPPER(rec.ins_srtdeel_code)
AND i.ins_srtdeel_key=id.ins_srtdeel_key;
v_errormsg := 'Parent Object '||rec.ins_deel_parent||' niet gevonden, regel wordt overgeslagen.';
v_errormsg := 'Parent Object '||rec.ins_deel_parent||' ('||rec.ins_srtdeel_parent||') niet gevonden, regel wordt overgeslagen.-'||v_ins_deel_key;
SELECT ins_deel_key
INTO v_ins_deel_parent_key
FROM ins_v_aanwezigdeel i, ins_srtdeel id
@@ -2125,14 +2126,34 @@ BEGIN
THEN
fac.imp_writelog(p_import_key, 'E',v_errormsg,'Fout ophalen object');
END;
iF v_ins_deel_key>0 AND v_ins_deel_parent_key>0
THEN
UPDATE ins_deel
SET ins_deel_parent_key=v_ins_deel_parent_key, ins_deel_x=rec.ins_deel_breedte, ins_deel_y=rec.ins_deel_lengte
v_errormsg := 'Object '||v_ins_deel_key||' updaten gaat fout met '||rec.ins_deel_breedte|| '-'||rec.ins_deel_lengte;
IF v_ins_deel_key> 0 AND LENGTH(rec.ins_deel_breedte)>1 AND LENGTH(rec.ins_deel_lengte)>1
THEN
UPDATE ins_deel
SET ins_deel_x=fac.safe_to_number(rec.ins_deel_breedte), ins_deel_y=fac.safe_to_number(rec.ins_deel_lengte)
WHERE ins_deel_key=v_ins_deel_key;
END IF;
IF v_ins_deel_key>0 AND v_ins_deel_parent_key>0
THEN
SELECT COUNT(*)
INTO v_ins_deelkoppeling_count
from ins_deelkoppeling
where ins_deelkoppeling_van_key=v_ins_deel_parent_key
AND ins_deelkoppeling_naar_key=v_ins_deel_key
AND ins_deelkoppeling_verwijder IS NULL;
IF v_ins_deelkoppeling_count =0
THEN
INSERT INTO ins_deelkoppeling(ins_deelkoppeling_van_key, ins_deelkoppeling_naar_key, ins_deelkoppeling_aanmaak)
VALUES(v_ins_deel_parent_key, v_ins_deel_key,SYSDATE);
fac.imp_writelog(p_import_key,'I','Objecten '||rec.ins_deel_omschrijving||' is gekoppeld aan '||rec.ins_deel_parent,'GEKOPPELD');
COMMIT;
END IF;
fac.imp_writelog(p_import_key,'I','Objecten '||rec.ins_deel_omschrijving||' is gekoppeld aan '||rec.ins_deel_parent,'GEKOPPELD');
END IF;
END LOOP;
EXCEPTION