Index: cT645.mac.rou
===================================================================
diff -u -r29059 -r31373
--- cT645.mac.rou	(.../cT645.mac.rou)	(revision 29059)
+++ cT645.mac.rou	(.../cT645.mac.rou)	(revision 31373)
@@ -102,7 +102,14 @@
 9	S R="HULPE" D S1^cA348 I SWAN S R="HULPEA" D S1^cA348
 91	S R="TRANSACT" D S1^cA348     ; einde transactie
 	;
-YZ	K R1,R2,R3,R4,BC,BH,X,FAK,^HULP(boot,$J,0),HULPE,HULPEA,FNX,HIS,NET,AFBTW,AFBTWA,NABTW,INV,KKBX,FT,BR,CE,Y,AVE,SWAV,BRA,OM1,OGM Q
+YZ	do BuildIndices
+	do ##class(DOM.BKH.event.EventRaiser).RaiseAankoopFactuurIngeboektEvent(FNR)
+	K R1,R2,R3,R4,BC,BH,X,FAK,^HULP(boot,$J,0),HULPE,HULPEA,FNX,HIS,NET,AFBTW,AFBTWA,NABTW,INV,KKBX,FT,BR,CE,Y,AVE,SWAV,BRA,OM1,OGM Q
 	;
+	
+BuildIndices
+	S @("^"_Q_"AA.Index(""P"",FNR)")=BP
+	S @("^"_Q_"AA.Index(""LE"",FNR)")=$P(@("^"_Q_"LE(I1,0)"),D)
+	Q	
+	
 ZZ	; 04.04.05 - 14 u 29 * V8.03
-