Index: PRStockSan.mac.rou
===================================================================
diff -u -r29059 -r57303
--- PRStockSan.mac.rou	(.../PRStockSan.mac.rou)	(revision 29059)
+++ PRStockSan.mac.rou	(.../PRStockSan.mac.rou)	(revision 57303)
@@ -1,5 +1,28 @@
 #Include vhLib.Macro
+#Include Prod.Product
+
 PRStockSan
+EersteAankoopExport ; Stock lijst voor stock sanering
+ 
+ Set Dev=0
+ Set Dev=$$OPEN^vhDEV("\\qlik-prod.vanhoecke.be\d$\Qlik Sense Data Storage\2. Import\Productmgmt\","Product EersteAankoop Admin.txt","W","T")
+ Use Dev
+ Set PRNr=0
+ Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+ Write $TR("ItemID;ProductID;KortTekst;PRNr;EersteAankoop",";",$C(9)),!
+ For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do  ;Quit:PRNr>200 
+ .Write Translator.GeefItemIDForAX(PRNr),*9
+ .Write Translator.ZoekProductIDForAX(PRNr),*9
+ .Write $$$PRGet($$$KortTekst),*9
+ .Write PRNr, *9
+ .Write $$$ExcelDat($$EersteAankoop(PRNr))
+ .Write !
+ Do CLOSE^vhDEV(Dev)
+ Quit
+
+Geef
+
+
 STOCKSAN ; Stock lijst voor stock sanering
  Do BLDCONTR^Stat.Product.StockWaarde
  Set EindDat=$$CALCDATE^vhLib.DataTypes($H,"M",-1)
Index: AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml
===================================================================
diff -u -r54528 -r57303
--- AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml	(.../Translator.cls.xml)	(revision 54528)
+++ AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml	(.../Translator.cls.xml)	(revision 57303)
@@ -2,6 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="AX.Uitgaand.EC.DataAX.impl.Translator">
 <ClassType/>
+<IncludeCode>Prod.Product,BL.Derde.LevSpecifiek</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.RegisteredObject</Super>
 
@@ -17,6 +18,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekProductIDForAX">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ProductID=""
+	If $$$PRGet($$$LeveranciersNr)=$$$LevHalux 
+	{
+		Set (ItemId, ConfigId)=""
+		Set VolgNr=$O(^PRHIST(PRNr,""),-1)
+		While (VolgNr'="")&&(ItemId="")
+		{
+			Set ItemId=$P(^PRHIST(PRNr,VolgNr),"\",21)
+			Set ConfigId=$P(^PRHIST(PRNr,VolgNr),"\",20)
+
+			Set VolgNr=$O(^PRHIST(PRNr,VolgNr),-1)
+		}
+		If ItemId'=""
+		{
+			Set ProductID=ItemId_" : "_ConfigId_" : : :"
+		}
+	}
+	Else
+	{
+		Set ProductID=..GeefItemIDForAX(PRNr)
+	}
+	Quit ProductID
+]]></Implementation>
+</Method>
+
 <Method name="GeefItemIDForAX">
 <FormalSpec>PRNr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>