Index: BL/PR/GA/TB/tmpDev2.mac.rou
===================================================================
diff -u -r38815 -r39154
--- BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 38815)
+++ BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 39154)
@@ -22,6 +22,8 @@
 BuildFromWS   ; Parameters: WS,Opties
 	Quit:('WS)
 	Quit:(WS.Lijnen.Count()="")
+	New ClientIP
+
 	  d TTraceW("WS: Begin BuildFromWS - ID="_WS.mID)
 	  ;d TTraceW("WS: Opties:"_$G(Opties)_"  condition No Prices calc:"_($G(Opties)'["PRS=1;"))
 	  new sDbg  Set sDbg=""
@@ -77,7 +79,7 @@
 	. Set WSLn.KostPrijs="ERROR"
 	Quit
 bfwCalcWSLijnen	
-	New Prod,i,arValidPR,Som,SomAant,WSLn,OrdStdL,arWSStdL,KLReductie,KLKorting,KLNrProd,GeldigeActiesVoorOrder
+	New Prod,i,arValidPR,Som,SomAant,WSLn,OrdStdL,arWSStdL,KLReductie,KLKorting,KLNrProd,GeldigeActiesVoorOrder,ProductTypeAPI
 	;n arORefs
 	Do bfwCalcProductsInit
 	Set i=""
@@ -294,6 +296,7 @@
  
 	// Actieve Acties ophalen. Deze worden lijn per lijn gecontroleerd. Achteraf zal de unie van de ActieCode (op lijnniveau) bewaard worden op het WSOrd (hoofding) niveau. 
 	// (Added by WimV on 17/12/2010) 
+	New RefDatum,Shop,Klant
 	Set RefDatum=$H
 	Set Shop=sDomVERW
 	Set Klant=WS.KLNummer   ; Klant-object kan enkel voor VHEPN;  bij SFS of andere handels andere implementatie van het klant-object gebruiken (TBD) 
@@ -306,6 +309,7 @@
 	. Do WSLn.WisAlleActieGegevens()
 	. Set WSLn.ActieKorting=""
  
+	New ActieveActiesList,itActieveActies
 	Set ActieveActiesList=##class(APPS.TBXWeb.Actie).GeefActieveActies(RefDatum,Shop,Klant)
 	Set GeldigeActiesVoorOrder=ActieveActiesList.%New()
 	
@@ -364,7 +368,8 @@
 #define MargeSFSxZonderCP     2.36
   */
  
- New KPrijsVH,LPrs,VKPrs,VerwMarge,KLNrPrs,PrPiece,GenPRNr,IsBeursUser,IsAnonymousUser
+ New KPrijsVH,LPrs,AKPrs,VKPrs,VerwMarge,KLNrPrs,PrPiece,GenPRNr,IsBeursUser,IsAnonymousUser 
+ New GenType,LowestVal
  New D,Q,U
  Set Q="K",D="\",U=";"
  Do Prod.CalcAll()
@@ -408,6 +413,7 @@
  Quit
  
 bfwZoekGeldigeActiesVoorWSLijn(WSLn,Prod,KLNrPrs,GenPRNr,GeldigeActiesVoorOrder,VKPrsNormaal)
+	New itActies
 	Set itActies=##class(TECH.ListIterator).%New(GeldigeActiesVoorOrder)
 	While itActies.HasNext() {
 		Set Actie=itActies.Next()