AAIT#38880 -- Bevindingen inlezen facturen.

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

AA/aaxx.sql

@@ -15056,6 +15056,7 @@ AS
    v_pos              NUMBER;
    v_result           NUMBER;
    v_factuur_key      fin_factuur.fin_factuur_key%TYPE;
+   v_kenmerk_key      fin_kenmerk.fin_kenmerk_key%TYPE;
 BEGIN
    errormsg := '(0x143)';
 
@@ -15084,6 +15085,7 @@ BEGIN
 
    --   DBMS_OUTPUT.PUT_LINE('v_from: '||v_from);
 
+   errormsg := '(0x143a)';
    -- Valideer de sender in pfrom: kennen we deze?
    SELECT MIN (prs_perslid_key), MIN (d.prs_kostenplaats_key)
      INTO sender_key, kostenplaats_key
@@ -15092,6 +15094,7 @@ BEGIN
       AND prs_perslid_verwijder IS NULL
       AND UPPER (prs_perslid_email) = UPPER (v_from);
 
+   errormsg := '(0x143b)';
    IF sender_key IS NULL
    THEN
       sender_key := 11;                -- prs_perslid_key onbekend mail adres.
@@ -15107,6 +15110,7 @@ BEGIN
    CASE
       WHEN UPPER (pto) LIKE 'INVOICES@%'
       THEN
+         errormsg := '(0x143c)';
          INSERT INTO fin_factuur (fin_factuur_statuses_key,
                                   fin_factuur_datum,
                                   fin_factuur_totaal_btw,
@@ -15121,9 +15125,19 @@ BEGIN
                INTO v_factuur_key;
          
          -- Zet kenmerk laatste factuur op Ja
+         errormsg := '(0x143d)';
          INSERT INTO fin_kenmerkfactuur (fin_factuur_key, fin_kenmerk_key, fin_kenmerkfactuur_waarde)
                                  VALUES (v_factuur_key, 2, 1);
 
+         -- Bepaal de key van de bijlages
+         errormsg := '(0x143e)';
+         SELECT fin_kenmerk_key
+           INTO v_kenmerk_key
+           FROM fin_kenmerk
+          WHERE fin_kenmerk_verwijder IS NULL
+            AND UPPER(fin_kenmerk_omschrijving) = 'BIJLAGES';
+
+         errormsg := '(0x143f)';             
          INSERT INTO fac_result (fac_result_sessionid,
                                  fac_result_naam,
                                  fac_result_waarde)
@@ -15134,7 +15148,7 @@ BEGIN
                      || '___\F'
                      || v_factuur_key
                      || '\'
-                     || 1
+                     || v_kenmerk_key
                      || '\');
       WHEN UPPER (pto) LIKE 'SERVICEDESK@%'
       THEN