Index: APPS/TRANSP/impl/VerpakkingEenheidFactory.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/impl/VerpakkingEenheidFactory.cls.xml	(revision 0)
+++ APPS/TRANSP/impl/VerpakkingEenheidFactory.cls.xml	(revision 40541)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.impl.VerpakkingEenheidFactory">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="MaakVerpakkingEenheidDto">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>VerpakkingEenheidType:DOM.TRANSP.enu.VerpakkingEenheidType</FormalSpec>
+<ReturnType>APPS.TRANSP.dto.VerpakkingEenheid</ReturnType>
+<Implementation><![CDATA[
+	#dim dtoVerpakkingEenheid As APPS.TRANSP.dto.VerpakkingEenheid
+	If VerpakkingEenheidType = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).Colli(){
+		Set dtoVerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Colli).%New()
+	}ElseIf VerpakkingEenheidType = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).HalveEuroPallet(){
+		Set dtoVerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.HalveEuropallet).%New()
+	}ElseIf VerpakkingEenheidType = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).EuroPallet(){
+		Set dtoVerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Europallet).%New()
+	}ElseIf VerpakkingEenheidType = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).Langgoed(){
+		Set dtoVerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Langgoed).%New()
+	}ElseIf VerpakkingEenheidType = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).BuitenmaatsPallet(){
+		Set dtoVerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.BuitenmaatsPallet).%New()
+	}
+	Quit dtoVerpakkingEenheid
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
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()