Index: vhUnitTest/EXT/Unishop/PurchaseOrder001/ProductConverter/Converteer/TestLBX.cls.xml
===================================================================
diff -u -r40383 -r40427
--- vhUnitTest/EXT/Unishop/PurchaseOrder001/ProductConverter/Converteer/TestLBX.cls.xml	(.../TestLBX.cls.xml)	(revision 40383)
+++ vhUnitTest/EXT/Unishop/PurchaseOrder001/ProductConverter/Converteer/TestLBX.cls.xml	(.../TestLBX.cls.xml)	(revision 40427)
@@ -8,38 +8,10 @@
 	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())
 	
-	Set Enum = ##class(DOM.PM.Maatwerk.LBX.impl.BaseEnums).%New()
-	If $$$AssertEquals($classname(LadeLBX),"APPS.EDI.common.dto.v001.LadeLBX") {
-		Do $$$AssertEquals(LadeLBX.ZijwandType,Enum.ZijwandType.Pure)
-		Do $$$AssertEquals(LadeLBX.AantalDwarsverdelingen,0)
-		Do $$$AssertEquals(LadeLBX.BodemKleur,Enum.BodemKleur.Donkergrijs)
-		Do $$$AssertEquals(LadeLBX.CorpusBreedte,875)
-		Do $$$AssertEquals(LadeLBX.CorpusWandDikte,16)
-		Do $$$AssertEquals(LadeLBX.Draagkracht,Enum.Draagkracht.Draagkracht70)
-		Do $$$AssertEquals(LadeLBX.FrontBevestiging,Enum.FrontBevestiging.Schroef)
-		Do $$$AssertEquals(LadeLBX.GeleiderTechnologie,Enum.GeleiderTechnologie.BLUMOTION)
-		Do $$$AssertEquals(LadeLBX.HeeftDwarsverdeling,$$$False)
-		Do $$$AssertEquals(LadeLBX.HeeftOpvullijstLinks,$$$False)
-		Do $$$AssertEquals(LadeLBX.HeeftOpvullijstRechts,$$$False)
-		Do $$$AssertEquals(LadeLBX.HeeftZijstabilisering,$$$False)
-		Do $$$AssertEquals(LadeLBX.IsBinnenbreedte,$$$False)
-		Do $$$AssertEquals(LadeLBX.IsBinnenlade,$$$False)
-		Do $$$AssertEquals(LadeLBX.Klasse,Enum.Klasse.Lade)
-		Do $$$AssertEquals(LadeLBX.LadeDiepte,Enum.LadeDiepte.LadeDiepte550)
-		Do $$$AssertEquals(LadeLBX.LadeHoogte,Enum.LadeHoogte.C)
-		Do $$$AssertEquals(LadeLBX.LadeKleur,Enum.LadeKleur.Oriongrijs)
-		Do $$$AssertEquals(LadeLBX.OpvullijstKleur,"")
-		Do $$$AssertEquals(LadeLBX.HeeftMat,$$$False)
-		Do $$$AssertEquals(LadeLBX.MatKleur,"")
-		Do $$$AssertEquals(LadeLBX.MatMateriaal,"")
-		Do $$$AssertEquals(LadeLBX.VerpakkingType,Enum.VerpakkingType.V1)
-		If $$$AssertEquals(LadeLBX.NietMeeleveren.Count(),1) {
-			Do $$$AssertEquals(LadeLBX.NietMeeleveren.GetAt(1), "AfdekkapRugWandHouder")
-		}
-		Do $$$AssertEquals(LadeLBX.RugHoogte,Enum.LadeHoogte.C)
-		Do $$$AssertEquals(LadeLBX.VoorwandTypeVanCBinnenlade,"")
-		Do $$$AssertEquals(LadeLBX.VoorwandTypeVanMBinnenlade,"")
-	}
+	#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)
 ]]></Implementation>
 </Method>
 
@@ -50,39 +22,11 @@
 	
 	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)
 	
-	Set Enum = ##class(DOM.PM.Maatwerk.LBX.impl.BaseEnums).%New()
-	If $$$AssertEquals($classname(LadeLBX),"APPS.EDI.common.dto.v001.LadeLBX") {
-		Do $$$AssertEquals(LadeLBX.ZijwandType,Enum.ZijwandType.Pure)
-		Do $$$AssertEquals(LadeLBX.AantalDwarsverdelingen,0)
-		Do $$$AssertEquals(LadeLBX.BodemKleur,Enum.BodemKleur.Donkergrijs)
-		Do $$$AssertEquals(LadeLBX.CorpusBreedte,875)
-		Do $$$AssertEquals(LadeLBX.CorpusWandDikte,16)
-		Do $$$AssertEquals(LadeLBX.Draagkracht,Enum.Draagkracht.Draagkracht70)
-		Do $$$AssertEquals(LadeLBX.FrontBevestiging,Enum.FrontBevestiging.Schroef)
-		Do $$$AssertEquals(LadeLBX.GeleiderTechnologie,Enum.GeleiderTechnologie.BLUMOTION)
-		Do $$$AssertEquals(LadeLBX.HeeftDwarsverdeling,$$$False)
-		Do $$$AssertEquals(LadeLBX.HeeftOpvullijstLinks,$$$False)
-		Do $$$AssertEquals(LadeLBX.HeeftOpvullijstRechts,$$$False)
-		Do $$$AssertEquals(LadeLBX.HeeftZijstabilisering,$$$False)
-		Do $$$AssertEquals(LadeLBX.IsBinnenbreedte,$$$False)
-		Do $$$AssertEquals(LadeLBX.IsBinnenlade,$$$False)
-		Do $$$AssertEquals(LadeLBX.Klasse,Enum.Klasse.Lade)
-		Do $$$AssertEquals(LadeLBX.LadeDiepte,Enum.LadeDiepte.LadeDiepte550)
-		Do $$$AssertEquals(LadeLBX.LadeHoogte,Enum.LadeHoogte.C)
-		Do $$$AssertEquals(LadeLBX.LadeKleur,Enum.LadeKleur.Oriongrijs)
-		Do $$$AssertEquals(LadeLBX.OpvullijstKleur,"")
-		Do $$$AssertEquals(LadeLBX.HeeftMat,$$$False)
-		Do $$$AssertEquals(LadeLBX.MatKleur,"")
-		Do $$$AssertEquals(LadeLBX.MatMateriaal,"")
-		Do $$$AssertEquals(LadeLBX.VerpakkingType,Enum.VerpakkingType.V1)
-		If $$$AssertEquals(LadeLBX.NietMeeleveren.Count(),1) {
-			Do $$$AssertEquals(LadeLBX.NietMeeleveren.GetAt(1), "AfdekkapRugWandHouder")
-		}
-		Do $$$AssertEquals(LadeLBX.RugHoogte,Enum.LadeHoogte.M)
-		Do $$$AssertEquals(LadeLBX.VoorwandTypeVanCBinnenlade,"")
-		Do $$$AssertEquals(LadeLBX.VoorwandTypeVanMBinnenlade,"")
-	}
+	Do $$$AssertObject(LadeLBX, LadeMetVerlaagdeRug)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Utils/APPS/EDI/common/dto/v001/LadeLBX.cls.xml
===================================================================
diff -u
--- vhTest/Utils/APPS/EDI/common/dto/v001/LadeLBX.cls.xml	(revision 0)
+++ vhTest/Utils/APPS/EDI/common/dto/v001/LadeLBX.cls.xml	(revision 40427)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.APPS.EDI.common.dto.v001.LadeLBX">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="StandaardLade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EDI.common.dto.v001.LadeLBX</ReturnType>
+<Implementation><![CDATA[
+	Set Enum = ##class(DOM.PM.Maatwerk.LBX.impl.BaseEnums).%New()
+
+	Set LadeLBX = ##class(APPS.EDI.common.dto.v001.LadeLBX).%New()
+	Set LadeLBX.ZijwandType =Enum.ZijwandType.Pure
+	Set LadeLBX.AantalDwarsverdelingen =0
+	Set LadeLBX.BodemKleur = Enum.BodemKleur.Donkergrijs
+	Set LadeLBX.CorpusBreedte = 875
+	Set LadeLBX.CorpusWandDikte = 16
+	Set LadeLBX.Draagkracht = Enum.Draagkracht.Draagkracht70
+	Set LadeLBX.FrontBevestiging = Enum.FrontBevestiging.Schroef
+	Set LadeLBX.GeleiderTechnologie = Enum.GeleiderTechnologie.BLUMOTION
+	Set LadeLBX.HeeftDwarsverdeling = $$$False
+	Set LadeLBX.HeeftOpvullijstLinks = $$$False
+	Set LadeLBX.HeeftOpvullijstRechts = $$$False
+	Set LadeLBX.HeeftZijstabilisering = $$$False
+	Set LadeLBX.IsBinnenbreedte = $$$False
+	Set LadeLBX.IsBinnenlade = $$$False
+	Set LadeLBX.Klasse = Enum.Klasse.Lade
+	Set LadeLBX.LadeDiepte = Enum.LadeDiepte.LadeDiepte550
+	Set LadeLBX.LadeHoogte = Enum.LadeHoogte.C
+	Set LadeLBX.LadeKleur = Enum.LadeKleur.Oriongrijs
+	Set LadeLBX.OpvullijstKleur =""
+	Set LadeLBX.HeeftMat = $$$False
+	Set LadeLBX.MatKleur =""
+	Set LadeLBX.MatMateriaal =""
+	Set LadeLBX.VerpakkingType = Enum.VerpakkingType.V1
+	Set LadeLBX.RugHoogte = Enum.LadeHoogte.C
+	Set LadeLBX.VoorwandTypeVanCBinnenlade =""
+	Set LadeLBX.VoorwandTypeVanMBinnenlade =""
+	Set LadeLBX.Type ="LBX"
+
+	Quit LadeLBX
+]]></Implementation>
+</Method>
+
+<Method name="LadeMetVerlaagdeRug">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Enum = ##class(DOM.PM.Maatwerk.LBX.impl.BaseEnums).%New()
+
+	#dim LadeLBX As APPS.EDI.common.dto.v001.LadeLBX = ..StandaardLade()
+	Set LadeLBX.RugHoogte = Enum.LadeHoogte.M
+	
+	Quit LadeLBX
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>