Index: APPS/TRANSP/impl/TransportService.cls.xml
===================================================================
diff -u -r66251 -r74677
--- APPS/TRANSP/impl/TransportService.cls.xml	(.../TransportService.cls.xml)	(revision 66251)
+++ APPS/TRANSP/impl/TransportService.cls.xml	(.../TransportService.cls.xml)	(revision 74677)
@@ -97,6 +97,7 @@
 	Set LeveringInfo.AantalVerpakkingEenhedenReedsVerdeeld = Levering.GeefAantalLanggoed()
 	Set LeveringInfo.Gewicht = Levering.GeefNettoGewicht()
 	Set LeveringInfo.GewichtReedsVerdeeld = ..GeefGewichtLanggoed(Levering)
+	Set LeveringInfo.EmailAddressTrackTrace = ..OrderAPI.GeefBon(LeveringID).GeefEmailAddressTrackTrace()
 	
 	If (VerpakkingEenheden.Size) {
 		#Dim Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(VerpakkingEenheden)
@@ -128,7 +129,7 @@
 	If ..ProjectSettingsAPI.IsTranssmartActive(){
 		If ..OrderAPI.BestaatBon(LeveringID) {
 			#dim Bon as DOM.VKP.Bon = ..OrderAPI.GeefBon(LeveringID)
-			If (Bon.GeefVerzendwijze() = ##class(DOM.VKP.enu.VerzendWijze).Distributeur1()) || ($E(Bon.GeefVerzendwijze(),1,2)="HD") || ($E(Bon.GeefVerzendwijze(),1,2)="DA"){
+			If (Bon.GeefVerzendwijze() = ##class(DOM.VKP.enu.VerzendWijze).Distributeur1()) || ($E(Bon.GeefVerzendwijze(),1,2)="HD") || ($E(Bon.GeefVerzendwijze(),1,2)="DA") || ($E(Bon.GeefVerzendwijze(),1,2)="DO") || ($E(Bon.GeefVerzendwijze(),1,2)="HW")|| ($E(Bon.GeefVerzendwijze(),1,2)="BS")|| ($E(Bon.GeefVerzendwijze(),1,2)="HS"){
 				Set Referentie = RitID _ $Extract(LeveringID,*-4,*)
 			}
 		}
@@ -156,6 +157,9 @@
 	Set LeveringAdresDto.Volmacht = Adres.GeefVolmacht()
 	Set LeveringAdresDto.Taal = Adres.GeefTaal()
 	
+	Set LeveringAdresDto.Provincie = Adres.GeefProvincie()
+	Set LeveringAdresDto.Telefoon = Adres.GeefTelefoon()
+	
 	/// Tijdelijk omdat volmacht enkel naar België mag gaan. Nederland kan nog niet overweg met volmachten /// TO DO
 	If ($$$Not(LeveringAdresDto.Volmacht = "")) && ($$$Not(Adres.GeefLand().GeefID() = Belgie.GeefID())) {
 		Do Opmerkingen.Insert(LeveringAdresDto.Volmacht)
@@ -275,14 +279,6 @@
 	Quit AfzenderAdres
 ]]></Implementation>
 </Method>
-
-<Method name="DoeNacalculatie">
-<FormalSpec>KlantId:DOM.common.PartijID,Transporteur...:DOM.TRANSP.enu.Transporteur</FormalSpec>
-<Implementation><![CDATA[
-	#dim TransporteurIterator As TECH.Iterator = ##class(TECH.ArrayOneDimIterator).%New(.Transporteur)
-	Do ##class(APPS.TRANSP.impl.TransportService.Nacalculator).%New().DoeNacalculatie(KlantId, TransporteurIterator)
-]]></Implementation>
-</Method>
 </Class>