FSN#21613

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

BES/BES_PAC.SRC

@@ -1,7 +1,7 @@
 #ifdef  BES // 03-11-2000 PF
 /*  BES_PAC.SRC
- *  $Revision: 81 $
- *  $Modtime: 26-10-11 13:01 $
+ *  $Revision: 82 $
+ *  $Modtime: 31-10-11 14:22 $
  */
 
 -- STATUS: TESTEN
@@ -86,6 +86,7 @@ AS
       RETURN NUMBER
    AS
     ldate DATE;
+    lsrtdeelprijskey bes_srtdeel_prijs.bes_srtdeel_prijs_key%TYPE;
     lprijs bes_srtdeel_prijs.bes_srtdeel_prijs_prijs%TYPE;
     linkprijs bes_srtdeel_prijs.bes_srtdeel_prijs_inkprijs%TYPE;
    BEGIN
@@ -94,9 +95,11 @@ AS
       THEN
         ldate := pdate;
       END IF;
+
+      -- Vind de meest recentste prijs. Bij meerdere records de meest recente prijs pakken
       BEGIN
-        SELECT   sdp.bes_srtdeel_prijs_prijs, sdp.bes_srtdeel_prijs_inkprijs
-          INTO   lprijs, linkprijs
+        SELECT   MAX(sdp.bes_srtdeel_prijs_key)
+          INTO   lsrtdeelprijskey
           FROM   bes_srtdeel_prijs sdp
          WHERE   COALESCE (sdp.bes_srtdeel_prijs_vervaldatum, SYSDATE + 999) > ldate AND sdp.bes_srtdeel_key = pbes_srtdeel_key
                     AND NOT EXISTS
@@ -110,6 +113,12 @@ AS
          THEN
             RETURN NULL;
       END;
+
+      SELECT   sdp.bes_srtdeel_prijs_prijs, sdp.bes_srtdeel_prijs_inkprijs
+        INTO   lprijs, linkprijs
+        FROM   bes_srtdeel_prijs sdp
+       WHERE   sdp.bes_srtdeel_prijs_key = lsrtdeelprijskey;
+
       IF pflags = 1
       THEN
         RETURN lprijs;
@@ -1463,6 +1472,6 @@ END bes;
 /
 
 
-REGISTERRUN('$Workfile: BES_PAC.SRC $','$Revision: 81 $')
+REGISTERRUN('$Workfile: BES_PAC.SRC $','$Revision: 82 $')
 
 #endif // BES