Index: vhTest/Dummy/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Dummy/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler.cls.xml	(revision 0)
+++ vhTest/Dummy/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler.cls.xml	(revision 38941)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler">
+<Super>TECH.RegisteredObject,APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler</Super>
+
+<Method name="BepaalLadeCode">
+<FormalSpec>Klasse:%String,ZijkantHoogte:%String,RugHoogte:%String,IsBinnenlade:%Boolean,Uittrekbaarheid:%String,LadeDesign:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml
===================================================================
diff -u -r38879 -r38941
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 38879)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 38941)
@@ -7,10 +7,9 @@
 <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()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemKB,"MG")
@@ -52,10 +51,9 @@
 	Set TeConverterenProduct.LadeKleur = ##class(DOM.PM.enu.TBXLadeKleur).BZ()
 	Set TeConverterenProduct.LadeHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).M()
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemKB,"BZ")
@@ -81,10 +79,9 @@
 	Set TeConverterenProduct.CorpusWandDikte = "18"
 	Set TeConverterenProduct.IsBinnenbreedte = $$$False
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemWD,"18")
@@ -96,10 +93,9 @@
 	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.IsBinnenbreedte = $$$True
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemWD,"B")
@@ -112,10 +108,9 @@
 	Set TeConverterenProduct.HeeftOpvullijstLinks = $$$True
 	Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"L")
@@ -128,10 +123,9 @@
 	Set TeConverterenProduct.HeeftOpvullijstRechts = $$$True
 	Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"R")
@@ -145,10 +139,9 @@
 	Set TeConverterenProduct.HeeftOpvullijstRechts = $$$True
 	Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"L+R")
@@ -160,10 +153,9 @@
 	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.FrontOndersteuningAantal = 2
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemFS,"2")
@@ -175,10 +167,9 @@
 	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.FrontOndersteuningAantal = ""
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemFS,"A")
@@ -192,10 +183,9 @@
 	Set TeConverterenProduct.IsBinnenlade = $$$True
 	Set TeConverterenProduct.RugHoogte = "K"
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","K",1,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"Z")
@@ -208,10 +198,9 @@
 	Set TeConverterenProduct.GreepEnMeenemer = "HandleAndLatch"
 	Set TeConverterenProduct.IsBinnenlade = $$$True
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",1,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"M")
@@ -224,10 +213,9 @@
 	Set TeConverterenProduct.GreepEnMeenemer = "Handle"
 	Set TeConverterenProduct.IsBinnenlade = $$$True
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",1,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"G")
@@ -240,10 +228,9 @@
 	Set TeConverterenProduct.GreepEnMeenemer = "Handle"
 	Set TeConverterenProduct.IsBinnenlade = $$$False
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"X")
@@ -257,10 +244,9 @@
 	Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatHelder8mm()
 	Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement"
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemKV,"FG8")
@@ -274,10 +260,9 @@
 	Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatGezuurd8mm()
 	Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement"
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemKV,"FZ8")
@@ -291,10 +276,9 @@
 	Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).MetallicGrijs()
 	Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement"
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemKV,"ALU.MG")
@@ -308,10 +292,9 @@
 	Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).ZijdeWit()
 	Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement"
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemKV,"ALU.SW")
@@ -325,10 +308,9 @@
 	Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).TerraZwart()
 	Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement"
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemKV,"ALU.BZ")
@@ -340,10 +322,9 @@
 	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).Blumotion()
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemBM,"I")
@@ -355,10 +336,9 @@
 	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement"
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemBX,"INSCHF")
@@ -371,10 +351,9 @@
 	Set TeConverterenProduct.HeeftMat = $$$True
 	Set TeConverterenProduct.MatKleur = ##class(DOM.PM.enu.MATKleur).ZwartAntislip()
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemASM,"Z")
@@ -387,10 +366,9 @@
 	Set TeConverterenProduct.HeeftMat = $$$False
 	Set TeConverterenProduct.MatKleur = ##class(DOM.PM.enu.MATKleur).ZwartAntislip()
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemASM,"")
@@ -421,10 +399,9 @@
 	Set TeConverterenProduct.HeeftDwarsverdeling = $$$False
 	Set TeConverterenProduct.AantalDwarsverdelingen = ##class(DOM.PM.enu.TBXDwarsverdeling).Twee()
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemDWV,"")
@@ -437,10 +414,9 @@
 	Set TeConverterenProduct.HeeftDwarsverdeling = $$$True
 	Set TeConverterenProduct.AantalDwarsverdelingen = ##class(DOM.PM.enu.TBXDwarsverdeling).Twee()
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemDWV,"2")
@@ -452,10 +428,9 @@
 	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.IsBinnenlade = $$$True
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",1,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemFB,"Z")
@@ -468,10 +443,9 @@
 	Set TeConverterenProduct.RugHoogte = "M"
 	Set TeConverterenProduct.LadeHoogte = "C"
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","M",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemRSTL,"M")
@@ -484,10 +458,9 @@
 	Set TeConverterenProduct.RugHoogte = "M"
 	Set TeConverterenProduct.LadeHoogte = "M"
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","M",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemRSTL,"")
@@ -503,10 +476,9 @@
 	Set TeConverterenProduct.UitsparingDataBreedteZ1 = 150
 	Set TeConverterenProduct.UitsparingDataBreedteY = 140
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","SY2","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"S;120;140;150")
@@ -522,10 +494,9 @@
 	Set TeConverterenProduct.UitsparingDataBreedteZ1 = 250
 	Set TeConverterenProduct.UitsparingDataBreedteY = 140
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","SY2","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"B;120;140;250")
@@ -541,10 +512,9 @@
 	Set TeConverterenProduct.UitsparingDataBreedteZ1 = 42
 	Set TeConverterenProduct.UitsparingDataBreedteY = 140
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","SY2","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"M.;120;140;42")
@@ -562,10 +532,9 @@
 	Set TeConverterenProduct.UitsparingDataBreedteZ2 = 150
 	Set TeConverterenProduct.UitsparingDataBreedteY = 140
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","SY2","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"SS;120;140;60;150;150")
@@ -583,10 +552,9 @@
 	Set TeConverterenProduct.UitsparingDataBreedteZ2 = 250
 	Set TeConverterenProduct.UitsparingDataBreedteY = 140
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","SY2","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"BB;120;140;60;250;250")
@@ -604,10 +572,9 @@
 	Set TeConverterenProduct.UitsparingDataBreedteZ2 = 250
 	Set TeConverterenProduct.UitsparingDataBreedteY = 140
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","SY2","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"SB;120;140;60;150;250")
@@ -625,10 +592,9 @@
 	Set TeConverterenProduct.UitsparingDataBreedteZ2 = 150
 	Set TeConverterenProduct.UitsparingDataBreedteY = 140
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","SY2","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"BS;120;140;60;250;150")
@@ -646,10 +612,9 @@
 	Set TeConverterenProduct.UitsparingDataBreedteZ2 = 42
 	Set TeConverterenProduct.UitsparingDataBreedteY = 140
 	
-	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","SY2","M","C",0,"V","GA").DanDoeNiks()
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"MM;120;140;60;42;42")