Index: vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml
===================================================================
diff -u -r38296 -r38589
--- vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml	(.../LadeTBX.cls.xml)	(revision 38296)
+++ vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml	(.../LadeTBX.cls.xml)	(revision 38589)
@@ -38,7 +38,7 @@
 
 <Method name="DMZLade">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.EDI.common.dto.v001.LadeLBX</ReturnType>
+<ReturnType>APPS.EDI.common.dto.v001.LadeTBX</ReturnType>
 <Implementation><![CDATA[
 	#dim Resultaat As APPS.EDI.common.dto.v001.LadeLBX = ..StandaardLade()
 	Set Resultaat.RugHoogte = "D"
@@ -51,7 +51,7 @@
 
 <Method name="LadeMet1Uitsparing">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.EDI.common.dto.v001.LadeLBX</ReturnType>
+<ReturnType>APPS.EDI.common.dto.v001.LadeTBX</ReturnType>
 <Implementation><![CDATA[
 	#dim Resultaat As APPS.EDI.common.dto.v001.LadeLBX = ..StandaardLade()
 	Set Resultaat.Klasse = "SY2"
@@ -66,7 +66,7 @@
 
 <Method name="LadeMet2Uitsparingen">
 <ClassMethod>1</ClassMethod>
-<ReturnType>APPS.EDI.common.dto.v001.LadeLBX</ReturnType>
+<ReturnType>APPS.EDI.common.dto.v001.LadeTBX</ReturnType>
 <Implementation><![CDATA[
 	#dim Resultaat As APPS.EDI.common.dto.v001.LadeLBX = ..StandaardLade()
 	Set Resultaat.Klasse = "SY2"
@@ -80,6 +80,31 @@
 	Quit Resultaat
 ]]></Implementation>
 </Method>
+
+<Method name="LadeMetVeelExtras">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EDI.common.dto.v001.LadeTBX</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat As APPS.EDI.common.dto.v001.LadeLBX = ..StandaardLade()
+	Set Resultaat.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).TiponBlumotion()
+	Set Resultaat.IsBinnenbreedte = $$$False
+	Set Resultaat.CorpusWandDikte = 18
+	Set Resultaat.HeeftZijstabilisering = $$$True
+	Set Resultaat.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()
+	Set Resultaat.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).TerraZwart()
+	Set Resultaat.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement()
+	Set Resultaat.BodemKleur = "DG"
+	Set Resultaat.RugHoogte = "C"
+	Set Resultaat.IsBinnenlade = $$$False
+	Set Resultaat.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Inserta()
+	Set Resultaat.AantalDwarsverdelingen = 3
+	Set Resultaat.HeeftDwarsverdeling = $$$True
+	Set Resultaat.HeeftMat = $$$True
+	Set Resultaat.MatKleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberWit()
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
 </Class>