Index: PRStockSan.mac.rou
===================================================================
diff -u -r57303 -r57304
--- PRStockSan.mac.rou	(.../PRStockSan.mac.rou)	(revision 57303)
+++ PRStockSan.mac.rou	(.../PRStockSan.mac.rou)	(revision 57304)
@@ -96,6 +96,47 @@
  Do CLOSE^vhDEV(Dev)
  Quit
 
+EersteAankoop(MPRNr)
+ New EersteDatum,EerstKindDatum,BSKey
+ If $D(^PRBS("BS",MPRNr))
+ {
+	 Set BSKey=$O(^PRBS("BS",MPRNr,""))
+	 Set EersteDatum=""
+	 While BSKey'=""
+	 {
+		If ($P(^PRBS("BS",MPRNr,BSKey),"\",3)="H")||($P(^PRBS("BS",MPRNr,BSKey),"\",3)="K")
+		{
+			Set KPRNr=$P(^PRBS("BS",MPRNr,BSKey),"\",1)
+	 		Set EerstKindDatum=$$EersteAankoopHist(KPRNr)
+			If (EersteDatum="") || ((EerstKindDatum'="") && (EerstKindDatum>EersteDatum))
+			{
+				Set EersteDatum=EerstKindDatum
+			}
+		}
+	 	Set BSKey=$O(^PRBS("BS",MPRNr,BSKey))
+	}
+ }
+ Else
+ {
+	 Set EersteDatum=$$EersteAankoopHist(MPRNr)
+ }
+ Quit EersteDatum
+ 	
+EersteAankoopHist(PRNr)
+ New Key,I,Rec,EersteDatum
+ Quit:'PRNr ""
+ Quit:$D(^||EersteAankoop(PRNr)) ^||EersteAankoop(PRNr)
+ Set Key=""
+ Set EersteDatum=""
+ For  Set Key=$O(^PRHIST(PRNr,Key)) Quit:Key=""  Do  Quit:EersteDatum
+ . Set Rec=^PRHIST(PRNr,Key)
+ . Quit:$P(Rec,"\",4)'="I"
+ . Quit:$P(Rec,"\",13) ; fusie
+ . Set EersteDatum=+$P(Rec,"\",1)
+ Set ^||EersteAankoop(PRNr)=EersteDatum
+ Quit EersteDatum
+ ;
+
 StockSaneringViaProforma
  New R,File,KLNr,Date,PROFNr,BONNr,PROFLNr,StockSan,PRNr,Aantal,KortTekst,CifPPL
  Set File=$$OPEN^vhDEV(,"StockSanering.Txt","NW")