Index: WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml =================================================================== diff -u -r62573 -r62821 --- WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml (.../AantalGescandeVhossSequentieItemsBepaler.cls.xml) (revision 62573) +++ WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml (.../AantalGescandeVhossSequentieItemsBepaler.cls.xml) (revision 62821) @@ -111,6 +111,7 @@ Set AantallenPerVhoss = ##class(TECH.FrequentieTabel).%New() Set AantallenGescandPerVhoss = ##class(TECH.FrequentieTabel).%New() #dim VhossidVanDnaCode As %String = "" + #dim ZijvlakIdVanDnaCode As %String = "" While ItemIterator.HasNext() { Set ProductieSequentieItem = ItemIterator.Next() If ProductieSequentieItem.%IsA(##class(APPS.Halux.common.VHOSSProductieSequentieItem).%ClassName($$$True)) { @@ -120,14 +121,15 @@ } If DnaCode.SequentieNummer = ProductieSequentieItem.SequentieNummer { Set VhossidVanDnaCode = ProductieSequentieItem.VHOSSID + Set ZijvlakIdVanDnaCode = ProductieSequentieItem.ZijVlakID } } } Do ItemIterator.Reset() While ItemIterator.HasNext() { Set ProductieSequentieItem = ItemIterator.Next() If ProductieSequentieItem.%IsA(##class(APPS.Halux.common.VHOSSProductieSequentieItem).%ClassName($$$True)) { - If ProductieSequentieItem.VHOSSID = VhossidVanDnaCode { + If ((ProductieSequentieItem.VHOSSID = VhossidVanDnaCode) && (ProductieSequentieItem.ZijVlakID = ZijvlakIdVanDnaCode)) { Do Resultaat.DnaCodes.Insert(..DnaCodeNaarDto(..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(ProductieSequentieItem.BatchID,ProductieSequentieItem.SequentieNummer).Next())) } }