Index: vhUnitTest/EXT/Optima/CalculPrix/ServiceWeb/CalculerTiroir/Test.cls.xml
===================================================================
diff -u -r32127 -r32431
--- vhUnitTest/EXT/Optima/CalculPrix/ServiceWeb/CalculerTiroir/Test.cls.xml	(.../Test.cls.xml)	(revision 32127)
+++ vhUnitTest/EXT/Optima/CalculPrix/ServiceWeb/CalculerTiroir/Test.cls.xml	(.../Test.cls.xml)	(revision 32431)
@@ -23,7 +23,7 @@
 	#dim Response As EXT.Optima.CalculPrix.dto.Response = ..WebService.CalculerTiroir(Request)
 
 	#dim VerwachteResponse As EXT.Optima.CalculPrix.dto.Response = ##class(EXT.Optima.CalculPrix.dto.Response).%New()
-	Set VerwachteResponse.KostPrijs = 73.29
+	Set VerwachteResponse.KostPrijs = 73.04
 	Set VerwachteResponse.RefVanHoecke = "-VH_Fixed"
 	Set VerwachteResponse.ErrorCode = 0
 	
@@ -65,12 +65,12 @@
 <Private>1</Private>
 <ReturnType>EXT.Optima.CalculPrix.dto.Request</ReturnType>
 <Implementation><![CDATA[
-	#dim Request As EXT.Optima.CalculPrix.dto.Request = ..MaakRequestTAX(1,520)
+	#dim Request As EXT.Optima.CalculPrix.dto.Request = ..MaakRequestTAX(1, 520)
 	#dim Lade As EXT.Optima.CalculPrix.dto.Request.TiroirTAORBOX = Request.Lade
 
 	Set Lade.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
 	Set Lade.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
-	Set Lade.BodemKleur=##class(DOM.PM.enu.TAORBodemKleur).NatuurNotenhout()
+	Set Lade.BodemKleur = ##class(DOM.PM.enu.TAORBodemKleur).NatuurNotenhout()
 	Set Lade.CorpusBreedte = 600
 	Set Lade.IsBinnenbreedte = $$$True
 	Set Lade.CorpusWandDikte = ""