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

FZKH#87266 -- Implementatie Import MT assets en inspecties

Browse Source 
svn path=/Customer/trunk/; revision=68942
This commit is contained in:
Norbert Wassink
2025-05-08 08:56:44 +00:00
parent 84bd7a6976
commit b6fc849367
1 changed files with 35 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
FZKH/FZKH.sql
View File

@@ -551,7 +551,7 @@ BEGIN
'Einde Garantie|0='||rec.ins_kenm_garantie,
'Status|0='||rec.ins_kenm_status,
'Aanschafprijs|0='||TRIM(rec.ins_kenm_aanschafprijs),
'Installatie datum|0='||rec.ins_kenm_instaldatum
'Installatie datum|0='||TO_CHAR(rec.ins_kenm_instaldatum,'DD-MM-YYY')
);
END IF;
END LOOP;
@@ -626,21 +626,41 @@ BEGIN
'Objecten niet gevonden :'||rec.ins_deel_omschrijving,'');
END;
BEGIN
SELECT prs_afdeling_key
INTO v_prs_afdeling_key
FROM prs_afdeling
WHERE prs_afdeling_naam = rec.prs_afdeling_code
AND prs_afdeling_verwijder IS NULL;
EXCEPTION
WHEN NO_DATA_FOUND THEN
SELECT COUNT(*)
INTO v_count
FROM prs_afdeling a, prs_kostenplaats k
WHERE k.prs_kostenplaats_nr = rec.prs_afdeling_code
and a.prs_kostenplaats_key = k.prs_kostenplaats_key
AND prs_afdeling_verwijder IS NULL;
IF v_count=1
THEN
SELECT prs_afdeling_key
INTO v_prs_afdeling_key
FROM prs_afdeling a,
prs_kostenplaats k
WHERE k.prs_kostenplaats_nr = rec.prs_afdeling_code
AND a.prs_kostenplaats_key = k.prs_kostenplaats_key
AND prs_afdeling_verwijder IS NULL;
ELSIF v_count>1
THEN
SELECT MIN(prs_afdeling_key)
INTO v_prs_afdeling_key
FROM prs_afdeling a,
prs_kostenplaats k
WHERE k.prs_kostenplaats_nr = rec.prs_afdeling_code
AND a.prs_kostenplaats_key = k.prs_kostenplaats_key
AND a.prs_afdeling_omschrijving LIKE 'T-%' -- Pakken we de teamleiders afdeling
AND prs_afdeling_verwijder IS NULL;
ELSE
v_prs_afdeling_key:=-1;
fac.imp_writelog (
p_import_key,
'W',
'Afdeling niet gevonden :'||rec.prs_afdeling_code,'');
END;
fac.imp_writelog (p_import_key,
'W',
'Afdeling niet gevonden :'||rec.prs_afdeling_code,'');
END IF;
IF v_ins_deel_key>0 AND v_prs_afdeling_key>0
THEN
UPDATE ins_deel