Index: vhUnitTest/WSimpl/AX/DocGen/RappelService/RenderRappel/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/AX/DocGen/RappelService/RenderRappel/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/AX/DocGen/RappelService/RenderRappel/Test.cls.xml	(revision 51598)
@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.AX.DocGen.RappelService.RenderRappel.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="KlantNummer">
+<Type>%String</Type>
+<Default>UT_KlantNr</Default>
+</Parameter>
+
+<Parameter name="DocGenFilePath">
+<Type>%String</Type>
+<Default>\\UT_Server\Subdir\</Default>
+</Parameter>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("WS.AX.DocGen.RappelService.RappelPDF.FilePath", ..#DocGenFilePath, ..#Applicatie)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bestemming File mag PrintAndFileDoc() niet oproepen">
+<Implementation><![CDATA[
+	Set MockFlowRappelDoc = ##class(vhTest.Mock.BL.Flow.Rappel.IDoc).%New()
+	Do MockFlowRappelDoc.VerwachtMethodCall("RenderAndFileDocFromDto", $$$ElkeWaarde, $$$ElkeWaarde, ..#KlantNummer).DanDoeNiks().ExactAantalKeer(1)
+	Do MockFlowRappelDoc.VerwachtMethodCall("PrintToPPODFromDto",$$$ElkeWaarde).Nooit().DanDoeNiks()
+	
+	Set RappelService = ##class(WSimpl.AX.DocGen.RappelService.RenderRappel).%New(MockFlowRappelDoc)
+	
+	#dim pxRappel As BL.Flow.Proxy.pxRappel = ..MaakRappelDto(..#KlantNummer)
+
+	Do ..AssertRenderRappel(RappelService, pxRappel)
+	Do MockFlowRappelDoc.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: KlantNr $C(0) geeft een foutmelding">
+<Implementation><![CDATA[
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("The field KLANTNR is empty or invalid")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+
+	Set RappelService = ##class(WSimpl.AX.DocGen.RappelService.RenderRappel).%New()
+	
+	#dim InvalidKlantNr As %String = $C(0)
+	Do RappelService.RenderRappel(..MaakRappelDto(InvalidKlantNr))
+]]></Implementation>
+</Method>
+
+<Method name="AssertRenderRappel">
+<FormalSpec>RappelService:WSimpl.AX.DocGen.RappelService.RenderRappel,pxRappel:BL.Flow.Proxy.pxRappel</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Resultaat As WS.AX.DocGen.dto.RenderResultaat = RappelService.RenderRappel(pxRappel)
+	
+	Do $$$AssertEquals(Resultaat.DocumentNaam, ..#DocGenFilePath _ "Klant" _ ..#KlantNummer _ "_20110630091500.pdf")
+]]></Implementation>
+</Method>
+
+<Method name="MaakRappelDto">
+<FormalSpec>KlantNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>BL.Flow.Proxy.pxRappel</ReturnType>
+<Implementation><![CDATA[
+	Set pxRappel = ##class(BL.Flow.Proxy.pxRappel).%New()
+	Set pxRappel.KLANTNR = KlantNr
+	Quit pxRappel
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>