Index: PRStockSan.mac.rou
===================================================================
diff -u -r57304 -r62525
--- PRStockSan.mac.rou	(.../PRStockSan.mac.rou)	(revision 57304)
+++ PRStockSan.mac.rou	(.../PRStockSan.mac.rou)	(revision 62525)
@@ -2,27 +2,7 @@
 #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)
@@ -39,7 +19,7 @@
  Set Dev=$$OPEN^vhDEV(,"Stocksanering.txt","W","T")
  Use Dev
  Set PRNr=0
- Write $TR("IdentNr;KortTekst;HG;GR;SG;SortKey;LevNm;S/N;Kind6;GemWVK;GemFysSt;Rot;Telb;#Klant;JaarVkp;FysSt;TheoSt;PraktSt;WV;LevTrm;IsKS;ABC;CiffPPL;DB%;Vork%;GenType;ProductGroep;kind/moeder;mime;omzet;ppl;schaduwppl;grootvpk;kleinvpk;oms 1;oms 2;oms 3;LinkType;Uitverkoop",";",$C(9)),!
+ Write $TR("IdentNr;KortTekst;HG;GR;SG;SortKey;LevNm;S/N;Kind6;GemWVK;GemFysSt;Rot;Telb;#Klant;JaarVkp;FysSt;TheoSt;PraktSt;WV;LevTrm;IsKS;ABC;CiffPPL;DB%;Vork%;GenType;ProductGroep;kind/moeder;mime;omzet;ppl;schaduwppl;grootvpk;kleinvpk;oms 1;oms 2;oms 3;LinkType;Uitverkoop;EersteAankoop",";",$C(9)),!
  For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do  ;Quit:PRNr>2000 
  .Do FETCHPR^UTILI(PRNr,"Rec")
  .;If ($P(Rec(0),D,3)?4.7N)&&($P(Rec("J"),D,1)="6332")&&'$P(Rec(0),D,14) Quit ; geen afgeleide prod van HALUX en zonder stock
@@ -92,10 +72,32 @@
  .Write oProduct.Tekst.OmschrijvingN3,$C(9)
  .Write oProduct.LinkType,$C(9)
  .Write $$$ExcelDat(oProduct.Uitverkoop),$C(9)
+ .Write $$$ExcelDat($$EersteAankoop(PRNr)),$C(9)
  .Write !
  Do CLOSE^vhDEV(Dev)
  Quit
-
+ 
+EersteAankoopExport ; Qlik Eerste aankoopdatum van beslag en maatwerk (via component)
+ 
+ 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 VanafDatum=$$INTDATE^vhLib.DataTypes("01/01/2018")
+ 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 
+ .Quit:'$D(^PRHIST(PRNr)) ; nooit verkocht
+ .Quit:+$P(^PRHIST(PRNr,$O(^PRHIST(PRNr,""),-1)),"\")<VanafDatum
+ .; nooit verkocht
+ .Write Translator.GeefItemIDForAX(PRNr),*9
+ .Write Translator.ZoekRecensteProductIDForAX(PRNr),*9
+ .Write $$$PRGet($$$KortTekst),*9
+ .Write PRNr, *9
+ .Write $$$ExcelDat($$EersteAankoop(PRNr))
+ .Write !
+ Do CLOSE^vhDEV(Dev)
+ Quit
 EersteAankoop(MPRNr)
  New EersteDatum,EerstKindDatum,BSKey
  If $D(^PRBS("BS",MPRNr))
@@ -177,3 +179,4 @@
  Set CifPPL=PPL*(100-%Korting)/100*(100+%Cif)/100,CifPPL=$J(CifPPL,1,4)
  Quit CifPPL
 
+