Index: APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml
===================================================================
diff -u -r54157 -r54419
--- APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 54157)
+++ APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 54419)
@@ -47,6 +47,7 @@
 					Set NacalculatieDto.Palletprijs = $$$If(Levering.GeefAdres().GeefLand()=##class(DOM.common.enu.Land).Belgie(),..#PalletprijsBelgie,..#PalletprijsNederland)
 					Set NacalculatieDto.LijnTotaal = NacalculatieDto.Palletprijs * (Levering.GeefAantalEuroPalletten() + Levering.GeefAantalHalveEuroPalletten())
 					Set NacalculatieDto.TeBetalen = NacalculatieDto.LijnTotaal/2
+					Set NacalculatieDto.KlantOrdernummer = ..MaakKlantnummerLijst(Levering)
 					Do Resultaat.Insert(NacalculatieDto)
 				}
 			}
@@ -73,6 +74,22 @@
 	Quit ##class(TECH.StringUtils).RightTrimMultiple(BonnummerLijstje,"-")
 ]]></Implementation>
 </Method>
+
+<Method name="MaakKlantnummerLijst">
+<FormalSpec>Levering:DOM.TRANSP.impl.DataM.DataMLevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Bon As DOM.VKP.Bon
+	#dim KlantnummerLijst As %String = ""
+	#dim BonIterator As TECH.Iterator = Levering.GeefBonIterator()
+	While BonIterator.HasNext() {
+		Set Bon = BonIterator.Next()
+		Set KlantnummerLijst = KlantnummerLijst _ Bon.GeefDocumentReferenties().KlantOrderNummer_"-"
+	}
+	Quit ##class(TECH.StringUtils).RightTrimMultiple(KlantnummerLijst,"-")
+]]></Implementation>
+</Method>
 </Class>