BRCF#77650 -- Foutoplossingen in mail2melding

svn path=/Customer/trunk/; revision=59914

BRCF/brcf.sql

@@ -595,25 +595,24 @@ BEGIN
                            AND p.prs_perslid_verwijder IS NULL)) x;
 
 -- Geautomatiseerde mails hebben altijd hetzelfde onderwerp, zo kan via een eigen tabel de melding achterhaald worden.
-   SELECT fac.safe_to_number (MIN(fac_usrdata_prijs))
-   INTO v_automailkey
-   FROM fac_usrdata
-   WHERE UPPER (psubject) LIKE  '%'||UPPER (fac_usrdata_omschr)||'%'
-   AND fac_usrtab_key = 101;
-   
-      
-   IF v_automailkey IS NOT NULL
-   THEN
-   defaultstdmelding := v_automailkey;
- --  v_mailadres_kenmerk_key := ; Dit kan nu niet aangezien dit kenmerk niet bij ALLE meldingen aanwezig is.
-   END IF;
-   
-   
-   IF defaultstdmelding IS NULL
-   THEN 
+--   SELECT fac.safe_to_number (MIN(fac_usrdata_prijs))
+--   INTO v_automailkey
+--   FROM fac_usrdata
+--   WHERE UPPER (psubject) LIKE  '%'||UPPER (fac_usrdata_omschr)||'%'
+--   AND fac_usrtab_key = 101;
+--   
+--      
+--   IF v_automailkey IS NOT NULL
+--   THEN
+--   defaultstdmelding := v_automailkey;
+-- --  v_mailadres_kenmerk_key := ; Dit kan nu niet aangezien dit kenmerk niet bij ALLE meldingen aanwezig is.
+--   END IF;
+     
+ --  IF defaultstdmelding IS NULL
+ --  THEN 
    defaultstdmelding := fac.getsetting ('defaultstdmelding'); -- algemeen / werkbon
    v_mailadres_kenmerk_key := 381;
-   END IF;
+--   END IF;
 
 -- Als mensen op vakantie zijn en een automatisch antwoord aan hebben staan dan wil je dat niet terug in de melding al notitie.
    IF UPPER (psubject) LIKE '%AUTOMATISCH ANTWOORD%'
@@ -688,6 +687,8 @@ BEGIN
            FROM prs_perslid
           WHERE prs_afdeling_key = v_afdeling_key
             AND prs_perslid_verwijder IS NULL;
+            
+  END IF;
 
 IF sender IS NULL
 THEN
@@ -886,54 +887,54 @@ END IF;
           END;
           END IF;
          END IF; -- defaultstdmelding IS NOT NULL
-    END IF;    -- v_flexprop_mail = v_from
+  --  END IF;    -- v_flexprop_mail = v_from
 
     -- Bijlagen gaan we proberen toe te voegen, zowel bij een nieuwe als een bestaande melding....
      -- Dat doen we bij een flexprop van het type 'M' (=folder met bestanden), door het laagste volgnummer te vinden
      -- find the lowest volgnummer of the flexfield of type folder.
     
---    SELECT MIN (mld_kenmerk_key)
---   INTO kkey
---   FROM mld_kenmerk k,
---        mld_srtkenmerk sk,
---        mld_stdmelding std,
---        ins_tab_discipline d
---      WHERE     mld_srtkenmerk_kenmerktype = 'M'
---        AND sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key
---        AND std.mld_stdmelding_key = defaultstdmelding
---        AND std.mld_ins_discipline_key = d.ins_discipline_key
---        AND ( (k.mld_stdmelding_key = std.mld_stdmelding_key
---               AND k.mld_kenmerk_niveau = 'S')
---             OR (k.mld_stdmelding_key = d.ins_discipline_key
---                 AND k.mld_kenmerk_niveau = 'D')
---             OR (k.mld_stdmelding_key = d.ins_srtdiscipline_key
---                 AND k.mld_kenmerk_niveau = 'T'))
---        AND k.mld_kenmerk_verwijder IS NULL
---        AND NOT EXISTS
---              (SELECT mld_kenmerk_volgnummer
---                 FROM mld_kenmerk k1,
---                      mld_srtkenmerk sk1,
---                      mld_stdmelding std1,
---                      ins_tab_discipline d1
---                WHERE sk1.mld_srtkenmerk_kenmerktype = 'M'
---                      AND sk1.mld_srtkenmerk_key =
---                            k1.mld_srtkenmerk_key
---                      AND std1.mld_stdmelding_key =
---                            defaultstdmelding
---                      AND std1.mld_ins_discipline_key =
---                            d1.ins_discipline_key
---                      AND ( (k1.mld_stdmelding_key =
---                                std1.mld_stdmelding_key
---                             AND k1.mld_kenmerk_niveau = 'S')
---                           OR (k1.mld_stdmelding_key =
---                                  d1.ins_discipline_key
---                               AND k1.mld_kenmerk_niveau = 'D')
---                           OR (k1.mld_stdmelding_key =
---                                  d1.ins_srtdiscipline_key
---                               AND k1.mld_kenmerk_niveau = 'T'))
---                      AND k1.mld_kenmerk_verwijder IS NULL
---                      AND k1.mld_kenmerk_volgnummer <
---                            k.mld_kenmerk_volgnummer);
+ --SELECT MIN (mld_kenmerk_key)
+ --  INTO kkey
+ --  FROM mld_kenmerk k,
+ --       mld_srtkenmerk sk,
+ --       mld_stdmelding std,
+ --       ins_tab_discipline d
+ --     WHERE     mld_srtkenmerk_kenmerktype = 'M'
+ --       AND sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key
+ --       AND std.mld_stdmelding_key = defaultstdmelding
+ --       AND std.mld_ins_discipline_key = d.ins_discipline_key
+ --       AND ( (k.mld_stdmelding_key = std.mld_stdmelding_key
+ --              AND k.mld_kenmerk_niveau = 'S')
+ --            OR (k.mld_stdmelding_key = d.ins_discipline_key
+ --                AND k.mld_kenmerk_niveau = 'D')
+ --            OR (k.mld_stdmelding_key = d.ins_srtdiscipline_key
+ --                AND k.mld_kenmerk_niveau = 'T'))
+ --       AND k.mld_kenmerk_verwijder IS NULL
+ --       AND NOT EXISTS
+ --             (SELECT mld_kenmerk_volgnummer
+ --                FROM mld_kenmerk k1,
+ --                     mld_srtkenmerk sk1,
+ --                     mld_stdmelding std1,
+ --                     ins_tab_discipline d1
+ --               WHERE sk1.mld_srtkenmerk_kenmerktype = 'M'
+ --                     AND sk1.mld_srtkenmerk_key =
+ --                           k1.mld_srtkenmerk_key
+ --                     AND std1.mld_stdmelding_key =
+ --                           defaultstdmelding
+ --                     AND std1.mld_ins_discipline_key =
+ --                           d1.ins_discipline_key
+ --                     AND ( (k1.mld_stdmelding_key =
+ --                               std1.mld_stdmelding_key
+ --                            AND k1.mld_kenmerk_niveau = 'S')
+ --                          OR (k1.mld_stdmelding_key =
+ --                                 d1.ins_discipline_key
+ --                              AND k1.mld_kenmerk_niveau = 'D')
+ --                          OR (k1.mld_stdmelding_key =
+ --                                 d1.ins_srtdiscipline_key
+ --                              AND k1.mld_kenmerk_niveau = 'T'))
+ --                     AND k1.mld_kenmerk_verwijder IS NULL
+ --                     AND k1.mld_kenmerk_volgnummer <
+ --                           k.mld_kenmerk_volgnummer);
 
      kkey := 21;   -- BRCF heeft een bijlage kenmerk over alle vakgroeptypen, lekker makkelijk