Index: KPRIJS.mac.rou
===================================================================
diff -u -r51318 -r51635
--- KPRIJS.mac.rou	(.../KPRIJS.mac.rou)	(revision 51318)
+++ KPRIJS.mac.rou	(.../KPRIJS.mac.rou)	(revision 51635)
@@ -113,7 +113,7 @@
 			Set LijstEURAX = Result.GrossPrice
 			Set PriceUnit=+Result.PriceUnit
 			Set InclBTW=SalesPriceService.PrijzenInclBTW()
-			Set ^AXPrijsCache(KLNr,PRNr,+CachePPL,$S($G(Aantal):Aantal,1:"*"))=$LB($$GeefMinuten($H),VkpEURAX,LijstEURAX,PriceUnit,InclBTW)
+			Set:$$MagInPrijsCache(PRNr) ^AXPrijsCache(KLNr,PRNr,+CachePPL,$S($G(Aantal):Aantal,1:"*"))=$LB($$GeefMinuten($H),VkpEURAX,LijstEURAX,PriceUnit,InclBTW)
 		} Catch {
 			Set (VkpEURAX,LijstEURAX)=99999
 			Set PriceUnit=1
@@ -166,6 +166,8 @@
   Quit:$P(^KPR(PRNr,1),"\",25)=1 0 ; Niet actief
  
   Quit 1
+MagInPrijsCache(PRNr)
+	Quit '$$IsOrgaluxOpMaat^PRODUKT2(PRNr)
 
 GeefMinuten(DatumEnTijd)
 	Quit $P(DatumEnTijd,".")*24*60+($P(DatumEnTijd,".",2)\60)
@@ -327,7 +329,7 @@
 			Set LijstEURAX = Result.GrossPrice
 			Set PriceUnit=+Result.PriceUnit
 			Set InclBTW=SalesPriceService.PrijzenInclBTW()
-			Set ^AXPrijsCache(KLNr,PRNr,+CachePPL,"*")=$LB($$GeefMinuten($H),VkpEURAX,LijstEURAX,PriceUnit,InclBTW,"LP")
+			Set:$$MagInPrijsCache(PRNr) ^AXPrijsCache(KLNr,PRNr,+CachePPL,"*")=$LB($$GeefMinuten($H),VkpEURAX,LijstEURAX,PriceUnit,InclBTW,"LP")
 		} Catch {
 			Set (VkpEURAX)=99999
 			Set PriceUnit=1