Index: vhUnitTest/APPS/Halux/common/TestProductieService.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/common/TestProductieService.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/common/TestProductieService.cls.xml	(revision 49644)
@@ -0,0 +1,71 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.common.TestProductieService">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.common.TestBatchService")</Description>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: GeefKlantDisplayNaamBijToelevering eenvoudigste geval">
+<Implementation><![CDATA[	Do ..AssertGeefKlantDisplayNaamBijToelevering("EenKlantNaam (EenAdresNaam)")
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefKlantDisplayNaamBijToelevering: Indien Alpnach in orderreferentie, dan dat vermelden">
+<Implementation><![CDATA[	Do ..AssertGeefKlantDisplayNaamBijToelevering("ALPNACH | EenKlantNaam (EenAdresNaam)", /*OrderReferentie*/ "Alpnach")
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefKlantDisplayNaamBijToelevering: Indien Alpnach in commssiereferentie, dan dat vermelden">
+<Implementation><![CDATA[	Do ..AssertGeefKlantDisplayNaamBijToelevering("ALPNACH | EenKlantNaam (EenAdresNaam)", , /*CommissieReferentie*/ "Alpnach")
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefKlantDisplayNaamBijToelevering: Indien Talsee in orderreferentie, dan dat vermelden">
+<Implementation><![CDATA[	Do ..AssertGeefKlantDisplayNaamBijToelevering("TALSEE | EenKlantNaam (EenAdresNaam)", /*OrderReferentie*/ "Talsee")
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefKlantDisplayNaamBijToelevering: Indien Talsee in commssiereferentie, dan dat vermelden">
+<Implementation><![CDATA[	Do ..AssertGeefKlantDisplayNaamBijToelevering("TALSEE | EenKlantNaam (EenAdresNaam)", , /*CommissieReferentie*/ "Talsee")
+]]></Implementation>
+</Method>
+
+<Method name="AssertGeefKlantDisplayNaamBijToelevering">
+<FormalSpec>VerwachteDisplayNaam:%String,OrderReferentie:%String="EenOrderReferentie",CommissieReferentie:%String="EenCommissieReferentie"</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim Toelevering As vhTest.Mock.DOM.AKP.Toelevering = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	Do Toelevering.IndienMethodCall("GeefOrderID").DanReturn("EenOrderId")
+	Do Toelevering.IndienMethodCall("GeefKlantID").DanReturn("EenKlantId")
+	#Dim ToeleveringAPI As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
+	Do ToeleveringAPI.IndienMethodCall("GeefToelevering", "EenToeleveringId").DanReturn(Toelevering)
+	
+	#Dim Klant As vhTest.Mock.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	Do Klant.IndienMethodCall("GeefNaam").DanReturn("EenKlantNaam")
+	Do Klant.IndienMethodCall("GeefLeverAdressen").DanReturn(##class(%ListOfObjects).%New())
+	#Dim VerkoopAPI As vhTest.Mock.DOM.VKP.VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).MockInstance()
+	Do VerkoopAPI.IndienMethodCall("GeefKlant", "EenKlantId").DanReturn(Klant)
+	
+	#Dim AfleverAdres As vhTest.Mock.DOM.common.Adres = ##class(vhTest.Mock.DOM.common.Adres).%New()
+	Do AfleverAdres.IndienMethodCall("GeefNaam").DanReturn("EenAdresNaam")
+	#Dim Order As vhTest.Mock.DOM.VKP.Order = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do Order.IndienMethodCall("GeefAfleveradres").DanReturn(AfleverAdres)
+	Do Order.IndienMethodCall("GeefCommissieReferentie").DanReturn(CommissieReferentie)
+	Do Order.IndienMethodCall("GeefOrderReferentie").DanReturn(OrderReferentie)
+	#Dim OrderAPI As vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
+	Do OrderAPI.IndienMethodCall("GeefOrder", "EenOrderId").DanReturn(Order)
+	
+	
+	#Dim ProductieService = ##class(APPS.Halux.common.ProductieService).%New()
+	#Dim KlantDisplayNaam = ProductieService.GeefKlantDisplayNaamBijToelevering("EenToeleveringId")
+	
+	
+	Do $$$AssertEquals(KlantDisplayNaam, VerwachteDisplayNaam)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>