Index: Flow/Facturatie/BulkFacturatie.cls.xml
===================================================================
diff -u -r33226 -r35750
--- Flow/Facturatie/BulkFacturatie.cls.xml	(.../BulkFacturatie.cls.xml)	(revision 33226)
+++ Flow/Facturatie/BulkFacturatie.cls.xml	(.../BulkFacturatie.cls.xml)	(revision 35750)
@@ -217,6 +217,7 @@
  	. . . . Do ##class(vhLib.Logger).%New("Flow.Facturatie").Info("BulkFacturatie->Serie","BonType : '"_$G(BonType)_"'"_$C(13,10)_"BonNr = "_$G(BonNr)_$C(13,10)_"FNR : "_$G(FNR))
  	. . . . Do:($L(FNR)=5) ##class(vhLib.Logger).%New("Flow.Facturatie").WarningMail("BulkFacturatie->Serie","FactuurNr heeft maar 5 char ipv 6."_$C(13,10)_"BonType : "_$G(BonType)_"'"_$C(13,10)_"BonNr = "_$G(BonNr)_$C(13,10)_"FNR : "_$G(FNR))
  	. . . . Do ..StelInFacturatieWijzeOpFactuur(KLNr,FNR)
+ 	. . . . Do ..BuildFactuurIndices(KLNr,FNR,FDT)
  	. . . . Do ChargeTraceFactuur^KF20(FNR),CheckIncasso^KF20(FNR),##class(DOM.VKP.event.VerkoopfactuurEventRaiser).RaiseVerkoopfactuurGemaaktEvent(FNR)
  	. . . . Do PrintAndFileDoc^KF20(,FNR),CHKEDIFAX^KF20(KC,"F",FNR),MoveBonToFactuur^KLACHT4(FNR)
  	. . Do ..UnLock(KLNr)
@@ -243,6 +244,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BuildFactuurIndices">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KLNr:%String,FactuurID:%String,FactuurDatum:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Periode As %String = $$EXTDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes(FactuurDatum),"DM4")
+	set ^KFA.Index.FactuurPeriode(FactuurID)= Periode
+	set ^KFA.Index.PeriodeFactuur(Periode,FactuurID)=""
+]]></Implementation>
+</Method>
+
 <Method name="GeefFacturatieWijzeVanKlant">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KLNr:%String</FormalSpec>
Index: DOM/BKH/impl/DataM/DataMVerkoopFactuur.cls.xml
===================================================================
diff -u -r34009 -r35750
--- DOM/BKH/impl/DataM/DataMVerkoopFactuur.cls.xml	(.../DataMVerkoopFactuur.cls.xml)	(revision 34009)
+++ DOM/BKH/impl/DataM/DataMVerkoopFactuur.cls.xml	(.../DataMVerkoopFactuur.cls.xml)	(revision 35750)
@@ -18,7 +18,7 @@
 
 <Method name="GeefKlantNr">
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	quit $piece(..Data,"\",4)
+<Implementation><![CDATA[	quit ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefFactuur(..Factuur).GeefKlant().GeefCode()
 ]]></Implementation>
 </Method>
 
@@ -30,7 +30,7 @@
 
 <Method name="GeefKlantNaam">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit $piece(..Data,"\",5)
+<Implementation><![CDATA[	quit ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefFactuur(..Factuur).GeefKlant().GeefNaam()
 ]]></Implementation>
 </Method>
 
Index: DOM/BKH/impl/DataM/VerkoopFactuurInPeriodeIterator.cls.xml
===================================================================
diff -u -r29059 -r35750
--- DOM/BKH/impl/DataM/VerkoopFactuurInPeriodeIterator.cls.xml	(.../VerkoopFactuurInPeriodeIterator.cls.xml)	(revision 29059)
+++ DOM/BKH/impl/DataM/VerkoopFactuurInPeriodeIterator.cls.xml	(.../VerkoopFactuurInPeriodeIterator.cls.xml)	(revision 35750)
@@ -54,7 +54,7 @@
 <Method name="BepaalVolgendeFactuur">
 <Implementation><![CDATA[
 	#dim HuidigeFactuur As %String = ..VolgendeFactuurID
-	for  set HuidigeFactuur = $order(^KVE(..Periode,HuidigeFactuur)) quit:HuidigeFactuur=""  quit:HuidigeFactuur?6N
+	for  set HuidigeFactuur = $order(^KFA.Index.PeriodeFactuur(..Periode,HuidigeFactuur)) quit:HuidigeFactuur=""  quit:HuidigeFactuur?6N
 	set ..VolgendeFactuurID = HuidigeFactuur
 ]]></Implementation>
 </Method>
Index: vhUnitTest/DOM/VKP/Factuur/Test.cls.xml
===================================================================
diff -u -r31288 -r35750
--- vhUnitTest/DOM/VKP/Factuur/Test.cls.xml	(.../Test.cls.xml)	(revision 31288)
+++ vhUnitTest/DOM/VKP/Factuur/Test.cls.xml	(.../Test.cls.xml)	(revision 35750)
@@ -218,9 +218,7 @@
 	set ^KFA("F",320000,"U323296",106)="703100 \74200\1\\\53.27\21#0\0\53.27\53.27\703100 \L\12.12.02 RAAMORDER\\300\53.27\KF6\\\\E1\EUR\\\03/10\=\\KOM\\\\67.45\42.479295\53.27\\"
 	
 	set ^KKL(..Consument.GeefKlantIndexKKL(),320000)="F\06.03.03\06.03.03\105.14\105.14\4.46\\\\105.14"
-	set $piece(^KVE(2003.03,320000),"\",4)=..GeefConsumentNr()
-	set ^KVE.Index("P",320000)=2003.03
-	set ^KVE.Index("KL",320000)=..GeefConsumentNr()
+	set ^KFA.Index.FactuurPeriode(320000)=2003.03
 
 	set ^KFA("F",320001,0,0)=..GeefConsumentNr()_"\F\06.03.03\1\EUR\06.03.03\105.14\103.04\0.00\0.00\0.00\105.14\2.1\105.14\\\0#0.00\\\\\\\\\\"
     set ^KFA("F",320001,0,1)="0#105.14#\0#103.04#\\\\\\\\\\\\\\\\\\\\\\\\\"
@@ -240,9 +238,7 @@
 	set ^KFA("F",320001,"U323296",106)="703100 \74200\1\\\53.27\21#0\0\53.27\53.27\703100 \L\12.12.02 RAAMORDER\\300\53.27\KF6\\\\E1\EUR\\\03/10\=\\KOM\\\\67.45\42.479295\53.27\\"
 
 	set ^KKL(..Consument.GeefKlantIndexKKL(),320001)="F\06.03.03\06.03.03\105.14\105.14\4.46"
-	set $piece(^KVE(2003.03,320001),"\",4)=..GeefConsumentNr()
-	set ^KVE.Index("P",320001)=2003.03
-	set ^KVE.Index("KL",320001)=..GeefConsumentNr()
+	set ^KFA.Index.FactuurPeriode(320001)=2003.03
 
 	Set ..DocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New()
 	Set ..DocumentReferenties.OrderReferentie = "UTOrderReferentie"
@@ -267,9 +263,6 @@
 	set ^KFA("F",320002,"U323296",106)="703100 \74200\1\\\53.27\21#0\0\53.27\53.27\703100 \L\12.12.02 RAAMORDER\\300\53.27\KF6\\\\E1\EUR\\\03/10\=\\KOM\\\\67.45\42.479295\53.27\\"
 
 	set ^KKL(..Consument.GeefKlantIndexKKL(),320002)="F\06.03.03\06.03.03\105.14\105.14\4.46"
-	set $piece(^KVE(2003.03,320002),"\",4)=..GeefConsumentNr()
-	set ^KVE.Index("P",320002)=2003.03
-	set ^KVE.Index("KL",320001)=..GeefConsumentNr()
 
     Quit $$$OK
 ]]></Implementation>
Index: DOM/BKH/impl/DataM/DataMBoekhoudingAPI.cls.xml
===================================================================
diff -u -r31292 -r35750
--- DOM/BKH/impl/DataM/DataMBoekhoudingAPI.cls.xml	(.../DataMBoekhoudingAPI.cls.xml)	(revision 31292)
+++ DOM/BKH/impl/DataM/DataMBoekhoudingAPI.cls.xml	(.../DataMBoekhoudingAPI.cls.xml)	(revision 35750)
@@ -40,7 +40,7 @@
 <Method name="BestaatVerkoopFactuur">
 <FormalSpec>VerkoopfactuurID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit $data(^KVE.Index("P", VerkoopfactuurID))
+<Implementation><![CDATA[	quit $data(^KFA.Index.FactuurPeriode(VerkoopfactuurID))
 ]]></Implementation>
 </Method>
 
@@ -70,7 +70,7 @@
 <FormalSpec>VerkoopfactuurID:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ^KVE.Index("P", VerkoopfactuurID)
+<Implementation><![CDATA[	quit ^KFA.Index.FactuurPeriode(VerkoopfactuurID)
 ]]></Implementation>
 </Method>
 
Index: vhDeploy/Deploy20160708xOpzettenIndexVoorFacturen.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20160708xOpzettenIndexVoorFacturen.cls.xml	(revision 0)
+++ vhDeploy/Deploy20160708xOpzettenIndexVoorFacturen.cls.xml	(revision 35750)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20160708xOpzettenIndexVoorFacturen">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Opzetten Index Voor Facturen</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim OrderAPI As DOM.VKP.OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+	#dim FactuurID As %String = ""
+	for{ set FactuurID = $order(^KFA("F",FactuurID)) quit:FactuurID=""
+		#dim Factuur As DOM.VKP.Factuur = OrderAPI.GeefFactuur(FactuurID)
+		#dim Periode As %String = $$EXTDATE^vhLib.DataTypes(Factuur.GeefFactuurDatum(),"DM4")
+		set ^KFA.Index.FactuurPeriode(FactuurID)= Periode
+		set ^KFA.Index.PeriodeFactuur(Periode,FactuurID)=""
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>