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

FSN#11433

Browse Source 
svn path=/Database/trunk/; revision=9367
This commit is contained in:
Peter Feij
2006-12-12 11:01:28 +00:00
parent 2a34de260f
commit 686588d357
2 changed files with 25 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
BES/BES_PAC.SRC
View File

@@ -1,7 +1,7 @@
#ifdef BES // 03-11-2000 PF #ifdef BES // 03-11-2000 PF
/* $Revision: 58 $ /* $Revision: 59 $
* $Modtime: 16-10-06 11:03 $ * $Modtime: 8-12-06 12:36 $
*/ */
[quotes] [quotes]
@@ -65,7 +65,7 @@ IS
lfirst NUMBER; lfirst NUMBER;
llast NUMBER; llast NUMBER;
CURSOR opdritems CURSOR opdritems
IS IS
SELECT TO_CHAR (boi.bes_bestelopdr_item_aantal) SELECT TO_CHAR (boi.bes_bestelopdr_item_aantal)
|| 'x ' || 'x '
@@ -114,13 +114,13 @@ RETURN VARCHAR2
AS AS
ret VARCHAR2(256); ret VARCHAR2(256);
first number; first number;
BEGIN BEGIN
ret := null; ret := null;
BEGIN BEGIN
SELECT D.INS_Discipline_OMSCHRIJVING || '/' || SELECT D.INS_Discipline_OMSCHRIJVING || '/' ||
S.INS_SRTDEEL_OMSCHRIJVING into ret S.INS_SRTDEEL_OMSCHRIJVING into ret
from BES_BESTELLING_ITEM BI, from BES_BESTELLING_ITEM BI,
INS_SRTDEEL S, INS_SRTGROEP G, INS_SRTDEEL S, INS_SRTGROEP G,
INS_TAB_DISCIPLINE D INS_TAB_DISCIPLINE D
WHERE BI.BES_BESTELLING_KEY = besKey WHERE BI.BES_BESTELLING_KEY = besKey
@@ -131,8 +131,8 @@ BEGIN
AND D.ins_discipline_verwijder IS NULL AND D.ins_discipline_verwijder IS NULL
AND G.ins_srtgroep_verwijder IS NULL AND G.ins_srtgroep_verwijder IS NULL
AND S.ins_srtdeel_verwijder IS NULL; AND S.ins_srtdeel_verwijder IS NULL;
EXCEPTION EXCEPTION
WHEN NO_DATA_FOUND THEN NULL; WHEN NO_DATA_FOUND THEN NULL;
WHEN TOO_MANY_ROWS THEN NULL; WHEN TOO_MANY_ROWS THEN NULL;
END; END;
return ret; return ret;
@@ -144,13 +144,13 @@ RETURN VARCHAR2
AS AS
ret VARCHAR2(256); ret VARCHAR2(256);
first number; first number;
BEGIN BEGIN
ret := null; ret := null;
BEGIN BEGIN
SELECT D.INS_Discipline_OMSCHRIJVING || '/' || SELECT D.INS_Discipline_OMSCHRIJVING || '/' ||
S.INS_SRTDEEL_OMSCHRIJVING into ret S.INS_SRTDEEL_OMSCHRIJVING into ret
from BES_BESTELOPDR_ITEM BI, from BES_BESTELOPDR_ITEM BI,
INS_SRTDEEL S, INS_SRTGROEP G, INS_SRTDEEL S, INS_SRTGROEP G,
INS_TAB_DISCIPLINE D INS_TAB_DISCIPLINE D
WHERE BI.BES_BESTELOPDR_KEY = besKey WHERE BI.BES_BESTELOPDR_KEY = besKey
@@ -161,8 +161,8 @@ BEGIN
AND D.ins_discipline_verwijder IS NULL AND D.ins_discipline_verwijder IS NULL
AND G.ins_srtgroep_verwijder IS NULL AND G.ins_srtgroep_verwijder IS NULL
AND S.ins_srtdeel_verwijder IS NULL; AND S.ins_srtdeel_verwijder IS NULL;
EXCEPTION EXCEPTION
WHEN NO_DATA_FOUND THEN NULL; WHEN NO_DATA_FOUND THEN NULL;
WHEN TOO_MANY_ROWS THEN NULL; WHEN TOO_MANY_ROWS THEN NULL;
END; END;
return ret; return ret;
@@ -218,7 +218,7 @@ BEGIN
WHEN NO_DATA_FOUND THEN insert into ins_srtdeel ( WHEN NO_DATA_FOUND THEN insert into ins_srtdeel (
ins_srtgroep_key, ins_srtgroep_key,
ins_srtdeel_nr, ins_srtdeel_nr,
ins_srtdeel_code, ins_srtdeel_code,
ins_srtdeel_omschrijving, ins_srtdeel_omschrijving,
prs_bedrijf_key, prs_bedrijf_key,
ins_srtdeel_module, ins_srtdeel_module,
@@ -228,7 +228,7 @@ BEGIN
values values
(l_srtgroep_key, (l_srtgroep_key,
srtdeel_nr, srtdeel_nr,
srtdeel_nr, srtdeel_nr,
srtdeel_omschrijving, srtdeel_omschrijving,
l_bedrijf_key, l_bedrijf_key,
'BES', 'BES',
@@ -312,6 +312,8 @@ AS
current_leverancier_key NUMBER (10); current_leverancier_key NUMBER (10);
aantalopdrachtregels NUMBER; aantalopdrachtregels NUMBER;
factura_key mld_adres.mld_adres_key%TYPE; factura_key mld_adres.mld_adres_key%TYPE;
bedrijf_email prs_bedrijf.prs_bedrijf_email%TYPE;
bedrijf_telefoon2 prs_bedrijf.prs_bedrijf_telefoon2%TYPE;
CURSOR tebestellen CURSOR tebestellen
IS IS
@@ -358,8 +360,8 @@ BEGIN
factura_key := rec1.mld_adres_key_fac; factura_key := rec1.mld_adres_key_fac;
-- Van de leverancier: -- Van de leverancier:
SELECT mld_adres_key_fac SELECT mld_adres_key_fac, prs_bedrijf_email, prs_bedrijf_telefoon2
INTO factura_key INTO factura_key, bedrijf_email, bedrijf_telefoon2
FROM prs_bedrijf FROM prs_bedrijf
WHERE prs_bedrijf_key = rec1.prs_bedrijf_key AND mld_adres_key_fac IS NOT NULL; WHERE prs_bedrijf_key = rec1.prs_bedrijf_key AND mld_adres_key_fac IS NOT NULL;
EXCEPTION EXCEPTION
@@ -746,13 +748,13 @@ BEGIN
INSERT INTO ins_srtdeel INSERT INTO ins_srtdeel
(ins_srtgroep_key, (ins_srtgroep_key,
ins_srtdeel_omschrijving, ins_srtdeel_omschrijving,
ins_srtdeel_code, ins_srtdeel_code,
ins_srtdeel_dimensie, ins_srtdeel_dimensie,
ins_srtdeel_nr, ins_srtdeel_nr,
ins_srtdeel_prijs, ins_srtdeel_prijs,
ins_srtdeel_image, ins_srtdeel_image,
ins_srtdeel_eenheid, ins_srtdeel_eenheid,
ins_srtdeel_veelvoud, ins_srtdeel_veelvoud,
ins_srtdeel_module, ins_srtdeel_module,
ins_srtdeel_btw, ins_srtdeel_btw,
ins_srtdeel_vervaldatum, ins_srtdeel_vervaldatum,
@@ -760,13 +762,13 @@ BEGIN
) )
VALUES (srtgroep_key, VALUES (srtgroep_key,
rec_in_srtdeel.ins_srtdeel_omschrijving, rec_in_srtdeel.ins_srtdeel_omschrijving,
TO_CHAR (srtdeel_key + 1), TO_CHAR (srtdeel_key + 1),
0, 0,
UPPER (RTRIM (rec_in_srtdeel.ins_srtdeel_nr)), UPPER (RTRIM (rec_in_srtdeel.ins_srtdeel_nr)),
rec_in_srtdeel.ins_srtdeel_prijs, rec_in_srtdeel.ins_srtdeel_prijs,
rec_in_srtdeel.ins_srtdeel_image, rec_in_srtdeel.ins_srtdeel_image,
rec_in_srtdeel.ins_srtdeel_eenheid, rec_in_srtdeel.ins_srtdeel_eenheid,
rec_in_srtdeel.ins_srtdeel_veelvoud, rec_in_srtdeel.ins_srtdeel_veelvoud,
'BES', 'BES',
rec_in_srtdeel.ins_srtdeel_btw, rec_in_srtdeel.ins_srtdeel_btw,
rec_in_srtdeel.ins_srtdeel_vervaldatum, rec_in_srtdeel.ins_srtdeel_vervaldatum,

8
BEZ/BEZ_TRI.SRC
View File

@@ -1,7 +1,7 @@
#ifdef BEZ // 03-11-2000 PF #ifdef BEZ // 03-11-2000 PF
/* $Revision: 11 $ /* $Revision: 12 $
* $Modtime: 27-11-06 22:56 $ * $Modtime: 29-11-06 13:57 $
*/ */
#include "comsql.h" #include "comsql.h"
@@ -133,7 +133,7 @@ BEGIN
); );
END IF; END IF;
fac.putnotificationsrt (:NEW.prs_perslid_key, lreceiver, scode, :NEW.bez_afspraak_key, soms, NULL); fac.putnotificationsrt (:NEW.prs_perslid_key, lreceiver, scode, :NEW.bez_afspraak_key, soms, NULL, NULL, NULL);
END IF; END IF;
END; END;
END; END;
@@ -219,7 +219,7 @@ BEGIN
-- Alternatief is om de BEZNEW niet te notificeren, want reservering of afspraak doen dat al. -- Alternatief is om de BEZNEW niet te notificeren, want reservering of afspraak doen dat al.
-- We kunnen hier (diep in de trigger) niet kijken of er nog meer bezoekers zijn bij deze afspraak. -- We kunnen hier (diep in de trigger) niet kijken of er nog meer bezoekers zijn bij deze afspraak.
fac.clrnotifications(scode, :NEW.bez_afspraak_key); fac.clrnotifications(scode, :NEW.bez_afspraak_key);
fac.putnotificationsrt (lsender, lreceiver, scode, :NEW.bez_afspraak_key, soms, NULL); fac.putnotificationsrt (lsender, lreceiver, scode, :NEW.bez_afspraak_key, soms, NULL, NULL, NULL);
END IF; END IF;
END; END;
END; END;