Index: APPS/TRANSP/impl/TransportService.cls.xml
===================================================================
diff -u -r40944 -r74677
--- APPS/TRANSP/impl/TransportService.cls.xml	(.../TransportService.cls.xml)	(revision 40944)
+++ APPS/TRANSP/impl/TransportService.cls.xml	(.../TransportService.cls.xml)	(revision 74677)
@@ -13,19 +13,40 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProjectSettingsAPI">
+<Type>DOM.common.impl.ProjectSettingsAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderAPI">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>EmailVoorBevestigingBepaler:APPS.TRANSP.impl.TransportService.EmailVoorBevestigingBepaler="",VerpakkingEenheidFactory:APPS.TRANSP.impl.VerpakkingEenheidFactory</FormalSpec>
+<FormalSpec>EmailVoorBevestigingBepaler:APPS.TRANSP.impl.TransportService.EmailVoorBevestigingBepaler="",VerpakkingEenheidFactory:APPS.TRANSP.impl.VerpakkingEenheidFactory="",ProjectSettingsAPI:DOM.common.impl.ProjectSettingsAPI="",OrderAPI:DOM.VKP.OrderAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..EmailVoorBevestigingBepaler = $$$Implementation(EmailVoorBevestigingBepaler,##class(APPS.TRANSP.impl.TransportService.EmailVoorBevestigingBepaler).%New())
 	Set ..VerpakkingEenheidFactory = $$$Inject(VerpakkingEenheidFactory, ##class(APPS.TRANSP.impl.VerpakkingEenheidFactory).%New())
+	Set ..ProjectSettingsAPI = $$$Inject(ProjectSettingsAPI, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
+	Set ..OrderAPI = $$$Inject(OrderAPI,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="BevestigRitAsync">
+<FormalSpec>RitID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim ClassName AS %String = ##class(APPS.TRANSP.impl.TransportService).%ClassName(1)
+	Do ##class(TECH.BackgroundProcess.impl.Starter).StartProcess(ClassName, "BevestigRit", RitID)
+]]></Implementation>
+</Method>
+
 <Method name="BevestigRit">
 <FormalSpec>RitID:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -48,7 +69,6 @@
 <FormalSpec>RitID:%String,LeveringID:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(RitID)
-
 	#dim CommunicatieService As APPS.TRANSP.CommunicatieService = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefCommunicatieService(Rit.GeefTransporteur())
 	do CommunicatieService.RegistreerLevering(RitID,LeveringID)
 ]]></Implementation>
@@ -68,14 +88,16 @@
 	Set LeveringInfo.AfzenderAdres = ..GeefAfzenderAdres(Levering.GeefGeleverdAanKlantID())
 	Set LeveringInfo.BedragRembours = Levering.GeefBedragRembours()
 	Set LeveringInfo.OphaalTijdstip = Rit.GeefVoorzieneOphaalTimeStamp()
+	Set LeveringInfo.AfleverDatum = ..OrderAPI.GeefBon(LeveringID).GeefLeveringsDatum()
 	Set LeveringInfo.GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Levering.GeefGeleverdAanKlantID())
 	Set LeveringInfo.Telefoon = Levering.GeefAdres().GeefTelefoon()
-	Set LeveringInfo.Referentie = RitID _ "X" _ LeveringID
+	Set LeveringInfo.Referentie = ..BepaalReferentie(RitID,LeveringID)
 	Set LeveringInfo.EmailVoorBevestiging = ..EmailVoorBevestigingBepaler.GeefEmailVoorBevestiging(Levering.GeefGeleverdAanKlantID())
-	Set LeveringInfo.AantalVerpakkingEenhedenTotaal = (Levering.GeefAantalColli() + Levering.GeefAantalEuroPalletten() + Levering.GeefAantalHalveEuroPalletten() + Levering.GeefAantalBuitenmaatsPalletten() + Levering.GeefAantalLanggoed())
+	Set LeveringInfo.AantalVerpakkingEenhedenTotaal = (Levering.GeefAantalColli() + Levering.GeefAantalEuroPalletten() + Levering.GeefAantalHalveEuroPalletten() + Levering.GeefAantalBuitenmaatsPalletten() + Levering.GeefAantalLanggoed() + Levering.GeefAantalWegwerpPalletten())
 	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)
@@ -97,6 +119,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalReferentie">
+<FormalSpec>RitID:%String,LeveringID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Referentie as %String = RitID _ "X" _ LeveringID
+	
+	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") || ($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,*)
+			}
+		}
+	}
+	Quit Referentie
+]]></Implementation>
+</Method>
+
 <Method name="GeefLeveringAdres">
 <FormalSpec>Adres:DOM.VKP.LeverAdres</FormalSpec>
 <ReturnType>APPS.TRANSP.dto.LeveringAdres</ReturnType>
@@ -114,7 +155,11 @@
 	Set LeveringAdresDto.Toenaam = Adres.GeefToenaam()
 	Set LeveringAdresDto.Woonplaats = Adres.GeefGemeente()
 	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)
@@ -141,7 +186,14 @@
 	set itDistributeurDataIDs = ##class(TECH.ListIterator).%New(DistributeurDataIDs) 
 	while itDistributeurDataIDs.HasNext() {
 		#dim DistributeurDataID	As %String = itDistributeurDataIDs.Next()
+		
+		; dedjudedju, dees kan ook APPS.TRANSP.Transsmart.data.VerzendDate opleveren, gelukkig komen de properties overeen
+		; nog te refactoren dus -> properties naar een van de super classes?
+		; TODO
+		; APPS.TRANSP.GLS.GLSv1.data.VerzendData moet hier eigenlijk iets worden dat niet in de GLS/Transsmart packages zit
+		; confirmatie gaat er uit voor Transsmart
 		#dim DistributeurData As APPS.TRANSP.GLS.GLSv1.data.VerzendData = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefDistributeurData(DistributeurDataID)
+
 		If (((DistributeurData.LaatsteRequestType = "Registratie") && (DistributeurData.Status = "Finished"))
 			|| ((DistributeurData.LaatsteRequestType = "Confirmatie") && (DistributeurData.Status = "Failed"))){
 			do VerzendDataLijst.Insert(..GeefVerzendData(DistributeurData))
@@ -155,7 +207,13 @@
 <FormalSpec>DistributeurData:DOM.TRANSP.DistributeurData</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.dto.DistributeurVerzendData</ReturnType>
-<Implementation><![CDATA[	quit ##class(APPS.TRANSP.GLS.dto.VerzendData).%New(DistributeurData.%Id(),DistributeurData.UnitID,DistributeurData.VerzendWijze)
+<Implementation><![CDATA[
+	
+	if DistributeurData.%IsA(##class(APPS.TRANSP.Transsmart.data.VerzendData).%ClassName($$$True)){
+		Quit ##class(APPS.TRANSP.Transsmart.data.VerzendData).%OpenId(DistributeurData.%Id())
+	} else {
+		Quit ##class(APPS.TRANSP.GLS.dto.VerzendData).%New(DistributeurData.%Id(),DistributeurData.UnitID,DistributeurData.VerzendWijze)
+	}
 ]]></Implementation>
 </Method>