Index: APPS/TRANSP/impl/TransportService.cls.xml
===================================================================
diff -u -r40892 -r40944
--- APPS/TRANSP/impl/TransportService.cls.xml	(.../TransportService.cls.xml)	(revision 40892)
+++ 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>
@@ -159,7 +165,7 @@
 <ReturnType>APPS.TRANSP.dto.VerpakkingEenheid</ReturnType>
 <Implementation><![CDATA[
 	#dim dtoVerpakkingEenheid As APPS.TRANSP.dto.VerpakkingEenheid
-	Set dtoVerpakkingEenheid = ##class(APPS.TRANSP.impl.VerpakkingEenheidFactory).MaakVerpakkingEenheidDto(VerpakkingEenheid.GeefType())
+	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)