Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml
===================================================================
diff -u -r38505 -r38506
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 38505)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 38506)
@@ -3,61 +3,6 @@
 <Class name="vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter.ConverteerProduct.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: Aantal in Opties">
-<Implementation><![CDATA[
-	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
-	
-	#dim ConvertOpties = ##class(TECH.KeyValue.List).%New()
-	Do ConvertOpties.InsertKeyValue("Aantal","42")
-	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
-	
-	#dim LijnConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.LijnConverter).%New(TBXLadeCodeBepalerStub)
-	#dim Lijn As APPS.EDI.common.dto.ProductLijn = ##class(APPS.EDI.common.dto.ProductLijn).%New()
-	Set Lijn.Product = TeConverterenProduct
-	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = LijnConverter.Convert(Lijn,,ConvertOpties)
-	
-	Do $$$AssertEquals(WebOrderLijn.Qty,42)
-]]></Implementation>
-</Method>
-
-<Method name="Test: Beental in Opties -&gt; default naar 1">
-<Implementation><![CDATA[
-	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
-	
-	#dim ConvertOpties = ##class(TECH.KeyValue.List).%New()
-	Do ConvertOpties.InsertKeyValue("Beental","42")
-	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
-	
-	#dim LijnConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.LijnConverter).%New(TBXLadeCodeBepalerStub)
-	#dim Lijn As APPS.EDI.common.dto.ProductLijn = ##class(APPS.EDI.common.dto.ProductLijn).%New()
-	Set Lijn.Product = TeConverterenProduct
-	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = LijnConverter.Convert(Lijn,,ConvertOpties)
-	
-	Do $$$AssertEquals(WebOrderLijn.Qty,1)
-]]></Implementation>
-</Method>
-
-<Method name="Test: Geen Opties -&gt; Aantal defaulten naar 1">
-<Implementation><![CDATA[
-	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
-	
-	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
-	
-	#dim LijnConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.LijnConverter).%New(TBXLadeCodeBepalerStub)
-	#dim Lijn As APPS.EDI.common.dto.ProductLijn = ##class(APPS.EDI.common.dto.ProductLijn).%New()
-	Set Lijn.Product = TeConverterenProduct
-	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = LijnConverter.Convert(Lijn)
-	
-	Do $$$AssertEquals(WebOrderLijn.Qty,1)
-]]></Implementation>
-</Method>
-
 <Method name="Test: Standaardtags die 1 op 1 kunnen overgezet worden zonder speciale logica">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/LijnConverter/Convert/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/LijnConverter/Convert/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/LijnConverter/Convert/Test.cls.xml	(revision 38506)
@@ -0,0 +1,95 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.LijnConverter.Convert.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Aantal in Opties">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	
+	#dim ConvertOpties = ##class(TECH.KeyValue.List).%New()
+	Do ConvertOpties.InsertKeyValue("Aantal","42")
+	
+	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	
+	#dim LijnConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.LijnConverter).%New(TBXLadeCodeBepalerStub)
+	#dim Lijn As APPS.EDI.common.dto.ProductLijn = ##class(APPS.EDI.common.dto.ProductLijn).%New()
+	Set Lijn.Product = TeConverterenProduct
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = LijnConverter.Convert(Lijn,,ConvertOpties)
+	
+	Do $$$AssertEquals(WebOrderLijn.Qty,42)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Beental in Opties -&gt; default naar 1">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	
+	#dim ConvertOpties = ##class(TECH.KeyValue.List).%New()
+	Do ConvertOpties.InsertKeyValue("Beental","42")
+	
+	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	
+	#dim LijnConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.LijnConverter).%New(TBXLadeCodeBepalerStub)
+	#dim Lijn As APPS.EDI.common.dto.ProductLijn = ##class(APPS.EDI.common.dto.ProductLijn).%New()
+	Set Lijn.Product = TeConverterenProduct
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = LijnConverter.Convert(Lijn,,ConvertOpties)
+	
+	Do $$$AssertEquals(WebOrderLijn.Qty,1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen Opties -&gt; Aantal defaulten naar 1">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	
+	
+	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	
+	#dim LijnConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.LijnConverter).%New(TBXLadeCodeBepalerStub)
+	#dim Lijn As APPS.EDI.common.dto.ProductLijn = ##class(APPS.EDI.common.dto.ProductLijn).%New()
+	Set Lijn.Product = TeConverterenProduct
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = LijnConverter.Convert(Lijn)
+	
+	Do $$$AssertEquals(WebOrderLijn.Qty,1)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeConverterenProduct">
+<Implementation><![CDATA[
+	Set TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.BodemKleur = ##class(DOM.PM.enu.TBXZijkantKleur).MG()
+	Set TeConverterenProduct.LadeDiepte = 350
+	Set TeConverterenProduct.HeeftDwarsverdeling = $$$True
+	Set TeConverterenProduct.AantalDwarsverdelingen = ##class(DOM.PM.enu.TBXDwarsverdeling).Twee()
+	Set TeConverterenProduct.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht65()
+	Set TeConverterenProduct.HeeftZijstabilisering = $$$True
+	Set TeConverterenProduct.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakkingType).Pallet()
+	Set TeConverterenProduct.CorpusBreedte = 1000
+	Set TeConverterenProduct.CorpusWandDikte = 16
+	Set TeConverterenProduct.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Schroef()
+	Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()
+	Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatHelder8mm()
+	Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement"
+	Set TeConverterenProduct.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).Tipon()
+	Set TeConverterenProduct.RugHoogte = "C"
+	Set TeConverterenProduct.HeeftMat = $$$False
+	Set TeConverterenProduct.MatMateriaal = ""
+	Set TeConverterenProduct.MatKleur = ""
+	Set TeConverterenProduct.GreepEnMeenemer = "No"
+	Set TeConverterenProduct.IsBinnenlade = $$$False
+	Set TeConverterenProduct.LadeKleur = ##class(DOM.PM.enu.TBXZijkantKleur).MG()
+	Set TeConverterenProduct.LadeHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).K()
+	Set TeConverterenProduct.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).M()
+	Set TeConverterenProduct.Klasse = "L"
+	
+	Quit TeConverterenProduct
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>