Index: AXdixf/AankoopOrderHoofding/AankoopOrderHoofding.cls.xml
===================================================================
diff -u -r41737 -r42264
--- AXdixf/AankoopOrderHoofding/AankoopOrderHoofding.cls.xml	(.../AankoopOrderHoofding.cls.xml)	(revision 41737)
+++ AXdixf/AankoopOrderHoofding/AankoopOrderHoofding.cls.xml	(.../AankoopOrderHoofding.cls.xml)	(revision 42264)
@@ -23,6 +23,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="DefaultDimension">
+<Type>%String</Type>
+</Property>
+
 <Property name="DeliveryCity">
 <Type>%String</Type>
 </Property>
Index: AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml
===================================================================
diff -u -r42237 -r42264
--- AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml	(.../AankoopOrderHoofdingDixfConverter.cls.xml)	(revision 42237)
+++ AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml	(.../AankoopOrderHoofdingDixfConverter.cls.xml)	(revision 42264)
@@ -106,6 +106,7 @@
 <ReturnType>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</ReturnType>
 <Implementation><![CDATA[
 	Set ..AxHoofding.DeliveryStreet = "Europark-Noord 9"
+	Set ..AxHoofding.DefaultDimension = ..BepaalDefaultDimensionVanHoecke(Leverancier)
 	Set ..AxHoofding.InvoiceAccount = ..BepaalInvoiceAccountVanHoecke(Leverancier)
 	Set ..AxHoofding.OrderAccount = ..BepaalOrderAccountVanHoecke(Leverancier)
 	Set ..AxHoofding.Payment = ..BepaalPaymentVanHoecke(Leverancier)
@@ -120,6 +121,7 @@
 <ReturnType>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</ReturnType>
 <Implementation><![CDATA[
 	Set ..AxHoofding.DeliveryStreet = "Europark-Noord 7"
+	Set ..AxHoofding.DefaultDimension = ..BepaalDefaultDimensionHalux(Leverancier)
 	Set ..AxHoofding.InvoiceAccount = ..BepaalInvoiceAccountHalux(Leverancier)
 	Set ..AxHoofding.OrderAccount = ..BepaalOrderAccountHalux(Leverancier)
 	Set ..AxHoofding.Payment = ""
@@ -128,6 +130,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalDefaultDimensionHalux">
+<FormalSpec>Leverancier:DOM.AKP.Leverancier</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</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="BepaalDefaultDimensionVanHoecke">
+<FormalSpec>Leverancier:DOM.AKP.Leverancier</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</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="BepaalInvoiceAccountHalux">
 <FormalSpec>Leverancier:DOM.AKP.Leverancier</FormalSpec>
 <Private>1</Private>
Index: AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfGenerator.cls.xml
===================================================================
diff -u -r42197 -r42264
--- AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfGenerator.cls.xml	(.../AankoopOrderHoofdingDixfGenerator.cls.xml)	(revision 42197)
+++ AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfGenerator.cls.xml	(.../AankoopOrderHoofdingDixfGenerator.cls.xml)	(revision 42264)
@@ -21,8 +21,8 @@
 	Try {
 		#dim HoofdingIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingIterator).%New(,Vestiging)
 		do ..Generate(HoofdingIterator)
-		Write !,"Klaar. Aantal minuten voor ca. 1.800 Hoofdingen: " 
-		write $$TimeFromStart^vhLib()/60 // /25*1800 // Indien filter opstaat van 25 Hoofdingen, aanpassen
+		Write !,"Csv voor migratie 1401 AankoopOrderHoofding voor "_Vestiging_" is klaar. Aantal minuten: " 
+		write $$TimeFromStart^vhLib()/60
 	} Catch {
 		Write ##class(TECH.ExceptionHandler).Catch().ToString()
 	}
@@ -38,6 +38,7 @@
 	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", "DefaultDimension")
 	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "DeliveryCity")
 	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "DeliveryStreet")
 	Do AXHoofdingData.VoegToeVeld("AXdixf.AankoopOrderHoofding.AankoopOrderHoofding", "DeliveryZipCode")
Index: vhUnitTest/AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter/Test.cls.xml
===================================================================
diff -u -r42237 -r42264
--- vhUnitTest/AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42237)
+++ vhUnitTest/AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42264)
@@ -242,6 +242,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Voor Van Hoecke is DefaultDimension het cijfer in het LeverancierId na het dubbel pipeteken met voorloopnul indien kleiner dan 10000">
+<Implementation><![CDATA[
+	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
+	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5000").DanReturn(..LeverancierStub)
+	Set ..AankoopApi = AankoopApiStub
+	
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim Converter As AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter = ..GeefConverter()
+	
+	#dim Hoofding As AXdixf.AankoopOrderHoofding.AankoopOrderHoofding = Converter.Convert(..ToeleveringStub,Vestiging)
+	
+	Do $$$AssertEquals(Hoofding.DefaultDimension,"05002")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Voor Van Hoecke is InvoiceAccount het cijfer in het LeverancierId na het dubbel pipeteken met voorloopnul indien kleiner dan 10000">
 <Implementation><![CDATA[
 	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
@@ -360,6 +379,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Voor Halux is DefaultDimension het cijfer in het LeverancierId na het dubbel pipeteken omgezet volgens LevNrConverter met voorloopnul indien kleiner dan 10000">
+<Implementation><![CDATA[
+	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
+	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5000").DanReturn(..LeverancierStub)
+	Set ..AankoopApi = AankoopApiStub
+	
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
+	Do ..LevNrConverterStub.VerwachtMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux",$$$ElkeWaarde).DanReturn("5000")
+
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim Converter As AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter = ..GeefConverter()
+	
+	#dim Hoofding As AXdixf.AankoopOrderHoofding.AankoopOrderHoofding = Converter.Convert(..ToeleveringStub,Vestiging)
+	
+	Do $$$AssertEquals(Hoofding.DefaultDimension,"05000")
+	
+	Do ..LevNrConverterStub.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Voor Halux is InvoiceAccount het cijfer in het LeverancierId na het dubbel pipeteken omgezet volgens LevNrConverter met voorloopnul indien kleiner dan 10000">
 <Implementation><![CDATA[
 	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()