Index: vhTest/Fake/AX/common/impl/FirmaBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/AX/common/impl/FirmaBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/AX/common/impl/FirmaBepaler.cls.xml	(revision 33963)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.AX.common.impl.FirmaBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AX.common.impl.FirmaBepaler</Super>
+
+<Method name="GeefInitialen">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/common/impl/FirmaBepaler.cls.xml
===================================================================
diff -u
--- AX/common/impl/FirmaBepaler.cls.xml	(revision 0)
+++ AX/common/impl/FirmaBepaler.cls.xml	(revision 33963)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.common.impl.FirmaBepaler">
+<Super>TECH.Mockable</Super>
+
+<Property name="InterneFirmaBepaler">
+<Type>DOM.common.InterneFirmaBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>InterneFirmaBepaler:DOM.common.InterneFirmaBepaler</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..InterneFirmaBepaler = $$$Inject(InterneFirmaBepaler,##class(DOM.common.impl.InterneFirmaBepaler).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim InterneFirma As DOM.common.enu.InterneFirma = ..InterneFirmaBepaler.GeefInterneFirma()
+	
+	quit:(InterneFirma=##class(DOM.common.enu.InterneFirma).VanHoeckeNv()) "Van Hoecke"
+	quit:(InterneFirma=##class(DOM.common.enu.InterneFirma).HaluxNv()) "Halux"
+	quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefInitialen">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..InterneFirmaBepaler.GeefInterneFirmaInitialen()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/AX/common/impl/FirmaBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/AX/common/impl/FirmaBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/AX/common/impl/FirmaBepaler.cls.xml	(revision 33963)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.AX.common.impl.FirmaBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AX.common.impl.FirmaBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefInitialen">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefInitialen")
+]]></Implementation>
+</Method>
+
+<Method name="GeefNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefNaam")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/BKH/VerkoopFactuur/impl/AifGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/BKH/VerkoopFactuur/impl/AifGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/BKH/VerkoopFactuur/impl/AifGenerator.cls.xml	(revision 33963)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.BKH.VerkoopFactuur.impl.AifGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="FileAPI">
+<Type>TECH.File.FileAPI</Type>
+</Property>
+
+<Property name="BoekhoudingAPI">
+<Type>DOM.BKH.BoekhoudingAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Converter">
+<Type>AX.Uitgaand.BKH.VerkoopFactuur.AifConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..FileAPI = ##class(TECH.Context).Instance().GeefFileAPI()
+	set ..BoekhoudingAPI = ##class(DOM.DomeinContext).Instance().GeefBoekhoudingAPI()
+	set ..Converter = ##class(AX.Uitgaand.BKH.VerkoopFactuur.AifConverter).%New()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>FactuurId:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Factuur As DOM.BKH.VerkoopFactuur = ..BoekhoudingAPI.GeefVerkoopFactuur(FactuurId)
+		
+	set Message = ##class(AXaif.Message.Envelope).%New()
+	set Message.Header = ##class(AXaif.Message.Header).%New()
+	set Message.Header.MessageId = "{"_$system.Util.CreateGUID()_"}"
+	set Message.Header.Company = "PRBE"
+	set Message.Header.Action = "http://schemas.microsoft.com/dynamics/2008/01/services/GeneralJournalService/create"
+	set Message.Body = ##class(AXaif.Message.Body).%New()
+	set Message.Body.MessageParts = ##class(AXaif.Message.MessageParts).%New()
+	set Message.Body.MessageParts.LedgerGeneralJournal = ..Converter.Convert(Factuur)
+		
+	#dim Path As %String = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"),"AIF\Incomming")
+	#dim Filename As %String = FactuurId_" "_##class(TECH.Files).GeefCurrentTimeStamp()_" .xml"
+	#dim FullFilename As %String = ##class(TECH.Files).AppendFile(Path,Filename)
+		
+	#dim FileWriter As TECH.File.FileWriter = ..FileAPI.GeefFileWriter()
+	do FileWriter.Open(FullFilename,$$$False)
+	do FileWriter.WriteXML(Message)
+	do FileWriter.Close()
+	
+	quit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/BKH/VerkoopFactuur/impl/AifConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/BKH/VerkoopFactuur/impl/AifConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/BKH/VerkoopFactuur/impl/AifConverter.cls.xml	(revision 33963)
@@ -0,0 +1,110 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.BKH.VerkoopFactuur.impl.AifConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="FirmaBepaler">
+<Type>AX.common.impl.FirmaBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Formatter">
+<Type>AX.common.impl.Formatter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>FirmaBepaler:AX.common.impl.FirmaBepaler</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..FirmaBepaler = $$$Inject(FirmaBepaler,##class(AX.common.impl.FirmaBepaler).%New())
+	set ..Formatter = ##class(AX.common.impl.Formatter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>Factuur:DOM.BKH.VerkoopFactuur</FormalSpec>
+<ReturnType>AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal</ReturnType>
+<Implementation><![CDATA[
+	set LedgerGeneralJournal = ##class(AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal).%New()
+	do LedgerGeneralJournal.LedgerJournalTable.Insert(..GetJournalTable(Factuur))
+	quit LedgerGeneralJournal
+]]></Implementation>
+</Method>
+
+<Method name="GetJournalTable">
+<FormalSpec>Factuur:DOM.BKH.VerkoopFactuur</FormalSpec>
+<ReturnType>AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable</ReturnType>
+<Implementation><![CDATA[
+	set Table = ##class(AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable).%New()
+	set Table.class = "entity"
+	set Table.JournalName = ..FirmaBepaler.GeefInitialen()_"-VF"
+	set Table.Name = ..FirmaBepaler.GeefNaam()_" verkoopfacturen interface"
+	
+	do Table.LedgerJournalTrans.Insert(..GetCustTransaction(Factuur))
+	
+	#dim BoekingIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Factuur.GeefBoekingen())
+	while BoekingIterator.HasNext() {
+		#dim Boeking As DOM.BKH.FactuurBoeking = BoekingIterator.Next()
+		do Table.LedgerJournalTrans.Insert(..GetLedgerTransaction(Factuur,Boeking,BoekingIterator.Key()))
+	}
+	quit Table
+]]></Implementation>
+</Method>
+
+<Method name="GetLedgerTransaction">
+<FormalSpec>Factuur:DOM.BKH.VerkoopFactuur,Boeking:DOM.BKH.FactuurBoeking,BoekingIndex:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans</ReturnType>
+<Implementation><![CDATA[
+	#dim Transaction As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans = ..MakeTransaction(Factuur,BoekingIndex+1)
+	set Transaction.AccountType = "Ledger"
+	set Transaction.AmountCurCredit = ..Formatter.FormatNumber(Boeking.GeefBedrag(),2)
+	set Transaction.LedgerDimension.Account = Boeking.GeefBoekhoudRekeningNr()
+	set Transaction.LedgerDimension.DisplayValue = Boeking.GeefBoekhoudRekeningNr()_"-"
+	quit Transaction
+]]></Implementation>
+</Method>
+
+<Method name="GetCustTransaction">
+<FormalSpec>Factuur:DOM.BKH.VerkoopFactuur</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans</ReturnType>
+<Implementation><![CDATA[
+	#dim Transaction As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans = ..MakeTransaction(Factuur,1)
+	set Transaction.AccountType = "Cust"
+	set Transaction.OffsetAccountType = "Ledger"
+	set Transaction.AmountCurDebit = ..Formatter.FormatNumber(Factuur.GeefTotaalBedrag(),2)
+	set Transaction.LedgerDimension.Account = ..Formatter.FormatCustNumber(Factuur.GeefKlantNr())
+	set Transaction.LedgerDimension.DisplayValue = ..Formatter.FormatCustNumber(Factuur.GeefKlantNr())_" - "_Factuur.GeefKlantNaam()
+	quit Transaction
+]]></Implementation>
+</Method>
+
+<Method name="MakeTransaction">
+<FormalSpec>Factuur:DOM.BKH.VerkoopFactuur,ItemIndex:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans</ReturnType>
+<Implementation><![CDATA[
+	set Transaction = ##class(AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans).%New()
+	set Transaction.LedgerDimension = ##class(AXaif.Shared.AxdTypeMultiTypeAccount).%New()
+	set Transaction.OffsetAccountType = "Ledger"
+	set Transaction.OffsetCompany = "prbe"
+	set Transaction.Company = "prbe"
+	set Transaction.class = "entity"
+	set Transaction.CurrencyCode = Factuur.GeefMunt()
+	set Transaction.LineNum = ..Formatter.FormatNumber(ItemIndex,10)
+	set Transaction.TransDate = ..Formatter.FormatDate(Factuur.GeefDatum())
+	set Transaction.Txt = Factuur.GeefKlantNaam()
+	set Transaction.Voucher = "F"_Factuur.GeefID()
+	quit Transaction
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/common/impl/Formatter.cls.xml
===================================================================
diff -u
--- AX/common/impl/Formatter.cls.xml	(revision 0)
+++ AX/common/impl/Formatter.cls.xml	(revision 33963)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.common.impl.Formatter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Formatter">
+<Type>TECH.Format.FormatAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..Formatter = ##class(TECH.Context).Instance().GeefFormatAPI()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="FormatNumber">
+<FormalSpec>Number:%String,Decimals:%String</FormalSpec>
+<Implementation><![CDATA[	quit ..Formatter.FormatNumber(Number,Decimals,".")
+]]></Implementation>
+</Method>
+
+<Method name="FormatCustNumber">
+<FormalSpec>Number:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.StringUtils).AlignRight(Number,0,5)
+]]></Implementation>
+</Method>
+
+<Method name="FormatDate">
+<FormalSpec>Date:%Date</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..Formatter.FormatDate(Date,"JJJJ-MM-DD")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AX/Uitgaand/BKH/VerkoopFactuur/impl/AifConverter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AX/Uitgaand/BKH/VerkoopFactuur/impl/AifConverter/Test.cls.xml	(revision 0)
+++ vhUnitTest/AX/Uitgaand/BKH/VerkoopFactuur/impl/AifConverter/Test.cls.xml	(revision 33963)
@@ -0,0 +1,137 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AX.Uitgaand.BKH.VerkoopFactuur.impl.AifConverter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="VerkoopFactuur">
+<Type>vhTest.Mock.DOM.BKH.VerkoopFactuur</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestname:%String</FormalSpec>
+<Implementation><![CDATA[
+	set ..VerkoopFactuur = ##class(vhTest.Mock.DOM.BKH.VerkoopFactuur).%New()
+	do ..VerkoopFactuur.IndienMethodCall("GeefID").DanReturn(123456)
+	do ..VerkoopFactuur.IndienMethodCall("GeefTotaalBedrag").DanReturn(121)
+	do ..VerkoopFactuur.IndienMethodCall("GeefMunt").DanReturn("EUR")
+	do ..VerkoopFactuur.IndienMethodCall("GeefKlantNr").DanReturn("1234")
+	do ..VerkoopFactuur.IndienMethodCall("GeefDatum").DanReturn($$$DummyDate)
+	do ..VerkoopFactuur.IndienMethodCall("GeefKlantNaam").DanReturn("DE KLANTNAAM")
+	
+	set Boekingen = ##class(DOM.BKH.FactuurBoekingList).%New()
+	do Boekingen.Insert(##class(vhTest.Fake.DOM.BKH.FactuurBoeking).%New(100,700000))
+	do ..VerkoopFactuur.IndienMethodCall("GeefBoekingen").DanReturn(Boekingen)
+]]></Implementation>
+</Method>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	set Converter = ##class(AX.Uitgaand.BKH.VerkoopFactuur.impl.AifConverter).%New()
+	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(..VerkoopFactuur) 
+	
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournal.LedgerJournalTable.GetAt(1)
+	do ..AssertJournalTableBasisInfo(JournalTable)
+	do ..AssertKlantGerelateerdeGegevensZittenInEersteTransactie(JournalTable.LedgerJournalTrans.GetAt(1))
+	do ..AssertGrootboekGerelateerdeGegevensZittenInDeTweedeTransactie(JournalTable.LedgerJournalTrans.GetAt(2))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Journal name afhankelijk van de firma">
+<Implementation><![CDATA[
+	set FirmaBepaler = ##class(vhTest.Mock.AX.common.impl.FirmaBepaler).%New()
+	do FirmaBepaler.IndienMethodCall("GeefInitialen").DanReturn("HX")
+	do FirmaBepaler.IndienMethodCall("GeefNaam").DanReturn("Halux")
+	
+	set Converter = ##class(AX.Uitgaand.BKH.VerkoopFactuur.impl.AifConverter).%New(FirmaBepaler)
+	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(..VerkoopFactuur)
+
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournal.LedgerJournalTable.GetAt(1)
+	do $$$AssertEquals(JournalTable.JournalName,"HX-VF")
+	do $$$AssertEquals(JournalTable.Name,"Halux verkoopfacturen interface")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Een factuur met één boekingslijn bevat twee transacties één voor de klant en een voor de grootberekening">
+<Implementation><![CDATA[
+	set Boekingen = ##class(DOM.BKH.FactuurBoekingList).%New()
+	do Boekingen.Insert(##class(vhTest.Fake.DOM.BKH.FactuurBoeking).%New(100,700000))
+	do ..VerkoopFactuur.IndienMethodCall("GeefBoekingen").DanReturn(Boekingen)
+	
+	set Converter = ##class(AX.Uitgaand.BKH.VerkoopFactuur.impl.AifConverter).%New()
+	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(..VerkoopFactuur)
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournal.LedgerJournalTable.GetAt(1)
+	
+	if $$$AssertEquals(JournalTable.LedgerJournalTrans.Count(),2) {
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).AccountType,"Cust")	
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).AccountType,"Ledger")	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: Een factuur met twee boekingslijnen bevat drie transacties één voor de klant en twee voor de grootberekening">
+<Implementation><![CDATA[
+	set Boekingen = ##class(DOM.BKH.FactuurBoekingList).%New()
+	do Boekingen.Insert(##class(vhTest.Fake.DOM.BKH.FactuurBoeking).%New(50,700000))
+	do Boekingen.Insert(##class(vhTest.Fake.DOM.BKH.FactuurBoeking).%New(50,700100))
+	do ..VerkoopFactuur.IndienMethodCall("GeefBoekingen").DanReturn(Boekingen)
+	
+	set Converter = ##class(AX.Uitgaand.BKH.VerkoopFactuur.impl.AifConverter).%New()
+	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(..VerkoopFactuur)
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournal.LedgerJournalTable.GetAt(1)
+	
+	if $$$AssertEquals(JournalTable.LedgerJournalTrans.Count(),3) {
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).AccountType,"Cust")	
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).AccountType,"Ledger")	
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).AccountType,"Ledger")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AssertJournalTableBasisInfo">
+<FormalSpec>JournalTable:AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do $$$AssertEquals(JournalTable.class,"entity")
+	do $$$AssertEquals(JournalTable.JournalName,"VH-VF")
+	do $$$AssertEquals(JournalTable.Name,"Van Hoecke verkoopfacturen interface")
+]]></Implementation>
+</Method>
+
+<Method name="AssertKlantGerelateerdeGegevensZittenInEersteTransactie">
+<FormalSpec>Transactie:AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do $$$AssertEquals(Transactie.AccountType,"Cust")
+	do $$$AssertEquals(Transactie.AmountCurDebit,"121.00")
+	do $$$AssertEquals(Transactie.CurrencyCode,"EUR")
+	do $$$AssertEquals(Transactie.LedgerDimension.Account,"01234")
+	do $$$AssertEquals(Transactie.LedgerDimension.DisplayValue,"01234 - DE KLANTNAAM")
+	do $$$AssertEquals(Transactie.LineNum,"1.0000000000")
+	do $$$AssertEquals(Transactie.OffsetAccountType,"Ledger")
+	do $$$AssertEquals(Transactie.Txt,"DE KLANTNAAM")
+	do $$$AssertEquals(Transactie.TransDate,"2011-06-30")
+	do $$$AssertEquals(Transactie.Voucher,"F123456")
+]]></Implementation>
+</Method>
+
+<Method name="AssertGrootboekGerelateerdeGegevensZittenInDeTweedeTransactie">
+<FormalSpec>Transactie:AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do $$$AssertEquals(Transactie.AccountType,"Ledger")
+	do $$$AssertEquals(Transactie.AmountCurCredit,"100.00")
+	do $$$AssertEquals(Transactie.CurrencyCode,"EUR")
+	do $$$AssertEquals(Transactie.LedgerDimension.Account,"700000")
+	do $$$AssertEquals(Transactie.LedgerDimension.DisplayValue,"700000-")
+	do $$$AssertEquals(Transactie.LineNum,"2.0000000000")
+	do $$$AssertEquals(Transactie.OffsetAccountType,"Ledger")
+	do $$$AssertEquals(Transactie.Txt,"DE KLANTNAAM")
+	do $$$AssertEquals(Transactie.TransDate,"2011-06-30")
+	do $$$AssertEquals(Transactie.Voucher,"F123456")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml
===================================================================
diff -u -r33859 -r33963
--- AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 33859)
+++ AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 33963)
@@ -3,6 +3,22 @@
 <Class name="AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="Formatter">
+<Type>AX.common.impl.Formatter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..Formatter = ##class(AX.common.impl.Formatter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Convert">
 <FormalSpec>Partij:DOM.PARTIJ.Partij,Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
 <ReturnType>AXaif.Customer.AxdCustomer</ReturnType>
@@ -11,7 +27,7 @@
 	
 	set Custable = ##class(AXaif.Customer.AxdEntityCustTable).%New()
 	set Custable.class = "entity"
-	set Custable.AccountNum = ##class(TECH.StringUtils).AlignRight(Partij.GeefCode(),0,5)
+	set Custable.AccountNum = ..Formatter.FormatCustNumber(Partij.GeefCode())
 	set Custable.Blocked = $$$If(Klant.GeefCommercieleStatus()=##class(DOM.CRM.enu.CommercieleStatus).Actief(),"","Invoice")
 	set Custable.CashDisc = ..FormatCashDisc(Klant)
 	set Custable.Currency = "EUR"