Index: vhUnitTest/APPS/VKP/Commissie/impl/CommissieService/Test.cls.xml
===================================================================
diff -u -r29059 -r31287
--- vhUnitTest/APPS/VKP/Commissie/impl/CommissieService/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/VKP/Commissie/impl/CommissieService/Test.cls.xml	(.../Test.cls.xml)	(revision 31287)
@@ -6,8 +6,6 @@
 <Super>vhUnitTest.TestCase</Super>
 
 <Parameter name="CommissieID1">
-<Description>
-do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.VKP.Commissie.impl.CommissieService")</Description>
 <Type>%String</Type>
 <Default>320000</Default>
 </Parameter>
@@ -310,6 +308,7 @@
 	set ^KFA("F",..#CommissieID1,"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 $piece(^KVE(2003.03,..#CommissieID1),"\",4)=ConsumentNr
+	set ^KVE.Index("P",..#CommissieID1)=2003.03
 	
 	do ..ZetVoldaan(..#CommissieID1,$$INTDATE^vhLib.DataTypes("06.04.03"))
 
@@ -330,10 +329,10 @@
 	set ^KFA("F",..#CommissieID2,"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 $piece(^KVE(2003.03,..#CommissieID2),"\",4)=ConsumentNr
+	set ^KVE.Index("P",..#CommissieID2)=2003.03
 	
 	do ..ZetVoldaan(..#CommissieID2,$$INTDATE^vhLib.DataTypes("06.04.03"))
 	
-	
 	set ^KFA("F",..#ReedsVerstuurdeCommissieID,0,0)=ConsumentNr_"\C\06.04.03\1\EUR\06.03.03\105.14\103.04\0.00\0.00\0.00\105.14\2.1\105.14\\1\0#0.00\\\\\\\\\\"
     set ^KFA("F",..#ReedsVerstuurdeCommissieID,0,1)="0#105.14#\0#103.04#\\\\\\\\\\\\\\\\\\\\\\\\\"
     set ^KFA("F",..#ReedsVerstuurdeCommissieID,0,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
@@ -351,6 +350,7 @@
 	set ^KFA("F",..#ReedsVerstuurdeCommissieID,"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 $piece(^KVE(2003.03,..#ReedsVerstuurdeCommissieID),"\",4)=ConsumentNr
+	set ^KVE.Index("P",..#ReedsVerstuurdeCommissieID)=2003.03
 	
 	do ..ZetVoldaan(..#ReedsVerstuurdeCommissieID,$$INTDATE^vhLib.DataTypes("06.04.03"))
 ]]></Implementation>