Index: APPS/TRANSP/impl/TransportService.cls.xml
===================================================================
diff -u -r40477 -r40541
--- APPS/TRANSP/impl/TransportService.cls.xml	(.../TransportService.cls.xml)	(revision 40477)
+++ APPS/TRANSP/impl/TransportService.cls.xml	(.../TransportService.cls.xml)	(revision 40541)
@@ -159,18 +159,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 = ##class(APPS.TRANSP.impl.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()