Index: vhUnitTest/AX/Uitgaand/common/impl/AifGenerator/Generate/Test.cls.xml
===================================================================
diff -u -r34759 -r34767
--- vhUnitTest/AX/Uitgaand/common/impl/AifGenerator/Generate/Test.cls.xml	(.../Test.cls.xml)	(revision 34759)
+++ vhUnitTest/AX/Uitgaand/common/impl/AifGenerator/Generate/Test.cls.xml	(.../Test.cls.xml)	(revision 34767)
@@ -79,6 +79,36 @@
 	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
 ]]></Implementation>
 </Method>
+
+<Method name="Test: PurchaseInvoice - Create">
+<Implementation><![CDATA[
+	do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer("01.05.2016")
+	
+	do ##class(TECH.Config.ConfigMgr).Instance().ZetString("AX_AIF",..GeefBestandLocatie()_"\AIF",..#Applicatie)
+	
+	do ##class(DOM.AKP.AankoopFactuur.data.AankoopFactuur).%KillExtent()
+	
+	set AankoopFactuur = ##class(DOM.AKP.AankoopFactuur.data.AankoopFactuur).%New()
+	set AankoopFactuur.LeverancierID = ##class(DOM.AKP.enu.Leverancier).Blum()
+	set AankoopFactuur.Datum = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+	set AankoopFactuur.VervalDatum = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()+20
+	set AankoopFactuur.FactuurIdLeverancier = 848153
+	set AankoopFactuur.Totaal = 105.53
+	set AankoopFactuur.KortingKontant = 3.17
+	set AankoopFactuur.MaatstafVanHeffing = 105.53
+	set AankoopFactuur.BoekingPeriode = "2016.05"
+	do AankoopFactuur.Boekingen.Insert(##class(DOM.AKP.AankoopFactuur.data.BoekhoudBoeking).%New(105.53,604100))
+	do AankoopFactuur.Save()
+	
+	set MessageManager = ##class(vhTest.Mock.AX.Uitgaand.common.impl.MessageManager).%New()
+	do MessageManager.IndienMethodCall("GenerateID").DanReturn("{12345678-ABCD-EFGH-1234-1234567890AB}")
+
+	set Generator = ##class(AX.Uitgaand.common.impl.AifGenerator).%New(MessageManager)
+	do Generator.Generate("PurchaseInvoice/Create",AankoopFactuur.GeefID())
+	
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/AKP/AankoopFactuur/impl/AankoopFactuurRepository.cls.xml
===================================================================
diff -u
--- DOM/AKP/AankoopFactuur/impl/AankoopFactuurRepository.cls.xml	(revision 0)
+++ DOM/AKP/AankoopFactuur/impl/AankoopFactuurRepository.cls.xml	(revision 34767)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.AKP.AankoopFactuur.impl.AankoopFactuurRepository">
+<Super>TECH.Persistentie.Repository</Super>
+
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>DOM.AKP.AankoopFactuur.data.AankoopFactuur</Default>
+</Parameter>
+</Class>
+
+
+</Export>
Index: DOM/AKP/AankoopFactuur/data/BoekhoudBoeking.cls.xml
===================================================================
diff -u
--- DOM/AKP/AankoopFactuur/data/BoekhoudBoeking.cls.xml	(revision 0)
+++ DOM/AKP/AankoopFactuur/data/BoekhoudBoeking.cls.xml	(revision 34767)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.AKP.AankoopFactuur.data.BoekhoudBoeking">
+<Super>%SerialObject</Super>
+
+<Property name="Bedrag">
+<Type>%Decimal</Type>
+<Parameter name="SCALE" value="2"/>
+</Property>
+
+<Property name="BoekhoudRekeningId">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Bedrag:%Decimal=0,BoekhoudRekeningId:%String=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..Bedrag = Bedrag
+	set ..BoekhoudRekeningId = BoekhoudRekeningId
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>BoekhoudBoekingState</State>
+<StreamLocation>^DOM.AKP.Aa7589.BoekhoudBoeE779S</StreamLocation>
+<Data name="BoekhoudBoekingState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>Bedrag</Value>
+</Value>
+<Value name="2">
+<Value>BoekhoudRekeningId</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: DOM/AKP/AankoopFactuur/data/AankoopFactuur.cls.xml
===================================================================
diff -u
--- DOM/AKP/AankoopFactuur/data/AankoopFactuur.cls.xml	(revision 0)
+++ DOM/AKP/AankoopFactuur/data/AankoopFactuur.cls.xml	(revision 34767)
@@ -0,0 +1,103 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.AKP.AankoopFactuur.data.AankoopFactuur">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="LeverancierID">
+<Type>%String</Type>
+</Property>
+
+<Property name="FactuurIdLeverancier">
+<Type>%String</Type>
+</Property>
+
+<Property name="Datum">
+<Type>%String</Type>
+</Property>
+
+<Property name="VervalDatum">
+<Type>%String</Type>
+</Property>
+
+<Property name="Totaal">
+<Type>%String</Type>
+</Property>
+
+<Property name="MaatstafVanHeffing">
+<Type>%String</Type>
+</Property>
+
+<Property name="BTW">
+<Type>%String</Type>
+</Property>
+
+<Property name="KortingKontant">
+<Type>%String</Type>
+</Property>
+
+<Property name="Munt">
+<Type>%String</Type>
+</Property>
+
+<Property name="BoekingPeriode">
+<Type>%String</Type>
+</Property>
+
+<Property name="Boekingen">
+<Type>DOM.AKP.AankoopFactuur.data.BoekhoudBoeking</Type>
+<Collection>list</Collection>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^DOM.AKP.Aan7589.AankoopFactuurD</DataLocation>
+<DefaultData>AankoopFactuurDefaultData</DefaultData>
+<IdLocation>^DOM.AKP.Aan7589.AankoopFactuurD</IdLocation>
+<IndexLocation>^DOM.AKP.Aan7589.AankoopFactuurI</IndexLocation>
+<StreamLocation>^DOM.AKP.Aan7589.AankoopFactuurS</StreamLocation>
+<Data name="AankoopFactuurDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>FactuurIdLeverancier</Value>
+</Value>
+<Value name="3">
+<Value>Datum</Value>
+</Value>
+<Value name="4">
+<Value>VervalDatum</Value>
+</Value>
+<Value name="5">
+<Value>Totaal</Value>
+</Value>
+<Value name="6">
+<Value>MaatstafVanHeffing</Value>
+</Value>
+<Value name="7">
+<Value>BTW</Value>
+</Value>
+<Value name="8">
+<Value>KortingKontant</Value>
+</Value>
+<Value name="9">
+<Value>Munt</Value>
+</Value>
+<Value name="10">
+<Value>BoekingPeriode</Value>
+</Value>
+<Value name="11">
+<Value>LeverancierID</Value>
+</Value>
+</Data>
+<Data name="Boekingen">
+<Attribute>Boekingen</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"Boekingen"</Subscript>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhTestFiles/UnitTests/AX.Uitgaand.common.impl.AifGenerator.Generate/Test/TestPurchaseInvoice-Create/AIF/Inbound/PurchaseInvoice-Create 1  - VHBE - 20160501_091500.xml
===================================================================
diff -u
--- vhTestFiles/UnitTests/AX.Uitgaand.common.impl.AifGenerator.Generate/Test/TestPurchaseInvoice-Create/AIF/Inbound/PurchaseInvoice-Create 1  - VHBE - 20160501_091500.xml	(revision 0)
+++ vhTestFiles/UnitTests/AX.Uitgaand.common.impl.AifGenerator.Generate/Test/TestPurchaseInvoice-Create/AIF/Inbound/PurchaseInvoice-Create 1  - VHBE - 20160501_091500.xml	(revision 34767)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Envelope xmlns="http://schemas.microsoft.com/dynamics/2011/01/documents/Message">
+  <Header>
+    <MessageId>{12345678-ABCD-EFGH-1234-1234567890AB}</MessageId>
+    <Company>VHBE</Company>
+    <Action>http://schemas.microsoft.com/dynamics/2008/01/services/GeneralJournalService/create</Action>
+  </Header>
+  <Body>
+    <MessageParts>
+      <LedgerGeneralJournal xmlns="http://schemas.microsoft.com/dynamics/2008/01/documents/LedgerGeneralJournal">
+        <LedgerJournalTable class="entity">
+          <JournalName>VHBE-AF</JournalName>
+          <Name>Van Hoecke aankoopfacturen interface</Name>
+          <LedgerJournalTrans class="entity">
+            <AccountType>Vend</AccountType>
+            <AmountCurDebit>0.00</AmountCurDebit>
+            <CashDiscAmount>0.00</CashDiscAmount>
+            <Company>VHBE</Company>
+            <Due>1846-07-09</Due>
+            <Invoice>FL||5005</Invoice>
+            <s01:LedgerDimension xmlns="http://schemas.microsoft.com/dynamics/2008/01/sharedtypes" xmlns:s01="http://schemas.microsoft.com/dynamics/2008/01/documents/LedgerGeneralJournal">
+              <DisplayValue>05005 - BLUM JULIUS GMBH</DisplayValue>
+              <Account>05005</Account>
+            </s01:LedgerDimension>
+            <LineNum>1.0000000000</LineNum>
+            <Listcode>IncludeNot</Listcode>
+            <OffsetAccountType>Ledger</OffsetAccountType>
+            <OffsetCompany>VHBE</OffsetCompany>
+            <TaxGroup>BIC</TaxGroup>
+            <TaxItemGroup>G3</TaxItemGroup>
+            <TransDate>1846-07-09</TransDate>
+            <Txt>BLUM JULIUS GMBH</Txt>
+            <Voucher>F1</Voucher>
+          </LedgerJournalTrans>
+        </LedgerJournalTable>
+      </LedgerGeneralJournal>
+    </MessageParts>
+  </Body>
+</Envelope>
Index: AX/Uitgaand/common/impl/AifGenerator.cls.xml
===================================================================
diff -u -r34762 -r34767
--- AX/Uitgaand/common/impl/AifGenerator.cls.xml	(.../AifGenerator.cls.xml)	(revision 34762)
+++ AX/Uitgaand/common/impl/AifGenerator.cls.xml	(.../AifGenerator.cls.xml)	(revision 34767)
@@ -78,6 +78,7 @@
 	
 	set:Command="Customer/Create" Message.Body.MessageParts.Customer = Converter.Convert(Id)
 	set:Command="SalesInvoice/Create" Message.Body.MessageParts.LedgerGeneralJournal = Converter.Convert(Id)
+	set:Command="PurchaseInvoice/Create" Message.Body.MessageParts.LedgerGeneralJournal = Converter.Convert(Id)
 	set:Command="Customer/Read" Message.Body.MessageParts.EntityKeyList = ..GeefEntityKeyList(Id)
 		
 	#dim Path As %String = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_AIF"),"Inbound")
@@ -98,6 +99,7 @@
 <Implementation><![CDATA[
 	quit:Command="Customer/Create" ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	quit:Command="SalesInvoice/Create" ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter).%New()
+	quit:Command="PurchaseInvoice/Create" ##class(AX.Uitgaand.BKH.AankoopFactuur.impl.AifConverter).%New()
 	quit $$$NULLOREF
 ]]></Implementation>
 </Method>
@@ -109,6 +111,7 @@
 <Implementation><![CDATA[
 	quit:Command="Customer/Create" "http://schemas.microsoft.com/dynamics/2008/01/services/CustomerService/create"
 	quit:Command="SalesInvoice/Create" "http://schemas.microsoft.com/dynamics/2008/01/services/GeneralJournalService/create"
+	quit:Command="PurchaseInvoice/Create" "http://schemas.microsoft.com/dynamics/2008/01/services/GeneralJournalService/create"
 	quit:Command="Customer/Read" "http://schemas.microsoft.com/dynamics/2008/01/services/CustomerService/read"
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/BKH/AankoopFactuur/impl/AifConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/BKH/AankoopFactuur/impl/AifConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/BKH/AankoopFactuur/impl/AifConverter.cls.xml	(revision 34767)
@@ -0,0 +1,157 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.BKH.AankoopFactuur.impl.AifConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="FirmaBepaler">
+<Type>AX.common.impl.FirmaBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AankoopAPI">
+<Type>DOM.AKP.AankoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AankoopFactuurRepository">
+<Type>DOM.AKP.AankoopFactuur.impl.AankoopFactuurRepository</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,AankoopFactuurRepository:DOM.AKP.AankoopFactuur.impl.AankoopFactuurRepository,AankoopAPI:DOM.AKP.AankoopAPI</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 ..AankoopAPI = $$$Inject(AankoopAPI,##class(DOM.DomeinContext).Instance().GeefAankoopAPI())
+	set ..AankoopFactuurRepository = ##class(DOM.AKP.AankoopFactuur.impl.AankoopFactuurRepository).%New()
+	set ..Formatter = ##class(AX.common.impl.Formatter).%New()
+		
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>FactuurId:%String</FormalSpec>
+<ReturnType>AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal</ReturnType>
+<Implementation><![CDATA[
+	#dim Factuur As AX.Uitgaand.BKH.AankoopFactuur.data.AankoopFactuurInboeking = ..AankoopFactuurRepository.GeefViaID(FactuurId)
+	
+	set LedgerGeneralJournal = ##class(AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal).%New()
+	do LedgerGeneralJournal.LedgerJournalTable.Insert(..GetJournalTable(Factuur))
+	quit LedgerGeneralJournal
+]]></Implementation>
+</Method>
+
+<Method name="GetJournalTable">
+<FormalSpec>Factuur:DOM.AKP.AankoopFactuur.data.AankoopFactuur</FormalSpec>
+<ReturnType>AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable</ReturnType>
+<Implementation><![CDATA[
+	set Table = ##class(AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable).%New()
+	set Table.class = "entity"
+	set Table.JournalName = ..FirmaBepaler.GeefInitialen()_"-AF"
+	set Table.Name = ..FirmaBepaler.GeefNaam()_" aankoopfacturen interface"
+	
+	do Table.LedgerJournalTrans.Insert(..GetVendTransaction(Factuur))
+	
+	
+	quit Table
+]]></Implementation>
+</Method>
+
+<Method name="GetLedgerTransaction">
+<FormalSpec>Factuur:DOM.AKP.AankoopFactuur.data.AankoopFactuur,Boeking:DOM.AKP.AankoopFactuur.data.BoekhoudBoeking,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.Bedrag,2)
+
+	set Transaction.LedgerDimension.Account = Boeking.BoekhoudRekeningId
+	set Transaction.LedgerDimension.DisplayValue = Boeking.BoekhoudRekeningId_"-"
+	quit Transaction
+]]></Implementation>
+</Method>
+
+<Method name="GetVendTransaction">
+<FormalSpec>Factuur:DOM.AKP.AankoopFactuur.data.AankoopFactuur</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans</ReturnType>
+<Implementation><![CDATA[
+	#dim Transaction As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans = ..MakeTransaction(Factuur,1)
+	set Transaction.AccountType = "Vend"
+	set Transaction.OffsetAccountType = "Ledger"
+	
+	set Transaction.TaxGroup = "BIC"
+	set Transaction.TaxItemGroup = "G3"
+	
+	set Transaction.CashDiscAmount = ..Formatter.FormatNumber(Factuur.KortingKontant,2)
+
+	set Transaction.AmountCurDebit = ..Formatter.FormatNumber(Factuur.Totaal,2)
+	
+	#dim Leverancier As DOM.AKP.Leverancier = ..AankoopAPI.GeefLeverancier(Factuur.LeverancierID)
+			
+	set Transaction.LedgerDimension.Account = ..Formatter.FormatAccountNumber(Leverancier.GeefCode())
+	set Transaction.LedgerDimension.DisplayValue = ..Formatter.FormatAccountNumber(Leverancier.GeefCode())_" - "_Leverancier.GeefNaam()
+	quit Transaction
+]]></Implementation>
+</Method>
+
+<Method name="MakeTransaction">
+<FormalSpec>Factuur:DOM.AKP.AankoopFactuur.data.AankoopFactuur,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 = ..FirmaBepaler.GeefInitialen()
+	set Transaction.Company = ..FirmaBepaler.GeefInitialen()
+	set Transaction.class = "entity"
+	set Transaction.CurrencyCode = Factuur.Munt
+	
+	set Transaction.TaxGroup = "BDOM"
+	set Transaction.TaxItemGroup = "G3"
+	
+	#dim Leverancier As DOM.AKP.Leverancier = ..AankoopAPI.GeefLeverancier(Factuur.LeverancierID)
+	#dim KortingPercentage As %String = ##class(TECH.Math).Round(##class(TECH.PercentageUtils).PercentageVanInclusief(Factuur.KortingKontant,Factuur.Totaal),0)
+	set:(Factuur.KortingKontant>0) Transaction.CashDiscCode = ..Formatter.FormatCashDiscount(,Leverancier.GeefTermijnKortingKontant())
+	
+	set Transaction.LineNum = ..Formatter.FormatNumber(ItemIndex,10)
+	
+	set Transaction.TransDate = Factuur.Datum
+	set Transaction.Due = Factuur.VervalDatum
+	 
+	set Transaction.Txt = ..AankoopAPI.GeefLeverancier(Factuur.LeverancierID).GeefNaam()
+	
+	set Transaction.Invoice = Factuur.FactuurIdLeverancier
+	set Transaction.Voucher = Factuur.GeefID()
+	
+	set Transaction.Listcode = "IncludeNot"
+	
+	quit Transaction
+]]></Implementation>
+</Method>
+
+<Method name="GetCashDiscCode">
+<FormalSpec>Factuur:DOM.AKP.AankoopFactuur.data.AankoopFactuur</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..Formatter.FormatCashDiscount(Leverancier.GeefKortingKontant(),Leverancier.GeefTermijnKortingKontant())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>