Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml =================================================================== diff -u -r62517 -r62518 --- WSimpl/Halux/AAP/DnaCodeService.cls.xml (.../DnaCodeService.cls.xml) (revision 62517) +++ WSimpl/Halux/AAP/DnaCodeService.cls.xml (.../DnaCodeService.cls.xml) (revision 62518) @@ -787,7 +787,11 @@ While FrequentieItemIterator.HasNext(){ #dim Aantal As %Double = FrequentieItemIterator.Next() Set VhossKastMetAantallen = ##class(WS.Halux.AAP.RondAfVhossBatch.VhossKastenMetAantallen).%New() - Set VhossKastMetAantallen.Vhosskast = FrequentieItemIterator.Key() + If +FrequentieItemIterator.Key() = FrequentieItemIterator.Key() { + Set VhossKastMetAantallen.Vhosskast = "Vhoss "_FrequentieItemIterator.Key() + } Else { + Set VhossKastMetAantallen.Vhosskast = FrequentieItemIterator.Key() + } Set VhossKastMetAantallen.AantalLades = Aantal Set VhossKastMetAantallen.AantalLadesGescand = AantallenGescandPerVhoss.GeefFrequentieVanItem(VhossKastMetAantallen.Vhosskast) If $$$Not(VhossKastMetAantallen.AantalLades = VhossKastMetAantallen.AantalLadesGescand) { Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossBatch/Test.cls.xml =================================================================== diff -u -r62517 -r62518 --- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossBatch/Test.cls.xml (.../Test.cls.xml) (revision 62517) +++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossBatch/Test.cls.xml (.../Test.cls.xml) (revision 62518) @@ -86,7 +86,7 @@ #dim Antwoord As WS.Halux.AAP.RondAfVhossBatchResponse = DnaCodeService.RondAfVhossBatch(Request) Do $$$AssertEquals(Antwoord.VhossKastenMetAantallen.Count(),1) - Do $$$AssertEquals(Antwoord.VhossKastenMetAantallen.GetAt(1).Vhosskast,"1") + Do $$$AssertEquals(Antwoord.VhossKastenMetAantallen.GetAt(1).Vhosskast,"Vhoss 1") Do $$$AssertEquals(Antwoord.VhossKastenMetAantallen.GetAt(1).AantalLades,1) Do $$$AssertEquals(Antwoord.VhossKastenMetAantallen.GetAt(1).AantalLadesGescand,0) Do DnaCodeRepositoryMock.Verifieer()