Index: APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler.cls.xml =================================================================== diff -u -r33523 -r33683 --- APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler.cls.xml (.../TussenEtiketVoorToeleveringBepaler.cls.xml) (revision 33523) +++ APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler.cls.xml (.../TussenEtiketVoorToeleveringBepaler.cls.xml) (revision 33683) @@ -63,7 +63,7 @@ Set KennisAnkerIterator = ..KennisAnkerRepository.GeefKennisAnkerIterator(..ToeleveringService.GeefKlant(ToeleveringID).GeefID(), ProductIDIterator,ActiedomeinIterator) While KennisAnkerIterator.HasNext() { #dim KennisAnker As Derde.Kennis.Kennis = KennisAnkerIterator.Next() - Set KennisAnkersTekst = KennisAnkersTekst _ KennisAnker.Msg + Set KennisAnkersTekst = KennisAnkersTekst _ " " _##class(TECH.StringUtils).Replace(##class(TECH.StringUtils).Replace(KennisAnker.Msg,$C(13),""),$C(10)," ") Set:KennisAnkerIterator.HasNext() KennisAnkersTekst = KennisAnkersTekst _ ";" } Quit KennisAnkersTekst Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler/MaakTussenEtiket.cls.xml =================================================================== diff -u -r33474 -r33683 --- vhUnitTest/APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler/MaakTussenEtiket.cls.xml (.../MaakTussenEtiket.cls.xml) (revision 33474) +++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler/MaakTussenEtiket.cls.xml (.../MaakTussenEtiket.cls.xml) (revision 33683) @@ -92,6 +92,38 @@ Do ..KennisAnkerRepositoryMock.Verifieer() ]]> + + + + + + + +