Index: vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml
===================================================================
diff -u -r34846 -r34848
--- vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 34846)
+++ vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 34848)
@@ -43,13 +43,26 @@
 
 <Method name="Test: Factuurnummer">
 <Implementation><![CDATA[
+	Do ..Factuur.IndienMethodCall("GeefID").DanReturn("10001")
+	
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
 	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
 	
-	Do $$$AssertEquals(..AxUnpaidInvoice.Invoice,"1000","")
+	Do $$$AssertEquals(..AxUnpaidInvoice.Invoice,"10001","")
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Factuurnummer in DocumentNum">
+<Implementation><![CDATA[
+	Do ..Factuur.IndienMethodCall("GeefID").DanReturn("10001")
+	
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
+	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	
+	Do $$$AssertEquals(..AxUnpaidInvoice.DocumentNum,"10001","")
+]]></Implementation>
+</Method>
+
 <Method name="Test: hardcoded JournalNum">
 <Implementation><![CDATA[
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
Index: AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml
===================================================================
diff -u -r34846 -r34848
--- AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34846)
+++ AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34848)
@@ -47,7 +47,7 @@
 	Set AxUnpaidInvoice.CashDiscCode = "20EOM3%"
 	Set AxUnpaidInvoice.DateCashDisc = "20/07/2016"
 	Set AxUnpaidInvoice.CashDiscAmount = "-370"
-	Set AxUnpaidInvoice.DocumentNum = "ADMIN NR xxx"
+	Set AxUnpaidInvoice.DocumentNum = Factuur.GeefID()
 	Set AxUnpaidInvoice.DocumentDate = "15/06/2016"
 	Set AxUnpaidInvoice.PaymMode = "SEPA"