KFNS#59399 Strukton-koppeling/Wijzigen kosten-logica

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

KFNS/kfns.sql

@@ -667,6 +667,8 @@ AS
    v_opmerking            VARCHAR2 (4000);
    v_totaal_tekst         VARCHAR2 (100);
    v_totaal               NUMBER (8,2);
+   v_correctie_tekst      VARCHAR2 (100);
+   v_correctie            NUMBER (8,2);
    -- Overige velden
    v_mld_opdr_key         NUMBER (10);
    v_mld_opdr_opmerking   VARCHAR2 (4000);
@@ -703,6 +705,8 @@ BEGIN
          v_opmerking := SUBSTR (TRIM (v_opmerking), 1, 1000);
          fac.imp_getfield (v_newline, c_delim, v_totaal_tekst);
          v_totaal := fac.safe_to_number (v_totaal_tekst);
+         fac.imp_getfield (v_newline, c_delim, v_correctie_tekst);
+         v_correctie := fac.safe_to_number (v_correctie_tekst);
          -- Verwijder de markering voor cr/lf die in stylesheet is toegevoegd.
          v_opmerking := REPLACE (v_opmerking, '@@', CHR (13));
          v_aanduiding := '[' || v_mld_opdr_key_tekst || '|' || v_extern_nummer || '|' || v_status_code || '|' || v_datumtijd_tekst || '|' || v_status_tekst || '] ';
@@ -718,6 +722,7 @@ BEGIN
                AND UPPER (TRIM (v_datumtijd_tekst)) = 'DATETIME'
                AND UPPER (TRIM (v_opmerking)) = 'REMARKS'
                AND UPPER (TRIM (v_totaal_tekst)) = 'TOTAL'
+               --AND UPPER (TRIM (v_correctie_tekst)) = 'CORRECTION'
             THEN
                header_is_valid := 1;
             END IF;
@@ -821,13 +826,15 @@ BEGIN
                                                           status,
                                                           datumtijd,
                                                           opmerking,
-                                                          totaal)
+                                                          totaal,
+                                                          correctie)
                       VALUES (v_mld_opdr_key,
                               v_extern_nummer,
                               v_status,
                               v_datumtijd,
                               v_opmerking,
-                              v_totaal);
+                              v_totaal,
+                              v_correctie);
 
                   v_count_imp := v_count_imp + 1;
                EXCEPTION
@@ -872,7 +879,7 @@ AS
    -- Cursor loopt - per opdracht in volgorde! - over alle ingelezen statusberichten.
    CURSOR c1
    IS
-        SELECT mld_opdr_key, extern_nummer, status, datumtijd, opmerking, totaal
+        SELECT mld_opdr_key, extern_nummer, status, datumtijd, opmerking, totaal, correctie
           FROM kfns_imp_opdrstat_strukton
       ORDER BY 1, 4;
 
@@ -973,11 +980,11 @@ BEGIN
                   MLD.updatemeldingstatusAV (v_mld_key, 0, c_user_key, 0);
                ELSIF rec.status = 9 AND v_opdr_status = 6      -- Per KFNS#52066
                THEN
-                  -- Neem ontvangen totaal over (als kosten=0, dus niet voor offerteopdrachten)
+                  -- Neem ontvangen kosten over zoals afgestemd met KFNS#59399!
                   UPDATE mld_opdr
                      SET mld_opdr_materiaal = rec.totaal,
-                         mld_opdr_kosten = rec.totaal
-                   WHERE mld_opdr_key = v_opdr_key AND COALESCE (mld_opdr_kosten, 0) = 0;
+                         mld_opdr_kosten = rec.totaal + rec.correctie
+                   WHERE mld_opdr_key = v_opdr_key;
 
                   -- Rond de opdracht af als deze afgemeld was
                   MLD.setopdrachtstatus (v_opdr_key, 9, c_user_key); -- Strukton
@@ -10858,7 +10865,7 @@ AS
      WHERE     k.alg_kenmerk_key = 1460
            AND k.alg_onrgoedkenmerk_waarde = TO_CHAR (ud.fac_usrdata_key)
            AND ud.fac_usrtab_key = 341;
-           
+
 ------ payload end   ------
 
 SET DEFINE OFF