Index: AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml
===================================================================
diff -u -r41737 -r41749
--- AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml	(.../AankoopOrderHoofdingDixfConverter.cls.xml)	(revision 41737)
+++ AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml	(.../AankoopOrderHoofdingDixfConverter.cls.xml)	(revision 41749)
@@ -8,13 +8,13 @@
 <Private>1</Private>
 </Property>
 
-<Property name="AxHoofding">
-<Type>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</Type>
+<Property name="DatumFormatter">
+<Type>TECH.Format.FormatAPI</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="DatumFormatter">
-<Type>TECH.Format.FormatAPI</Type>
+<Property name="FirmaBepaler">
+<Type>AX.common.impl.FirmaBepaler</Type>
 <Private>1</Private>
 </Property>
 
@@ -23,26 +23,34 @@
 <Private>1</Private>
 </Property>
 
-<Property name="Leverancier">
-<Type>DOM.AKP.Leverancier</Type>
+<Property name="LevNrConverter">
+<Type>AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="Toelevering">
-<Type>DOM.AKP.Toelevering</Type>
+<Property name="PartijApi">
+<Type>DOM.PARTIJ.PartijAPI</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="AxHoofding">
+<Type>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>AankoopAPI:DOM.AKP.AankoopAPI</FormalSpec>
+<FormalSpec>AankoopAPI:DOM.AKP.AankoopAPI,FirmaBepaler:AX.common.impl.FirmaBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..DatumFormatter = ##class(TECH.Context).Instance().GeefFormatAPI()
+	Set ..PartijApi = ##class(DOM.DomeinContext).Instance().GeefPartijAPI()
 	Set ..Formatter = ##class(AX.common.impl.Formatter).%New()
+	Set ..LevNrConverter = ##class(AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
 	Set ..AankoopAPI = $$$Inject(AankoopAPI,##class(DOM.DomeinContext).Instance().GeefAankoopAPI())
+	Set ..FirmaBepaler = $$$Inject(FirmaBepaler,##class(AX.common.impl.FirmaBepaler).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -51,20 +59,17 @@
 <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)
-	
+	#Dim Leverancier As DOM.AKP.Leverancier = ..AankoopAPI.GeefLeverancier(Toelevering.GeefLeverancierID())
 	Set ..AxHoofding = ##class(AXdixf.AankoopOrderHoofding.AankoopOrderHoofding).%New()
 	
-	Do ..ConvertGemeenschappelijk()
+	Do ..ConvertGemeenschappelijk(Leverancier,Toelevering,Vestiging)
 	
 	If Vestiging = "VanHoecke" {
-		Do ..ConvertVanHoecke()
+		Do ..ConvertVanHoecke(Leverancier)
 	}
 	Else {
 		If Vestiging = "Halux" {
-			Do ..ConvertHalux()
+			Do ..ConvertHalux(Leverancier)
 		}
 		Else {
 			Write !,"Geef als parameter ofwel VanHoecke, ofwel Halux mee!"
@@ -75,65 +80,124 @@
 </Method>
 
 <Method name="ConvertGemeenschappelijk">
+<FormalSpec>Leverancier:DOM.AKP.Leverancier,Toelevering:DOM.AKP.Toelevering,Vestiging:%String(VALUELIST=",VanHoecke,Halux")</FormalSpec>
 <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.AccountingDate = ..DatumFormatter.FormatDate(Toelevering.GeefAanmaakDatum(),"DD/MM/JJJJ")
+	Set ..AxHoofding.CashDisc = ..Formatter.FormatCashDiscount(Leverancier.GeefKortingKontant(),Leverancier.GeefTermijnKortingKontant())
+	Set ..AxHoofding.CashDiscPercent = ..BepaalKortingKontant(Leverancier)
 	Set ..AxHoofding.ChangeRequestRequired = "1"
+	Set ..AxHoofding.CurrencyCode = "EUR"
 	Set ..AxHoofding.DeliveryCity = "Sint-Niklaas"
 	Set ..AxHoofding.DeliveryZipCode = "9100"
 	Set ..AxHoofding.DocumentState = "Concept"
 	Set ..AxHoofding.DocumentStatus = "Aankooporder"
+	Set ..AxHoofding.LanguageId = Leverancier.GeefTaal()
 	Set ..AxHoofding.PostingProfile = "ALG"
 	Set ..AxHoofding.PurchaseType = "Aankooporder"
-	Set ..AxHoofding.PurchName = ..Leverancier.GeefNaam()
+	Set ..AxHoofding.PurchId = Toelevering.GeefID()
+	Set ..AxHoofding.PurchName = Leverancier.GeefNaam()
 	Set ..AxHoofding.PurchStatus = "Openstaande order"
 	Set ..AxHoofding.SettleVoucher = "Geen"
-	Set ..AxHoofding.CurrencyCode = "EUR"
+	Set ..AxHoofding.TaxGroup = ..BepaalTaxGroup(Leverancier,Vestiging)
+	Set ..AxHoofding.VATNum = ..Formatter.FormatVATNumVoorDIXF(Leverancier.GeefBTWnr())
+	Set ..AxHoofding.VendGroup = ..BepaalVendGroup(Leverancier,Vestiging)
+	Set ..AxHoofding.VendorRef = Toelevering.GeefReferentie()
 	//Set ..AxHoofding. = ""
 ]]></Implementation>
 </Method>
 
 <Method name="ConvertVanHoecke">
+<FormalSpec>Leverancier:DOM.AKP.Leverancier</FormalSpec>
 <Private>1</Private>
 <ReturnType>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</ReturnType>
 <Implementation><![CDATA[
 	Set ..AxHoofding.DeliveryStreet = "Europark-Noord 9"
-	Set ..AxHoofding.Payment = ..BepaalPaymentVanHoecke()
-	Set ..AxHoofding.PaymMode = ..BepaalPaymModeVanHoecke()
+	Set ..AxHoofding.InvoiceAccount = ..BepaalInvoiceAccountVanHoecke(Leverancier)
+	Set ..AxHoofding.OrderAccount = ..BepaalOrderAccountVanHoecke(Leverancier)
+	Set ..AxHoofding.Payment = ..BepaalPaymentVanHoecke(Leverancier)
+	Set ..AxHoofding.PaymMode = ..BepaalPaymModeVanHoecke(Leverancier)
 ]]></Implementation>
 </Method>
 
 <Method name="ConvertHalux">
+<FormalSpec>Leverancier:DOM.AKP.Leverancier</FormalSpec>
 <Private>1</Private>
 <ReturnType>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</ReturnType>
 <Implementation><![CDATA[
 	Set ..AxHoofding.DeliveryStreet = "Europark-Noord 7"
+	Set ..AxHoofding.InvoiceAccount = ..BepaalInvoiceAccountHalux(Leverancier)
+	Set ..AxHoofding.OrderAccount = ..BepaalOrderAccountHalux(Leverancier)
 	Set ..AxHoofding.Payment = ""
 	Set ..AxHoofding.PaymMode = ""
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalInvoiceAccountHalux">
+<FormalSpec>Leverancier:DOM.AKP.Leverancier</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</ReturnType>
+<Implementation><![CDATA[
+	#Dim LevId As %String = Leverancier.GeefID()
+	#Dim LevNummer As %String = $Extract(LevId,$Find(LevId,"||"),$Length(LevId))
+	Set LevNummer = ..LevNrConverter.ConvertorLeveranciersnummerVanHoeckeNaarHalux(LevNummer)
+	Quit ##class(TECH.StringUtils).AddLeadingChar(LevNummer,"0",5)
+]]></Implementation>
+</Method>
+
+<Method name="BepaalInvoiceAccountVanHoecke">
+<FormalSpec>Leverancier:DOM.AKP.Leverancier</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</ReturnType>
+<Implementation><![CDATA[
+	#Dim LevId As %String = Leverancier.GeefID()
+	Quit ##class(TECH.StringUtils).AddLeadingChar($Extract(LevId,$Find(LevId,"||"),$Length(LevId)),"0",5)
+]]></Implementation>
+</Method>
+
 <Method name="BepaalKortingKontant">
+<FormalSpec>Leverancier:DOM.AKP.Leverancier</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#Dim Bedrag As %String = ..Leverancier.GeefKortingKontant()
+	#Dim Bedrag As %String = Leverancier.GeefKortingKontant()
 	Set $Extract(Bedrag,$Find(Bedrag,".")-1) = ","
 	
 	Quit Bedrag
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalOrderAccountHalux">
+<FormalSpec>Leverancier:DOM.AKP.Leverancier</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</ReturnType>
+<Implementation><![CDATA[
+	#Dim LevId As %String = Leverancier.GeefID()
+	#Dim LevNummer As %String = $Extract(LevId,$Find(LevId,"||"),$Length(LevId))
+	Set LevNummer = ..LevNrConverter.ConvertorLeveranciersnummerVanHoeckeNaarHalux(LevNummer)
+	Quit ##class(TECH.StringUtils).AddLeadingChar(LevNummer,"0",5)
+]]></Implementation>
+</Method>
+
+<Method name="BepaalOrderAccountVanHoecke">
+<FormalSpec>Leverancier:DOM.AKP.Leverancier</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</ReturnType>
+<Implementation><![CDATA[
+	#Dim LevId As %String = Leverancier.GeefID()
+	Quit ##class(TECH.StringUtils).AddLeadingChar($Extract(LevId,$Find(LevId,"||"),$Length(LevId)),"0",5)
+]]></Implementation>
+</Method>
+
 <Method name="BepaalPaymentVanHoecke">
+<FormalSpec>Leverancier:DOM.AKP.Leverancier</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#Dim PaymentVanHoecke As %String
 	
-	If (..Leverancier.GeefNaam() = "BLUM JULIUS GMBH"){
+	If (Leverancier.GeefNaam() = "BLUM JULIUS GMBH"){
 		Set PaymentVanHoecke = "EOM20"
 	} Else {
 		Set PaymentVanHoecke = ""
@@ -144,12 +208,13 @@
 </Method>
 
 <Method name="BepaalPaymModeVanHoecke">
+<FormalSpec>Leverancier:DOM.AKP.Leverancier</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#Dim PaymModeVanHoecke As %String
 	
-	If (..Leverancier.GeefNaam() = "BLUM JULIUS GMBH"){
+	If (Leverancier.GeefNaam() = "BLUM JULIUS GMBH"){
 		Set PaymModeVanHoecke = "BLUM-SEPA"
 	} Else {
 		Set PaymModeVanHoecke = "SEPA"
@@ -158,6 +223,46 @@
 	Quit PaymModeVanHoecke
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalTaxGroup">
+<FormalSpec>Leverancier:DOM.AKP.Leverancier,Vestiging:%String(VALUELIST=",VanHoecke,Halux")</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If Vestiging="VanHoecke" {
+		Quit:Leverancier.GeefID()="L||6332" "BUNIT"
+		Quit:Leverancier.GeefID()="L||6051" "BUNIT"
+		Quit:Leverancier.GeefID()="L||5908" "BUNIT"
+	} ElseIf Vestiging="Halux" {
+		Quit:Leverancier.GeefID()="L||5497" "BUNIT"
+	}
+	#Dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Leverancier.GeefID())
+	Quit:Partij.GeefAdres().GeefLand().GeefCode()="BE" "BDOM"
+	Quit:Partij.GeefAdres().GeefLand().IsLidVanEU() "BIC"
+	Quit "BX"
+]]></Implementation>
+</Method>
+
+<Method name="BepaalVendGroup">
+<FormalSpec>Leverancier:DOM.AKP.Leverancier,Vestiging:%String(VALUELIST=",VanHoecke,Halux")</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If Vestiging="VanHoecke" {
+		Quit:Leverancier.GeefID()="L||6332" "IC"
+		Quit:Leverancier.GeefID()="L||6051" "IC"
+		Quit:Leverancier.GeefID()="L||5908" "IC"
+		Quit:Leverancier.GeefID()="L||6373" "IC"
+	} ElseIf Vestiging="Halux" {
+		Quit:Leverancier.GeefID()="L||5497" "IC"
+	}
+	#Dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Leverancier.GeefID())
+	Quit:Partij.GeefAdres().GeefLand().GeefCode()="BE" "BE"
+	Quit:Partij.GeefAdres().GeefLand().IsLidVanEU() "EU"
+	
+	Quit "EX"
+]]></Implementation>
+</Method>
 </Class>