FSN#11433

svn path=/Database/trunk/; revision=9367

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,

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;