Index: BL/PR/GA/TB/tmpDev2.mac.rou
===================================================================
diff -u -r803 -r804
--- BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 803)
+++ BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 804)
@@ -450,14 +450,15 @@
 	Quit:(sDomVERW="HELMY") $P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,$G(%NoSa),$J(KPrijsVH,0,2)),"\",$$$PcLijstPrs)
   
 	// BENELUX handels met korting, i.e. met klantinfo 
-	New HandelVKPrijs,KPrijsData,HandelVKPrijs
-	If (sDomVERW="MBHO")||(sDomVERW="HFLB")||(sDomVERW="HFLE")||(sDomVERW="KISCH")||(sDomVERW="RAEM") {
+	New IsBeneluxHandelMetKorting,HandelVKPrijs,KPrijsData,HandelVKPrijs
+	Set IsBeneluxHandelMetKorting = (sDomVERW="MBHO")||(sDomVERW="HFLB")||(sDomVERW="HFLE")||(sDomVERW="KISCH")||(sDomVERW="RAEM")
+	If IsBeneluxHandelMetKorting {
 		Set KPrijsData=$$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,$G(%NoSa),$J(KPrijsVH,0,2))
 		Set HandelVKPrijs=$J($$$HandelLijstPrijs(KPrijsData)*KLReductie,0,2)
 		// Als de "HandelVKPrijs met KLKorting" kleiner dan de HandelAKPrijs, dan wordt de KLKorting volledig ongedaan gemaakt. 
 		If HandelVKPrijs<$$$HandelAankoopPrijs(KPrijsData) { Set HandelVKPrijs=$$$HandelLijstPrijs(KPrijsData) } 
 	}	 
-	Quit:(sDomVERW="MBHO")||(sDomVERW="HFLB")||(sDomVERW="HFLE")||(sDomVERW="KISCH")||(sDomVERW="RAEM") HandelVKPrijs
+	Quit:(IsBeneluxHandelMetKorting) HandelVKPrijs
 	
 	// Niet-BENELUX handels (met en zonder korting , i.e. met en zonder klantinfo) 
 	Set VerwMarge=$CASE(sDomVERW, "HEIN":$$$MargeHEIN, "LMC":$$$MargeLMC, "SFS":$$bfwGeefPrijsFactorVoorSFS(pdlNietMee,GeldigeActiesVoorOrder), :1)