Index: KF21C.mac.rou
===================================================================
diff -u -r29059 -r31275
--- KF21C.mac.rou	(.../KF21C.mac.rou)	(revision 29059)
+++ KF21C.mac.rou	(.../KF21C.mac.rou)	(revision 31275)
@@ -48,8 +48,13 @@
 50 S FP=FP+100 W @F W:FC="F" "TE BETALEN" W:FC="C" "UW TEGOED " W " - KORT. KONT. : ",TTB-KKB," ",VM
  ;
 51 S KKBX=KKB I $L(VM) D S2 S KKBX=$J(NET-MST,0,UDEC)
-53 D KC^KF21B($S($G(BonKLNr):BonKLNr,1:KC),KC),^SFAKTBH S BF=$$FADEF^vhRtn1() D ^cT160 S @%Q1=1
+53 D KC^KF21B($S($G(BonKLNr):BonKLNr,1:KC),KC),^SFAKTBH S BF=$$FADEF^vhRtn1() D ^cT160 D BuildIndices S @%Q1=1
  ;
 YZ K NET,MST,BTW,EGA,TTB,KKB,KKBX,BR,VVD,KCF,KB,KK,KN,KX,LXT,U2,UG,UGK,UKILS,UR,VM,UPAR,UDEC,UCAECE,BonKLNr Q
  ;
+ 
+BuildIndices
+ S @("^"_Q_"VE.Index(""P"",FNR)")=BP 
+ S @("^"_Q_"VE.Index(""KL"",FNR)")=KC
+ Q
 
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
 
Index: vhDeploy/Deploy2015102xInstellenIndexAAenVE.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy2015102xInstellenIndexAAenVE.cls.xml	(revision 0)
+++ vhDeploy/Deploy2015102xInstellenIndexAAenVE.cls.xml	(revision 31275)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy2015102xInstellenIndexAAenVE">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Instellen Index AA en VE</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim Global As %String = ""
+	for Global="^KAA","^KVE" do ..BuildIndices(Global)
+]]></Implementation>
+</Method>
+
+<Method name="BuildIndices">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Global:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	#dim KeyRelatie As %String = $select(Global="^KAA":"LE",1:"KL")
+	
+	#dim InterneFirma As DOM.common.enu.InterneFirma 
+	for InterneFirma = ##class(DOM.common.enu.InterneFirma).VanHoeckeNv(),##class(DOM.common.enu.InterneFirma).HaluxNv() {
+		#dim Namespace As %String = ##class(DOM.common.NameSpaceBepaler).GeefNameSpaceVoorFirma(InterneFirma)
+		zn Namespace
+		#dim Reference As %String = Global
+	    for { set Reference = $query(@Reference) quit:Reference=""
+	    	#dim FactuurNr As %String = $qsubscript(Reference,2)
+	    	continue:$length(FactuurNr)>6
+	    	set @(Global_".Index")@(KeyRelatie,FactuurNr)=$piece(@Reference,"\",4)
+	    	set @(Global_".Index")@("P",FactuurNr)=$qsubscript(Reference,1)
+	    }
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>