Index: vhTest/Utils/EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenLBX.cls.xml
===================================================================
diff -u -r35245 -r40479
--- vhTest/Utils/EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenLBX.cls.xml	(.../LadeEigenschappenLBX.cls.xml)	(revision 35245)
+++ vhTest/Utils/EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenLBX.cls.xml	(.../LadeEigenschappenLBX.cls.xml)	(revision 40479)
@@ -36,6 +36,31 @@
 	quit Kenmerken
 ]]></Implementation>
 </Method>
+
+<Method name="StandaardLadeMetNietMeeleveren">
+<ClassMethod>1</ClassMethod>
+<ReturnType>EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenLBX</ReturnType>
+<Implementation><![CDATA[
+	#dim Kenmerken As EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenLBX = ..StandaardLade()
+	
+	Set Kenmerken.NietMeeleveren.AfdekkapBinnen = $$$True
+	Set Kenmerken.NietMeeleveren.AfdekkapBuiten = $$$True
+	Set Kenmerken.NietMeeleveren.AfdekkapRugWandHouder = $$$True
+	Set Kenmerken.NietMeeleveren.BevestigingBodemFront = $$$True
+	Set Kenmerken.NietMeeleveren.FrontBevestiging = $$$True
+	Set Kenmerken.NietMeeleveren.Geleider = $$$True
+	Set Kenmerken.NietMeeleveren.InschuifElementVoor = $$$True
+	Set Kenmerken.NietMeeleveren.InschuifElementZijkant = $$$True
+	Set Kenmerken.NietMeeleveren.Opvullijst = $$$True
+	Set Kenmerken.NietMeeleveren.Zijstabilisering = $$$True
+	Set Kenmerken.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers = $$$True
+	Set Kenmerken.NietMeeleveren.TiponBlumotionSynchronisatieAdapter = $$$True
+	Set Kenmerken.NietMeeleveren.TiponBlumotionSynchronisatieStang = $$$True
+	Set Kenmerken.NietMeeleveren.TIPONComponents = $$$True
+		
+	Quit Kenmerken
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/EXT/Unishop/PurchaseOrder001/ProductConverter/Converteer/TestLBX.cls.xml
===================================================================
diff -u -r40427 -r40479
--- vhUnitTest/EXT/Unishop/PurchaseOrder001/ProductConverter/Converteer/TestLBX.cls.xml	(.../TestLBX.cls.xml)	(revision 40427)
+++ vhUnitTest/EXT/Unishop/PurchaseOrder001/ProductConverter/Converteer/TestLBX.cls.xml	(.../TestLBX.cls.xml)	(revision 40479)
@@ -3,30 +3,24 @@
 <Class name="vhUnitTest.EXT.Unishop.PurchaseOrder001.ProductConverter.Converteer.TestLBX">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test : Een standaard lade wordt goed geconverteerd van het bestel formaat naar het algemene edi formaat">
-<Implementation><![CDATA[
-	Set ProductConverter = ##class(EXT.Unishop.PurchaseOrder001.ProductConverter).%New()
-	#dim LadeLBX As APPS.EDI.common.dto.v001.LadeLBX = ProductConverter.Converteer(##class(vhTest.Utils.EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenLBX).StandaardLade())
-	
-	#dim StandaardLade As APPS.EDI.common.dto.v001.LadeLBX = ##class(vhTest.Utils.APPS.EDI.common.dto.v001.LadeLBX).StandaardLade()
-	Do StandaardLade.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.LBX.impl.BaseEnums).%New().NietMeeleveren.AfdekkapRugWandHouder)
-	
-	Do $$$AssertObject(LadeLBX, StandaardLade)
+<Method name="Test : Converteer StandaardLade">
+<Implementation><![CDATA[	Do ..AssertConverter("StandaardLade")
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Een lade met verlaagde rug wordt goed geconverteerd van het bestel formaat naar het algemene edi formaat">
+<Method name="Test : Converteer StandaardLadeMetNietMeeleveren">
+<Implementation><![CDATA[	Do ..AssertConverter("StandaardLadeMetNietMeeleveren")
+]]></Implementation>
+</Method>
+
+<Method name="AssertConverter">
+<FormalSpec>SoortLade:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	#dim EDILadeTBX = ##class(vhTest.Utils.EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenLBX).StandaardLade()
-	Set EDILadeTBX.RugHoogte = "M"
+	#dim TeConverterenProduct As EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenLBX = $ClassMethod("vhTest.Utils.EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenLBX",SoortLade)
+	Set ProductConverter = ##class(EXT.Unishop.PurchaseOrder001.ProductConverter).%New()
 	
-	Set ProductConverter = ##class(EXT.Unishop.PurchaseOrder001.ProductConverter).%New()	
-	#dim LadeLBX As APPS.EDI.common.dto.v001.LadeLBX = ProductConverter.Converteer(EDILadeTBX)
-
-	#dim LadeMetVerlaagdeRug As APPS.EDI.common.dto.v001.LadeLBX = ##class(vhTest.Utils.APPS.EDI.common.dto.v001.LadeLBX).LadeMetVerlaagdeRug()
-	Do LadeMetVerlaagdeRug.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.LBX.impl.BaseEnums).%New().NietMeeleveren.AfdekkapRugWandHouder)
-	
-	Do $$$AssertObject(LadeLBX, LadeMetVerlaagdeRug)
+	Do $$$AssertObject(ProductConverter.Converteer(TeConverterenProduct),$ClassMethod("vhTest.Utils.APPS.EDI.common.dto.LadeLBX",SoortLade))
 ]]></Implementation>
 </Method>
 </Class>
Index: EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml
===================================================================
diff -u -r40462 -r40479
--- EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 40462)
+++ EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 40479)
@@ -48,20 +48,20 @@
 	}
 	ElseIf Product.%Extends(##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenLBX).%ClassName($$$True)) {
 		Set Eigenschappen = ##class(APPS.EDI.common.dto.v001.LadeLBX).%New()
-		If Product.NietMeeleveren.FrontBevestiging do Eigenschappen.NietMeeleveren.Insert("FrontBevestiging")
-		If Product.NietMeeleveren.Geleider do Eigenschappen.NietMeeleveren.Insert("Geleider")
 		If Product.NietMeeleveren.AfdekkapBinnen do Eigenschappen.NietMeeleveren.Insert("AfdekkapBinnen")
 		If Product.NietMeeleveren.AfdekkapBuiten do Eigenschappen.NietMeeleveren.Insert("AfdekkapBuiten")
 		If Product.NietMeeleveren.AfdekkapRugWandHouder do Eigenschappen.NietMeeleveren.Insert("AfdekkapRugWandHouder")
 		If Product.NietMeeleveren.BevestigingBodemFront do Eigenschappen.NietMeeleveren.Insert("BevestigingBodemFront")
+		If Product.NietMeeleveren.FrontBevestiging do Eigenschappen.NietMeeleveren.Insert("FrontBevestiging")
+		If Product.NietMeeleveren.Geleider do Eigenschappen.NietMeeleveren.Insert("Geleider")
 		If Product.NietMeeleveren.InschuifElementVoor do Eigenschappen.NietMeeleveren.Insert("InschuifElementVoor")
 		If Product.NietMeeleveren.InschuifElementZijkant do Eigenschappen.NietMeeleveren.Insert("InschuifElementZijkant")
 		If Product.NietMeeleveren.Opvullijst do Eigenschappen.NietMeeleveren.Insert("Opvullijst")
-		If Product.NietMeeleveren.Zijstabilisering do Eigenschappen.NietMeeleveren.Insert("Zijstabilisering")
 		If Product.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers do Eigenschappen.NietMeeleveren.Insert("TiponBlumotionSetEenhedenEnMeenemers")
 		If Product.NietMeeleveren.TiponBlumotionSynchronisatieAdapter do Eigenschappen.NietMeeleveren.Insert("TiponBlumotionSynchronisatieAdapter")
 		If Product.NietMeeleveren.TiponBlumotionSynchronisatieStang do Eigenschappen.NietMeeleveren.Insert("TiponBlumotionSynchronisatieStang")
 		If Product.NietMeeleveren.TIPONComponents do Eigenschappen.NietMeeleveren.Insert("TiponSynchronisatieSet"_"TiponSynchronisatieStang")
+		If Product.NietMeeleveren.Zijstabilisering do Eigenschappen.NietMeeleveren.Insert("Zijstabilisering")
 		If $$$HasLength(Product.RugHoogte) {
 			Set Eigenschappen.RugHoogte = Product.RugHoogte
 		} Else {
Index: vhTest/Utils/APPS/EDI/common/dto/LadeLBX.cls.xml
===================================================================
diff -u -r36966 -r40479
--- vhTest/Utils/APPS/EDI/common/dto/LadeLBX.cls.xml	(.../LadeLBX.cls.xml)	(revision 36966)
+++ vhTest/Utils/APPS/EDI/common/dto/LadeLBX.cls.xml	(.../LadeLBX.cls.xml)	(revision 40479)
@@ -10,6 +10,7 @@
 	Set Resultaat = ##class(APPS.EDI.common.dto.v001.LadeLBX).%New()
 	
 	Set Enum = ##class(DOM.PM.Maatwerk.LBX.impl.BaseEnums).%New()
+	Set Resultaat.Type = "LBX"
 	Set Resultaat.ZijwandType = Enum.ZijwandType.Pure
 	Set Resultaat.AantalDwarsverdelingen = 0
 	Set Resultaat.BodemKleur = Enum.BodemKleur.Donkergrijs
@@ -40,6 +41,31 @@
 	Quit Resultaat
 ]]></Implementation>
 </Method>
+
+<Method name="StandaardLadeMetNietMeeleveren">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EDI.common.dto.v001.LadeLBX</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat As APPS.EDI.common.dto.v001.LadeLBX = ..StandaardLade()
+	
+	Do Resultaat.NietMeeleveren.InsertOrdered("FrontBevestiging") 
+	Do Resultaat.NietMeeleveren.InsertOrdered("Geleider")
+	Do Resultaat.NietMeeleveren.InsertOrdered("AfdekkapBinnen")
+	Do Resultaat.NietMeeleveren.InsertOrdered("AfdekkapBuiten")
+	Do Resultaat.NietMeeleveren.InsertOrdered("AfdekkapRugWandHouder")
+	Do Resultaat.NietMeeleveren.InsertOrdered("BevestigingBodemFront")
+	Do Resultaat.NietMeeleveren.InsertOrdered("InschuifElementVoor")
+	Do Resultaat.NietMeeleveren.InsertOrdered("InschuifElementZijkant")
+	Do Resultaat.NietMeeleveren.InsertOrdered("Opvullijst")
+	Do Resultaat.NietMeeleveren.InsertOrdered("Zijstabilisering")
+	Do Resultaat.NietMeeleveren.InsertOrdered("TiponBlumotionSetEenhedenEnMeenemers")
+	Do Resultaat.NietMeeleveren.InsertOrdered("TiponBlumotionSynchronisatieAdapter")
+	Do Resultaat.NietMeeleveren.InsertOrdered("TiponBlumotionSynchronisatieStang")
+	Do Resultaat.NietMeeleveren.InsertOrdered("TiponSynchronisatieSet"_"TiponSynchronisatieStang")
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappen/NietMeeleverenLBX.cls.xml
===================================================================
diff -u -r40456 -r40479
--- EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappen/NietMeeleverenLBX.cls.xml	(.../NietMeeleverenLBX.cls.xml)	(revision 40456)
+++ EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappen/NietMeeleverenLBX.cls.xml	(.../NietMeeleverenLBX.cls.xml)	(revision 40479)
@@ -92,7 +92,7 @@
 
 <Property name="AfdekkapRugWandHouder">
 <Type>%Boolean</Type>
-<InitialExpression>1</InitialExpression>
+<InitialExpression>0</InitialExpression>
 <Parameter name="XMLNAME" value="CoverCapsLowerBackM"/>
 </Property>