Index: vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml
===================================================================
diff -u -r34653 -r34669
--- vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34653)
+++ vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34669)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="EasyFormDataService">
+<Type>vhTest.Mock.APPS.BKH.AankoopFactuurArchivering.EasyFormDataService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -49,14 +54,17 @@
 	Do ..Leverancier.IndienMethodCall("GeefKortingKontant").DanReturn(0)
 	Do ..Leverancier.IndienMethodCall("GeefTermijnKortingKontant").DanReturn("")
 	Do ..Leverancier.IndienMethodCall("GeefBankRekeningNr").DanReturn("BE23571113171923")
+	
+	Set ..EasyFormDataService = ##class(vhTest.Mock.APPS.BKH.AankoopFactuurArchivering.EasyFormDataService).%New()	
+	Do ..EasyFormDataService.IndienMethodCall("GeefEersteGoedkeurder",100).DanReturn("Jenny De Mey")
 ]]></Implementation>
 </Method>
 
 <Method name="Test left padding AccountNum">
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefCode").DanReturn("100")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.AccountNum,"00100")
@@ -65,7 +73,7 @@
 
 <Method name="Test PartyType altijd = 2">
 <Implementation><![CDATA[
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PartyType,"2")
@@ -78,7 +86,7 @@
 	Do ..Partij.IndienMethodCall("GeefToenaam").DanReturn("Toenaam")
 	Do ..Partij.IndienMethodCall("GeefAanspreking").DanReturn("NV")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.Name,"Naam NV")
@@ -91,7 +99,7 @@
 	Do ..Partij.IndienMethodCall("GeefToenaam").DanReturn("")
 	Do ..Partij.IndienMethodCall("GeefAanspreking").DanReturn("NV")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.Name,"Naam NV")
@@ -103,7 +111,7 @@
 	Do ..Partij.IndienMethodCall("GeefNaam").DanReturn("naam met ; puntkomma")
 	Do ..Partij.IndienMethodCall("GeefToenaam").DanReturn("")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.Name,"naam met   puntkomma")
@@ -114,7 +122,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Nederlands())
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.LanguageID,"nl-be")
@@ -125,7 +133,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Frans())
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.LanguageID,"fr")
@@ -136,7 +144,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Duits())
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.LanguageID,"de")
@@ -147,7 +155,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Engels())
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.LanguageID,"en-us")
@@ -158,7 +166,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Deens())
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.LanguageID,"nl-be")
@@ -167,7 +175,7 @@
 
 <Method name="Test LocationRole = Business">
 <Implementation><![CDATA[
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.LocationRole,"Business")
@@ -178,7 +186,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
 
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.CountryRegionId,"BEL")
@@ -189,7 +197,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.ZipCode,"9170")
@@ -200,7 +208,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).EuLid())
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.ZipCode,"32791")
@@ -215,7 +223,7 @@
 	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(Adres)
 	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("NL0402775276")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.ZipCode,"1234 AA")
@@ -229,7 +237,7 @@
 	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(Adres)
 	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("NL0402775276")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.ZipCode,"NL1234 AA")
@@ -243,7 +251,7 @@
 	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(Adres)
 	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("NL0402775276")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.ZipCode,"1234-AA")
@@ -254,7 +262,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.City,"Sint-Gillis-Waas")
@@ -265,7 +273,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
 
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.Street,"Kemzekestraat 6")
@@ -277,7 +285,7 @@
 	Do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("")
 	Do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("")
 
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.PhoneName,"")
@@ -290,7 +298,7 @@
 	Do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn(" 03/123.45.67")
 	Do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("")
 
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.PhoneName,"Telefoon 1")
@@ -303,7 +311,7 @@
 	Do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("")
 	Do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn(" 03/765.43.21")
 
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.PhoneName,"Telefoon 2")
@@ -316,7 +324,7 @@
 	Do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn(" 03/123.45.67")
 	Do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn(" 03/765.43.21")
 
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.PhoneName,"Telefoon 1,Telefoon 2")
@@ -328,7 +336,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefEmail").DanReturn("everyone@example.com")
 
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.EmailName,"E-mail adres")
@@ -340,7 +348,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefEmail").DanReturn("")
 
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.EmailName,"")
@@ -352,7 +360,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefTelefax").DanReturn(" 03/112.101")
 
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.TeleFaxName,"Fax")
@@ -364,7 +372,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefTelefax").DanReturn("")
 
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.TeleFaxName,"")
@@ -376,7 +384,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.Currency,"EUR")
@@ -387,7 +395,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("BE0402775276")
 	
-	set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.EnterpriseNumber,"BTW BE 0402.775.276")
@@ -399,7 +407,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.EnterpriseNumber,"")
@@ -411,7 +419,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("NL814120313B01")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.EnterpriseNumber,"")
@@ -423,7 +431,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("AT U35695903")
 	
-	set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.EnterpriseNumber,"")
@@ -435,7 +443,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("G")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.EnterpriseNumber,"")
@@ -447,7 +455,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("GEEN")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.EnterpriseNumber,"")
@@ -459,7 +467,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("BE0000000000")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.EnterpriseNumber,"BE 0000.000.097")
@@ -471,7 +479,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefID").DanReturn("L||5005")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymMode,"BLUM-SEPA")
@@ -484,7 +492,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefBetalingVoorwaarde").DanReturn("")
 	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"VOORUIT")
@@ -497,7 +505,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Rembours())
 	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)	
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"REMBOURS")
@@ -511,7 +519,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefBetalingVoorwaarde").DanReturn("30D")
 	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)	
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"NET30")
@@ -525,7 +533,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefBetalingVoorwaarde").DanReturn("8D")
 	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"NET08")
@@ -539,7 +547,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefBetalingVoorwaarde").DanReturn("30DEM")
 	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)	
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"EOM30")
@@ -553,7 +561,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefBetalingVoorwaarde").DanReturn("1M")
 	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"NET30")
@@ -567,7 +575,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefBetalingVoorwaarde").DanReturn("2M")
 	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"NET60")
@@ -581,7 +589,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefBetalingVoorwaarde").DanReturn("1MEM")
 	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"EOM30")
@@ -595,7 +603,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefBetalingVoorwaarde").DanReturn("2MEM")
 	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"EOM60")
@@ -607,7 +615,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("GBP")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymMode,"SWIFT")
@@ -619,7 +627,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefKortingKontant").DanReturn(0)
 	Do ..Leverancier.IndienMethodCall("GeefTermijnKortingKontant").DanReturn("")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.UseCashDisc,"")
@@ -631,7 +639,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefKortingKontant").DanReturn(5)
 	Do ..Leverancier.IndienMethodCall("GeefTermijnKortingKontant").DanReturn("10DEM")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.UseCashDisc,"10EOM5%")
@@ -643,7 +651,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefKortingKontant").DanReturn(1)
 	Do ..Leverancier.IndienMethodCall("GeefTermijnKortingKontant").DanReturn("")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.UseCashDisc,"08D1%")
@@ -655,7 +663,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefKortingKontant").DanReturn(3)
 	Do ..Leverancier.IndienMethodCall("GeefTermijnKortingKontant").DanReturn("10D")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.UseCashDisc,"10D3%")
@@ -667,7 +675,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefKortingKontant").DanReturn(3)
 	Do ..Leverancier.IndienMethodCall("GeefTermijnKortingKontant").DanReturn("0D")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.UseCashDisc,"08D3%")
@@ -678,7 +686,7 @@
 <Implementation><![CDATA[
 	Do ..Leverancier.IndienMethodCall("GeefBankRekeningNr").DanReturn("BE96230050972005")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.BankAccount,"1")
@@ -689,7 +697,7 @@
 <Implementation><![CDATA[
 	Do ..Leverancier.IndienMethodCall("GeefBankRekeningNr").DanReturn("")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.BankAccount,"")
@@ -702,7 +710,7 @@
 	Do FirmaBepaler.IndienMethodCall("GeefInitialen").DanReturn("VH")	
 	Do ..Partij.IndienMethodCall("GeefID").DanReturn("L||6332")
 
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(FirmaBepaler)
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(FirmaBepaler, ..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.VendGroup,"IC")
@@ -716,7 +724,7 @@
 	Do ..Partij.IndienMethodCall("GeefID").DanReturn("L||6332")
 	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
 
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(FirmaBepaler)
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(FirmaBepaler, ..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.VendGroup,"BE")
@@ -729,7 +737,7 @@
 	Do FirmaBepaler.IndienMethodCall("GeefInitialen").DanReturn("HX")	
 	Do ..Partij.IndienMethodCall("GeefID").DanReturn("L||5497")
 
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(FirmaBepaler)
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(FirmaBepaler, ..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.VendGroup,"IC")
@@ -740,7 +748,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.VendGroup,"BE")
@@ -751,7 +759,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).EuLid())
 
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.VendGroup,"EU")
@@ -762,7 +770,7 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).NietEuLid())
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.VendGroup,"EX")
@@ -775,7 +783,7 @@
 	Do FirmaBepaler.IndienMethodCall("GeefInitialen").DanReturn("VH")	
 	Do ..Partij.IndienMethodCall("GeefID").DanReturn("L||6051")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(FirmaBepaler)
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(FirmaBepaler, ..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.TaxGroup,"BUNIT")
@@ -788,7 +796,7 @@
 	Do FirmaBepaler.IndienMethodCall("GeefInitialen").DanReturn("HX")	
 	Do ..Partij.IndienMethodCall("GeefID").DanReturn("L||5497")
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(FirmaBepaler)
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(FirmaBepaler, ..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.TaxGroup,"BUNIT")
@@ -801,12 +809,23 @@
 	Do FirmaBepaler.IndienMethodCall("GeefInitialen").DanReturn("HX")
 	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).EuLid())
 	
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(FirmaBepaler)
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(FirmaBepaler, ..EasyFormDataService)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.TaxGroup,"BIC")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Goedkeurder bekend">
+<Implementation><![CDATA[
+	Do ..EasyFormDataService.IndienMethodCall("GeefEersteGoedkeurder",100).DanReturn("Jenny De Mey")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(,..EasyFormDataService)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
+	
+	Do $$$AssertEquals(..AxLeverancier.MainContactWorkerPartyName,"Jenny De Mey")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml
===================================================================
diff -u -r34619 -r34669
--- AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34619)
+++ AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34669)
@@ -13,15 +13,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="EasyFormDataService">
+<Type>APPS.BKH.AankoopFactuurArchivering.impl.EasyFormDataService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>FirmaBepaler:AX.common.impl.FirmaBepaler</FormalSpec>
+<FormalSpec>FirmaBepaler:AX.common.impl.FirmaBepaler,EasyFormDataService:APPS.BKH.AankoopFactuurArchivering.impl.EasyFormDataService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..FirmaBepaler = $$$Inject(FirmaBepaler,##class(AX.common.impl.FirmaBepaler).%New())
 	Set ..Formatter = ##class(AX.common.impl.Formatter).%New()
+	Set ..EasyFormDataService = $$$Inject(EasyFormDataService, ##class(APPS.BKH.AankoopFactuurArchivering.impl.EasyFormDataService).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -30,7 +36,6 @@
 <FormalSpec>Partij:DOM.PARTIJ.Partij,Leverancier:DOM.AKP.Leverancier</FormalSpec>
 <ReturnType>AXdixf.Vendor.Vendor</ReturnType>
 <Implementation><![CDATA[
-	
 	Set AxLeverancier = ##class(AXdixf.Vendor.Vendor).%New()
 	Set AxLeverancier.AccountNum = ..Formatter.FormatAccountNumber(Partij.GeefCode())
 	Set AxLeverancier.PartyType = "2"
@@ -56,6 +61,7 @@
 	Set AxLeverancier.UseCashDisc = ..Formatter.FormatCashDiscount(Leverancier.GeefKortingKontant(),Leverancier.GeefTermijnKortingKontant())
 	Set:$$$HasLength(Leverancier.GeefBankRekeningNr()) AxLeverancier.BankAccount = "1"
 	Set AxLeverancier.TaxGroup = ..ConvertTaxGroup(Partij)
+	Set AxLeverancier.MainContactWorkerPartyName = ..EasyFormDataService.GeefEersteGoedkeurder(Leverancier.GeefCode())
 	
 	Quit AxLeverancier
 ]]></Implementation>