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

YAXX#59749 Strukton-koppeling/Diverse optimalisaties

Browse Source 
svn path=/Customer/trunk/; revision=45342
This commit is contained in:
Maarten van der Heide
2020-01-02 16:18:34 +00:00
parent 2da2722cba
commit e48efa7ad3
1 changed files with 20 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
KFNS/kfns.sql
View File

@@ -764,7 +764,6 @@ BEGIN
v_status := 8; -- geaccepteerd
WHEN v_status_code = '20' -- monteur gereed
THEN
--TODO: Notitie toevoegen (alleen bij eerste overgang?)
v_status := 6; -- afgemeld
WHEN v_status_code = '25' -- specialist gereed
THEN
@@ -789,12 +788,10 @@ BEGIN
THEN
--TODO: Notitie toevoegen (incl. reden?)
v_status := NULL; -- ongewijzigd
v_ongeldig := 1; -- TODO:Verwijderen!
WHEN v_status_code = '210' -- herpland
THEN
--TODO: Notitie toevoegen
v_status := NULL; -- ongewijzigd
v_ongeldig := 1; -- TODO:Verwijderen!
ELSE
v_status := NULL;
v_ongeldig := 1; -- nog te bezien
@@ -956,21 +953,21 @@ BEGIN
WHERE mld_kenmerkopdr_key = v_mld_kenmerkopdr_key;
END IF;
v_errormsg := 'Fout bijwerken Opmerking (opdracht).';
v_count := LENGTH (rec.opmerking) + 5; -- Beetje speling qua lengte!
UPDATE mld_opdr
SET mld_opdr_opmerking =
DECODE (mld_opdr_opmerking,
NULL, rec.opmerking,
rec.opmerking || CHR (13) || CHR (10) || SUBSTR (mld_opdr_opmerking, 1, (4000 - v_count)))
WHERE mld_opdr_key = v_opdr_key;
v_errormsg := 'Fout bijwerken Status.';
IF v_opdr_status <> rec.status
IF rec.status IS NOT NULL
THEN
v_errormsg := 'Fout bijwerken Opmerking (opdracht).';
v_count := LENGTH (rec.opmerking) + 5; -- Beetje speling qua lengte!
UPDATE mld_opdr
SET mld_opdr_opmerking =
DECODE (mld_opdr_opmerking,
NULL, rec.opmerking,
rec.opmerking || CHR (13) || CHR (10) || SUBSTR (mld_opdr_opmerking, 1, (4000 - v_count)))
WHERE mld_opdr_key = v_opdr_key;
v_errormsg := 'Fout bijwerken Status.';
IF rec.status = 8 AND v_opdr_status = 5
THEN
-- Accepteer de opdracht als deze uitgegeven was
@@ -1003,19 +1000,16 @@ BEGIN
IF rec.status = 6 AND v_opdr_status <> 6
THEN
--TODO: Toevoegen Notitie!
--INSERT INTO mld_opdr_note (mld_opdr_key, mld_opdr_note_omschrijving, prs_perslid_key)
-- VALUES (v_opdr_key, NULL, c_user_key); --TODO: Wat toevoegen???
-- AADO#30922: Melding niet meer automatisch afmelden.
-- KFNS#37965: Opmerking-veld bij melding niet meer bijwerken.
MLD.updatemeldingstatusAV (v_mld_key, 0, c_user_key, 0);
END IF;
--ELSIF rec.status IS NULL -- Status ongewijzigd, dan toevoegen Notitie!
--THEN
--TODO: Toevoegen Notitie!
--INSERT INTO mld_opdr_note (mld_opdr_key, mld_opdr_note_omschrijving, prs_perslid_key)
-- VALUES (v_opdr_key, NULL, c_user_key); --TODO: Wat toevoegen???
ELSE -- rec.status IS NULL (= Onderbroken/Herpland), dan toevoegen Notitie!
-- YAXX#59749: Toevoegen Notitie!
v_errormsg := 'Fout toevoegen Notitie (opdracht).';
INSERT INTO mld_opdr_note (mld_opdr_key, mld_opdr_note_omschrijving, prs_perslid_key)
VALUES (v_opdr_key, rec.opmerking, c_user_key);
END IF;
END IF;
COMMIT;