Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger/Test.cls.xml
===================================================================
diff -u -r37331 -r37663
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 37331)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 37663)
@@ -22,7 +22,7 @@
 <Method name="Test: 1 lijn toevoegen indien validatie geslaagd is">
 <Implementation><![CDATA[
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	Do ..VoegLadeToe("TBX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -43,8 +43,8 @@
 <Method name="Test: 2 lijn toevoegen indien validatie geslaagd is">
 <Implementation><![CDATA[
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	Do ..VoegLadeToe("TBX", Orderlijnen)
+	Do ..VoegLadeToe("TBX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -106,7 +106,7 @@
 <Method name="Test: 1 LBX lijn">
 <Implementation><![CDATA[
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	Do ..VoegLadeToe("LBX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -123,8 +123,8 @@
 <Method name="Test: 2 LBX lijnen">
 <Implementation><![CDATA[
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	Do ..VoegLadeToe("LBX", Orderlijnen)
+	Do ..VoegLadeToe("LBX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -141,8 +141,8 @@
 <Method name="Test: 1 LBX en 1 TAX lijn">
 <Implementation><![CDATA[
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TAX", Orderlijnen)
+	Do ..VoegLadeToe("LBX", Orderlijnen)
+	Do ..VoegLadeToe("TAX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -159,9 +159,9 @@
 <Method name="Test: 1 LBX en 1 TBX en 1 TAX lijn">
 <Implementation><![CDATA[
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TAX", Orderlijnen)
+	Do ..VoegLadeToe("LBX", Orderlijnen)
+	Do ..VoegLadeToe("TBX", Orderlijnen)
+	Do ..VoegLadeToe("TAX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -178,9 +178,9 @@
 <Method name="Test: 3 TBX lijnen">
 <Implementation><![CDATA[
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	Do ..VoegLadeToe("TBX", Orderlijnen)
+	Do ..VoegLadeToe("TBX", Orderlijnen)
+	Do ..VoegLadeToe("TBX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -197,9 +197,9 @@
 <Method name="Test: 2 TBX lijnen met fouten, moet in de exceptie zichtbaar zijn">
 <Implementation><![CDATA[
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	Do ..VoegLadeToe("LBX", Orderlijnen)
+	Do ..VoegLadeToe("TBX", Orderlijnen)
+	Do ..VoegLadeToe("TBX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -226,13 +226,16 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VoegLadeTypeToe">
+<Method name="VoegLadeToe">
 <FormalSpec><![CDATA[LadeType:%String,&OrderLijnen:%ListOfDataTypes]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set Product = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.Type = LadeType
 	Set Product.LadeKleur = "MG"
+	Set Product.Klasse = "L"
+	Set Product.RugHoogte = "M"
+	Set Product.ZijkantHoogte = "M"
 	Set Orderlijn = ##class(APPS.EDI.common.dto.ProductLijn).%New()
 	Set Orderlijn.Product = Product
 	Do OrderLijnen.Insert(Orderlijn)
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/MaakOfferte/Test.cls.xml
===================================================================
diff -u -r37654 -r37663
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/MaakOfferte/Test.cls.xml	(.../Test.cls.xml)	(revision 37654)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/MaakOfferte/Test.cls.xml	(.../Test.cls.xml)	(revision 37663)
@@ -17,7 +17,7 @@
 	do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe(Orderlijnen)
+	Do ..VoegLadeToe(Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -47,7 +47,7 @@
 <Method name="Test: Hoofding invullen - ongeldige leverdatum">
 <Implementation><![CDATA[
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe(Orderlijnen)
+	Do ..VoegLadeToe(Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -66,7 +66,7 @@
 <Method name="Test: Hoofding invullen - lege leverdatum">
 <Implementation><![CDATA[
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe(Orderlijnen)
+	Do ..VoegLadeToe(Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -83,16 +83,17 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VoegLadeTypeToe">
+<Method name="VoegLadeToe">
 <FormalSpec><![CDATA[&OrderLijnen:%ListOfDataTypes]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set Product = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.Type = "TBX"
 	Set Product.CorpusWandDikte = 16
-	Set Product.RugHoogte = "K"
+	Set Product.Klasse = "L"
+	Set Product.RugHoogte = "M"
 	Set Product.GreepEnMeenemer = "Handle"
-	Set Product.ZijkantHoogte = "N"
+	Set Product.ZijkantHoogte = "M"
 	Set Product.ZijwandVerhogingType = "NoGallery"
 	Set Product.LadeKleur = "MG"
 	Set Orderlijn = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.OrderLijn).%New()