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()
]]>
+
+
+
+
+
+
+
+