Index: vhUnitTest/AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter/Test.cls.xml	(revision 0)
+++ vhUnitTest/AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter/Test.cls.xml	(revision 41821)
@@ -0,0 +1,77 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="AankoopApi">
+<Type>DOM.AKP.AankoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LeverancierStub">
+<Type>vhTest.Mock.DOM.AKP.Leverancier</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringStub">
+<Type>vhTest.Mock.DOM.AKP.Toelevering</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	Set ToeleveringStub = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	Do ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("5000")
+	Do ToeleveringStub.IndienMethodCall("GeefAanmaakDatum").DanReturn(50000)
+	Do ToeleveringStub.IndienMethodCall("GeefID").DanReturn("5000||200000")
+	Do ToeleveringStub.IndienMethodCall("GeefReferentie").DanReturn("Ref")
+	Set ..ToeleveringStub = ToeleveringStub
+	
+	Set LeverancierStub = ##class(vhTest.Mock.DOM.AKP.Leverancier).%New()
+	Do LeverancierStub.IndienMethodCall("GeefKortingKontant").DanReturn(5)
+	Do LeverancierStub.IndienMethodCall("GeefTermijnKortingKontant").DanReturn(10)
+	Do LeverancierStub.IndienMethodCall("GeefTaal").DanReturn("NL")
+	Do LeverancierStub.IndienMethodCall("GeefNaam").DanReturn("LevNaam")
+	Do LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do LeverancierStub.IndienMethodCall("GeefBTWnr").DanReturn("123.456.789")
+	Set ..LeverancierStub = LeverancierStub
+]]></Implementation>
+</Method>
+
+<Method name="Test: Zijn alle defaults goed voor Van Hoecke">
+<Implementation><![CDATA[
+	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
+	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","5000").DanReturn(..LeverancierStub)
+	Set ..AankoopApi = AankoopApiStub
+	
+	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = "VHBE"
+	
+	#dim Converter As AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter = ..GeefConverter()
+	
+	#dim Hoofding As AXdixf.AankoopOrderHoofding.AankoopOrderHoofding = Converter.Convert(..ToeleveringStub,Vestiging)
+	
+	Do $$$AssertEquals(Hoofding.ChangeRequestRequired,"1")
+	Do $$$AssertEquals(Hoofding.CurrencyCode,"EUR")
+	Do $$$AssertEquals(Hoofding.DeliveryCity,"Sint-Niklaas")
+	Do $$$AssertEquals(Hoofding.DeliveryZipCode,"9100")
+	Do $$$AssertEquals(Hoofding.DocumentState,"Concept")
+	Do $$$AssertEquals(Hoofding.DocumentStatus,"Aankooporder")
+	Do $$$AssertEquals(Hoofding.PostingProfile,"ALG")
+	Do $$$AssertEquals(Hoofding.PurchaseType,"Aankooporder")
+	Do $$$AssertEquals(Hoofding.PurchStatus,"Openstaande order")
+	Do $$$AssertEquals(Hoofding.SettleVoucher,"Geen")
+]]></Implementation>
+</Method>
+
+<Method name="GeefConverter">
+<Private>1</Private>
+<ReturnType>AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter</ReturnType>
+<Implementation><![CDATA[	quit ##class(AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter).%New(..AankoopApi)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>