Index: BL/PR/GA/TB/tmpDev2.mac.rou
===================================================================
diff -u -r51743 -r51744
--- BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 51743)
+++ BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 51744)
@@ -141,37 +141,32 @@
 	. Set WSLn.ItemKX=KBxs   ; Set to WSLijn 
 	Else  Do
 	. Set KBxs=WSLn.ItemKX
-
-
-	Do WLIP^vhDBG(97,$J(WSLn.ItemLT,6)_"  DS: "_WSLn.ItemDS_" ->DSCode "_DSCode_"  RK: "_WSLn.ItemRK_" -> KFront "_KFront _$S($IsObject($G(WS)):"  wsID: "_WS.mID, 1:"") )
-
-
-	Do blTBox.BTValues.SetAt(WSLn.ItemDS                              ,"TBDesign")
+	Do blTBox.BTValues.SetAt(WSLn.ItemDS	                             ,"TBDesign")
 	Do blTBox.BTValues.SetAt(DSCode                                   ,"TBDesignCode")
-	Do blTBox.BTValues.SetAt(WSLn.ItemLT                              ,"LadeCode")
+	Do blTBox.BTValues.SetAt(WSLn.ItemLT	                             ,"LadeCode")
 	Do bfwBTItemsLadeCode(WSLn.ItemLT)
 	Set Klas=blTBox.BTValues.GetAt("TBKlasse")
 	Do blTBox.BTValues.SetAt($S(blTBox.BTValues.GetAt("TBLadeType")="B":"Z", 1:WSLn.ItemFB) ,"TBFBevestiging")
-	Do blTBox.BTValues.SetAt(WSLn.ItemCB                              ,"TBCBreedte")
-	Do blTBox.BTValues.SetAt(WSLn.ItemWD                              ,"TBWandDikte")
+	Do blTBox.BTValues.SetAt(WSLn.ItemCB	                             ,"TBCBreedte")
+	Do blTBox.BTValues.SetAt(WSLn.ItemWD	                             ,"TBWandDikte")
 	Do blTBox.BTValues.SetAt($S(WSLn.ItemOPVL["L":25, 1:0)            ,"OpvullijstLi")
 	Do blTBox.BTValues.SetAt($S(WSLn.ItemOPVL["R":25, 1:0)            ,"OpvullijstRe")
-	Do blTBox.BTValues.SetAt(blTBox.DFLMinTolerantie(WSLn.ItemWD)     ,"MinTolerantie")   ; $S(+WSLn.ItemWD=0:0, 1:1)
-	Do blTBox.BTValues.SetAt(WSLn.ItemLD                              ,"TBLadeDiepte")
-	Do blTBox.BTValues.SetAt(WSLn.ItemDK                              ,"TBDraagKracht")
-	Do blTBox.BTValues.SetAt(WSLn.ItemKB                              ,"TBBodemKleur")
-	Do blTBox.BTValues.SetAt(WSLn.ItemRK                              ,"TBRelingKleur")
+	Do blTBox.BTValues.SetAt(blTBox.DFLMinTolerantie(WSLn.ItemWD)          ,"MinTolerantie")   ; $S(+WSLn.ItemWD=0:0, 1:1)
+	Do blTBox.BTValues.SetAt(WSLn.ItemLD	                             ,"TBLadeDiepte")
+	Do blTBox.BTValues.SetAt(WSLn.ItemDK	                             ,"TBDraagKracht")
+	Do blTBox.BTValues.SetAt(WSLn.ItemKB	                             ,"TBBodemKleur")
+	Do blTBox.BTValues.SetAt(WSLn.ItemRK	                             ,"TBRelingKleur")
 	Do blTBox.BTValues.SetAt(KFront                                   ,"TBFrontKleur")
 	Do blTBox.BTValues.SetAt($S(WSLn.ItemKL="BE":"BA", 1:WSLn.ItemKL) ,"TBLadeKleur")
 	Do blTBox.BTValues.SetAt(KRug                                     ,"TBRugKleur")
-	Do blTBox.BTValues.SetAt(WSLn.ItemBM                              ,"TBBlumotion")
+	Do blTBox.BTValues.SetAt(WSLn.ItemBM	                             ,"TBBlumotion")
  
 	Do blTBox.BTValues.SetAt(WSLn.ItemBX                              ,"TBBoxSide")
 	Do blTBox.BTValues.SetAt(KBxs                                     ,"TBBoxsideKleur")   ; WSLn.ItemKX
 	Do blTBox.BTValues.SetAt(WSLn.ItemKV                              ,"TBVulstukKleur")
 	Do blTBox.BTValues.SetAt(WSLn.ItemKLROPVL                         ,"TBOpvullijstKleur")
  
-	Do blTBox.BTValues.SetAt(WSLn.ItemSB                              ,"TBStabilisator")
+	Do blTBox.BTValues.SetAt(WSLn.ItemSB	                             ,"TBStabilisator")
 	Do blTBox.BTValues.SetAt(WSLn.ItemRSTL                            ,"TBRugStukVerlaagd")
 	Do blTBox.BTValues.SetAt("Z"                                      ,"TBStalenRug")
 	Set SPZKpiece1=$P(WSLn.ItemSPZK,";",1)
@@ -201,11 +196,11 @@
 		}
 	} 
 	ElseIf Klas=##class(DOM.PM.enu.TBXToepassing).SifonType1() {
-		Do blTBox.BTValues.SetAt($P(WSLn.ItemSPZK,";",2)              ,"SpoelbakZkLi")
-		Do blTBox.BTValues.SetAt($P(WSLn.ItemSPZK,";",3)              ,"SpoelbakZkRe")
-		Do blTBox.BTValues.SetAt($P(WSLn.ItemSPZK,";",4)              ,"SpoelbakZkMi")
+		Do blTBox.BTValues.SetAt($P(WSLn.ItemSPZK,";",2)          ,"SpoelbakZkLi")
+		Do blTBox.BTValues.SetAt($P(WSLn.ItemSPZK,";",3)          ,"SpoelbakZkRe")
+		Do blTBox.BTValues.SetAt($P(WSLn.ItemSPZK,";",4)          ,"SpoelbakZkMi")
 		Set SPBR=##class(BL.PR.GA.TandemBox).CalcBreedteSpoelbak(SPZKpiece1,0,0,DSCode)
-		Do blTBox.BTValues.SetAt(SPBR                                 ,"SpoelbakBreedte")   ; deze moet ingevuld zijn voor dubbele sifonlade 
+		Do blTBox.BTValues.SetAt(SPBR                             ,"SpoelbakBreedte")   ; deze moet ingevuld zijn voor dubbele sifonlade 
 	} 
 	
 	If ($L(WSLn.ItemVPK)) Do
@@ -430,19 +425,6 @@
  . Set VKPrs="ERROR"
  . Set WSLn.Exclude=1
  
- 
-	New ShowDebugInfo,blTBoxDBG
-	Set ShowDebugInfo = (VKPrs="ERROR")
-	If ShowDebugInfo {
-		Set blTBoxDBG = $this
-		;Do WLIP^vhDBG(97,"WSLijn   ItemCB    = " _ WSLn.ItemCB)
-		;Do WLIP^vhDBG(97,"BTValues CBreedte  = " _ blTBoxDBG.BTValues.GetAt("TBCBreedte"))
-		;Do WLIP^vhDBG(97,"Product  LookUp CB = " _ Prod.LookUp("PL","CB"))
-		Do WLIP^vhDBG(97,$$$CRLF _ "BTValues : "  _ $$$CRLF _ ##class(TECH.ArrayUtils).ArrayToPieces(blTBoxDBG.BTValues, $$$CRLF))
-		Do WLIP^vhDBG(97,$$$ArrayTT3("LookUp(""PL"")",Prod,"LookUp") _ $$$CRLF)
-	}
-
- 
  ; Fill in WSLn-properties
  If (VKPrs>0)||(IsAnonymousUser) Do
  . Set WSLn.AKPrijs=AKPrs