Index: DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml
===================================================================
diff -u -r64351 -r64384
--- DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml	(.../NaleveringDataAanvuller.cls.xml)	(revision 64351)
+++ DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml	(.../NaleveringDataAanvuller.cls.xml)	(revision 64384)
@@ -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 = ##class(TECH.ListIterator).%New(ArrayKeyList)
+	Set ArrayKeyListIterator = ##class(TECH.ListIterator).%New(ArrayKeyList)
 	#dim NaLeveringDataIterator As TECH.Iterator
 	#dim MagHoofdingLijnGezetWorden As %Boolean = $$$True
 	#dim MagTekstToegevoegdWorden As %Boolean = $$$False
@@ -131,6 +131,11 @@
 	#dim NaleveringTekst As %String = ""
 	#dim NaleveringTekstLijn As %String
 	
+	//Quit:(..NaleveringDataArray.Count() > 40)   ; Activeer deze Quit om (te) grote nalevering-data volledig te skippen, m.a.w. geen nalevering-info op de leveringsbon. 
+	
+	#dim MaxItemsBeforeCutOff As %Integer = 40
+	#dim AantalItems As %Integer = 0
+	
 	#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. 
@@ -139,6 +144,7 @@
 	While ArrayKeyListIterator.HasNext() {
 		Set CurrentKorttekstKey = ArrayKeyListIterator.Next()
 		Set NaleveringTekstLijn = CurrentKorttekstKey _ DelimiterNaKorttekstInfo
+		Set AantalItems = ArrayKeyListIterator.Key()
 		
 		Set NaLeveringDataIterator = ##class(TECH.ListIterator).%New(..NaleveringDataArray.GetAt(CurrentKorttekstKey))
 		While NaLeveringDataIterator.HasNext() {
@@ -157,7 +163,11 @@
 			Set MagTekstLijnToegevoegdWorden = $$$True
 		}
 		
-		If MagTekstLijnToegevoegdWorden {
+		If (AantalItems = MaxItemsBeforeCutOff) {
+			Set:(ArrayKeyListIterator.HasNext()) NaleveringTekstLijn = " ... "   ; CutOff bereikt en er zijn nog meer items. 
+		}
+		
+		If (AantalItems <= MaxItemsBeforeCutOff) && MagTekstLijnToegevoegdWorden {
 			Set NaleveringTekstLijn = ##class(TECH.StringUtils).RightTrimMultiple(NaleveringTekstLijn, ",", " ") _ $$$CRLF
 			Set NaleveringTekst = NaleveringTekst _ NaleveringTekstLijn
 			Set MagTekstLijnToegevoegdWorden = $$$False