Index: vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml	(revision 0)
+++ vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml	(revision 34844)
@@ -0,0 +1,135 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Partij">
+<Type>vhTest.Mock.DOM.PARTIJ.Partij</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Factuur">
+<Type>vhTest.Mock.DOM.VKP.Factuur</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AxUnpaidInvoice">
+<Type>AXdixf.UnpaidInvoice.UnpaidInvoice</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..Partij = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
+	Do ..Partij.IndienMethodCall("GeefID").DanReturn("K||1234")
+	
+	Set ..Factuur = ##class(vhTest.Mock.DOM.VKP.Factuur).%New()
+	Do ..Factuur.IndienMethodCall("GeefID").DanReturn("1000")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Left padding LedgerDimension">
+<Implementation><![CDATA[
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
+	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	
+	Do $$$AssertEquals(..AxUnpaidInvoice.LedgerDimension,"01234","")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Factuurnummer">
+<Implementation><![CDATA[
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
+	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	
+	Do $$$AssertEquals(..AxUnpaidInvoice.Invoice,"1000","")
+]]></Implementation>
+</Method>
+
+<Method name="Test: hardcoded JournalNum">
+<Implementation><![CDATA[
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
+	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	
+	Do $$$AssertEquals(..AxUnpaidInvoice.JournalNum,"GL01000001","")
+]]></Implementation>
+</Method>
+
+<Method name="Test: hardcoded JournalName">
+<Implementation><![CDATA[
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
+	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	
+	Do $$$AssertEquals(..AxUnpaidInvoice.JournalName,"OP","")
+]]></Implementation>
+</Method>
+
+<Method name="Test: hardcoded TransDate">
+<Implementation><![CDATA[
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
+	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	
+	Do $$$AssertEquals(..AxUnpaidInvoice.TransDate,"30/06/2016","")
+]]></Implementation>
+</Method>
+
+<Method name="Test: hardcoded AccountType">
+<Implementation><![CDATA[
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
+	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	
+	Do $$$AssertEquals(..AxUnpaidInvoice.AccountType,"2","")
+]]></Implementation>
+</Method>
+
+<Method name="Test: hardcoded Txt">
+<Implementation><![CDATA[
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
+	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	
+	Do $$$AssertEquals(..AxUnpaidInvoice.Txt,"Open leverancier 30/06/2016","")
+]]></Implementation>
+</Method>
+
+<Method name="Test: hardcoded OffsetAccountType">
+<Implementation><![CDATA[
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
+	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	
+	Do $$$AssertEquals(..AxUnpaidInvoice.OffsetAccountType,"0","")
+]]></Implementation>
+</Method>
+
+<Method name="Test: hardcoded OffsetLedgerDimension">
+<Implementation><![CDATA[
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
+	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	
+	Do $$$AssertEquals(..AxUnpaidInvoice.OffsetLedgerDimension,"499020","")
+]]></Implementation>
+</Method>
+
+<Method name="Test: hardcoded CurrencyCode">
+<Implementation><![CDATA[
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
+	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	
+	Do $$$AssertEquals(..AxUnpaidInvoice.CurrencyCode,"EUR","")
+]]></Implementation>
+</Method>
+
+<Method name="Test: hardcoded ExchRate">
+<Implementation><![CDATA[
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
+	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	
+	Do $$$AssertEquals(..AxUnpaidInvoice.ExchRate,"1","")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml	(revision 34844)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Convert">
+<FormalSpec>Partij:DOM.PARTIJ.Partij,Factuur:DOM.BKH.impl.DataM.DataMFactuur</FormalSpec>
+<ReturnType>AXdixf.UnpaidInvoice.UnpaidInvoice</ReturnType>
+<Implementation><![CDATA[
+	Set AxUnpaidInvoice = ##class(AXdixf.UnpaidInvoice.UnpaidInvoice).%New()
+	Set AxUnpaidInvoice.JournalNum = "GL01000001"
+	Set AxUnpaidInvoice.JournalName = "OP"
+	Set AxUnpaidInvoice.Voucher =  "OP1234"
+	Set AxUnpaidInvoice.LineNum = "1234"
+	Set AxUnpaidInvoice.TransDate = "30/06/2016"
+	Set AxUnpaidInvoice.Company = "VHBE"
+	Set AxUnpaidInvoice.AccountType = "2"
+	Set AxUnpaidInvoice.LedgerDimension = ##class(AX.common.impl.ConvertAdminToAX).ConvertCustomerID(Partij.GeefID())
+	Set AxUnpaidInvoice.Txt = "Open leverancier 30/06/2016"
+	Set AxUnpaidInvoice.OffsetCompany = "VHBE"
+	Set AxUnpaidInvoice.OffsetAccountType = "0"
+	Set AxUnpaidInvoice.OffsetLedgerDimension = "499020"
+	Set AxUnpaidInvoice.AmountCurDebit = "0"
+	Set AxUnpaidInvoice.AmountCurCredit  ="125000"
+	Set AxUnpaidInvoice.CurrencyCode = "EUR"
+	Set AxUnpaidInvoice.ExchRate = "1"
+	Set AxUnpaidInvoice.Invoice = Factuur.GeefID()
+	Set AxUnpaidInvoice.Due = "31/07/2016"
+	Set AxUnpaidInvoice.CashDiscCode = "20EOM3%"
+	Set AxUnpaidInvoice.DateCashDisc = "20/07/2016"
+	Set AxUnpaidInvoice.CashDiscAmount = "-370"
+	Set AxUnpaidInvoice.DocumentNum = "ADMIN NR xxx"
+	Set AxUnpaidInvoice.DocumentDate = "15/06/2016"
+	Set AxUnpaidInvoice.PaymMode = "SEPA"
+	
+	Quit AxUnpaidInvoice
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>