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

ASFC#34371: Start en stopmoment bij schoonmaak via inspecties kunnen vastleggen.

Browse Source 
svn path=/Database/trunk/; revision=28512
This commit is contained in:
Maykel Geerdink
2016-03-17 11:36:51 +00:00
parent f1f8e183b1
commit a382ad0979
2 changed files with 55 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
FAC/FAC_PAC.SRC
View File

@@ -2839,6 +2839,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
lprs_bedrijf_key prs_bedrijf.prs_bedrijf_key%TYPE;
lmldbehandelaar mld_melding.mld_melding_behandelaar_key%TYPE;
lafs_key bez_afspraak.bez_afspraak_key%TYPE;
lins_deel_ley ins_deel.ins_deel_key%TYPE;
BEGIN
-- Het gaat om een notificatie bij een entiteit prefkey,
-- waarvan het type alleen nog moet worden bepaald via
@@ -3501,6 +3502,44 @@ CREATE OR REPLACE PACKAGE BODY fac AS
NULL;
END;
END IF;
WHEN lxmlnode = 'controle'
THEN
IF ptracking_oms IS NULL
THEN
bericht := ins.contrsprintf (loms, prefkey);
END IF;
-- Bij Controle, Vervanging of Certificering sturen we een notificatie naar diegene die de Controle, Vervanging of Certificering heeft uitgevoerd.
SELECT prs_perslid_key, ins_deel_key
INTO lreceiver, lins_deel_ley
FROM ins_deelsrtcontrole
WHERE ins_deelsrtcontrole_key = prefkey;
-- Afzender via ins_deel.
BEGIN
SELECT MAX (ins_discipline_email)
INTO lsender
FROM ins_tab_discipline d,
ins_deel dl,
ins_srtdeel sd,
ins_srtgroep sg
WHERE dl.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
AND sg.ins_discipline_key = d.ins_discipline_key
AND dl.ins_deel_key = lins_deel_ley;
IF lsender IS NULL
THEN
SELECT l.alg_locatie_email
INTO lsender
FROM alg_locatie l
WHERE l.alg_locatie_key = lalglocatiekey;
END IF;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
NULL;
END;
WHEN lxmlnode = 'contract'
THEN
IF ptracking_oms IS NULL

21
INS/INS_PAC.SRC
View File

@@ -8,6 +8,7 @@ CREATE OR REPLACE PACKAGE ins AS
FUNCTION delete_deelkoppeling( DeelKey IN NUMBER ) RETURN BOOLEAN;
FUNCTION get_description(LPNName IN VARCHAR2, CondKey IN NUMBER, Prefix IN VARCHAR2) RETURN VARCHAR2;
FUNCTION sprintf (ps IN varchar2, pins_deel_key IN number) RETURN varchar2;
FUNCTION contrsprintf (ps IN varchar2, pins_deelsrtcontr_key IN number) RETURN varchar2;
FUNCTION nextcyclusdate (p_insdeel IN NUMBER, p_srtcontrole IN NUMBER, p_steps IN NUMBER DEFAULT 0) RETURN DATE;
FUNCTION nextcyclusdatesteps (p_insdeel IN NUMBER, p_srtcontrole IN NUMBER, p_steps IN NUMBER DEFAULT 1) RETURN NUMBER;
PROCEDURE setinspectstatus (pdlsrtcontrkey IN NUMBER, pstatus IN NUMBER, puserkey IN NUMBER);
@@ -179,11 +180,21 @@ CREATE OR REPLACE PACKAGE BODY ins AS
INTO lins_deel_omschrijving
FROM ins_deel
WHERE ins_deel_key = pins_deel_key;
s :=
REPLACE (s,
'##DESC##',
lins_deel_omschrijving
);
s := REPLACE (REPLACE (s, '##DESC##', lins_deel_omschrijving), '##KEY##', TO_CHAR (pins_deel_key));
END IF;
RETURN s;
END;
FUNCTION contrsprintf (ps IN varchar2, pins_deelsrtcontr_key IN number)
RETURN varchar2
IS
s varchar2 (2048 CHAR);
BEGIN
s := ps;
IF INSTR2 (s, '#') > 0
THEN
s := REPLACE (s, '##KEY##', TO_CHAR (pins_deelsrtcontr_key));
END IF;
RETURN s;