593 lines
24 KiB
Plaintext
593 lines
24 KiB
Plaintext
#ifdef CNT
|
|
/*
|
|
* $Revision$
|
|
* $Id$
|
|
*/
|
|
|
|
CREATE OR REPLACE PACKAGE cnt AS
|
|
PROCEDURE setcontractstatus (pcontractkey IN NUMBER, pstatus IN NUMBER, puserkey IN NUMBER);
|
|
FUNCTION cnt_getTermijndatum (pdate IN DATE, ptermijn_key IN NUMBER, prichting IN NUMBER) RETURN DATE;
|
|
FUNCTION termijnjaarfactor (ptermijn_key IN NUMBER) RETURN NUMBER;
|
|
FUNCTION cnt_getOpzegdatum (pcnt_contract_key IN NUMBER) RETURN DATE;
|
|
FUNCTION cnt_getRappeldatum (pcnt_contract_key IN NUMBER) RETURN DATE;
|
|
FUNCTION cnt_contract_status (van IN DATE, rappel IN DATE, opzeg IN DATE, tot IN DATE) RETURN NUMBER;
|
|
FUNCTION cnt_contract_items (cntKey IN NUMBER) RETURN VARCHAR2;
|
|
|
|
PROCEDURE cnt_complete_mutatie(p_mutaite_key IN NUMBER);
|
|
PROCEDURE splitscontract (p_key IN NUMBER, p_datum IN DATE, p_user IN NUMBER, p_amount NUMBER);
|
|
FUNCTION getnieuwsteversiekey(p_key IN NUMBER) RETURN NUMBER;
|
|
FUNCTION sprintf (ps IN VARCHAR2 , p_contract_key IN NUMBER) RETURN VARCHAR2;
|
|
|
|
PRAGMA RESTRICT_REFERENCES (cnt_contract_items, WNDS, WNPS);
|
|
PRAGMA RESTRICT_REFERENCES (cnt_contract_status, WNDS, WNPS);
|
|
END Cnt;
|
|
/
|
|
|
|
CREATE OR REPLACE PACKAGE BODY cnt AS
|
|
-- Geef contractkey, gewenste status en userkey, en de status wortdt
|
|
-- gezet, waarbij zonodig (indien verandering) een trackrecord wordt gemaakt
|
|
-- Als de status niet wijzigt, wordt ook geen trackrecord gemaakt
|
|
-- ZIE schema StateDiagramContracten.vsd
|
|
PROCEDURE setcontractstatus (pcontractkey IN NUMBER, pstatus IN NUMBER, puserkey IN NUMBER)
|
|
AS
|
|
currentstatus cnt_contract.cnt_contract_status%TYPE;
|
|
newstatus cnt_contract.cnt_contract_status%TYPE;
|
|
eventcode fac_srtnotificatie.fac_srtnotificatie_code%TYPE;
|
|
BEGIN
|
|
SELECT cnt_contract_status
|
|
INTO currentstatus
|
|
FROM cnt_contract
|
|
WHERE cnt_contract_key = pcontractkey;
|
|
|
|
CASE pstatus
|
|
WHEN 0 -- Actief
|
|
THEN
|
|
IF currentstatus IS NULL
|
|
THEN
|
|
newstatus := pstatus;
|
|
eventcode := 'CNTNEW';
|
|
ELSIF currentstatus = 2 OR currentstatus = 3 -- Het kan ook zijn dat er geen fiattering nodig is.
|
|
THEN
|
|
newstatus := pstatus;
|
|
eventcode := 'CNTFIT';
|
|
END IF;
|
|
WHEN 1 -- Gesloten
|
|
THEN
|
|
IF currentstatus = 0
|
|
THEN
|
|
newstatus := pstatus;
|
|
eventcode := 'CNTCLO';
|
|
END IF;
|
|
WHEN 2 -- Nieuw
|
|
THEN
|
|
IF currentstatus IS NULL
|
|
THEN
|
|
newstatus := pstatus;
|
|
eventcode := 'CNTNEW';
|
|
ELSIF currentstatus = 3
|
|
THEN
|
|
newstatus := pstatus;
|
|
eventcode := 'CNTREJ';
|
|
END IF;
|
|
WHEN 3 -- Ter goedkeuring
|
|
THEN
|
|
IF currentstatus = 2
|
|
THEN
|
|
newstatus := pstatus;
|
|
eventcode := 'CNTCPT';
|
|
END IF;
|
|
ELSE
|
|
-- Invalid statuschange or no change
|
|
newstatus := NULL;
|
|
END CASE;
|
|
|
|
IF newstatus IS NOT NULL
|
|
THEN
|
|
-- vooralsnog lopen de notificaties 1-op-1 met de tracking
|
|
-- noticode := eventcode;
|
|
UPDATE cnt_contract
|
|
SET cnt_contract_status = newstatus
|
|
WHERE cnt_contract_key = pcontractkey;
|
|
|
|
-- We know that trackaction doesnt do tracking if eventcode is null
|
|
fac.trackaction (eventcode, pcontractkey, puserkey, NULL, NULL);
|
|
END IF;
|
|
END;
|
|
|
|
-- Deze functie bepaalt de datum door het termijn (ptermijn_key) van de datum (pdate) in mindering te brengen.
|
|
-- Indien de 29, 30 of 31 datum niet in de betreffende maand voorkomt wordt de eerste van de volgende maand genomen.
|
|
-- prichting geeft aan of ten opzichte van pdate achteruit (-1) of vooruit (1, of anders) moet worden gerekend.
|
|
FUNCTION cnt_getTermijndatum (pdate IN DATE, ptermijn_key IN NUMBER, prichting IN NUMBER)
|
|
RETURN DATE
|
|
IS
|
|
ptermijn_type VARCHAR2(1);
|
|
ptermijn_aantal NUMBER;
|
|
lrichting NUMBER;
|
|
BEGIN
|
|
IF prichting = -1
|
|
THEN
|
|
lrichting := -1;
|
|
ELSE
|
|
lrichting := 1;
|
|
END IF;
|
|
|
|
-- Bepaal type en aantal periodes
|
|
IF ptermijn_key IS NOT NULL
|
|
THEN
|
|
SELECT cnt_termijn_type,
|
|
cnt_termijn_aantal
|
|
INTO ptermijn_type,
|
|
ptermijn_aantal
|
|
FROM cnt_termijn
|
|
WHERE cnt_termijn_key = ptermijn_key;
|
|
ELSE
|
|
-- Als ptermijn_key leeg/ongedefinieerd, return pdate (ofwel termijn dan impliciet 0 dagen)!
|
|
RETURN pdate;
|
|
END IF;
|
|
|
|
IF ptermijn_type = 'D'
|
|
THEN
|
|
RETURN pdate + (lrichting * ptermijn_aantal);
|
|
ELSIF ptermijn_type = 'W'
|
|
THEN
|
|
RETURN pdate + (lrichting * ptermijn_aantal * 7);
|
|
ELSIF ptermijn_type = 'M'
|
|
THEN
|
|
RETURN fac.addMonths(pdate, lrichting * ptermijn_aantal);
|
|
ELSE
|
|
-- ptermijn_type = 'Y'
|
|
RETURN fac.addMonths(pdate, lrichting * ptermijn_aantal * 12);
|
|
END IF;
|
|
END;
|
|
|
|
-- Deze functie benadert de factor om een contracttermijn te normaliseren tot een (1) jaar.
|
|
-- Als dat niet kan (ongeldige termijn) wordt nu -1 opgeleverd
|
|
-- Vb: 4W -> 13, 2M ->6, 2J-> 0,5
|
|
-- Kan geen rekening houden met schrikkeljaren en 53 weken en zo
|
|
FUNCTION termijnjaarfactor (ptermijn_key IN NUMBER)
|
|
RETURN NUMBER
|
|
IS
|
|
ptermijn_type VARCHAR2 (1);
|
|
ptermijn_aantal NUMBER;
|
|
BEGIN
|
|
IF ptermijn_key IS NOT NULL
|
|
THEN
|
|
SELECT cnt_termijn_type, cnt_termijn_aantal
|
|
INTO ptermijn_type, ptermijn_aantal
|
|
FROM cnt_termijn
|
|
WHERE cnt_termijn_key = ptermijn_key;
|
|
ELSE
|
|
-- Als ptermijn_key leeg/ongedefinieerd, return dan maar 1
|
|
RETURN -1;
|
|
END IF;
|
|
|
|
IF ptermijn_aantal = 0
|
|
THEN
|
|
RETURN -1; -- delen door null mag niet he
|
|
END IF;
|
|
|
|
IF ptermijn_type = 'D'
|
|
THEN
|
|
RETURN 365 / ptermijn_aantal;
|
|
-- soms 366
|
|
ELSIF ptermijn_type = 'W'
|
|
THEN
|
|
RETURN 52 / ptermijn_aantal; -- soms 53
|
|
ELSIF ptermijn_type = 'M'
|
|
THEN
|
|
RETURN 12 / ptermijn_aantal;
|
|
ELSE
|
|
-- ptermijn_type = 'Y'
|
|
RETURN 1 / ptermijn_aantal;
|
|
END IF;
|
|
END;
|
|
|
|
FUNCTION cnt_getOpzegdatum (pcnt_contract_key IN NUMBER) RETURN DATE IS
|
|
plooptijd_tot DATE;
|
|
popzegtermijn NUMBER;
|
|
BEGIN
|
|
SELECT cnt_contract_looptijd_tot,
|
|
cnt_contract_opzegtermijn
|
|
INTO plooptijd_tot,
|
|
popzegtermijn
|
|
FROM cnt_contract
|
|
WHERE cnt_contract_key = pcnt_contract_key;
|
|
RETURN cnt_getTermijndatum (plooptijd_tot, popzegtermijn, -1);
|
|
END;
|
|
|
|
FUNCTION cnt_getRappeldatum (pcnt_contract_key IN NUMBER)
|
|
RETURN DATE
|
|
IS
|
|
plooptijd_tot DATE;
|
|
prappeltermijn NUMBER;
|
|
popzegtermijn NUMBER;
|
|
BEGIN
|
|
SELECT cnt_contract_looptijd_tot,
|
|
cnt_contract_rappeltermijn,
|
|
cnt_contract_opzegtermijn
|
|
INTO plooptijd_tot,
|
|
prappeltermijn,
|
|
popzegtermijn
|
|
FROM cnt_contract
|
|
WHERE cnt_contract_key = pcnt_contract_key;
|
|
RETURN cnt_getTermijndatum (cnt_getTermijndatum (plooptijd_tot, popzegtermijn, -1), prappeltermijn, -1);
|
|
END;
|
|
|
|
FUNCTION cnt_contract_status (van IN DATE, rappel IN DATE, opzeg IN DATE, tot IN DATE)
|
|
RETURN NUMBER
|
|
AS
|
|
varSysdate DATE;
|
|
BEGIN
|
|
varSysdate:=SYSDATE;
|
|
|
|
IF varSysdate < van THEN
|
|
RETURN 0;
|
|
ELSIF varSysdate <= rappel THEN
|
|
RETURN 1;
|
|
ELSIF varSysdate <= opzeg THEN
|
|
RETURN 2;
|
|
ELSIF varSysdate <= tot THEN
|
|
RETURN 3;
|
|
END IF;
|
|
|
|
RETURN 4;
|
|
END;
|
|
|
|
FUNCTION cnt_contract_items (cntKey IN NUMBER)
|
|
RETURN VARCHAR2
|
|
AS
|
|
ret VARCHAR2(512);
|
|
var_ckey NUMBER;
|
|
CURSOR query(cntKey NUMBER) IS
|
|
SELECT 1 ckey, S.INS_SRTDEEL_CODE || ' ' ||S.INS_SRTDEEL_OMSCHRIJVING cntText
|
|
from CNT_CONTRACT_OBJECT O, INS_V_AANWEZIGSRTDEEL S
|
|
WHERE O.CNT_CONTRACT_KEY = cntKey
|
|
AND S.ins_srtdeel_key = O.cnt_ins_srtdeel_key
|
|
AND O.cnt_ins_DEEL_key IS NULL
|
|
UNION
|
|
SELECT 2 ckey, D.INS_DEEL_OMSCHRIJVING cntText
|
|
from CNT_CONTRACT_OBJECT O, INS_V_AANWEZIGDEEL D
|
|
WHERE O.CNT_CONTRACT_KEY = cntKey
|
|
AND D.ins_DEEL_key = O.cnt_ins_DEEL_key
|
|
UNION
|
|
SELECT 3 ckey, g.alg_locatie_omschrijving cntText
|
|
FROM alg_v_aanweziglocatie g, CNT_v_aanwezigCONTRACT_PLAATS P
|
|
WHERE p.CNT_CONTRACT_KEY = cntKey
|
|
AND p.cnt_alg_plaats_key = g.alg_locatie_key
|
|
AND p.CNT_ALG_PLAATS_CODE = 'L'
|
|
UNION
|
|
SELECT 4 ckey, l.alg_locatie_omschrijving || ' ' ||g.alg_gebouw_omschrijving cntText
|
|
FROM alg_v_aanweziggebouw g, CNT_v_aanwezigCONTRACT_PLAATS P, alg_locatie l
|
|
WHERE p.CNT_CONTRACT_KEY = cntKey
|
|
AND p.cnt_alg_plaats_key = g.alg_gebouw_key
|
|
AND p.CNT_ALG_PLAATS_CODE = 'G'
|
|
AND l.alg_locatie_key = g.alg_locatie_key
|
|
UNION
|
|
SELECT 5 ckey, l.alg_locatie_omschrijving || ' ' ||alg_terreinsector_naam cntText
|
|
FROM alg_v_aanwezigterreinsector T, CNT_v_aanwezigCONTRACT_PLAATS P, alg_locatie l
|
|
WHERE p.CNT_CONTRACT_KEY = cntKey
|
|
AND p.cnt_alg_plaats_key = T.alg_terreinsector_key
|
|
AND p.CNT_ALG_PLAATS_CODE = 'T'
|
|
AND l.alg_locatie_key = t.alg_locatie_key
|
|
ORDER BY 2;
|
|
|
|
BEGIN
|
|
ret := null;
|
|
var_ckey := -1;
|
|
FOR cntitem_rec IN query(cntKey) LOOP
|
|
IF var_ckey = -1 THEN
|
|
ret := cntitem_rec.cntText;
|
|
ELSE
|
|
IF LENGTH(ret)+LENGTH(cntitem_rec.cntText)<(512-5) THEN
|
|
ret := ret || CHR(10) || cntitem_rec.cntText;
|
|
ELSE
|
|
ret := ret || CHR(10) || '...';
|
|
RETURN ret;
|
|
END IF;
|
|
END IF;
|
|
var_ckey := cntitem_rec.ckey;
|
|
END LOOP;
|
|
|
|
RETURN ret;
|
|
END;
|
|
|
|
|
|
PROCEDURE cnt_complete_mutatie(p_mutaite_key IN NUMBER)
|
|
IS
|
|
-- The following actions should be executed when the state becomes 'Voltooid':
|
|
-- Find the matching records in the CNT_CONTRACT_ONRGOED table where one row without a mutation_key
|
|
-- filled in matches a row with a mutation_key filled in.
|
|
-- The match will be successful if both rows have the same ALG_ONRGOED_KEY,
|
|
-- the same ALG_ONRGOED_NIVEAU and the same CNT_CONTRACT_KEY.
|
|
-- From these matching records the one without CNT_MUTATION_KEY should be deleted
|
|
BEGIN
|
|
DELETE
|
|
cnt_contract_onrgoed
|
|
WHERE cnt_contract_onrgoed_key IN (
|
|
SELECT a.cnt_contract_onrgoed_key
|
|
FROM cnt_contract_onrgoed b, cnt_contract_onrgoed a
|
|
WHERE a.cnt_contract_key = b.cnt_contract_key
|
|
AND a.alg_onrgoed_key = b.alg_onrgoed_key
|
|
AND a.alg_onrgoed_niveau = b.alg_onrgoed_niveau
|
|
AND b.cnt_mutatie_key = p_mutaite_key
|
|
AND a.cnt_mutatie_key IS NULL);
|
|
|
|
-- Delete the entries in the CNT_CONTRACT_ONRGOED table with the mutation_key equal
|
|
-- to the CNT_MUTATION that will be accepted and where the area size (CNT_CONTRACT_ONRGOED_OPP) = 0.
|
|
DELETE
|
|
cnt_contract_onrgoed
|
|
WHERE cnt_mutatie_key = p_mutaite_key
|
|
AND CNT_CONTRACT_ONRGOED_OPP = 0;
|
|
|
|
-- Set the Mutation_key to NULL from the rows where the CNT_MUTATION_KEY will be equal to the CNT_MUTATION that was accepted.
|
|
UPDATE
|
|
cnt_contract_onrgoed
|
|
SET cnt_mutatie_key = NULL
|
|
WHERE cnt_mutatie_key = p_mutaite_key;
|
|
-- The state of the mutation should be set to 'Voltooid'
|
|
UPDATE cnt_mutatie
|
|
SET CNT_MUTATIE_DATUM_VOLTOOID = SYSDATE,
|
|
CNT_MUTATIE_STATUS = 5
|
|
WHERE cnt_mutatie_key = p_mutaite_key;
|
|
END cnt_complete_mutatie;
|
|
|
|
PROCEDURE splitscontract (p_key IN NUMBER, p_datum IN DATE, p_user IN NUMBER, p_amount NUMBER)
|
|
IS
|
|
begin1 DATE;
|
|
eind1 DATE;
|
|
versie1 cnt_contract.cnt_contract_versie%TYPE;
|
|
newkey NUMBER;
|
|
nummer1 cnt_contract.cnt_contract_nummer_intern%TYPE;
|
|
amount1 cnt_contract.cnt_contract_kosten%TYPE;
|
|
srtcontract_type cnt_disc_params.cnt_srtcontract_type%TYPE;
|
|
new_status cnt_contract.cnt_contract_status%TYPE;
|
|
BEGIN
|
|
-- Splits het contract met p_key in twee delen: het oude dat eindigt op p_datum,
|
|
-- en een nieuwe kopie die begint op die datum
|
|
-- p_amount is -optioneel- het bedrag dat bij het oude contract moeten blijven
|
|
-- de rest komt bij de nieuwe. Als p_amount NULL is, eindigen beide contracten
|
|
-- met het originele bedrag.
|
|
IF p_key IS NULL
|
|
THEN
|
|
RETURN;
|
|
END IF;
|
|
|
|
BEGIN
|
|
SELECT c.cnt_contract_looptijd_van,
|
|
c.cnt_contract_looptijd_tot,
|
|
COALESCE (c.cnt_contract_versie, '0'),
|
|
cnt_contract_nummer_intern,
|
|
cnt_contract_kosten,
|
|
cdp.cnt_srtcontract_type
|
|
INTO begin1, eind1, versie1, nummer1, amount1, srtcontract_type
|
|
FROM cnt_contract c,
|
|
cnt_disc_params cdp
|
|
WHERE c.ins_discipline_key = cdp.cnt_ins_discipline_key
|
|
AND c.cnt_contract_key = p_key
|
|
AND c.cnt_contract_looptijd_van < p_datum
|
|
AND c.cnt_contract_looptijd_tot > p_datum;
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN
|
|
RETURN;
|
|
END;
|
|
|
|
IF (fac.getsetting('cnt_contract_approval') = 1 AND srtcontract_type != 6)
|
|
THEN
|
|
new_status := 2; -- altijd op nieuw
|
|
ELSE
|
|
new_status := 0; -- direct actief
|
|
END IF;
|
|
-- de datum is een zinvolle splitsdatum, alles in orde
|
|
INSERT INTO cnt_contract (cnt_contract_nummer, cnt_contract_omschrijving, cnt_contract_looptijd_tot, cnt_contract_kosten,
|
|
cnt_contract_uurloon, cnt_prs_bedrijf_key, cnt_prs_afdeling_key, cnt_prs_perslid_key,
|
|
cnt_contract_verwijder, cnt_contract_nummer_intern, cnt_contract_korting, prs_contactpersoon_key,
|
|
cnt_contract_contact_persoon, ins_discipline_key, cnt_contract_document,
|
|
prs_perslid_key_eig, prs_perslid_key_beh, prs_afdeling_key_eig, cnt_contract_status,
|
|
cnt_contract_looptijd_van, prs_kostenplaats_key, cnt_contract_termijnkosten, prs_kostensoort_key,
|
|
cnt_contract_opmerking, cnt_contract_mantel_key, cnt_contract_opzegtermijn,
|
|
cnt_contract_rappeltermijn, cnt_contract_versie
|
|
)
|
|
SELECT cnt_contract_nummer,
|
|
cnt_contract_omschrijving,
|
|
cnt_contract_looptijd_tot,
|
|
amount1 - COALESCE(p_amount, 0),
|
|
cnt_contract_uurloon,
|
|
cnt_prs_bedrijf_key,
|
|
cnt_prs_afdeling_key,
|
|
cnt_prs_perslid_key,
|
|
NULL,
|
|
cnt_contract_nummer_intern,
|
|
cnt_contract_korting,
|
|
prs_contactpersoon_key,
|
|
cnt_contract_contact_persoon,
|
|
ins_discipline_key,
|
|
cnt_contract_document,
|
|
prs_perslid_key_eig,
|
|
prs_perslid_key_beh,
|
|
prs_afdeling_key_eig,
|
|
new_status,
|
|
p_datum,
|
|
prs_kostenplaats_key,
|
|
cnt_contract_termijnkosten,
|
|
prs_kostensoort_key,
|
|
cnt_contract_opmerking,
|
|
cnt_contract_mantel_key,
|
|
cnt_contract_opzegtermijn,
|
|
cnt_contract_rappeltermijn,
|
|
TO_CHAR (versie1 + 1)
|
|
FROM cnt_contract
|
|
WHERE cnt_contract_key = p_key;
|
|
|
|
--- ik wil de nieuwe key weten
|
|
SELECT cnt_contract_key
|
|
INTO newkey
|
|
FROM cnt_contract
|
|
WHERE cnt_contract_nummer_intern = nummer1
|
|
AND cnt_contract_versie = TO_CHAR (versie1 + 1)
|
|
AND cnt_contract_verwijder IS NULL;
|
|
--- Een versieloos oud contract krijgt expliciet versie 0
|
|
UPDATE cnt_contract
|
|
SET cnt_contract_looptijd_tot = p_datum - 1,
|
|
cnt_contract_versie = versie1,
|
|
cnt_contract_kosten = COALESCE(p_amount, cnt_contract_kosten)
|
|
WHERE cnt_contract_key = p_key;
|
|
|
|
fac.trackaction ('CNTUPD', p_key, p_user, NULL, NULL);
|
|
|
|
-- de basis is gelegd, nu de aanhang meekopieren
|
|
-- flexkenmerken
|
|
INSERT INTO cnt_kenmerkcontract (cnt_contract_key, cnt_kenmerk_key, cnt_kenmerkcontract_waarde
|
|
)
|
|
SELECT newkey, k.cnt_kenmerk_key, k.cnt_kenmerkcontract_waarde
|
|
FROM cnt_kenmerkcontract k
|
|
WHERE k.cnt_contract_key = p_key AND k.cnt_kenmerkcontract_verwijder IS NULL;
|
|
|
|
-- cnt_contract_dienst (blind kopieren)
|
|
INSERT INTO cnt_contract_dienst (cnt_contract_key, cnt_contract_dienst_contactext, cnt_contract_dienst_contactint, cnt_contract_dienst_materiaal, cnt_contract_dienst_uitvoertd, cnt_contract_dienst_uren, cnt_contract_dienst_uurloon, mld_stdmelding_key, prs_bedrijf_key
|
|
)
|
|
SELECT newkey,
|
|
cd.cnt_contract_dienst_contactext,
|
|
cd.cnt_contract_dienst_contactint,
|
|
cd.cnt_contract_dienst_materiaal,
|
|
cd.cnt_contract_dienst_uitvoertd,
|
|
cd.cnt_contract_dienst_uren,
|
|
cd.cnt_contract_dienst_uurloon,
|
|
cd.mld_stdmelding_key,
|
|
cd.prs_bedrijf_key
|
|
FROM cnt_contract_dienst cd
|
|
WHERE cd.cnt_contract_key = p_key;
|
|
|
|
-- scope en zo
|
|
-- cnt_contract_object
|
|
INSERT INTO cnt_contract_object (cnt_contract_key, cnt_ins_srtdeel_key, cnt_ins_deel_key
|
|
)
|
|
SELECT newkey, cob.cnt_ins_srtdeel_key, cob.cnt_ins_deel_key
|
|
FROM cnt_contract_object cob
|
|
WHERE cob.cnt_contract_key = p_key AND cob.cnt_contract_object_verwijder IS NULL;
|
|
|
|
--cnt_contract_onrgoed
|
|
INSERT INTO cnt_contract_onrgoed (cnt_contract_key, alg_onrgoed_key, alg_onrgoed_niveau, alg_srtonrgoed_key, cnt_contract_onrgoed_opp, cnt_srtruimte_prijs
|
|
)
|
|
SELECT newkey,
|
|
cog.alg_onrgoed_key,
|
|
cog.alg_onrgoed_niveau,
|
|
cog.alg_srtonrgoed_key,
|
|
cog.cnt_contract_onrgoed_opp,
|
|
cog.cnt_srtruimte_prijs
|
|
FROM cnt_contract_onrgoed cog
|
|
WHERE cog.cnt_contract_key = p_key AND cog.cnt_mutatie_key IS NULL;
|
|
|
|
--cnt_contract_plaats
|
|
INSERT INTO cnt_contract_plaats (cnt_contract_key, cnt_alg_plaats_code, cnt_alg_plaats_key, cnt_contract_plaats_gewicht
|
|
)
|
|
SELECT newkey, cop.cnt_alg_plaats_code, cop.cnt_alg_plaats_key, cop.cnt_contract_plaats_gewicht
|
|
FROM cnt_contract_plaats cop
|
|
WHERE cop.cnt_contract_key = p_key AND cop.cnt_contract_plaats_verwijder IS NULL;
|
|
|
|
IF p_amount IS NOT NULL AND amount1 <> 0 AND fac.getsetting('cnt_scopeverdeling') = 1
|
|
THEN -- gewicht is dan telkens een bedrag en cnt_contract_kosten is het totaal daarvan
|
|
UPDATE cnt_contract_plaats
|
|
SET cnt_contract_plaats_gewicht = cnt_contract_plaats_gewicht / amount1 * p_amount
|
|
WHERE cnt_contract_key = p_key;
|
|
|
|
UPDATE cnt_contract_plaats
|
|
SET cnt_contract_plaats_gewicht = cnt_contract_plaats_gewicht / amount1 * (amount1 - p_amount)
|
|
WHERE cnt_contract_key = newkey;
|
|
END IF;
|
|
|
|
--cnt_factuurschema: splitst op dezelfde grensdatum
|
|
UPDATE cnt_factuurschema
|
|
SET cnt_contract_key = newkey
|
|
WHERE cnt_contract_key = p_key AND cnt_factuurschema_datum > p_datum;
|
|
|
|
fac.trackaction ('CNTNEW', newkey, p_user, NULL, NULL);
|
|
|
|
END splitscontract;
|
|
|
|
-- Zoek de key van de hoogste revisie van het meegegeven contract
|
|
-- Beseffende dat _versie een oplopende reeks is en hopende dat
|
|
-- nummer_intern hetzelfde blijft over versies en vrij uniek is
|
|
-- Voor wat extra zekerheid wordt bedrijf betrokken
|
|
FUNCTION getnieuwsteversiekey (p_key IN NUMBER)
|
|
RETURN NUMBER
|
|
IS
|
|
nummer1 cnt_contract.cnt_contract_nummer_intern%TYPE;
|
|
versie1 cnt_contract.cnt_contract_versie%TYPE;
|
|
bedrijf1 cnt_contract.cnt_prs_bedrijf_key%TYPE;
|
|
maxversie NUMBER;
|
|
resultkey NUMBER;
|
|
BEGIN
|
|
resultkey := p_key; -- mocht ik niks vinden, dan is dit em
|
|
|
|
SELECT cnt_contract_nummer_intern, cnt_contract_versie, cnt_prs_bedrijf_key
|
|
INTO nummer1, versie1, bedrijf1
|
|
FROM cnt_contract
|
|
WHERE cnt_contract_verwijder IS NULL AND cnt_contract_key = p_key;
|
|
|
|
SELECT MAX (fac.safe_to_number (cnt_contract_versie))
|
|
INTO maxversie
|
|
FROM cnt_contract
|
|
WHERE cnt_contract_nummer_intern = nummer1
|
|
AND cnt_prs_bedrijf_key = bedrijf1
|
|
AND cnt_contract_verwijder IS NULL;
|
|
|
|
IF maxversie IS NOT NULL
|
|
THEN
|
|
SELECT cnt_contract_key
|
|
INTO resultkey
|
|
FROM cnt_contract
|
|
WHERE cnt_contract_nummer_intern = nummer1
|
|
AND cnt_prs_bedrijf_key = bedrijf1
|
|
AND fac.safe_to_number (cnt_contract_versie) = maxversie
|
|
AND cnt_contract_verwijder IS NULL;
|
|
END IF;
|
|
|
|
RETURN resultkey;
|
|
END;
|
|
|
|
FUNCTION sprintf (ps IN VARCHAR2 , p_contract_key IN NUMBER )
|
|
RETURN VARCHAR2
|
|
IS
|
|
s VARCHAR2 (2048 CHAR);
|
|
varlev VARCHAR2 (255 CHAR); -- Kan nu ook een samenstelling zijn van prs_perslid gegevens.
|
|
varomsch cnt_contract.cnt_contract_omschrijving%TYPE;
|
|
varnummer cnt_contract.cnt_contract_nummer_intern%TYPE;
|
|
BEGIN
|
|
s := ps;
|
|
-- We do support substitution of placeholders in the messages
|
|
-- ##LEV## = prs_bedrijf_naam
|
|
-- ##OMSCH## = cnt_contract_omschrijving
|
|
-- ##KEY## = cnt_contract_nummer_intern
|
|
IF INSTR (s, '#') > 0
|
|
THEN
|
|
SELECT COALESCE(prs_bedrijf_naam, fac.getsetting ('prs_pers_string'), fac.getsetting ('prs_dep_string')),
|
|
cnt_contract_omschrijving,
|
|
cnt_contract_nummer_intern
|
|
INTO varlev,
|
|
varomsch,
|
|
varnummer
|
|
FROM cnt_contract c,
|
|
prs_bedrijf b,
|
|
prs_perslid p,
|
|
prs_afdeling a
|
|
WHERE c.cnt_prs_bedrijf_key = b.prs_bedrijf_key(+)
|
|
AND c.cnt_prs_perslid_key = p.prs_perslid_key(+)
|
|
AND c.cnt_prs_afdeling_key = a.prs_afdeling_key(+)
|
|
AND c.cnt_contract_key = p_contract_key;
|
|
s :=
|
|
REPLACE (REPLACE (REPLACE (s, '##LEV##', varlev), '##OMSCH##', varomsch),
|
|
'##KEY##',
|
|
varnummer
|
|
);
|
|
END IF;
|
|
RETURN s;
|
|
END;
|
|
|
|
END cnt;
|
|
/
|
|
|
|
REGISTERRUN('$Id$')
|
|
|
|
#endif // CNT
|