Index: cT643.mac.rou
===================================================================
diff -u -r29059 -r31275
--- cT643.mac.rou	(.../cT643.mac.rou)	(revision 29059)
+++ cT643.mac.rou	(.../cT643.mac.rou)	(revision 31275)
@@ -35,7 +35,8 @@
 	; Oproepen ingave recyclagebijdragen
 43	D REC^cTR1(1)
 	;
-Y	do ##class(DOM.BKH.event.EventRaiser).RaiseAankoopFactuurIngeboektEvent(FNR)
+Y	do BuildIndices
+	do ##class(DOM.BKH.event.EventRaiser).RaiseAankoopFactuurIngeboektEvent(FNR)
 	I 'SWTOL G ^cT640
 YA	L -@("^"_Q_"LE(I1)")
 YZ	Q
@@ -68,5 +69,10 @@
 S2Z	K S1,S2,S3,S4 Q
 	;
 	;
+BuildIndices
+	S @("^"_Q_"AA.Index(""P"",FNR)")=BP
+	S @("^"_Q_"AA.Index(""LE"",FNR)")=$P(@("^"_Q_"LE(I1,0)"),D)
+	Q	
+	
 ZZ	; 19.03.07 - 15 u 31 * V8.08