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

UWVA#13824

Browse Source 
svn path=/Database/trunk/; revision=9860
This commit is contained in:
Peter Feij
2008-08-29 09:32:32 +00:00
parent 5536532050
commit ed49ba1552
2 changed files with 42 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
FAC/FAC_PACX.SRC
View File

@@ -1,6 +1,6 @@
#ifdef FAC
/* $Revision: 1 $
* $Modtime: 27-08-08 23:26 $
/* $Revision: 2 $
* $Modtime: 29-08-08 11:14 $
*/
/* FAC_PACX, (X means XML) to be included from fac_pac.src, isolated for convenience only
@@ -499,7 +499,7 @@ AS
AS
v_value VARCHAR2 (30);
BEGIN
createopentagattributes ('header', 'revision', SUBSTR('$Revision: 1 $',12,3), NULL, NULL, NULL, NULL, NULL, NULL);
createopentagattributes ('header', 'revision', SUBSTR('$Revision: 2 $',12,3), NULL, NULL, NULL, NULL, NULL, NULL);
createxmltagvalue ('dateTime', DATE_TO_CHAR (SYSDATE, 'dd-mm-yyyy hh24:mi:ss'));
createxmltagvalue ('dateDay', DATE_TO_CHAR (SYSDATE, 'dd'));
createxmltagvalue ('dateMonth', DATE_TO_CHAR (SYSDATE, 'mm'));
@@ -4413,8 +4413,8 @@ AS
v_aanmaak cnt_contract.cnt_contract_aanmaak%TYPE;
v_verwijder cnt_contract.cnt_contract_verwijder%TYPE;
v_nummer_intern cnt_contract.cnt_contract_nummer_intern%TYPE;
v_rappeldatum cnt_contract.cnt_contract_rappeldatum%TYPE;
v_opzegdatum cnt_contract.cnt_contract_opzegdatum%TYPE;
l_rappeldatum DATE;
l_opzegdatum DATE;
v_korting cnt_contract.cnt_contract_korting%TYPE;
v_contactpersoon_key cnt_contract.prs_contactpersoon_key%TYPE;
v_contact_persoon cnt_contract.cnt_contract_contact_persoon%TYPE;
@@ -4430,7 +4430,9 @@ AS
v_kostensoort_key cnt_contract.prs_kostensoort_key%TYPE;
v_opmerking cnt_contract.cnt_contract_opmerking%TYPE;
v_mantel_key cnt_contract.cnt_contract_mantel_key%TYPE;
v_rappeltermijn cnt_termijn.cnt_termijn_omschrijving%TYPE;
v_opzegtermijn cnt_termijn.cnt_termijn_omschrijving%TYPE;
CURSOR c1
IS
SELECT cnt_contract_object_key, cnt_ins_srtdeel_key, cnt_ins_deel_key
@@ -4462,20 +4464,24 @@ AS
SELECT 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_contract_aanmaak,
cnt_contract_verwijder, cnt_contract_nummer_intern, cnt_contract_rappeldatum, cnt_contract_opzegdatum,
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
prs_kostensoort_key, cnt_contract_opmerking, cnt_contract_mantel_key,
t1.cnt_termijn_omschrijving, t2.cnt_termijn_omschrijving
INTO v_nummer, v_omschrijving, v_looptijd_tot, v_kosten,
v_uurloon, v_bedrijf_key, v_afdeling_key, v_aanmaak,
v_verwijder, v_nummer_intern, v_rappeldatum, v_opzegdatum,
v_verwijder, v_nummer_intern,
v_korting, v_contactpersoon_key, v_contact_persoon, v_discipline_key,
v_document, v_perslid_key_eig, v_perslid_key_beh, v_afdeling_key_eig,
v_status, v_looptijd_van, v_kostenplaats_key, v_termijnkosten,
v_kostensoort_key, v_opmerking, v_mantel_key
FROM cnt_contract c
WHERE cnt_contract_key = p_key;
v_kostensoort_key, v_opmerking, v_mantel_key,
v_rappeltermijn, v_opzegtermijn
FROM cnt_contract c, cnt_termijn t1, cnt_termijn t2
WHERE c.cnt_contract_rappeltermijn = t1.cnt_termijn_key (+)
AND c.cnt_contract_opzegtermijn = t2.cnt_termijn_key (+)
AND cnt_contract_key = p_key;
createxmltagvalue ('key', mynumbertochar (p_key));
createxmltagvalue ('nummer', v_nummer);
@@ -4485,8 +4491,13 @@ AS
mydatetochar ('verwijder', v_verwijder);
mydatetochar ('looptijd_van', v_looptijd_van);
mydatetochar ('looptijd_tot', v_looptijd_tot);
mydatetochar ('rappeldatum', v_rappeldatum);
mydatetochar ('opzegdatum', v_opzegdatum);
-- datum berekenen obv de termijnen
l_rappeldatum := cnt.cnt_getRappeldatum(p_key);
l_opzegdatum := cnt.cnt_getOpzegdatum(p_key);
mydatetochar ('rappeldatum', l_rappeldatum);
mydatetochar ('opzegdatum', l_opzegdatum);
createxmltagvalue ('rappeltermijn', v_rappeltermijn);
createxmltagvalue ('opzegtermijn', v_opzegtermijn);
createxmltagvalue ('kosten', v_kosten);
createxmltagvalue ('termijnkosten', v_termijnkosten);
createxmltagvalue ('uurloon', v_uurloon);