Index: APPS/TRANSP/impl/TransportService.cls.xml
===================================================================
diff -u -r29059 -r40944
--- APPS/TRANSP/impl/TransportService.cls.xml	(.../TransportService.cls.xml)	(revision 29059)
+++ APPS/TRANSP/impl/TransportService.cls.xml	(.../TransportService.cls.xml)	(revision 40944)
@@ -8,14 +8,20 @@
 <Type>APPS.TRANSP.impl.TransportService.EmailVoorBevestigingBepaler</Type>
 </Property>
 
+<Property name="VerpakkingEenheidFactory">
+<Type>APPS.TRANSP.impl.VerpakkingEenheidFactory</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>EmailVoorBevestigingBepaler:APPS.TRANSP.impl.TransportService.EmailVoorBevestigingBepaler=""</FormalSpec>
+<FormalSpec>EmailVoorBevestigingBepaler:APPS.TRANSP.impl.TransportService.EmailVoorBevestigingBepaler="",VerpakkingEenheidFactory:APPS.TRANSP.impl.VerpakkingEenheidFactory</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())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -62,7 +68,7 @@
 	Set LeveringInfo.AfzenderAdres = ..GeefAfzenderAdres(Levering.GeefGeleverdAanKlantID())
 	Set LeveringInfo.BedragRembours = Levering.GeefBedragRembours()
 	Set LeveringInfo.OphaalTijdstip = Rit.GeefVoorzieneOphaalTimeStamp()
-	Set LeveringInfo.GeleverdAanKlantID = Levering.GeefGeleverdAanKlantID()
+	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.EmailVoorBevestiging = ..EmailVoorBevestigingBepaler.GeefEmailVoorBevestiging(Levering.GeefGeleverdAanKlantID())
@@ -135,7 +141,7 @@
 	set itDistributeurDataIDs = ##class(TECH.ListIterator).%New(DistributeurDataIDs) 
 	while itDistributeurDataIDs.HasNext() {
 		#dim DistributeurDataID	As %String = itDistributeurDataIDs.Next()
-		#dim DistributeurData As APPS.TRANSP.GLS.data.VerzendData = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefDistributeurData(DistributeurDataID)
+		#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))
@@ -159,18 +165,10 @@
 <ReturnType>APPS.TRANSP.dto.VerpakkingEenheid</ReturnType>
 <Implementation><![CDATA[
 	#dim dtoVerpakkingEenheid As APPS.TRANSP.dto.VerpakkingEenheid
-	If VerpakkingEenheid.GeefType() = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).Colli(){
-		Set dtoVerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Colli).%New()
-	}ElseIf VerpakkingEenheid.GeefType() = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).HalveEuroPallet(){
-		Set dtoVerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.HalveEuropallet).%New()
-	}ElseIf VerpakkingEenheid.GeefType() = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).EuroPallet(){
-		Set dtoVerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Europallet).%New()
-	}ElseIf VerpakkingEenheid.GeefType() = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).Langgoed(){
-		Set dtoVerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Langgoed).%New()
+	Set dtoVerpakkingEenheid = ..VerpakkingEenheidFactory.MaakVerpakkingEenheidDto(VerpakkingEenheid.GeefType())
+	If VerpakkingEenheid.GeefType() = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).Langgoed(){
 		set dtoVerpakkingEenheid.Lengtes = ##class(TECH.ListUtils).PiecesToList(VerpakkingEenheid.GeefLanggoedInfo(),"+")
 		set dtoVerpakkingEenheid.Gewicht = ..GeefGewichtLanggoed(Levering)
-	}ElseIf VerpakkingEenheid.GeefType() = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).BuitenmaatsPallet(){
-		Set dtoVerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.BuitenmaatsPallet).%New()
 	}
 	Set dtoVerpakkingEenheid.Aantal = VerpakkingEenheid.GeefAantal()			
 	set dtoVerpakkingEenheid.Type = VerpakkingEenheid.GeefType()