Index: cspBasis/GAProdTBox.cls.xml
===================================================================
diff -u -r148 -r172
--- cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 148)
+++ cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 172)
@@ -45,6 +45,7 @@
 	  ;s:('$D(%ClientIP)) %ClientIP="192.168.1.97"
 	  ;d WLIP^vhDBG(97,$G(sDomVERW)_" - "_$G(KLNr)_" - "_$$$LCVT(lbFlags))
 	New blnVHEPN,blnLMC,blnHFLE,blnSFS,blnMBHO,blnHFLB,blnKISCH,flgGetFrom,flgStorageMode,lbGetData,i,KLMini
+	; Set TBXContext=##class(APPS.TBXWeb.TBXContext).InitFromHttpRequest()   ; Of als param doorgeven 
 	Do gkdInitialize 
 	Set KLMini=""
 	For i=1:1:$LL(lbGetData) Do  Quit:($IsObject(KLMini))
Index: BL/PR/GA/TB/tmpDev2.mac.rou
===================================================================
diff -u -r135 -r172
--- BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 135)
+++ BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 172)
@@ -28,7 +28,7 @@
  
 	New dsID,Result,Templ,arKDtl,lbDomLU,sDomVERW,sDomKLNr
 	New arValidWS
-	Set lbDomLU=WS.DomainLookUp(WS.WebDomain,$LB("VERW","KLNR"))
+	Set lbDomLU=WS.DomainLookUp(WS.WebDomain,$LB("VERW","KLNR"))   ; Set TBXContext=##class(APPS.TBXWeb.TBXContext).InitFromHttpRequest()
 	Set sDomVERW=$LG(lbDomLU,1)
 	Set sDomKLNr=$LG(lbDomLU,2)
 	Set Result=$$bfwTemplateViaLadeKL(..GetKlantBeperkDesign(WS.KLNummer,sDomVERW))   ; (.Templ)
@@ -113,7 +113,7 @@
 	Set Prod=##class(Prod.GAData.Product).BuildFromTemplate(Templ.%Id())
 	Do Prod.TemplateTmpInit()
 	Do Prod.AutosFromTemplate(,"FILL")
-	Do:(KLNrProd) Prod.KlantSetObjectId(KLNrProd)
+	Do:(KLNrProd) Prod.KlantSetObjectId(KLNrProd)   ; TBXContext.IsKlantIDIngevuld(...) 
 	Do ..BTValues.SetAt(Prod.TemplateCode,"TemplateCode")
 	Do bfwSetNietMeeItems(pdlNietMee)
 	Do bfwFBevestNML
@@ -176,7 +176,7 @@
 			Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",4)          ,"SpoelbakBreedte1")
 		}
 	} 
-	ElseIf (Klas=##class(DOM.PM.enu.TBXKlas).Spoelbak())||(Klas=##class(DOM.PM.enu.TBXKlas).Sifon()) {
+	ElseIf Klas=##class(DOM.PM.enu.TBXKlas).Spoelbak() {
 		#define SPZkOpMaat(%v)   (%v?1(1"M".E,1"SI".E))
 		
 		If $$$SPZkOpMaat(SPZKpiece1) {   ; Spoelbak zijkant op maat 
@@ -186,11 +186,14 @@
 			; SpoelbakBreedte (SPBR) wordt berekend in Prod.BWValuesToProduct()
 		}
 	} 
- /*	
-	; javascript:UpdateSPZK("MM;181;236;200;129;129"); 
-	;d WLIP^vhDBG(97,WSLn.ItemSPZK_" SPZK LI: "_..BTValues.GetAt("SpoelbakZkLi")_" SPZK RE: "_..BTValues.GetAt("SpoelbakZkRe"))
- */
- 	
+	ElseIf Klas=##class(DOM.PM.enu.TBXKlas).Sifon() {
+		Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",2)          ,"SpoelbakZkLi")
+		Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",3)          ,"SpoelbakZkRe")
+		Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",4)          ,"SpoelbakZkMi")
+		Set SPBR=##class(BL.PR.GA.TandemBox).CalcBreedteSpoelbak(SPZKpiece1,0,0,DSCode)
+		Do ..BTValues.SetAt(SPBR                             ,"SpoelbakBreedte")   ; deze moet ingevuld zijn voor dubbele sifonlade 
+	} 
+	
 	If ($L(WSLn.ItemVPK)) Do
 	. Do ..BTValues.SetAt(WSLn.ItemVPK                           ,"Verpakking")
 	. Do:(##class(BL.PR.GA.TandemBox).NietMeeToepassen(WSLn.ItemVPK)="True")||(WSLn.ItemVPK="xxP") bfwUpdateNMItemsBulk   ; Do:(WSLn.ItemVPK?1(1"C",1"P",1"Z",1"A",1"Y")) bfwUpdateNMItemsBulk 
Index: csp/vhisie/TBX/MailResult/tmpDev.mac.rou
===================================================================
diff -u -r135 -r172
--- csp/vhisie/TBX/MailResult/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 135)
+++ csp/vhisie/TBX/MailResult/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 172)
@@ -19,7 +19,7 @@
 	;Set wsID=$$DataFromRqOrSes^cspBasis.Library("WSID")
 	;Set KLNr=$$DataFromRqOrSes^cspBasis.Library("KLNR")
 	New ServerPrefix,lbWSErrs,blnOFFToBBON
-	Set ServName=$$GetURLDomain^cspBasis.Library
+	Set ServName=$$GetURLDomain^cspBasis.Library   ; Set TBXContext=##class(APPS.TBXWeb.TBXContext).InitFromHttpRequest()
 	Set sComments=$$$Trim($G(%request.Data("COMMENTS",1),""))
 	Set PageURL=%request.URL
 	Set PageDomain=$P($P(PageURL,"://",2),"/",1)   ; tussen "http://" en de volgende "/"