Index: AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml
===================================================================
diff -u -r35149 -r35213
--- AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 35149)
+++ AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 35213)
@@ -60,7 +60,7 @@
 	Set AxUnpaidInvoice = ##class(AXdixf.UnpaidInvoice.UnpaidInvoice).%New()
 	Set AxUnpaidInvoice.JournalNum = "GL01000001"
 	Set AxUnpaidInvoice.JournalName = "OP"
-	Set AxUnpaidInvoice.Voucher =  "OP16"_##class(TECH.StringUtils).AlignRight(LineNum,0,6)
+	Set AxUnpaidInvoice.Voucher = "OP1601"_##class(TECH.StringUtils).AlignRight(LineNum,0,4)
 	Set AxUnpaidInvoice.LineNum = LineNum
 	Set AxUnpaidInvoice.TransDate = ##class(TECH.Context).Instance().GeefFormatAPI().FormatDate(OpenstaandeVerkoopFactuur.GeefFactuurDatum(),"DD/MM/JJJJ")
 	Set AxUnpaidInvoice.Company = ..FirmaBepaler.GeefInitialen()
Index: vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml
===================================================================
diff -u -r35159 -r35213
--- vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 35159)
+++ vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 35213)
@@ -243,7 +243,7 @@
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
 	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur, 12)
 	
-	Do $$$AssertEquals(..AxUnpaidInvoice.Voucher,"OP16000012","")
+	Do $$$AssertEquals(..AxUnpaidInvoice.Voucher,"OP16010012","")
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/BKH/GrootboekRekeningSaldi/impl/DixfConverter.cls.xml
===================================================================
diff -u -r35191 -r35213
--- AX/Uitgaand/BKH/GrootboekRekeningSaldi/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 35191)
+++ AX/Uitgaand/BKH/GrootboekRekeningSaldi/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 35213)
@@ -34,7 +34,7 @@
 	Set AxUnpaidInvoice = ##class(AXdixf.UnpaidInvoice.UnpaidInvoice).%New()
 	Set AxUnpaidInvoice.JournalNum = "GL01000003"
 	Set AxUnpaidInvoice.JournalName = "OP"
-	Set AxUnpaidInvoice.Voucher =  "OP16000001"
+	Set AxUnpaidInvoice.Voucher = "OP16001000"
 	Set AxUnpaidInvoice.LineNum = LineNum
 	Set AxUnpaidInvoice.TransDate = "30/06/2016"
 	Set AxUnpaidInvoice.Company = ..FirmaBepaler.GeefInitialen()