Index: DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml
===================================================================
diff -u -r64347 -r64351
--- DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml	(.../NaleveringDataAanvuller.cls.xml)	(revision 64347)
+++ DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml	(.../NaleveringDataAanvuller.cls.xml)	(revision 64351)
@@ -118,7 +118,7 @@
 <Implementation><![CDATA[
 	#dim Vertaler As DOM.common.Transl.Vertaler = ..VertaalApi.GeefStandaardVertaler(Taal)
 	#dim ArrayKeyList As %ListOfDataTypes = ##class(TECH.ArrayUtils).ArrayKeysToList(..NaleveringDataArray)
-	#dim ArrayKeyListIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ArrayKeyList)
+	#dim ArrayKeyListIterator = ##class(TECH.ListIterator).%New(ArrayKeyList)
 	#dim NaLeveringDataIterator As TECH.Iterator
 	#dim MagHoofdingLijnGezetWorden As %Boolean = $$$True
 	#dim MagTekstToegevoegdWorden As %Boolean = $$$False
@@ -131,9 +131,14 @@
 	#dim NaleveringTekst As %String = ""
 	#dim NaleveringTekstLijn As %String
 	
+	#dim DelimiterNaKorttekstInfo As %String = $$$CRLF
+	If (..NaleveringDataArray.Count() > 20) {
+		Set DelimiterNaKorttekstInfo = " : "   ; Indien meer dan 20 items, dan info op 1 lijn zetten i.p.v. op 2 lijnen. 
+	}
+	
 	While ArrayKeyListIterator.HasNext() {
 		Set CurrentKorttekstKey = ArrayKeyListIterator.Next()
-		Set NaleveringTekstLijn = CurrentKorttekstKey _ $$$CRLF
+		Set NaleveringTekstLijn = CurrentKorttekstKey _ DelimiterNaKorttekstInfo
 		
 		Set NaLeveringDataIterator = ##class(TECH.ListIterator).%New(..NaleveringDataArray.GetAt(CurrentKorttekstKey))
 		While NaLeveringDataIterator.HasNext() {