Index: WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r61057 -r61352
--- WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61057)
+++ WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61352)
@@ -131,8 +131,10 @@
 	Do ItemIterator.Reset()
 	While ItemIterator.HasNext() {
 		Set ProductieSequentieItem = ItemIterator.Next()
-		If ProductieSequentieItem.VHOSSID = VhossidVanDnaCode {
-			Do Resultaat.DnaCodes.Insert(..DnaCodeNaarDto(..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(ProductieSequentieItem.BatchID,ProductieSequentieItem.SequentieNummer).Next()))
+		If ProductieSequentieItem.%IsA(##class(APPS.Halux.common.VHOSSProductieSequentieItem).%ClassName($$$True)) {
+			If ProductieSequentieItem.VHOSSID = VhossidVanDnaCode {
+				Do Resultaat.DnaCodes.Insert(..DnaCodeNaarDto(..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(ProductieSequentieItem.BatchID,ProductieSequentieItem.SequentieNummer).Next()))
+			}
 		}
 	}