Index: AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingIterator.cls.xml	(revision 41737)
@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="Vestiging">
+<Type>%String</Type>
+<Private>1</Private>
+<Parameter name="VALUELIST" value=",VanHoecke,Halux"/>
+</Property>
+
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Converter">
+<Type>AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringApi">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:%String(VALUELIST=",VanHoecke,Halux"),ToeleveringApi:DOM.AKP.ToeleveringAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ToeleveringApi = $$$Inject(ToeleveringApi,##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
+	Set ..Vestiging = Vestiging
+	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Do ..VoerUitQuery()
+	Set ..Converter = ##class(AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter).%New()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = "SELECT * FROM Flow_Toelev.Hoofding"
+	// Indien nodig is hieronder een filter voorzien om het resultaat te beperken tot overzichtelijk, voor debugging:
+	_" WHERE ID IN ('5002||261154','5005||265590','5026||276749','5490||278804','5938||242802','6051||280399','6118||274544','6317||278043',"
+	_"'6332||201319','6347||261332','6415||278507','6494||256645','6628||274325','6813||276747','7012||275442','7112||268449','7178||271524',"
+	_"'7407||272363','7409||251880','7509||280028','7541||272115','7564||270368','7771||274511','7802||264788','8090||278685')"
+	Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ( ..ResultSet.Next() > 0 )
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</ReturnType>
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering($piece(..ResultSet.GetData(1),"||",2))
+	#dim ConvertedHoofding As AXdixf.AankoopOrderHoofding.AankoopOrderHoofding = ..Converter.Convert(Toelevering, ..Vestiging)
+	Quit ConvertedHoofding
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXdixf/AankoopOrderHoofding/AankoopOrderHoofding.cls.xml
===================================================================
diff -u
--- AXdixf/AankoopOrderHoofding/AankoopOrderHoofding.cls.xml	(revision 0)
+++ AXdixf/AankoopOrderHoofding/AankoopOrderHoofding.cls.xml	(revision 41737)
@@ -0,0 +1,112 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXdixf.AankoopOrderHoofding.AankoopOrderHoofding">
+<Super>TECH.DataTransferObject</Super>
+
+<Parameter name="XMLTYPE">
+<Default>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</Default>
+</Parameter>
+
+<Property name="AccountingDate">
+<Type>%String</Type>
+</Property>
+
+<Property name="CashDisc">
+<Type>%String</Type>
+</Property>
+
+<Property name="CashDiscPercent">
+<Type>%String</Type>
+</Property>
+
+<Property name="ChangeRequestRequired">
+<Type>%String</Type>
+</Property>
+
+<Property name="DeliveryCity">
+<Type>%String</Type>
+</Property>
+
+<Property name="DeliveryStreet">
+<Type>%String</Type>
+</Property>
+
+<Property name="DeliveryZipCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="DocumentState">
+<Type>%String</Type>
+</Property>
+
+<Property name="DocumentStatus">
+<Type>%String</Type>
+</Property>
+
+<Property name="Payment">
+<Type>%String</Type>
+</Property>
+
+<Property name="PaymMode">
+<Type>%String</Type>
+</Property>
+
+<Property name="PostingProfile">
+<Type>%String</Type>
+</Property>
+
+<Property name="PurchaseType">
+<Type>%String</Type>
+</Property>
+
+<Property name="PurchName">
+<Type>%String</Type>
+</Property>
+
+<Property name="PurchStatus">
+<Type>%String</Type>
+</Property>
+
+<Property name="SettleVoucher">
+<Type>%String</Type>
+</Property>
+
+<Property name="TaxGroup">
+<Type>%String</Type>
+</Property>
+
+<Property name="VATNum">
+<Type>%String</Type>
+</Property>
+
+<Property name="VendorRef">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrderAccount">
+<Type>%String</Type>
+</Property>
+
+<Property name="InvoiceAccount">
+<Type>%String</Type>
+</Property>
+
+<Property name="CurrencyCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="PurchId">
+<Type>%String</Type>
+</Property>
+
+<Property name="VendGroup">
+<Type>%String</Type>
+</Property>
+
+<Property name="LanguageId">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfGenerator.cls.xml	(revision 41737)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BestandGenerator">
+<Type>APPS.common.Rapport.impl.BestandGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vestiging">
+<Type>%String</Type>
+<Private>1</Private>
+<Parameter name="VALUELIST" value=",VanHoecke,Halux"/>
+</Property>
+
+<Method name="GenerateAll">
+<FormalSpec>Vestiging:%String(VALUELIST=",VanHoecke,Halux")</FormalSpec>
+<Implementation><![CDATA[
+	Do StartTimer^vhLib
+	Set ..Vestiging = Vestiging
+	Try {
+		#dim HoofdingIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingIterator).%New(,Vestiging)
+		do ..Generate(HoofdingIterator)
+		Write !,"Klaar. Aantal minuten voor ca. 23.500 Hoofdingen: " 
+		write $$TimeFromStart^vhLib()/60/25*23500 // Indien filter opstaat van 25 Hoofdingen, aanpassen
+	} Catch {
+		Write ##class(TECH.ExceptionHandler).Catch().ToString()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>HoofdingIterator:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	#dim AXHoofdingData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
+	Set AXHoofdingData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "AccountingDate")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "CashDisc")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "CashDiscPercent")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "ChangeRequestRequired")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "DeliveryCity")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "DeliveryStreet")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "DeliveryZipCode")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "DocumentState")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "DocumentStatus")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "Payment")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "PaymMode")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "PostingProfile")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "PurchaseType")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "PurchName")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "PurchStatus")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "SettleVoucher")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "TaxGroup")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "VATNum")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "VendorRef")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "OrderAccount")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "InvoiceAccount")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "CurrencyCode")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "PurchId")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "VendGroup")
+	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "LanguageId")
+	
+	Set AXHoofdingData.ScheidingsTeken = ";"	
+	Set AXHoofdingData.Iterator = HoofdingIterator
+	Set AXHoofdingData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"1401AankoopOrderHoofding"_..Vestiging_".csv")
+	
+	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
+	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
+	Do BestandGenerator.MaakBestand(AXHoofdingData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml	(revision 41737)
@@ -0,0 +1,164 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="AankoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AxHoofding">
+<Type>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DatumFormatter">
+<Type>TECH.Format.FormatAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Formatter">
+<Type>AX.common.impl.Formatter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Leverancier">
+<Type>DOM.AKP.Leverancier</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Toelevering">
+<Type>DOM.AKP.Toelevering</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>AankoopAPI:DOM.AKP.AankoopAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..DatumFormatter = ##class(TECH.Context).Instance().GeefFormatAPI()
+	Set ..Formatter = ##class(AX.common.impl.Formatter).%New()
+	Set ..AankoopAPI = $$$Inject(AankoopAPI,##class(DOM.DomeinContext).Instance().GeefAankoopAPI())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,Vestiging:%String(VALUELIST=",VanHoecke,Halux")</FormalSpec>
+<ReturnType>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</ReturnType>
+<Implementation><![CDATA[
+	Set ..Toelevering = Toelevering
+	#Dim LeverancierId As %String = ..Toelevering.GeefLeverancierID()
+	Set ..Leverancier = ..AankoopAPI.GeefLeverancier(LeverancierId)
+	
+	Set ..AxHoofding = ##class(AXdixf.AankoopOrderHoofding.AankoopOrderHoofding).%New()
+	
+	Do ..ConvertGemeenschappelijk()
+	
+	If Vestiging = "VanHoecke" {
+		Do ..ConvertVanHoecke()
+	}
+	Else {
+		If Vestiging = "Halux" {
+			Do ..ConvertHalux()
+		}
+		Else {
+			Write !,"Geef als parameter ofwel VanHoecke, ofwel Halux mee!"
+		}
+	}
+	Quit ..AxHoofding
+]]></Implementation>
+</Method>
+
+<Method name="ConvertGemeenschappelijk">
+<Private>1</Private>
+<ReturnType>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</ReturnType>
+<Implementation><![CDATA[
+	Set ..AxHoofding.AccountingDate = ..DatumFormatter.FormatDate(..Toelevering.GeefAanmaakDatum(),"DD/MM/JJJJ")
+	Set ..AxHoofding.CashDisc = ..Formatter.FormatCashDiscount(..Leverancier.GeefKortingKontant(),..Leverancier.GeefTermijnKortingKontant())
+	Set ..AxHoofding.CashDiscPercent = ..BepaalKortingKontant()
+	Set ..AxHoofding.ChangeRequestRequired = "1"
+	Set ..AxHoofding.DeliveryCity = "Sint-Niklaas"
+	Set ..AxHoofding.DeliveryZipCode = "9100"
+	Set ..AxHoofding.DocumentState = "Concept"
+	Set ..AxHoofding.DocumentStatus = "Aankooporder"
+	Set ..AxHoofding.PostingProfile = "ALG"
+	Set ..AxHoofding.PurchaseType = "Aankooporder"
+	Set ..AxHoofding.PurchName = ..Leverancier.GeefNaam()
+	Set ..AxHoofding.PurchStatus = "Openstaande order"
+	Set ..AxHoofding.SettleVoucher = "Geen"
+	Set ..AxHoofding.CurrencyCode = "EUR"
+	//Set ..AxHoofding. = ""
+]]></Implementation>
+</Method>
+
+<Method name="ConvertVanHoecke">
+<Private>1</Private>
+<ReturnType>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</ReturnType>
+<Implementation><![CDATA[
+	Set ..AxHoofding.DeliveryStreet = "Europark-Noord 9"
+	Set ..AxHoofding.Payment = ..BepaalPaymentVanHoecke()
+	Set ..AxHoofding.PaymMode = ..BepaalPaymModeVanHoecke()
+]]></Implementation>
+</Method>
+
+<Method name="ConvertHalux">
+<Private>1</Private>
+<ReturnType>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</ReturnType>
+<Implementation><![CDATA[
+	Set ..AxHoofding.DeliveryStreet = "Europark-Noord 7"
+	Set ..AxHoofding.Payment = ""
+	Set ..AxHoofding.PaymMode = ""
+]]></Implementation>
+</Method>
+
+<Method name="BepaalKortingKontant">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim Bedrag As %String = ..Leverancier.GeefKortingKontant()
+	Set $Extract(Bedrag,$Find(Bedrag,".")-1) = ","
+	
+	Quit Bedrag
+]]></Implementation>
+</Method>
+
+<Method name="BepaalPaymentVanHoecke">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim PaymentVanHoecke As %String
+	
+	If (..Leverancier.GeefNaam() = "BLUM JULIUS GMBH"){
+		Set PaymentVanHoecke = "EOM20"
+	} Else {
+		Set PaymentVanHoecke = ""
+	}
+	
+	Quit PaymentVanHoecke
+]]></Implementation>
+</Method>
+
+<Method name="BepaalPaymModeVanHoecke">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim PaymModeVanHoecke As %String
+	
+	If (..Leverancier.GeefNaam() = "BLUM JULIUS GMBH"){
+		Set PaymModeVanHoecke = "BLUM-SEPA"
+	} Else {
+		Set PaymModeVanHoecke = "SEPA"
+	}
+	
+	Quit PaymModeVanHoecke
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>