Index: AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml
===================================================================
diff -u -r34408 -r34453
--- AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34408)
+++ AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34453)
@@ -46,7 +46,7 @@
 	set DirParty = ##class(AXaif.Customer.AxdEntityDirPartyDirOrganization).%New()
 	set DirParty.class = "entity"
 	set DirParty.LanguageId = ..Formatter.FormatLanguageId(Partij.GeefTaal())
-	set DirParty.Name = ..FormatPartyName(Partij)
+	set DirParty.Name = ..Formatter.FormatPartyName(Partij)
 	set:(Partij.GeefAdres().GeefLandNr()=##class(DOM.common.enu.Land).Nederland()) DirParty.DunsNumberRecId = Partij.GeefHandelRegisterNr()
 	
 	set OrganizationName = ##class(AXaif.Customer.AxdEntityOrganizationName).%New()
@@ -84,17 +84,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="FormatPartyName">
-<FormalSpec>Partij:DOM.PARTIJ.Partij</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim Name As %String = Partij.GeefNaam()_$$$IfLength(Partij.GeefToenaam()," ","")
-	set:##class(APPS.common.enu.JuridischeVorm).IsValid(Partij.GeefAanspreking()) Name = Name _ $$$IfLength(Partij.GeefAanspreking()," ","")
-	quit $$$Trim(Name)
-]]></Implementation>
-</Method>
-
 <Method name="ConvertContactInfo">
 <FormalSpec>LocationName:%String,Locator:%String,Type:%String,IsPrimary:%Boolean=1</FormalSpec>
 <Private>1</Private>
Index: AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml
===================================================================
diff -u -r34405 -r34453
--- AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34405)
+++ AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34453)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="AX.Uitgaand.AKP.Leverancier.impl.DixfConverter">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Property name="Formatter">
 <Type>AX.common.impl.Formatter</Type>
@@ -20,27 +20,28 @@
 </Method>
 
 <Method name="Convert">
-<FormalSpec>Leverancier:DOM.AKP.Leverancier</FormalSpec>
+<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(Leverancier.GeefCode())
+	Set AxLeverancier.AccountNum = ..Formatter.FormatAccountNumber(Partij.GeefCode())
 	Set AxLeverancier.PartyType = "2"
-	Set AxLeverancier.Name = Leverancier.GeefNaam()_$$$IfLength(Leverancier.GeefToenaam()," ","")_$$$IfLength(Leverancier.GeefAanspreking()," ","")
-	Set AxLeverancier.LanguageID = ..Formatter.FormatLanguageId(Leverancier.GeefTaal())
+	Set AxLeverancier.Name = ..Formatter.FormatPartyName(Partij)
+	Set AxLeverancier.LanguageID = ..Formatter.FormatLanguageId(Partij.GeefTaal())
 	Set AxLeverancier.LocationRole = "Business"
-	Set AxLeverancier.CountryRegionId = Leverancier.GeefLandCodeIso()
-	Set AxLeverancier.ZipCode = ##class(DOM.common.impl.AdresUtils).CorrigeerPostcode(Leverancier.GeefPostnummer(),Leverancier.GeefLandNr())
-	Set AxLeverancier.City = Leverancier.GeefWoonplaats()
-	Set AxLeverancier.Street = Leverancier.GeefStraatNrBus()
-	Do ..ConvertPhone(Leverancier, AxLeverancier)
-	Set:$$$HasLength(Leverancier.GeefEmail()) AxLeverancier.EmailName = "E-mail adres"
-	Set AxLeverancier.Email = Leverancier.GeefEmail()
-	Set:$$$HasLength(Leverancier.GeefTelefax()) AxLeverancier.TeleFaxName = "Fax"
-	Set AxLeverancier.TeleFax = $$$Trim(Leverancier.GeefTelefax())
-	Set AxLeverancier.Currency = Leverancier.GeefMuntkode()
-	Set AxLeverancier.EnterpriseNumber = ..Formatter.FormatEnterpriseNumber(Leverancier.GeefBTWnr())
-	Set AxLeverancier.VATNum = ..Formatter.FormatVATNum(Leverancier.GeefBTWnr())
+	#dim Adres As DOM.common.Adres = Partij.GeefAdres()
+	Set AxLeverancier.CountryRegionId = Adres.GeefLand().GeefIso3()
+	Set AxLeverancier.ZipCode = ##class(DOM.common.impl.AdresUtils).CorrigeerPostcode(Adres.GeefPostcode(),Adres.GeefLandNr())
+	Set AxLeverancier.City = Adres.GeefGemeente()
+	Set AxLeverancier.Street = Adres.GeefStraat()
+	Do ..ConvertPhone(Partij, AxLeverancier)
+	Set:$$$HasLength(Partij.GeefEmail()) AxLeverancier.EmailName = "E-mail adres"
+	Set AxLeverancier.Email = Partij.GeefEmail()
+	Set:$$$HasLength(Partij.GeefTelefax()) AxLeverancier.TeleFaxName = "Fax"
+	Set AxLeverancier.TeleFax = $$$Trim(Partij.GeefTelefax())
+	Set AxLeverancier.Currency = Partij.GeefMunt()
+	Set AxLeverancier.EnterpriseNumber = ..Formatter.FormatEnterpriseNumber(Partij.GeefBTWNr())
+	Set AxLeverancier.VATNum = ..Formatter.FormatVATNum(Partij.GeefBTWNr())
 	Set AxLeverancier.PaymTermId = ..Formatter.ConvertPaymTermId(Leverancier.GeefBetaalwijze(),Leverancier.GeefBetaalTermijn())
 	Set AxLeverancier.PaymMode = ..Formatter.ConvertPaymMode(Leverancier.GeefBetaalwijze())
 	Set AxLeverancier.UseCashDisc = ..Formatter.FormatCashDiscount(Leverancier.GeefKortingKontant(),Leverancier.GeefTermijnKortingKontant())
@@ -51,20 +52,20 @@
 </Method>
 
 <Method name="ConvertPhone">
-<FormalSpec><![CDATA[Leverancier:DOM.AKP.Leverancier,&AxLeverancier:AXdixf.Vendor.Vendor]]></FormalSpec>
+<FormalSpec><![CDATA[Partij:DOM.PARTIJ.Partij,&AxLeverancier:AXdixf.Vendor.Vendor]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set PhoneNames = ##class(%ListOfDataTypes).%New()
 	Set PhoneNrs = ##class(%ListOfDataTypes).%New()
 	
-	If $$$HasLength($$$Trim(Leverancier.GeefTelefoon1())) {
+	If $$$HasLength($$$Trim(Partij.GeefTelefoon1())) {
 		Do PhoneNames.Insert("Telefoon 1")
-		Do PhoneNrs.Insert($$$Trim(Leverancier.GeefTelefoon1()))
+		Do PhoneNrs.Insert($$$Trim(Partij.GeefTelefoon1()))
 	}
 	
-	If $$$HasLength(Leverancier.GeefTelefoon2()) {
+	If $$$HasLength(Partij.GeefTelefoon2()) {
 		Do PhoneNames.Insert("Telefoon 2")
-		Do PhoneNrs.Insert($$$Trim(Leverancier.GeefTelefoon2()))
+		Do PhoneNrs.Insert($$$Trim(Partij.GeefTelefoon2()))
 	}
 	
 	Set AxLeverancier.PhoneName = ##class(TECH.ListUtils).ListToPieces(PhoneNames,",")
Index: AX/common/impl/Formatter.cls.xml
===================================================================
diff -u -r34408 -r34453
--- AX/common/impl/Formatter.cls.xml	(.../Formatter.cls.xml)	(revision 34408)
+++ AX/common/impl/Formatter.cls.xml	(.../Formatter.cls.xml)	(revision 34453)
@@ -132,6 +132,16 @@
 	quit "OVER"
 ]]></Implementation>
 </Method>
+
+<Method name="FormatPartyName">
+<FormalSpec>Partij:DOM.PARTIJ.Partij</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Name As %String = Partij.GeefNaam()_$$$IfLength(Partij.GeefToenaam()," ","")
+	set:##class(APPS.common.enu.JuridischeVorm).IsValid(Partij.GeefAanspreking()) Name = Name _ $$$IfLength(Partij.GeefAanspreking()," ","")
+	quit $$$Trim(Name)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml
===================================================================
diff -u -r34405 -r34453
--- vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34405)
+++ vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34453)
@@ -13,28 +13,36 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Partij">
+<Type>vhTest.Mock.DOM.PARTIJ.Partij</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super()
 	
+	set ..Partij = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
+	do ..Partij.IndienMethodCall("GeefID").DanReturn("K||5002")
+	do ..Partij.IndienMethodCall("GeefCode").DanReturn(100)
+	do ..Partij.IndienMethodCall("GeefNaam").DanReturn("Een Willekeurige naam")
+	do ..Partij.IndienMethodCall("GeefToenaam").DanReturn("Toenaam")
+	do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("BE0402775276")
+	do ..Partij.IndienMethodCall("GeefHandelRegisterNr").DanReturn("123456789")
+	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Dummy.DOM.VKP.LeverAdres).%New())
+	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Nederlands())
+	do ..Partij.IndienMethodCall("GeefAanspreking").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
+	
+	
+	do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefTelefax").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefGsm").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefEmail").DanReturn("")
+	
 	Set ..Leverancier = ##class(vhTest.Mock.DOM.AKP.Leverancier).%New()
-	Do ..Leverancier.IndienMethodCall("GeefCode").DanReturn("100")
-	Do ..Leverancier.IndienMethodCall("GeefNaam").DanReturn("Naam")
-	Do ..Leverancier.IndienMethodCall("GeefToenaam").DanReturn("Toenaam")
-	Do ..Leverancier.IndienMethodCall("GeefAanspreking").DanReturn("Aanspreking")
-	Do ..Leverancier.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Nederlands())
-	Do ..Leverancier.IndienMethodCall("GeefLandCodeIso").DanReturn("BEL")
-	Do ..Leverancier.IndienMethodCall("GeefPostnummer").DanReturn("9100")	
-	Do ..Leverancier.IndienMethodCall("GeefLandNr").DanReturn("1019")
-	Do ..Leverancier.IndienMethodCall("GeefWoonplaats").DanReturn("Sint-Niklaas")
-	Do ..Leverancier.IndienMethodCall("GeefStraatNrBus").DanReturn("Esdoornlaan 1234 A")
-	Do ..Leverancier.IndienMethodCall("GeefTelefoon1").DanReturn(" 03/123.45.67")
-	Do ..Leverancier.IndienMethodCall("GeefTelefoon2").DanReturn(" 03/765.43.21")
-	Do ..Leverancier.IndienMethodCall("GeefEmail").DanReturn("everyone@example.com")
-	Do ..Leverancier.IndienMethodCall("GeefTelefax").DanReturn(" 03/112.101")
-	Do ..Leverancier.IndienMethodCall("GeefMuntkode").DanReturn("EUR")
-	Do ..Leverancier.IndienMethodCall("GeefBTWnr").DanReturn("BE0402775276")
 	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
 	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("30D")
 	Do ..Leverancier.IndienMethodCall("GeefKortingKontant").DanReturn(0)
@@ -45,10 +53,10 @@
 
 <Method name="Test left padding AccountNum">
 <Implementation><![CDATA[
-	Do ..Leverancier.IndienMethodCall("GeefCode").DanReturn("100")
+	Do ..Partij.IndienMethodCall("GeefCode").DanReturn("100")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.AccountNum,"00100")
 ]]></Implementation>
@@ -57,88 +65,101 @@
 <Method name="Test PartyType altijd = 2">
 <Implementation><![CDATA[
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PartyType,"2")
 ]]></Implementation>
 </Method>
 
 <Method name="Test concatenatie lijn 1, lijn 2 en aanspreking voor &apos;Name&apos; ">
 <Implementation><![CDATA[
-	Do ..Leverancier.IndienMethodCall("GeefNaam").DanReturn("Naam")
-	Do ..Leverancier.IndienMethodCall("GeefToenaam").DanReturn("Toenaam")
-	Do ..Leverancier.IndienMethodCall("GeefAanspreking").DanReturn("Aanspreking")
+	Do ..Partij.IndienMethodCall("GeefNaam").DanReturn("Naam")
+	Do ..Partij.IndienMethodCall("GeefToenaam").DanReturn("Toenaam")
+	Do ..Partij.IndienMethodCall("GeefAanspreking").DanReturn("NV")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
-	Do $$$AssertEquals(..AxLeverancier.Name,"Naam Toenaam Aanspreking")
+	Do $$$AssertEquals(..AxLeverancier.Name,"Naam Toenaam NV")
 ]]></Implementation>
 </Method>
 
 <Method name="Test concatenatie lijn 1 en aanspreking voor &apos;Name&apos; ">
 <Implementation><![CDATA[
-	Do ..Leverancier.IndienMethodCall("GeefNaam").DanReturn("Naam")
-	Do ..Leverancier.IndienMethodCall("GeefToenaam").DanReturn("")
-	Do ..Leverancier.IndienMethodCall("GeefAanspreking").DanReturn("Aanspreking")
+	Do ..Partij.IndienMethodCall("GeefNaam").DanReturn("Naam")
+	Do ..Partij.IndienMethodCall("GeefToenaam").DanReturn("")
+	Do ..Partij.IndienMethodCall("GeefAanspreking").DanReturn("NV")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
-	Do $$$AssertEquals(..AxLeverancier.Name,"Naam Aanspreking")
+	Do $$$AssertEquals(..AxLeverancier.Name,"Naam NV")
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Geen geldige Aanspreking">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefAanspreking").DanReturn("oink")
+	Do ..Partij.IndienMethodCall("GeefNaam").DanReturn("Naam")
+	Do ..Partij.IndienMethodCall("GeefToenaam").DanReturn("")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
+	
+	Do $$$AssertEquals(..AxLeverancier.Name,"Naam")
+]]></Implementation>
+</Method>
+
 <Method name="Test taal Nederlands">
 <Implementation><![CDATA[
-	do ..Leverancier.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Nederlands())
+	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Nederlands())
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.LanguageID,"nl-be")
 ]]></Implementation>
 </Method>
 
 <Method name="Test taal Frans">
 <Implementation><![CDATA[
-	do ..Leverancier.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Frans())
+	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Frans())
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.LanguageID,"fr")
 ]]></Implementation>
 </Method>
 
 <Method name="Test taal Duits">
 <Implementation><![CDATA[
-	do ..Leverancier.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Duits())
+	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Duits())
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.LanguageID,"de")
 ]]></Implementation>
 </Method>
 
 <Method name="Test taal Engels">
 <Implementation><![CDATA[
-	do ..Leverancier.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Engels())
+	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Engels())
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.LanguageID,"en-us")
 ]]></Implementation>
 </Method>
 
 <Method name="Test taal Deens">
 <Implementation><![CDATA[
-	do ..Leverancier.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Deens())
+	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Deens())
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.LanguageID,"nl-be")
 ]]></Implementation>
@@ -147,111 +168,117 @@
 <Method name="Test LocationRole = Business">
 <Implementation><![CDATA[
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.LocationRole,"Business")
 ]]></Implementation>
 </Method>
 
 <Method name="Test CountryRegionID ">
 <Implementation><![CDATA[
-	Do ..Leverancier.IndienMethodCall("GeefLandCodeIso").DanReturn("BEL")
+	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
 
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.CountryRegionId,"BEL")
 ]]></Implementation>
 </Method>
 
 <Method name="Test ZipCode Belgisch">
 <Implementation><![CDATA[
-	do ..Leverancier.IndienMethodCall("GeefPostnummer").DanReturn("9100")
+	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
-	Do $$$AssertEquals(..AxLeverancier.ZipCode,"9100")
+	Do $$$AssertEquals(..AxLeverancier.ZipCode,"9170")
 ]]></Implementation>
 </Method>
 
 <Method name="Test ZipCode niet-Belgisch ">
 <Implementation><![CDATA[
-	do ..Leverancier.IndienMethodCall("GeefPostnummer").DanReturn("9100")
-	do ..Leverancier.IndienMethodCall("GeefLandNr").DanReturn("1018")
+	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).EuLid())
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
-	Do $$$AssertEquals(..AxLeverancier.ZipCode,"9100")
+	Do $$$AssertEquals(..AxLeverancier.ZipCode,"32791")
+	Do $$$AssertEquals(..AxLeverancier.CountryRegionId,"DEU")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: ZipCode niet-Belgisch - rekening houden met &apos;-&apos; 1">
 <Implementation><![CDATA[
-	do ..Leverancier.IndienMethodCall("GeefPostnummer").DanReturn("NL-1234 AA")
-	do ..Leverancier.IndienMethodCall("GeefLandNr").DanReturn("1018")
+	#dim Adres As DOM.common.Adres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).EuLid()
+	Do Adres.ZetPostcode("NL-1234 AA")
+	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(Adres)
+	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("NL0402775276")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.ZipCode,"1234 AA")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: ZipCode niet-Belgisch - rekening houden met &apos;-&apos; 2">
 <Implementation><![CDATA[
-	do ..Leverancier.IndienMethodCall("GeefPostnummer").DanReturn("NL1234 AA")
-	do ..Leverancier.IndienMethodCall("GeefLandNr").DanReturn("1018")
+	#dim Adres As DOM.common.Adres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).EuLid()
+	Do Adres.ZetPostcode("NL1234 AA")
+	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(Adres)
+	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("NL0402775276")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.ZipCode,"NL1234 AA")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: ZipCode niet-Belgisch - rekening houden met &apos;-&apos; 3">
 <Implementation><![CDATA[
-	do ..Leverancier.IndienMethodCall("GeefPostnummer").DanReturn("NL-1234-AA")
-	do ..Leverancier.IndienMethodCall("GeefLandNr").DanReturn("1018")
+	#dim Adres As DOM.common.Adres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).EuLid()
+	Do Adres.ZetPostcode("NL-1234-AA")
+	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(Adres)
+	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("NL0402775276")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.ZipCode,"1234-AA")
 ]]></Implementation>
 </Method>
 
 <Method name="Test City">
 <Implementation><![CDATA[
-	Do ..Leverancier.IndienMethodCall("GeefWoonplaats").DanReturn("Sint-Niklaas")
-
+	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
+	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
-	Do $$$AssertEquals(..AxLeverancier.City,"Sint-Niklaas")
+	Do $$$AssertEquals(..AxLeverancier.City,"Sint-Gillis-Waas")
 ]]></Implementation>
 </Method>
 
 <Method name="Test Street">
 <Implementation><![CDATA[
-	Do ..Leverancier.IndienMethodCall("GeefStraatNrBus").DanReturn("Esdoornlaan 1234 A")
+	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
 
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
-	Do $$$AssertEquals(..AxLeverancier.Street,"Esdoornlaan 1234 A")
+	Do $$$AssertEquals(..AxLeverancier.Street,"Kemzekestraat 6")
 ]]></Implementation>
 </Method>
 
 <Method name="Test PhoneName en Phone - Geen telefoon ingevuld">
 <Implementation><![CDATA[
-	Do ..Leverancier.IndienMethodCall("GeefTelefoon1").DanReturn("")
-	Do ..Leverancier.IndienMethodCall("GeefTelefoon2").DanReturn("")
+	Do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("")
+	Do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("")
 
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.PhoneName,"")
 	Do $$$AssertEquals(..AxLeverancier.Phone,"")
@@ -260,11 +287,11 @@
 
 <Method name="Test PhoneName en Phone - Enkel Telefoon 1 ingevuld">
 <Implementation><![CDATA[
-	Do ..Leverancier.IndienMethodCall("GeefTelefoon1").DanReturn(" 03/123.45.67")
-	Do ..Leverancier.IndienMethodCall("GeefTelefoon2").DanReturn("")
+	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 ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.PhoneName,"Telefoon 1")
 	Do $$$AssertEquals(..AxLeverancier.Phone,"03/123.45.67")
@@ -273,11 +300,11 @@
 
 <Method name="Test PhoneName en Phone - Enkel Telefoon 2 ingevuld">
 <Implementation><![CDATA[
-	Do ..Leverancier.IndienMethodCall("GeefTelefoon1").DanReturn("")
-	Do ..Leverancier.IndienMethodCall("GeefTelefoon2").DanReturn(" 03/765.43.21")
+	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 ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.PhoneName,"Telefoon 2")
 	Do $$$AssertEquals(..AxLeverancier.Phone,"03/765.43.21")
@@ -286,11 +313,11 @@
 
 <Method name="Test PhoneName en Phone - Zowel Telefoon 1 als 2 ingevuld">
 <Implementation><![CDATA[
-	Do ..Leverancier.IndienMethodCall("GeefTelefoon1").DanReturn(" 03/123.45.67")
-	Do ..Leverancier.IndienMethodCall("GeefTelefoon2").DanReturn(" 03/765.43.21")
+	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 ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.PhoneName,"Telefoon 1,Telefoon 2")
 	Do $$$AssertEquals(..AxLeverancier.Phone,"03/123.45.67,03/765.43.21")
@@ -299,10 +326,10 @@
 
 <Method name="Test EmailName en Email - email adres gekend">
 <Implementation><![CDATA[
-	Do ..Leverancier.IndienMethodCall("GeefEmail").DanReturn("everyone@example.com")
+	Do ..Partij.IndienMethodCall("GeefEmail").DanReturn("everyone@example.com")
 
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.EmailName,"E-mail adres")
 	Do $$$AssertEquals(..AxLeverancier.Email,"everyone@example.com")
@@ -311,10 +338,10 @@
 
 <Method name="Test EmailName en Email - email adres niet gekend">
 <Implementation><![CDATA[
-	Do ..Leverancier.IndienMethodCall("GeefEmail").DanReturn("")
+	Do ..Partij.IndienMethodCall("GeefEmail").DanReturn("")
 
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.EmailName,"")
 	Do $$$AssertEquals(..AxLeverancier.Email,"")
@@ -323,10 +350,10 @@
 
 <Method name="Test FaxName en Fax - faxnummer gekend">
 <Implementation><![CDATA[
-	Do ..Leverancier.IndienMethodCall("GeefTelefax").DanReturn(" 03/112.101")
+	Do ..Partij.IndienMethodCall("GeefTelefax").DanReturn(" 03/112.101")
 
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.TeleFaxName,"Fax")
 	Do $$$AssertEquals(..AxLeverancier.TeleFax,"03/112.101")
@@ -335,10 +362,10 @@
 
 <Method name="Test FaxName en Fax - faxnummer niet gekend">
 <Implementation><![CDATA[
-	Do ..Leverancier.IndienMethodCall("GeefTelefax").DanReturn("")
+	Do ..Partij.IndienMethodCall("GeefTelefax").DanReturn("")
 
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.TeleFaxName,"")
 	Do $$$AssertEquals(..AxLeverancier.TeleFax,"")
@@ -347,21 +374,21 @@
 
 <Method name="Test Currency">
 <Implementation><![CDATA[
-	Do ..Leverancier.IndienMethodCall("GeefMuntkode").DanReturn("EUR")
+	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 		
 	Do $$$AssertEquals(..AxLeverancier.Currency,"EUR")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: BTW variaties - Belgisch BTW-Nr">
 <Implementation><![CDATA[
-	Do ..Leverancier.IndienMethodCall("GeefBTWnr").DanReturn("BE0402775276")
+	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("BE0402775276")
 	
 	set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.EnterpriseNumber,"BTW BE 0402.775.276")
 	Do $$$AssertEquals(..AxLeverancier.VATNum,"")
@@ -370,10 +397,10 @@
 
 <Method name="Test: BTW variaties - Geen BTW-Nr">
 <Implementation><![CDATA[
-	Do ..Leverancier.IndienMethodCall("GeefBTWnr").DanReturn("")
+	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.EnterpriseNumber,"")
 	Do $$$AssertEquals(..AxLeverancier.VATNum,"")
@@ -382,10 +409,10 @@
 
 <Method name="Test: BTW variaties - Buitenlands BTW-Nr">
 <Implementation><![CDATA[
-	Do ..Leverancier.IndienMethodCall("GeefBTWnr").DanReturn("NL814120313B01")
+	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("NL814120313B01")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.EnterpriseNumber,"")
 	Do $$$AssertEquals(..AxLeverancier.VATNum,"814120313B01")
@@ -394,10 +421,10 @@
 
 <Method name="Test: BTW variaties - G">
 <Implementation><![CDATA[
-	Do ..Leverancier.IndienMethodCall("GeefBTWnr").DanReturn("G")
+	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("G")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.EnterpriseNumber,"")
 	Do $$$AssertEquals(..AxLeverancier.VATNum,"")
@@ -406,10 +433,10 @@
 
 <Method name="Test: BTW variaties - GEEN">
 <Implementation><![CDATA[
-	Do ..Leverancier.IndienMethodCall("GeefBTWnr").DanReturn("GEEN")
+	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("GEEN")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.EnterpriseNumber,"")
 	Do $$$AssertEquals(..AxLeverancier.VATNum,"")
@@ -418,10 +445,10 @@
 
 <Method name="Test: BTW variaties - BE met nullen">
 <Implementation><![CDATA[
-	Do ..Leverancier.IndienMethodCall("GeefBTWnr").DanReturn("BE0000000000")
+	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("BE0000000000")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.EnterpriseNumber,"BE 0000.000.097")
 	Do $$$AssertEquals(..AxLeverancier.VATNum,"")
@@ -434,7 +461,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"VOORUIT")
 	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
@@ -447,7 +474,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)	
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)	
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"REMBOURS")
 	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
@@ -460,7 +487,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("30D")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)	
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)	
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"NET30")
 	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
@@ -473,7 +500,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("8D")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"NET08")
 	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
@@ -486,7 +513,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("30DEM")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)	
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)	
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"EOM30")
 	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
@@ -499,7 +526,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("1M")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"NET30")
 	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
@@ -512,7 +539,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("2M")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"NET60")
 	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
@@ -525,7 +552,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("1MEM")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"EOM30")
 	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
@@ -538,7 +565,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("2MEM")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.PaymTermId,"EOM60")
 	Do $$$AssertEquals(..AxLeverancier.PaymMode,"OVER")
@@ -551,7 +578,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefTermijnKortingKontant").DanReturn("")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.UseCashDisc,"")
 ]]></Implementation>
@@ -563,7 +590,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefTermijnKortingKontant").DanReturn("")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.UseCashDisc,"08D1%")
 ]]></Implementation>
@@ -575,7 +602,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefTermijnKortingKontant").DanReturn("10D")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.UseCashDisc,"10D3%")
 ]]></Implementation>
@@ -587,7 +614,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefTermijnKortingKontant").DanReturn("0D")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.UseCashDisc,"08D3%")
 ]]></Implementation>
@@ -598,7 +625,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefBankRekeningNr").DanReturn("BE96230050972005")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.BankAccount,"1")
 ]]></Implementation>
@@ -609,7 +636,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefBankRekeningNr").DanReturn("")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
-	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.BankAccount,"")
 ]]></Implementation>