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

SGGR#56228 notificatie na uitgifte object

Browse Source 
svn path=/Customer/trunk/; revision=44084
This commit is contained in:
Suzan Wiegerinck
2019-09-04 11:57:01 +00:00
parent 23ccc7fa4b
commit 5771a8e509
1 changed files with 55 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
SGGR/sggr.sql
View File

@@ -2032,10 +2032,20 @@ AS
SELECT *
FROM fac_tracking t, ins_deel d
WHERE fac_tracking_refkey = d.ins_deel_key
AND d.ins_srtdeel_key = 481 -- autos
AND d.ins_srtdeel_key in (481, 621) -- pool autos 481 , later samengevoegd: lease/poolauto's
AND fac_srtnotificatie_key IN (96, 97) -- uitgifte (insout) en inname (insinn)
ORDER BY ins_deel_key, fac_tracking_datum;
CURSOR bez IS
SELECT t.*, d.*
FROM fac_tracking t, ins_deel d, ins_srtdeel sd
WHERE t.fac_tracking_refkey = d.INS_DEEL_KEY
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
AND (d.ins_srtdeel_key in (621,741) OR sd.ins_srtgroep_key = 41) -- 621 auto's, 741 SIM , 41 sleutels
AND t.fac_srtnotificatie_key IN (96, 97) -- uitgifte (insout) en inname (insinn)
ORDER BY d.ins_deel_key, t.fac_tracking_datum;
v_bestuurder VARCHAR2 (60);
v_uitgifte DATE;
v_inname DATE;
@@ -2051,6 +2061,8 @@ AS
BEGIN
DELETE sggr_autorit_registratie;
DELETE sggr_bezittingen_registratie;
FOR rec IN c
LOOP
BEGIN
@@ -2122,9 +2134,51 @@ BEGIN
END IF;
END;
END LOOP;
FOR rec IN bez
LOOP
BEGIN
v_search := 'is uitgegeven aan';
v_dummy :=
SUBSTR (sggr.find_str (rec.fac_tracking_oms, v_search),
0,
60);
v_medewerker := v_dummy;
IF rec.fac_srtnotificatie_key = 96
THEN
-- Uitgifte
v_uitgifte := rec.fac_tracking_datum;
INSERT INTO sggr_bezittingen_registratie (
ins_deel_key,
medewerker,
uitgifte,
fac_tracking_uitgifte_key)
VALUES (rec.fac_tracking_refkey,
v_bestuurder,
v_uitgifte,
rec.fac_tracking_key);
v_fac_tracking_uitgifte_key := rec.fac_tracking_key;
ELSE
v_inname := rec.fac_tracking_datum;
UPDATE sggr_bezittingen_registratie
SET inname = v_inname,
fac_tracking_inname_key = rec.fac_tracking_key
WHERE fac_tracking_uitgifte_key =
v_fac_tracking_uitgifte_key;
END IF;
END;
END LOOP;
END;
/
CREATE OR REPLACE VIEW SGGR_V_RAP_AUTO_REGISTRATIE
(
TIMESTAMP,