Index: AX/Uitgaand/BKH/GrootboekRekeningSaldi/impl/SaldiIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/BKH/GrootboekRekeningSaldi/impl/SaldiIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/BKH/GrootboekRekeningSaldi/impl/SaldiIterator.cls.xml	(revision 34928)
@@ -0,0 +1,74 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.BKH.GrootboekRekeningSaldi.impl.SaldiIterator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Iterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Converter">
+<Type>AX.Uitgaand.BKH.GrootboekRekeningSaldi.impl.DixfConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ItemIndex">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Converter:AX.Uitgaand.BKH.GrootboekRekeningSaldi.impl.DixfConverter</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ..Init()
+	set ..Converter = $$$Inject(Converter,##class(AX.Uitgaand.BKH.GrootboekRekeningSaldi.impl.DixfConverter).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<Implementation><![CDATA[	quit ..Iterator.HasNext()
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<Implementation><![CDATA[
+	set ..ItemIndex = ..ItemIndex + 1
+	quit ..Converter.Convert(..Iterator.Next(),..ItemIndex)
+]]></Implementation>
+</Method>
+
+<Method name="Reset">
+<Implementation><![CDATA[
+	set ..ItemIndex = 0
+	do ..Iterator.Reset()
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<Private>1</Private>
+<Implementation><![CDATA[
+	set Iterator = ##class(DOM.BKH.Grootboek.impl.SaldiIterator).%New(2016)
+	set Array = ##class(%ArrayOfObjects).%New()
+	
+	while Iterator.HasNext() {
+		#dim Saldi As DOM.BKH.Grootboek.dto.Saldi = Iterator.Next()
+		#dim GrootboekRekeningId As %String = ##class(AX.common.impl.ConvertAdminToAX).ConvertLedgerCount(Saldi.GrootboekRekeningId)
+		if $$$Not(Array.IsDefined(GrootboekRekeningId))	{
+			do Array.SetAt(##class(DOM.BKH.Grootboek.dto.Saldi).%New(Saldi.Boekjaar,GrootboekRekeningId),GrootboekRekeningId)
+		}
+		set Array.GetAt(GrootboekRekeningId).Bedrag = Array.GetAt(GrootboekRekeningId).Bedrag + Saldi.Bedrag
+	}
+	
+	set ..Iterator = ##class(TECH.ListIterator).%New(Array)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/BKH/GrootboekRekeningSaldi/impl/DixfConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/BKH/GrootboekRekeningSaldi/impl/DixfConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/BKH/GrootboekRekeningSaldi/impl/DixfConverter.cls.xml	(revision 34928)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.BKH.GrootboekRekeningSaldi.impl.DixfConverter">
+<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>Saldi:DOM.BKH.Grootboek.dto.Saldi,LineNum:%String=0</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 =  "OP16"_##class(TECH.StringUtils).AlignRight(LineNum,0,4)
+	Set AxUnpaidInvoice.LineNum = LineNum
+	Set AxUnpaidInvoice.TransDate = "30/06/2016"
+	Set AxUnpaidInvoice.Company = ..FirmaBepaler.GeefInitialen()
+	Set AxUnpaidInvoice.AccountType = "2"
+	Set AxUnpaidInvoice.LedgerDimension = ""
+	Set AxUnpaidInvoice.Txt = "Open leverancier 30/06/2016"
+	Set AxUnpaidInvoice.OffsetCompany = ..FirmaBepaler.GeefInitialen()
+	Set AxUnpaidInvoice.OffsetAccountType = "0"
+	Set AxUnpaidInvoice.OffsetLedgerDimension = ##class(AX.common.impl.ConvertAdminToAX).ConvertLedgerCount(Saldi.GrootboekRekeningId)
+	
+	set:(Saldi.Bedrag < 0) AxUnpaidInvoice.AmountCurCredit = $zabs(Saldi.Bedrag)
+	set:(Saldi.Bedrag > 0) AxUnpaidInvoice.AmountCurDebit = Saldi.Bedrag
+
+	Set AxUnpaidInvoice.CurrencyCode = "EUR"
+	Set AxUnpaidInvoice.ExchRate = "1"
+	
+	Quit AxUnpaidInvoice
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXdixf/UnpaidInvoice/UnpaidInvoice.cls.xml
===================================================================
diff -u -r34822 -r34928
--- AXdixf/UnpaidInvoice/UnpaidInvoice.cls.xml	(.../UnpaidInvoice.cls.xml)	(revision 34822)
+++ AXdixf/UnpaidInvoice/UnpaidInvoice.cls.xml	(.../UnpaidInvoice.cls.xml)	(revision 34928)
@@ -84,11 +84,13 @@
 </Property>
 
 <Property name="AmountCurDebit">
-<Type>%String</Type>
+<Type>%Decimal</Type>
+<InitialExpression>0</InitialExpression>
 </Property>
 
 <Property name="AmountCurCredit">
-<Type>%String</Type>
+<Type>%Decimal</Type>
+<InitialExpression>0</InitialExpression>
 </Property>
 
 <Property name="CurrencyCode">
Index: AX/Uitgaand/BKH/GrootboekRekeningSaldi/impl/DixfGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/BKH/GrootboekRekeningSaldi/impl/DixfGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/BKH/GrootboekRekeningSaldi/impl/DixfGenerator.cls.xml	(revision 34928)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.BKH.GrootboekRekeningSaldi.impl.DixfGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BestandGenerator">
+<Type>APPS.common.Rapport.impl.BestandGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GenerateAll">
+<Implementation><![CDATA[
+	Set Headers = ##class(TECH.KeyValue.List).%New() 
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "JournalNum")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "JournalName")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "TaxWithholdGroup")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "ReleaseDate")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Voucher")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "LineNum")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "TransDate")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Transfer")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Company")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "AccountType")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "LedgerDimension")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Txt")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "TaxGroup")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "TaxItemGroup")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "TaxCode")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "TaxDirectionControl")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "OffsetCompany")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "OffsetAccountType")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "OffsetLedgerDimension")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "OffsetTxt")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "AmountCurDebit")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "AmountCurCredit")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "CurrencyCode")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "ExchRate")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "ExchRateSecond")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Qty")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "ReverseEntry")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "ReverseDate")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "PostingProfile")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "SettleVoucher")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Payment")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Invoice")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Due")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "PaymId")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "VATNumJournal")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "CashDiscCode")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "CashDiscBaseDate")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "DateCashDisc")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "CashDiscAmount")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "DocumentNum")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "DocumentDate")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "ApproverPersonnelNumber")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Approved")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Listcode")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "PaymMode")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "PaymSpec")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Prepayment")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "RemainAmount")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "BankTransType")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "PaymReference")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "BankDepositVoucher")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "BankDepositNum")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "AssetTransType")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "AssetBookId")
+
+		
+	#dim AXLeverancierData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
+	Set AXLeverancierData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	Set AXLeverancierData.ScheidingsTeken = ";"	
+	Set AXLeverancierData.Iterator = ##class(AX.Uitgaand.BKH.GrootboekRekeningSaldi.impl.SaldiIterator).%New()
+	Set AXLeverancierData.DataVelden = Headers
+	Set AXLeverancierData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"rek13.csv")
+	
+	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
+	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
+	Do BestandGenerator.MaakBestand(AXLeverancierData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>