Index: BL/PR/GA/TB/tmpDev2.mac.rou
===================================================================
diff -u -r508 -r518
--- BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 508)
+++ BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 518)
@@ -85,7 +85,7 @@
 	.   ;do ChronoReset^vhLib()
 	. Set Prod=$$bfwProductFromWSLijn(WSLn,i,WS.NietMeeleveren)
 	. Quit:(Prod="")
-	. Do bfwCalcProduct(Prod,i)
+	. Do bfwCalcProduct(Prod,i,WS.NietMeeleveren)
 	.   ;d WL^vhDBG("Tijd voor CalcProduct "_i_$C(9)_" : "_$$ChronoStepFMT^vhLib)
 	. Set Prod=""   ; Close Prod anyway
 	Do bfwCalcProductsAfter
@@ -320,7 +320,7 @@
 	
 	Set (Som,SomAant)=0
 	Quit
-bfwCalcProduct(Prod,i)
+bfwCalcProduct(Prod,i,pdlNietMee)
 	Kill arValidPR
 	If Prod=$$$tbxCodeStdLade Do
 	. Do bfwCalcProdStdL   ; all params are globally known
@@ -357,6 +357,10 @@
 #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
+  // Nieuwe marges voor SFS : vanaf 01/11/2013 is er een onderscheid tussen TBX met/zonder CorpusProfielen :
+#define MargeSFSxMetCP        2.35
+#define MargeSFSxZonderCP     2.50
+ 
  New KPrijsVH,LPrs,VKPrs,VerwMarge,KLNrPrs,PrPiece,GenPRNr,IsBeursUser,IsAnonymousUser
  New D,Q,U
  Set Q="K",D="\",U=";"
@@ -456,7 +460,7 @@
 	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
+	Set VerwMarge=$CASE(sDomVERW, "HEIN":$$$MargeHEIN, "LMC":$$$MargeLMC, "SFS":$$bfwGeefPrijsFactorVoorSFS(pdlNietMee), :1)   ; , "DUPO":$$$MargeDUPO, "HELMY":$$$MargeHELMY, "HFLE":$$$MargeHFLE, "MBHO":$$$MargeMBHO
 	If sDomVERW="LMC" Do
 	. If ($G(KLReductie)<(1/$$$MargeLMC))  Set KLReductie=1   ; ( 1 / $$$MargeLMC = 0.4292 )    m.a.w. KLKorting mag niet groter zijn dan de MargeLMC 
 	. Set HandelVKPrijs=$J(AKPrs*VerwMarge*KLReductie,0,2)
@@ -467,6 +471,19 @@
 	. Set HandelVKPrijs=$S((VerwMarge=1):AKPrs, 1:$J(AKPrs*VerwMarge+0.004999,0,2))   ; Opnieuw afronden na VerwMarge-calculatie
  
 	Quit HandelVKPrijs
+ 
+bfwGeefPrijsFactorVoorSFS(pdlNietMee)
+	Quit:($$bfwUseOudePrijsFactorVoorSFS) $$$MargeSFS
+	; Else 
+	New PrijsFactorSFS
+	Set PrijsFactorSFS=$$$MargeSFSxMetCP
+	If (pdlNietMee["NMCP") {
+		Set PrijsFactorSFS=$$$MargeSFSxZonderCP
+	}
+	Quit PrijsFactorSFS
+bfwUseOudePrijsFactorVoorSFS()
+	// Vanaf deze datum (01/11/2013, $H=63127)  worden de nieuwe prijsfactoren actief. 
+	Quit ($H < 63127)
 	
 bfwTrapCalcPrs
 	Set HandelVKPrijs=""