Index: vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml
===================================================================
diff -u -r33858 -r33859
--- vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 33858)
+++ vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 33859)
@@ -69,6 +69,7 @@
 	#dim PostalAddres As AXaif.Customer.AxdEntityDirPartyPostalAddressView = Party.DirPartyPostalAddressView.GetAt(1)
 	
 	do $$$AssertEquals(PostalAddres.IsPrimary,"Yes")
+	do $$$AssertEquals(PostalAddres.Roles,"Business")
 	do $$$AssertEquals(PostalAddres.CountryRegionId,"BEL")
 	do $$$AssertEquals(PostalAddres.Street,"Kemzekestraat 6")
 	do $$$AssertEquals(PostalAddres.ZipCode,"9170")
@@ -281,6 +282,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: KortingContant variaties - Geen termijn wel korting contant">
+<Implementation><![CDATA[
+	do ..Klant.IndienMethodCall("GeefKortingContantPercentage").DanReturn(2)
+	do ..Klant.IndienMethodCall("GeefKortingContantTermijn").DanReturn("0D")
+
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	
+	do $$$AssertEquals(CustTable.CashDisc,"08D2%")
+]]></Implementation>
+</Method>
+
 <Method name="Test: KortingContant variaties - Korting contant en geen termijn">
 <Implementation><![CDATA[
 	do ..Klant.IndienMethodCall("GeefKortingContantPercentage").DanReturn(1)
@@ -657,7 +671,7 @@
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
-	do $$$AssertEquals(CustTable.Blocked,$$$false)
+	do $$$AssertEquals(CustTable.Blocked,"")
 ]]></Implementation>
 </Method>
 
@@ -668,7 +682,7 @@
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
-	do $$$AssertEquals(CustTable.Blocked,$$$True)
+	do $$$AssertEquals(CustTable.Blocked,"Invoice")
 ]]></Implementation>
 </Method>