Index: KPRIJS.mac.rou
===================================================================
diff -u -r51817 -r52085
--- KPRIJS.mac.rou	(.../KPRIJS.mac.rou)	(revision 51817)
+++ KPRIJS.mac.rou	(.../KPRIJS.mac.rou)	(revision 52085)
@@ -73,7 +73,7 @@
  New Korting1,Korting2,CheckKAT,KlantGrOrde
 KLANTPR3
  New R,KatProd,IsKatPr,FaMunt,Munt,MuntPar,VkpPr,KortNiv,AkpEUR,VkpEUR,LijstEUR,KlMunt,KlTyp,NetBrutP,PrijsKl,IsKsCust,IsLidVan,%LidVan,LEVNr,KatPrHan,KatPrInd,KatPrKs,GrOrde,GrOrdNum,PrMunt,CifPPL,LijstPr,Vork,%Vork
- New BTWfactor,LijstPr1,VkpEURIncl,VkpPr1,VkpPrIncl,VkpEURAX,LijstEURAX,InclBTW,PriceUnit,CachePPL
+ New BTWfactor,LijstPr1,VkpEURIncl,VkpPr1,VkpPrIncl,VkpEURAX,LijstEURAX,InclBTW,PriceUnit, CachePPL, CacheMinuten
  ; Opgezet via GETCUST : KlMunt,KlTyp,NetBrutP,PrijsKl,IsKsCust,IsLidVan,%LidVan
  ; Opgezet via GETPROD : LEVNr,KatPrHan,KatPrInd,KatPrKs,GrOrde,GrOrdNum,PrMunt,CifPPL,LijstPr,Vork,%Vork
  New LEVNr,KatPrHan,KatPrInd,KatPrKs,GrOrde,GrOrdNum,PrMunt,CifPPL,LijstPr,Vork,%Vork,BusinessType,Klant,KlantID, CorFakt,KortRec
@@ -103,18 +103,20 @@
 		Set PriceUnit=$LI(lb,4)
 		Set InclBTW=$LI(lb,5)
 	} Else {
-		Try 
-		{
+		Try {
 			New SalesPriceService, Result
-			Set SalesPriceService = ##class(AXimpl.Admin.VKP.SalesPriceService).%New()
-			#Dim Result as AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceLineOutputDC
-			Set Result = SalesPriceService.GeefPrijs(KLNr, PRNr, $S($G(SimPPL):SimPPL,1:""),.Aantal)
+			
+			#dim SalesPriceService As AXimpl.Admin.VKP.SalesPriceService = ##class(AXimpl.Admin.VKP.SalesPriceService).%New()
+			#dim Result As AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceLineOutputDC = SalesPriceService.GeefPrijs(KLNr, PRNr, $S($G(SimPPL):SimPPL,1:""),.Aantal)
+			
 			Set VkpEURAX = Result.Price
 			Set LijstEURAX = Result.GrossPrice
 			Set PriceUnit=+Result.PriceUnit
 			Set InclBTW=SalesPriceService.PrijzenInclBTW()
 			Set:$$MagInPrijsCache(PRNr) ^AXPrijsCache(KLNr,PRNr,+CachePPL,$S($G(Aantal):Aantal,1:"*"))=$LB($$GeefMinuten($H),VkpEURAX,LijstEURAX,PriceUnit,InclBTW)
 		} Catch {
+			New Exception
+			
 			Set (VkpEURAX,LijstEURAX)=99999
 			Set PriceUnit=1
 			Set InclBTW=0 
@@ -123,18 +125,15 @@
 		}
 	}
 	
-	If (VkpEURAX>0)&&(VkpEURAX'=99999)
-	{
+	If (VkpEURAX>0)&&(VkpEURAX'=99999) {
 		Set VkpEUR=VkpEURAX
 		Set LijstEUR=LijstEURAX
-		If InclBTW
-		{
+		If (InclBTW) {
 			Set VkpEUR=+$J(VkpEUR/1.21,0,10)
 		}
 		Set VkpPr = VkpEUR
 		Set LijstPr = LijstEUR
-		If PriceUnit>1
-		{ 
+		If (PriceUnit>1) { 
 			Set VkpEUR=VkpEUR/PriceUnit
 			Set LijstEUR=LijstEUR/PriceUnit
 		}
@@ -319,18 +318,20 @@
 		Set PriceUnit=$LI(lb,4)
 		Set InclBTW=$LI(lb,5)
 	} Else {
-		Try 
-		{
+		Try {
 			New SalesPriceService, Result
-			Set SalesPriceService = ##class(AXimpl.Admin.VKP.SalesPriceService).%New()
-			#Dim Result as AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceLineOutputDC
-			Set Result = SalesPriceService.GeefPrijs(KLNr, PRNr, $S($G(SimPPL):SimPPL,1:""),.Aantal)
+			
+			#dim SalesPriceService As AXimpl.Admin.VKP.SalesPriceService = ##class(AXimpl.Admin.VKP.SalesPriceService).%New()
+			#dim Result As AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceLineOutputDC = SalesPriceService.GeefPrijs(KLNr, PRNr, $S($G(SimPPL):SimPPL,1:""),.Aantal)
+			
 			Set VkpEURAX = Result.Price
 			Set LijstEURAX = Result.GrossPrice
 			Set PriceUnit=+Result.PriceUnit
 			Set InclBTW=SalesPriceService.PrijzenInclBTW()
 			Set:$$MagInPrijsCache(PRNr) ^AXPrijsCache(KLNr,PRNr,+CachePPL,"*")=$LB($$GeefMinuten($H),VkpEURAX,LijstEURAX,PriceUnit,InclBTW,"LP")
 		} Catch {
+			New Exception
+			
 			Set (VkpEURAX)=99999
 			Set PriceUnit=1
 			Set InclBTW=0 
@@ -339,15 +340,12 @@
 		}
 	}
 	
-	If (VkpEURAX>0)&&(VkpEURAX'=99999)
-	{
+	If (VkpEURAX>0)&&(VkpEURAX'=99999) {
 		Set VkpEUR=VkpEURAX
-		If InclBTW
-		{
+		If (InclBTW) {
 			Set VkpEUR=+$J(VkpEUR/1.21,0,10)
 		}
-		If PriceUnit>1
-		{ 
+		If (PriceUnit>1) { 
 			Set VkpEUR=VkpEUR/PriceUnit
 		}