Index: WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r61510 -r61511
--- WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61510)
+++ WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61511)
@@ -31,10 +31,7 @@
 		Quit:$$$Not(..SequentieService.HeeftSequentie(DnaCode.BatchId)) Resultaat
 	
 		Set ItemIterator = ..GeefTbxSequentieIterator(DnaCode.BatchId)
-		Set AantallenPerVhoss = ##class(TECH.FrequentieTabel).%New()
-		Set AantallenGescandPerVhoss = ##class(TECH.FrequentieTabel).%New()
 		#dim TbxSequentie As %CacheString
-		
 		While ItemIterator.HasNext() {
 			Set TbxSequentie = ItemIterator.Next()
 			Do ..VerwerkDnaCode(DnaCode, TbxSequentie.GetData(1), TbxSequentie.GetData(2))
@@ -46,14 +43,11 @@
 		#dim ProductieSequentie As APPS.Halux.common.ProductieSequentie = ..SequentieService.GeefProductieSequentie(DnaCode.BatchId)
 		Set ItemIterator = ProductieSequentie.GeefItemIterator()
 		#dim ProductieSequentieItem As APPS.Halux.common.VHOSSProductieSequentieItem
-		Set AantallenPerVhoss = ##class(TECH.FrequentieTabel).%New()
-		Set AantallenGescandPerVhoss = ##class(TECH.FrequentieTabel).%New()
 		While ItemIterator.HasNext() {
 			Set ProductieSequentieItem = ItemIterator.Next()
 			Do ..VerwerkDnaCode(DnaCode, ProductieSequentieItem.SequentieNummer, ProductieSequentieItem.VHOSSID)
 		}
 	}
-	#dim VhossidVanDnaCode As %String = ""
 ]]></Implementation>
 </Method>