diff --git a/BES/BES_PAC.SRC b/BES/BES_PAC.SRC index b830af8b..5c4a70bd 100644 --- a/BES/BES_PAC.SRC +++ b/BES/BES_PAC.SRC @@ -1,7 +1,7 @@ #ifdef BES // 03-11-2000 PF -/* $Revision: 58 $ - * $Modtime: 16-10-06 11:03 $ +/* $Revision: 59 $ + * $Modtime: 8-12-06 12:36 $ */ [quotes] @@ -65,7 +65,7 @@ IS lfirst NUMBER; llast NUMBER; - CURSOR opdritems + CURSOR opdritems IS SELECT TO_CHAR (boi.bes_bestelopdr_item_aantal) || 'x ' @@ -114,13 +114,13 @@ RETURN VARCHAR2 AS ret VARCHAR2(256); first number; - + BEGIN ret := null; BEGIN SELECT D.INS_Discipline_OMSCHRIJVING || '/' || S.INS_SRTDEEL_OMSCHRIJVING into ret - from BES_BESTELLING_ITEM BI, + from BES_BESTELLING_ITEM BI, INS_SRTDEEL S, INS_SRTGROEP G, INS_TAB_DISCIPLINE D WHERE BI.BES_BESTELLING_KEY = besKey @@ -131,8 +131,8 @@ BEGIN AND D.ins_discipline_verwijder IS NULL AND G.ins_srtgroep_verwijder IS NULL AND S.ins_srtdeel_verwijder IS NULL; - EXCEPTION - WHEN NO_DATA_FOUND THEN NULL; + EXCEPTION + WHEN NO_DATA_FOUND THEN NULL; WHEN TOO_MANY_ROWS THEN NULL; END; return ret; @@ -144,13 +144,13 @@ RETURN VARCHAR2 AS ret VARCHAR2(256); first number; - + BEGIN ret := null; BEGIN SELECT D.INS_Discipline_OMSCHRIJVING || '/' || S.INS_SRTDEEL_OMSCHRIJVING into ret - from BES_BESTELOPDR_ITEM BI, + from BES_BESTELOPDR_ITEM BI, INS_SRTDEEL S, INS_SRTGROEP G, INS_TAB_DISCIPLINE D WHERE BI.BES_BESTELOPDR_KEY = besKey @@ -161,8 +161,8 @@ BEGIN AND D.ins_discipline_verwijder IS NULL AND G.ins_srtgroep_verwijder IS NULL AND S.ins_srtdeel_verwijder IS NULL; - EXCEPTION - WHEN NO_DATA_FOUND THEN NULL; + EXCEPTION + WHEN NO_DATA_FOUND THEN NULL; WHEN TOO_MANY_ROWS THEN NULL; END; return ret; @@ -218,7 +218,7 @@ BEGIN WHEN NO_DATA_FOUND THEN insert into ins_srtdeel ( ins_srtgroep_key, ins_srtdeel_nr, - ins_srtdeel_code, + ins_srtdeel_code, ins_srtdeel_omschrijving, prs_bedrijf_key, ins_srtdeel_module, @@ -228,7 +228,7 @@ BEGIN values (l_srtgroep_key, srtdeel_nr, - srtdeel_nr, + srtdeel_nr, srtdeel_omschrijving, l_bedrijf_key, 'BES', @@ -312,6 +312,8 @@ AS current_leverancier_key NUMBER (10); aantalopdrachtregels NUMBER; 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 IS @@ -358,8 +360,8 @@ BEGIN factura_key := rec1.mld_adres_key_fac; -- Van de leverancier: - SELECT mld_adres_key_fac - INTO factura_key + SELECT mld_adres_key_fac, prs_bedrijf_email, prs_bedrijf_telefoon2 + INTO factura_key, bedrijf_email, bedrijf_telefoon2 FROM prs_bedrijf WHERE prs_bedrijf_key = rec1.prs_bedrijf_key AND mld_adres_key_fac IS NOT NULL; EXCEPTION @@ -746,13 +748,13 @@ BEGIN INSERT INTO ins_srtdeel (ins_srtgroep_key, ins_srtdeel_omschrijving, - ins_srtdeel_code, + ins_srtdeel_code, ins_srtdeel_dimensie, ins_srtdeel_nr, ins_srtdeel_prijs, ins_srtdeel_image, ins_srtdeel_eenheid, - ins_srtdeel_veelvoud, + ins_srtdeel_veelvoud, ins_srtdeel_module, ins_srtdeel_btw, ins_srtdeel_vervaldatum, @@ -760,13 +762,13 @@ BEGIN ) VALUES (srtgroep_key, rec_in_srtdeel.ins_srtdeel_omschrijving, - TO_CHAR (srtdeel_key + 1), + TO_CHAR (srtdeel_key + 1), 0, UPPER (RTRIM (rec_in_srtdeel.ins_srtdeel_nr)), rec_in_srtdeel.ins_srtdeel_prijs, rec_in_srtdeel.ins_srtdeel_image, rec_in_srtdeel.ins_srtdeel_eenheid, - rec_in_srtdeel.ins_srtdeel_veelvoud, + rec_in_srtdeel.ins_srtdeel_veelvoud, 'BES', rec_in_srtdeel.ins_srtdeel_btw, rec_in_srtdeel.ins_srtdeel_vervaldatum, diff --git a/BEZ/BEZ_TRI.SRC b/BEZ/BEZ_TRI.SRC index 1125b71f..612ec408 100644 --- a/BEZ/BEZ_TRI.SRC +++ b/BEZ/BEZ_TRI.SRC @@ -1,7 +1,7 @@ #ifdef BEZ // 03-11-2000 PF -/* $Revision: 11 $ - * $Modtime: 27-11-06 22:56 $ +/* $Revision: 12 $ + * $Modtime: 29-11-06 13:57 $ */ #include "comsql.h" @@ -133,7 +133,7 @@ BEGIN ); 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; END; @@ -219,7 +219,7 @@ BEGIN -- 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. 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; END;