Index: BL/PR/GA/TB/tmpDev2.mac.rou
===================================================================
diff -u -r58 -r135
--- BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 58)
+++ BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 135)
@@ -345,6 +345,8 @@
 #define MargeHFLE    1
   // MargeMBHO=1 , berekening via LijstPrijs --> geen 
 #define MargeMBHO    1
+  // MargeKISCH=1 , berekening via LijstPrijs --> geen 
+#define MargeKISCH   1
   // MargeSFS= ? , berekening via ???   (modified by WimV on 28/02/2011, previous value: 2.8  --> change to MargeSFS active from 01/03/2011) 
 #define MargeSFS     2.33
  New KPrijsVH,LPrs,VKPrs,VerwMarge,KLNrPrs,PrPiece,GenPRNr,IsBeursUser,IsAnonymousUser
@@ -437,13 +439,13 @@
   
 	// BENELUX handels met korting, i.e. met klantinfo 
 	New HandelVKPrijs,KPrijsData,HandelVKPrijs
-	If (sDomVERW="MBHO")||(sDomVERW="HFLB" ) {
+	If (sDomVERW="MBHO")||(sDomVERW="HFLB")||(sDomVERW="KISCH") {
 		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" ) HandelVKPrijs
+	Quit:(sDomVERW="MBHO")||(sDomVERW="HFLB")||(sDomVERW="KISCH") HandelVKPrijs
 	
 	// Niet-BENELUX handels (met en zonder korting , i.e. met en zonder klantinfo) 
 	Set VerwMarge=$CASE(sDomVERW, "HEIN":$$$MargeHEIN, "LMC":$$$MargeLMC, "SFS":$$$MargeSFS, :1)   ; , "DUPO":$$$MargeDUPO, "HELMY":$$$MargeHELMY, "HFLE":$$$MargeHFLE, "MBHO":$$$MargeMBHO