Index: vhUnitTest/APPS/PM/Maatwerk/End2End/TAOR/TestTAORGewoneLadePrijzen.cls.xml
===================================================================
diff -u -r30524 -r30525
--- vhUnitTest/APPS/PM/Maatwerk/End2End/TAOR/TestTAORGewoneLadePrijzen.cls.xml	(.../TestTAORGewoneLadePrijzen.cls.xml)	(revision 30524)
+++ vhUnitTest/APPS/PM/Maatwerk/End2End/TAOR/TestTAORGewoneLadePrijzen.cls.xml	(.../TestTAORGewoneLadePrijzen.cls.xml)	(revision 30525)
@@ -6,49 +6,63 @@
 <Method name="TestStandaardLadeVerpakking">
 <Implementation><![CDATA[
 	#dim VerpakkingIterator As TECH.Iterator = ##class(DOM.PM.enu.TAORVerpakkingType).ValueListIterator()
+	
 	while VerpakkingIterator.HasNext() {
 		#dim Verpakking As DOM.PM.enu.TAORVerpakkingType = VerpakkingIterator.Next()
 		#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(Verpakking)
+		
 		do ..GenereerMaatwerkBestand(TAORKenmerken,,Verpakking)
 	} 
+	
 	do $$$AssertCorrectGemaakteBestanden(..BestandLocatie)
 ]]></Implementation>
 </Method>
 
 <Method name="TestStandaardBinnenladeVerpakking">
 <Implementation><![CDATA[
 	#dim VerpakkingIterator As TECH.Iterator = ##class(DOM.PM.enu.TAORVerpakkingType).ValueListIterator()
+	
 	while VerpakkingIterator.HasNext() {
 		#dim Verpakking As DOM.PM.enu.TAORVerpakkingType = VerpakkingIterator.Next()
 		#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenladeVerpaktIn(Verpakking)
+		
 		do ..GenereerMaatwerkBestand(TAORKenmerken,,Verpakking)
-	} 
+	}
+	 
 	do $$$AssertCorrectGemaakteBestanden(..BestandLocatie)
 ]]></Implementation>
 </Method>
 
 <Method name="TestBinnenlade">
 <Implementation><![CDATA[
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefIngegevenKenmerken()
-	Set TAORKenmerken.IsBinnenlade = $$$True
-	Set TAORKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Drevel()
-	set TAORKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Movento()
-	Set TAORKenmerken.Draagkracht = 40
-	Set TAORKenmerken.FrontEindkapKleur = ##class(DOM.PM.enu.TAORFrontEindkapKleur).AluminiumLook()
-
-	Do ..GenereerMaatwerkBestand(TAORKenmerken)
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenlade()
 	
-	Do $$$AssertCorrectGemaakteBestanden(..BestandLocatie)
+	// afwijkend van standaardlade --> mag weg? 
+	set TAORKenmerken.CorpusBinnenbreedte = 625
+	set TAORKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Schroef
+	set TAORKenmerken.KoppelingType = ..Enum.KoppelingType.Drevel
+	set TAORKenmerken.HeeftTipon = $$$True
+	set TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.Probox
+	set TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte350
+
+	do ..AssertBestanden(TAORKenmerken)
 ]]></Implementation>
 </Method>
 
 <Method name="TestCHoogte">
 <Implementation><![CDATA[
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefIngegevenKenmerken()
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
 	
-	Do ..GenereerMaatwerkBestand(TAORKenmerken)
+	// afwijkend van standaardlade --> mag weg? 
+	set TAORKenmerken.CorpusBinnenbreedte = 625
+	set TAORKenmerken.GlijderType = ..Enum.GlijderType.Tandem
+	set TAORKenmerken.Draagkracht = ..Enum.Draagkracht.Draagkracht30
+	set TAORKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Schroef
+	set TAORKenmerken.HeeftTipon = $$$True
+	set TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.Probox
+	set TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte350
 	
-	Do $$$AssertCorrectGemaakteBestanden(..BestandLocatie)
+	do ..AssertBestanden(TAORKenmerken)
 ]]></Implementation>
 </Method>
 
@@ -64,57 +78,70 @@
 
 <Method name="TestCHoogte750diep">
 <Implementation><![CDATA[
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefIngegevenKenmerken()
-	Set TAORKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
-	Set TAORKenmerken.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte750()
-	Set TAORKenmerken.Draagkracht = 50
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
 	
-	Do ..AssertBestanden(TAORKenmerken)
+	set TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.C
+	set TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte750
+	set TAORKenmerken.Draagkracht = ..Enum.Draagkracht.Draagkracht50
+	
+	// afwijkend van standaardlade --> mag weg? 
+	set TAORKenmerken.CorpusBinnenbreedte = 625
+	set TAORKenmerken.GlijderType = ..Enum.GlijderType.Tandem
+	set TAORKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Schroef
+	set TAORKenmerken.HeeftTipon = $$$True
+	set TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.Probox
+	
+	do ..AssertBestanden(TAORKenmerken)
 ]]></Implementation>
 </Method>
 
 <Method name="TestMHoogteNE">
 <Implementation><![CDATA[
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefIngegevenKenmerken()
-	Set TAORKenmerken.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte500()
-	Set TAORKenmerken.BodemKleur = "NE"
-	Set TAORKenmerken.LadeKleur = "NE"
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	
+	set TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.M
+	set TAORKenmerken.BodemKleur = ..Enum.BodemKleur.NatuurEikenhout
+	set TAORKenmerken.LadeKleur = ..Enum.LadeKleur.NatuurEikenhout
 	set TAORKenmerken.LadeBinnenKleur = ..Enum.LadeKleur.NatuurEikenhout
-	Set TAORKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M()
-	Set TAORKenmerken.VerpakkingType = "V1"
-	Set TAORKenmerken.HeeftTipon = 0
-	Set TAORKenmerken.CorpusBinnenbreedte = 600-36
-	Set TAORKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Movento()
-	Set TAORKenmerken.Draagkracht = 40
 	
-	Do ..AssertBestanden(TAORKenmerken)
+	// afwijkend van standaardlade --> mag weg? 
+	set TAORKenmerken.CorpusBinnenbreedte = 600 - 36
+	set TAORKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Schroef
+	
+	do ..AssertBestanden(TAORKenmerken)
 ]]></Implementation>
 </Method>
 
 <Method name="TestMHoogteNN">
 <Implementation><![CDATA[
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefIngegevenKenmerken()
-	Set TAORKenmerken.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte500()
-	Set TAORKenmerken.BodemKleur = "NN"
-	Set TAORKenmerken.LadeKleur = "NN"
-	Set TAORKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M()
-	Set TAORKenmerken.VerpakkingType = "V1"
-	Set TAORKenmerken.HeeftTipon = 0
-	Set TAORKenmerken.CorpusBinnenbreedte = 600-36
-	Set TAORKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Movento()
-	Set TAORKenmerken.Draagkracht = 40
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+
+	set TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.M
 	
-	Do ..AssertBestanden(TAORKenmerken)
+	// afwijkend van standaardlade --> mag weg? 
+	set TAORKenmerken.CorpusBinnenbreedte = 600 - 36
+	set TAORKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Schroef
+	
+	do ..AssertBestanden(TAORKenmerken)
 ]]></Implementation>
 </Method>
 
 <Method name="TestNHoogte250diep">
 <Implementation><![CDATA[
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefIngegevenKenmerken()
-	Set TAORKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()
-	Set TAORKenmerken.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte250()
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
 	
-	Do ..AssertBestanden(TAORKenmerken)
+	set TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.N
+	set TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte250
+	
+	// afwijkend van standaardlade --> mag weg? 
+	set TAORKenmerken.CorpusBinnenbreedte = 625
+	set TAORKenmerken.GlijderType = ..Enum.GlijderType.Tandem
+	set TAORKenmerken.Draagkracht = ..Enum.Draagkracht.Draagkracht30
+	set TAORKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Schroef
+	set TAORKenmerken.HeeftTipon = $$$True
+	set TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.Probox
+	
+	do ..AssertBestanden(TAORKenmerken)
 ]]></Implementation>
 </Method>
 </Class>