Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml
===================================================================
diff -u -r36359 -r37661
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 36359)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 37661)
@@ -10,7 +10,10 @@
 	#dim ConvertOpties = ##class(TECH.KeyValue.List).%New()
 	Do ConvertOpties.InsertKeyValue("Aantal","42")
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct,, ConvertOpties)
 	
 	Do $$$AssertEquals(WebOrderLijn.Qty,42)
@@ -24,7 +27,10 @@
 	#dim ConvertOpties = ##class(TECH.KeyValue.List).%New()
 	Do ConvertOpties.InsertKeyValue("Beental","42")
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct,, ConvertOpties)
 	
 	Do $$$AssertEquals(WebOrderLijn.Qty,1)
@@ -35,7 +41,11 @@
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.Qty,1)
@@ -46,7 +56,10 @@
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemKB,"MG")
@@ -88,7 +101,10 @@
 	Set TeConverterenProduct.LadeKleur = ##class(DOM.PM.enu.TBXZijkantKleur).BZ()
 	Set TeConverterenProduct.LadeHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).M()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","").DanDoeNiks()
+	
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemKB,"BZ")
@@ -114,7 +130,10 @@
 	Set TeConverterenProduct.CorpusWandDikte = "18"
 	Set TeConverterenProduct.IsBinnenbreedte = $$$False
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemWD,"18")
@@ -126,7 +145,10 @@
 	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.IsBinnenbreedte = $$$True
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemWD,"B")
@@ -139,7 +161,10 @@
 	Set TeConverterenProduct.HeeftOpvullijstLinks = $$$True
 	Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"L")
@@ -152,7 +177,10 @@
 	Set TeConverterenProduct.HeeftOpvullijstRechts = $$$True
 	Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"R")
@@ -166,7 +194,10 @@
 	Set TeConverterenProduct.HeeftOpvullijstRechts = $$$True
 	Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"L+R")
@@ -178,7 +209,10 @@
 	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.FrontOndersteuningAantal = 2
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemFS,"2")
@@ -190,7 +224,10 @@
 	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.FrontOndersteuningAantal = ""
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemFS,"A")
@@ -204,7 +241,10 @@
 	Set TeConverterenProduct.IsBinnenlade = $$$True
 	Set TeConverterenProduct.RugHoogte = "K"
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","K",1,"V","GA").DanDoeNiks()
+	
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"Z")
@@ -217,7 +257,10 @@
 	Set TeConverterenProduct.GreepEnMeenemer = "HandleAndLatch"
 	Set TeConverterenProduct.IsBinnenlade = $$$True
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",1,"V","GA").DanDoeNiks()
+	
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"M")
@@ -230,7 +273,10 @@
 	Set TeConverterenProduct.GreepEnMeenemer = "Handle"
 	Set TeConverterenProduct.IsBinnenlade = $$$True
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",1,"V","GA").DanDoeNiks()
+	
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"G")
@@ -243,7 +289,10 @@
 	Set TeConverterenProduct.GreepEnMeenemer = "Handle"
 	Set TeConverterenProduct.IsBinnenlade = $$$False
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"X")
@@ -257,7 +306,10 @@
 	Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatHelder8mm()
 	Set TeConverterenProduct.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemKV,"FG8")
@@ -271,7 +323,10 @@
 	Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatGezuurd8mm()
 	Set TeConverterenProduct.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemKV,"FZ8")
@@ -285,7 +340,10 @@
 	Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).MetallicGrijs()
 	Set TeConverterenProduct.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemKV,"ALU.MG")
@@ -299,7 +357,10 @@
 	Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).ZijdeWit()
 	Set TeConverterenProduct.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemKV,"ALU.SW")
@@ -313,7 +374,10 @@
 	Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).TerraZwart()
 	Set TeConverterenProduct.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemKV,"ALU.BZ")
@@ -325,7 +389,10 @@
 	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).BLUMOTION()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemBM,"I")
@@ -337,7 +404,10 @@
 	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement"
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemBX,"INSCHF")
@@ -350,7 +420,10 @@
 	Set TeConverterenProduct.HeeftMat = $$$True
 	Set TeConverterenProduct.MatKleur = ##class(DOM.PM.enu.MATKleur).ZwartAntislip()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemASM,"Z")
@@ -363,7 +436,10 @@
 	Set TeConverterenProduct.HeeftMat = $$$False
 	Set TeConverterenProduct.MatKleur = ##class(DOM.PM.enu.MATKleur).ZwartAntislip()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemASM,"0")
@@ -374,10 +450,12 @@
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.HeeftMat = $$$True
+	Set TeConverterenProduct.Klasse = "L"
+	Set TeConverterenProduct.ZijkantHoogte = "C"
 	Set TeConverterenProduct.MatKleur = ##class(DOM.PM.enu.TBXAntislipmat).Grijs()
 	
 	#dim TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	Do TBXLadeCodeBepalerStub.VerwachtMethodCall("BepaalLadeCode",TeConverterenProduct.Klasse, TeConverterenProduct.LadeHoogte, TeConverterenProduct.RugHoogte, TeConverterenProduct.IsBinnenlade, "V", $$$ElkeWaarde).ExactAantalKeer(1)
+	Do TBXLadeCodeBepalerStub.VerwachtMethodCall("BepaalLadeCode",TeConverterenProduct.Klasse, TeConverterenProduct.ZijkantHoogte, TeConverterenProduct.RugHoogte, TeConverterenProduct.IsBinnenlade, "V", $$$ElkeWaarde).ExactAantalKeer(1)
 	
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
@@ -392,7 +470,10 @@
 	Set TeConverterenProduct.HeeftDwarsverdeling = $$$False
 	Set TeConverterenProduct.AantalDwarsverdelingen = ##class(DOM.PM.enu.TBXDwarsverdeling).Twee()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemDWV,"0")
@@ -405,7 +486,10 @@
 	Set TeConverterenProduct.HeeftDwarsverdeling = $$$True
 	Set TeConverterenProduct.AantalDwarsverdelingen = ##class(DOM.PM.enu.TBXDwarsverdeling).Twee()
 	
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	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 ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(TBXLadeCodeBepalerStub)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemDWV,"2")
@@ -437,6 +521,8 @@
 	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>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler/Test.cls.xml
===================================================================
diff -u -r36122 -r37661
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 36122)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 37661)
@@ -5,9 +5,11 @@
 
 <Method name="Test: LadeCode bepalen van Lade met foute input">
 <Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen Ladecode voor design DC='WS' met volgende parameters: SY2-V-L-A-B")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+
 	Set TBXLadeCodeBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	#dim LadeCode As %String = TBXLadeCodeBepaler.BepaalLadeCode("SY2","A","B",$$$False,"V","WS")	
-	Do $$$AssertEquals(LadeCode,"")
+	#dim LadeCode As %String = TBXLadeCodeBepaler.BepaalLadeCode("SY2","A","B",$$$False,"V","WS")
 ]]></Implementation>
 </Method>
 
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler.cls.xml
===================================================================
diff -u -r36122 -r37661
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler.cls.xml	(.../TBXLadeCodeBepaler.cls.xml)	(revision 36122)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler.cls.xml	(.../TBXLadeCodeBepaler.cls.xml)	(revision 37661)
@@ -49,6 +49,10 @@
 		}
 	}
 	
+	If $$$Not(Found) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen Ladecode voor design DC='"_LadeDesign_"' met volgende parameters: "_Index))
+	}
+	
 	Quit LadeCode
 ]]></Implementation>
 </Method>