admin/Database
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FSN#21613

Browse Source 
svn path=/Database/trunk/; revision=10947
This commit is contained in:
Maykel Geerdink
2011-11-03 13:10:14 +00:00
parent 101586d176
commit 2bbbb31345
1 changed files with 19 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
BES/BES_PAC.SRC
View File

@@ -1,7 +1,7 @@
#ifdef BES // 03-11-2000 PF
/* BES_PAC.SRC
* $Revision: 82 $
* $Modtime: 31-10-11 14:22 $
* $Revision: 83 $
* $Modtime: 3-11-11 14:51 $
*/
-- STATUS: TESTEN
@@ -97,22 +97,22 @@ AS
END IF;
-- Vind de meest recentste prijs. Bij meerdere records de meest recente prijs pakken
BEGIN
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
(SELECT ''
FROM bes_srtdeel_prijs sdp1
WHERE COALESCE (sdp1.bes_srtdeel_prijs_vervaldatum, SYSDATE + 999) > ldate
AND sdp1.bes_srtdeel_key = pbes_srtdeel_key
AND COALESCE(sdp1.bes_srtdeel_prijs_vervaldatum, SYSDATE+999) < COALESCE (sdp.bes_srtdeel_prijs_vervaldatum, SYSDATE + 999));
EXCEPTION
WHEN NO_DATA_FOUND
THEN
RETURN NULL;
END;
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
(SELECT ''
FROM bes_srtdeel_prijs sdp1
WHERE COALESCE (sdp1.bes_srtdeel_prijs_vervaldatum, SYSDATE + 999) > ldate
AND sdp1.bes_srtdeel_key = pbes_srtdeel_key
AND COALESCE(sdp1.bes_srtdeel_prijs_vervaldatum, SYSDATE+999) < COALESCE (sdp.bes_srtdeel_prijs_vervaldatum, SYSDATE + 999));
IF lsrtdeelprijskey IS NULL
THEN
RETURN NULL;
END IF;
SELECT sdp.bes_srtdeel_prijs_prijs, sdp.bes_srtdeel_prijs_inkprijs
INTO lprijs, linkprijs
@@ -1472,6 +1472,6 @@ END bes;
/
REGISTERRUN('$Workfile: BES_PAC.SRC $','$Revision: 82 $')
REGISTERRUN('$Workfile: BES_PAC.SRC $','$Revision: 83 $')
#endif // BES