Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfGenerator.cls.xml
===================================================================
diff -u -r42197 -r42265
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfGenerator.cls.xml	(.../AankoopOrderRegelDixfGenerator.cls.xml)	(revision 42197)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfGenerator.cls.xml	(.../AankoopOrderRegelDixfGenerator.cls.xml)	(revision 42265)
@@ -21,7 +21,7 @@
 	Try {
 		#dim HoofdingIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelIterator).%New(Vestiging)
 		do ..Generate(HoofdingIterator)
-		Write !,"Klaar. Aantal minuten: " 
+		Write !,"Csv voor migratie 1402 AankoopOrderRegel voor "_Vestiging_" is klaar. Aantal minuten: " 
 		write $$TimeFromStart^vhLib()/60
 	} Catch {
 		Write ##class(TECH.ExceptionHandler).Catch().ToString()
@@ -38,6 +38,8 @@
 	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "CurrencyCode")
 	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "DeliveryDate")
 	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "ExternalItemId")
+	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "InventLocationId")
+	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "InventSiteId")
 	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "ItemId")
 	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "LineAmount")
 	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "LineNumber")
@@ -56,7 +58,7 @@
 	
 	Set AXRegelData.ScheidingsTeken = ";"	
 	Set AXRegelData.Iterator = HoofdingIterator
-	Set AXRegelData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"1401AankoopOrderRegel"_..Vestiging_".csv")
+	Set AXRegelData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"1402AankoopOrderRegel"_..Vestiging_".csv")
 	
 	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
 	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()