Index: AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml
===================================================================
diff -u -r42214 -r42237
--- AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml	(.../AankoopOrderHoofdingDixfConverter.cls.xml)	(revision 42214)
+++ AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml	(.../AankoopOrderHoofdingDixfConverter.cls.xml)	(revision 42237)
@@ -59,10 +59,10 @@
 	Do ..ConvertGemeenschappelijk(Leverancier,Toelevering,Vestiging)
 	
 	If Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
-		Do ..ConvertVanHoecke(Leverancier)
+		Do ..ConvertVanHoecke(Leverancier,Toelevering)
 	} Else {
 		If Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() {
-			Do ..ConvertHalux(Leverancier)
+			Do ..ConvertHalux(Leverancier,Toelevering)
 		}
 		Else {
 			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New("Geef als parameter ofwel VanHoecke, ofwel Halux mee! Huidige parameter = '"_Vestiging_"' <"))
@@ -96,13 +96,12 @@
 	Set ..AxHoofding.TaxGroup = ..Utils.ConvertLeverancierTaxGroup(Vestiging,Leverancier)
 	Set ..AxHoofding.VATNum = ..Formatter.FormatVATNumVoorDIXF(Leverancier.GeefBTWnr())
 	Set ..AxHoofding.VendGroup = ..Utils.ConvertLeverancierVendGroup(Vestiging,Leverancier)
-	Set ..AxHoofding.VendorRef = Toelevering.GeefReferentie()
 	//Set ..AxHoofding. = ""
 ]]></Implementation>
 </Method>
 
 <Method name="ConvertVanHoecke">
-<FormalSpec>Leverancier:DOM.AKP.Leverancier</FormalSpec>
+<FormalSpec>Leverancier:DOM.AKP.Leverancier,Toelevering:DOM.AKP.Toelevering</FormalSpec>
 <Private>1</Private>
 <ReturnType>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</ReturnType>
 <Implementation><![CDATA[
@@ -111,19 +110,21 @@
 	Set ..AxHoofding.OrderAccount = ..BepaalOrderAccountVanHoecke(Leverancier)
 	Set ..AxHoofding.Payment = ..BepaalPaymentVanHoecke(Leverancier)
 	Set ..AxHoofding.PaymMode = ..BepaalPaymModeVanHoecke(Leverancier)
+	Set ..AxHoofding.VendorRef = ..BepaalVendorRefVanHoecke(Leverancier,Toelevering)
 ]]></Implementation>
 </Method>
 
 <Method name="ConvertHalux">
-<FormalSpec>Leverancier:DOM.AKP.Leverancier</FormalSpec>
+<FormalSpec>Leverancier:DOM.AKP.Leverancier,Toelevering:DOM.AKP.Toelevering</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 = ""
+	Set ..AxHoofding.PaymMode = "SEPA"
+	Set ..AxHoofding.VendorRef = Toelevering.GeefReferentie()
 ]]></Implementation>
 </Method>
 
@@ -216,6 +217,26 @@
 	Quit PaymModeVanHoecke
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalVendorRefVanHoecke">
+<FormalSpec>Leverancier:DOM.AKP.Leverancier,Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim VendorRefVanHoecke As %String = ""
+	#dim Referentie As %String = Toelevering.GeefReferentie()
+	
+	If (Leverancier.GeefNaam() = "BLUM JULIUS GMBH"){
+		If ($Extract(Referentie,1,3) = "AB "){
+			Set VendorRefVanHoecke = $Extract(Referentie,4,$Find(Referentie,"/")-2)
+			Set VendorRefVanHoecke = $Translate(VendorRefVanHoecke,".")
+		}} Else {
+		Set VendorRefVanHoecke = Referentie
+	}
+	
+	Quit VendorRefVanHoecke
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter/Test.cls.xml
===================================================================
diff -u -r42197 -r42237
--- vhUnitTest/AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42197)
+++ vhUnitTest/AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42237)
@@ -120,7 +120,7 @@
 	
 	Do $$$AssertEquals(Hoofding.DeliveryStreet,"Europark-Noord 7")
 	Do $$$AssertEquals(Hoofding.Payment,"")
-	Do $$$AssertEquals(Hoofding.PaymMode,"")
+	Do $$$AssertEquals(Hoofding.PaymMode,"SEPA")
 ]]></Implementation>
 </Method>