Index: vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml
===================================================================
diff -u -r38879 -r67098
--- vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml	(.../LadeTBX.cls.xml)	(revision 38879)
+++ vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml	(.../LadeTBX.cls.xml)	(revision 67098)
@@ -9,57 +9,110 @@
 <Implementation><![CDATA[
 	Set Resultaat = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	
-	Set Resultaat.Type = "TBX"
-	Set Resultaat.BodemKleur = ##class(DOM.PM.enu.TBXBodemKleur).Terrazwart()
-	Set Resultaat.LadeDiepte = 400
-	Set Resultaat.HeeftDwarsverdeling = $$$False
 	Set Resultaat.AantalDwarsverdelingen = ##class(DOM.PM.enu.TBXDwarsverdeling).Zonder()
-	Set Resultaat.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht30()
-	Set Resultaat.HeeftZijstabilisering = $$$False
-	Set Resultaat.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakkingType).V1()
+	Set Resultaat.BodemKleur = ##class(DOM.PM.enu.TBXBodemKleur).Wit()
 	Set Resultaat.CorpusBreedte = 600
-	Set Resultaat.IsBinnenbreedte = $$$True
+	Set Resultaat.DesignCode = ##class(DOM.PM.enu.TBXDesigncode).Antaro()
+	Set Resultaat.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht30()
 	Set Resultaat.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Inserta()
-	Set Resultaat.ZijwandVerhogingType = "NoGallery"
+	Set Resultaat.FrontOndersteuningAantal = ""
+	Set Resultaat.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).Auto()
 	Set Resultaat.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).Blumotion()
-	Set Resultaat.RugHoogte = "M"
-	Set Resultaat.HeeftMat = $$$False
-	Set Resultaat.MatMateriaal = ""
-	Set Resultaat.MatKleur = ""
 	Set Resultaat.GreepEnMeenemer = "No"
+	Set Resultaat.HeeftDwarsverdeling = $$$False
+	Set Resultaat.HeeftMat = $$$False
+	Set Resultaat.HeeftOpvullijstLinks = $$$False
+	Set Resultaat.HeeftOpvullijstRechts = $$$False
+	Set Resultaat.HeeftZijstabilisering = $$$False
+	Set Resultaat.IsBinnenbreedte = $$$True
 	Set Resultaat.IsBinnenlade = $$$False
-	Set Resultaat.LadeKleur = "TS"
-	Set Resultaat.LadeHoogte = "M"
-	Set Resultaat.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).M()
 	Set Resultaat.Klasse = "L"
+	Set Resultaat.LadeDiepte = 500
+	Set Resultaat.LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).M()
+	Set Resultaat.LadeKleur = ##class(DOM.PM.enu.TBXLadeKleur).SW()
+	Set Resultaat.MatKleur = ""
+	Set Resultaat.MatMateriaal = ""
+	Set Resultaat.MinTolerantieOpIB = 0
+	Set Resultaat.PlaatMateriaal = "HS"
+	Set Resultaat.ProductieWijze = ##class(DOM.PM.enu.TBXProductieWijze).Volledig()
+	Set Resultaat.RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).M()
+	Set Resultaat.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
+	Set Resultaat.Type = "TBX"
+	Set Resultaat.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakkingType).V1()
+	Set Resultaat.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).M()
+	Set Resultaat.ZijwandVerhogingType = "NoGallery"
 	
 	Quit Resultaat
 ]]></Implementation>
 </Method>
 
-<Method name="DMZLade">
+<Method name="BinnenLade">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.EDI.common.dto.v001.LadeTBX</ReturnType>
 <Implementation><![CDATA[
 	#dim Resultaat As APPS.EDI.common.dto.v001.LadeTBX = ..StandaardLade()
-	Set Resultaat.RugHoogte = "D"
+	
 	Set Resultaat.IsBinnenlade = $$$True
+	Set Resultaat.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Zonder()
+	Set Resultaat.GreepEnMeenemer = "No"
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="DMZLade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EDI.common.dto.v001.LadeTBX</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat As APPS.EDI.common.dto.v001.LadeTBX = ..BinnenLade()
+	
+	Set Resultaat.LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).D()
+	Set Resultaat.RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).D()
+	Set Resultaat.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).M()
 	Set Resultaat.ZijwandVerhogingType = "SimpleGallery"
 	
 	Quit Resultaat
 ]]></Implementation>
 </Method>
 
+<Method name="DZLadeInMengvormADesign">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EDI.common.dto.v001.LadeTBX</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat As APPS.EDI.common.dto.v001.LadeTBX = ..DMZLade()
+
+	Set Resultaat.DesignCode = ##class(DOM.PM.enu.TBXDesigncode).MengvormADesign()
+	Set Resultaat.LadeKleur = "MG"
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="LadeMetStalenRug">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EDI.common.dto.v001.LadeTBX</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat As APPS.EDI.common.dto.v001.LadeTBX = ..StandaardLade()
+	
+	Set Resultaat.CorpusBreedte = 563
+	Set Resultaat.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
 <Method name="SpoelbakLade">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.EDI.common.dto.v001.LadeTBX</ReturnType>
 <Implementation><![CDATA[
 	#dim Resultaat As APPS.EDI.common.dto.v001.LadeTBX = ..StandaardLade()
+	
 	Set Resultaat.Klasse = "SP2"
 	Set Resultaat.UitsparingDataAantalUitsparingen = 1
-	Set Resultaat.UitsparingDataBreedteX = 150
-	Set Resultaat.UitsparingDataBreedteZ1 = 300
-	Set Resultaat.UitsparingDataBreedteY = 150
+	Set Resultaat.UitsparingDataBreedteX = 147
+	Set Resultaat.UitsparingDataBreedteY = 147
+	Set Resultaat.UitsparingDataBreedteZ1 = 306
+	Set Resultaat.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
 	
 	Quit Resultaat
 ]]></Implementation>
@@ -70,11 +123,14 @@
 <ReturnType>APPS.EDI.common.dto.v001.LadeTBX</ReturnType>
 <Implementation><![CDATA[
 	#dim Resultaat As APPS.EDI.common.dto.v001.LadeTBX = ..StandaardLade()
-	Set Resultaat.Klasse = "SY2"
+	
+	Set Resultaat.Klasse = "SY3"
 	Set Resultaat.UitsparingDataAantalUitsparingen = 1
 	Set Resultaat.UitsparingDataBreedteX = 225
-	Set Resultaat.UitsparingDataBreedteZ1 = 150
-	Set Resultaat.UitsparingDataBreedteY = 225
+	Set Resultaat.UitsparingDataBreedteY = 215
+	Set Resultaat.UitsparingDataBreedteZ1 = 160
+	Set Resultaat.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
+	Set Resultaat.TussenrugMateriaal = ""
 	
 	Quit Resultaat
 ]]></Implementation>
@@ -85,13 +141,17 @@
 <ReturnType>APPS.EDI.common.dto.v001.LadeTBX</ReturnType>
 <Implementation><![CDATA[
 	#dim Resultaat As APPS.EDI.common.dto.v001.LadeTBX = ..StandaardLade()
-	Set Resultaat.Klasse = "SY2"
+	
+	Set Resultaat.Klasse = "SY3"
+	Set Resultaat.CorpusBreedte = 900
 	Set Resultaat.UitsparingDataAantalUitsparingen = 2
-	Set Resultaat.UitsparingDataBreedteX = 120
-	Set Resultaat.UitsparingDataBreedteZ1 = 150
-	Set Resultaat.UitsparingDataBreedteM = 60
-	Set Resultaat.UitsparingDataBreedteZ2 = 150
-	Set Resultaat.UitsparingDataBreedteY = 120
+	Set Resultaat.UitsparingDataBreedteM = 150
+	Set Resultaat.UitsparingDataBreedteX = 220
+	Set Resultaat.UitsparingDataBreedteY = 210
+	Set Resultaat.UitsparingDataBreedteZ1 = 160
+	Set Resultaat.UitsparingDataBreedteZ2 = 160
+	Set Resultaat.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
+	Set Resultaat.TussenrugMateriaal = ""
 	
 	Quit Resultaat
 ]]></Implementation>
@@ -102,22 +162,28 @@
 <ReturnType>APPS.EDI.common.dto.v001.LadeTBX</ReturnType>
 <Implementation><![CDATA[
 	#dim Resultaat As APPS.EDI.common.dto.v001.LadeTBX = ..StandaardLade()
-	Set Resultaat.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).TiponBlumotion()
-	Set Resultaat.IsBinnenbreedte = $$$False
+	
+	Set Resultaat.AantalDwarsverdelingen = 3
+	Set Resultaat.BodemKleur = ##class(DOM.PM.enu.TBXBodemKleur).Wit()
 	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 = "DesignElement"
-	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.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).TiponBlumotion()
 	Set Resultaat.HeeftDwarsverdeling = $$$True
+	Set Resultaat.HeeftOpvullijstLinks = $$$True
+	Set Resultaat.HeeftOpvullijstRechts = $$$True
 	Set Resultaat.HeeftMat = $$$True
-	Set Resultaat.MatMateriaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()
+	Set Resultaat.IsBinnenbreedte = $$$False
+	Set Resultaat.IsBinnenlade = $$$False
+	Set Resultaat.LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).C()
 	Set Resultaat.MatKleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberWit()
+	Set Resultaat.MatMateriaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()
+	Set Resultaat.MinTolerantieOpIB = 1
+	Set Resultaat.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Wit()
+	Set Resultaat.RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).C()
+	Set Resultaat.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).M()
+	Set Resultaat.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatGezuurd8mm()
+	Set Resultaat.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()
+	Set Resultaat.ZijwandVerhogingType = "DesignElement"
 	
 	Quit Resultaat
 ]]></Implementation>
@@ -129,20 +195,34 @@
 <Implementation><![CDATA[
 	#dim Resultaat As APPS.EDI.common.dto.v001.LadeTBX = ..StandaardLade()
 	
-	Do Resultaat.NietMeeleveren.Insert("NMFB") 
-	Do Resultaat.NietMeeleveren.Insert("NMCP")
-	Do Resultaat.NietMeeleveren.Insert("NMRL")
-	Do Resultaat.NietMeeleveren.Insert("NMAK")
-	Do Resultaat.NietMeeleveren.Insert("NMTOBSET")
-	Do Resultaat.NietMeeleveren.Insert("NMTOBTOEB")
-	Do Resultaat.NietMeeleveren.Insert("NMTOBSTG")
-	Do Resultaat.NietMeeleveren.Insert("NMBDS")
-	Do Resultaat.NietMeeleveren.Insert("NMOVL")
-	Do Resultaat.NietMeeleveren.Insert("NMBS")
+	Do Resultaat.NietMeeleveren.InsertOrdered("NMFB") 
+	Do Resultaat.NietMeeleveren.InsertOrdered("NMCP")
+	Do Resultaat.NietMeeleveren.InsertOrdered("NMRL")
+	Do Resultaat.NietMeeleveren.InsertOrdered("NMAK")
+	Do Resultaat.NietMeeleveren.InsertOrdered("NMTOBSET")
+	Do Resultaat.NietMeeleveren.InsertOrdered("NMTOBTOEB")
+	Do Resultaat.NietMeeleveren.InsertOrdered("NMTOBSTG")
+	Do Resultaat.NietMeeleveren.InsertOrdered("NMBDS")
+	Do Resultaat.NietMeeleveren.InsertOrdered("NMOVL")
+	Do Resultaat.NietMeeleveren.InsertOrdered("NMBS")
+	Do Resultaat.NietMeeleveren.InsertOrdered("NMASM")
 	
 	Quit Resultaat
 ]]></Implementation>
 </Method>
+
+<Method name="LadeMetVerlaagdeRug">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EDI.common.dto.v001.LadeTBX</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat As APPS.EDI.common.dto.v001.LadeTBX = ..StandaardLade()
+	
+	Set Resultaat.LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).C()
+	Set Resultaat.RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).M()
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
 </Class>