Index: vhUnitTest/AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/impl/TransactionRepository/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/impl/TransactionRepository/Test.cls.xml	(revision 0)
+++ vhUnitTest/AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/impl/TransactionRepository/Test.cls.xml	(revision 34739)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.impl.TransactionRepository.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	do ##class(TECH.Config.ConfigMgr).Instance().ZetString("AX_BKH_OpenstaandeVerkoopFactuur_Transaction_Storage","Local",..#Applicatie)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Maak">
+<Implementation><![CDATA[
+	set Repo = ##class(AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.impl.TransactionRepository).%New()
+	#dim Transaction As AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.data.Transactions = Repo.Maak()
+	do $$$AssertEquals($classname(Transaction),"AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.data.TransactionsLocal")
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefViaID">
+<Implementation><![CDATA[
+	do ##class(AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.data.TransactionsLocal).%DeleteExtent()
+	
+	do ##class(vhTest.Utils.AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.data.TransactionLocal).Maak(1)
+	
+	set Repo = ##class(AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.impl.TransactionRepository).%New()
+	#dim Transaction As AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.data.Transactions = Repo.GeefViaID("100000001")
+	do $$$AssertEquals(Transaction.RECID,"100000001")
+	
+	do ##class(AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.data.TransactionsLocal).%DeleteExtent()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/impl/TransactionRepository.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/impl/TransactionRepository.cls.xml	(revision 0)
+++ AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/impl/TransactionRepository.cls.xml	(revision 34739)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.impl.TransactionRepository">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ClassMethodExecuter">
+<Type>TECH.Executer.ClassMethod</Type>
+</Property>
+
+<Property name="ClassName">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..ClassMethodExecuter = ##class(TECH.Executer.impl.ClassMethod).%New()
+	set ..ClassName = "AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.data.Transactions"_##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_BKH_OpenstaandeVerkoopFactuur_Transaction_Storage")
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Maak">
+<ReturnType>AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.data.Transactions</ReturnType>
+<Implementation><![CDATA[	quit ..ClassMethodExecuter.Function(..ClassName,"%New")
+]]></Implementation>
+</Method>
+
+<Method name="GeefViaID">
+<FormalSpec>Id:%String</FormalSpec>
+<Implementation><![CDATA[	quit ..ClassMethodExecuter.Function(..ClassName,"%OpenId",Id)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/data/TransactionLocal.cls.xml
===================================================================
diff -u
--- vhTest/Utils/AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/data/TransactionLocal.cls.xml	(revision 0)
+++ vhTest/Utils/AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/data/TransactionLocal.cls.xml	(revision 34739)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.data.TransactionLocal">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Maak">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Aantal:%Integer=1</FormalSpec>
+<Implementation><![CDATA[
+	#dim Counter As %Integer
+	for Counter = 1 : 1 : Aantal {
+		set TransactionsLocal = ##class(AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.data.TransactionsLocal).%New()
+		set TransactionsLocal.AMOUNTCHANGED = "2016-04-26 12:32:49"
+		set TransactionsLocal.AMOUNTCHANGEDTZID = "37001"
+		set TransactionsLocal.AMOUNTCUR = "5683.3000000000000000"
+		set TransactionsLocal.CREATEDDATETIME = "2016-04-26 12:32:49"
+		set TransactionsLocal.CUSTACCOUNT = "000000001"
+		set TransactionsLocal.DATAAREAID = "prbe"
+		set TransactionsLocal.INVOICEAMOUNTCUR = "5683.3000000000000000"
+		set TransactionsLocal.INVOICEID = ""
+		set TransactionsLocal.MODIFIEDDATETIME = "2016-04-26 13:18:54"
+		set TransactionsLocal.PARTITION = "5637144"_##class(TECH.StringUtils).AlignRight(Aantal,0,3)
+		set TransactionsLocal.RECID = "1"_##class(TECH.StringUtils).AlignRight(Aantal,0,8)
+		set TransactionsLocal.RECVERSION = "15446"_##class(TECH.StringUtils).AlignRight(Aantal,0,3)
+		set TransactionsLocal.TRANSACTIONID = "16"
+		set TransactionsLocal.VOUCHER = "F"_##class(TECH.StringUtils).AlignRight(Aantal,0,6)
+		do TransactionsLocal.Save()	
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>