Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/LijnConverter.cls.xml
===================================================================
diff -u -r38987 -r39104
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/LijnConverter.cls.xml	(.../LijnConverter.cls.xml)	(revision 38987)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/LijnConverter.cls.xml	(.../LijnConverter.cls.xml)	(revision 39104)
@@ -9,7 +9,6 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>TBXLadeCodeBepaler:APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/LijnConverter/Convert/Test.cls.xml
===================================================================
diff -u -r38600 -r39104
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/LijnConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 38600)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/LijnConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 39104)
@@ -5,17 +5,12 @@
 
 <Method name="Test: Aantal in Opties">
 <Implementation><![CDATA[
-	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
-	
-	#dim ConvertOpties = ##class(TECH.KeyValue.List).%New()
+	Set 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)
+	Set LijnConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.LijnConverter).%New()
 	#dim Lijn As APPS.EDI.common.dto.ProductLijn = ##class(APPS.EDI.common.dto.ProductLijn).%New()
-	Set Lijn.Product = TeConverterenProduct
+	Set Lijn.Product = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).StandaardLade()
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = LijnConverter.Convert(Lijn,,ConvertOpties)
 	
 	Do $$$AssertEquals(WebOrderLijn.Qty,42)
@@ -24,17 +19,12 @@
 
 <Method name="Test: Beental in Opties -&gt; default naar 1">
 <Implementation><![CDATA[
-	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
-	
-	#dim ConvertOpties = ##class(TECH.KeyValue.List).%New()
+	Set 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)
+	Set LijnConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.LijnConverter).%New()
 	#dim Lijn As APPS.EDI.common.dto.ProductLijn = ##class(APPS.EDI.common.dto.ProductLijn).%New()
-	Set Lijn.Product = TeConverterenProduct
+	Set Lijn.Product = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).StandaardLade()
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = LijnConverter.Convert(Lijn,,ConvertOpties)
 	
 	Do $$$AssertEquals(WebOrderLijn.Qty,1)
@@ -43,52 +33,14 @@
 
 <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)
+	Set LijnConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.LijnConverter).%New()
 	#dim Lijn As APPS.EDI.common.dto.ProductLijn = ##class(APPS.EDI.common.dto.ProductLijn).%New()
-	Set Lijn.Product = TeConverterenProduct
+	Set Lijn.Product = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).StandaardLade()
 	#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.TBXLadeKleur).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.TBXLadeKleur).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>