Index: APPS/TRANSP/impl/VerpakkingEenheidFactory.cls.xml
===================================================================
diff -u -r66251 -r69222
--- APPS/TRANSP/impl/VerpakkingEenheidFactory.cls.xml	(.../VerpakkingEenheidFactory.cls.xml)	(revision 66251)
+++ APPS/TRANSP/impl/VerpakkingEenheidFactory.cls.xml	(.../VerpakkingEenheidFactory.cls.xml)	(revision 69222)
@@ -19,7 +19,7 @@
 	}ElseIf VerpakkingEenheidType = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).BuitenmaatsPallet(){
 		Set dtoVerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.BuitenmaatsPallet).%New()
 	}ElseIf VerpakkingEenheidType = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).WegwerpPallet(){
-		Set dtoVerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Europallet).%New()
+		Set dtoVerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Wegwerppallet).%New()
 	}
 	Quit dtoVerpakkingEenheid
 ]]></Implementation>
Index: APPS/TRANSP/VerpakkingEenheidVisitor.cls.xml
===================================================================
diff -u -r29059 -r69222
--- APPS/TRANSP/VerpakkingEenheidVisitor.cls.xml	(.../VerpakkingEenheidVisitor.cls.xml)	(revision 29059)
+++ APPS/TRANSP/VerpakkingEenheidVisitor.cls.xml	(.../VerpakkingEenheidVisitor.cls.xml)	(revision 69222)
@@ -15,6 +15,12 @@
 <ReturnType>%Status</ReturnType>
 </Method>
 
+<Method name="VerwerkWegwerppallet">
+<Abstract>1</Abstract>
+<FormalSpec>Wegwerppallet:APPS.TRANSP.dto.VerpakkingEenheid.Wegwerppallet</FormalSpec>
+<ReturnType>%Status</ReturnType>
+</Method>
+
 <Method name="VerwerkHalveEuropallet">
 <Abstract>1</Abstract>
 <FormalSpec>HalveEuropallet:APPS.TRANSP.dto.VerpakkingEenheid.HalveEuropallet</FormalSpec>
Index: APPS/TRANSP/dto/VerpakkingEenheid/Wegwerppallet.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/dto/VerpakkingEenheid/Wegwerppallet.cls.xml	(revision 0)
+++ APPS/TRANSP/dto/VerpakkingEenheid/Wegwerppallet.cls.xml	(revision 69222)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.dto.VerpakkingEenheid.Wegwerppallet">
+<Super>APPS.TRANSP.dto.VerpakkingEenheid</Super>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	
+	Set ..Type = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).WegwerpPallet()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Accept">
+<FormalSpec>Visitor:APPS.TRANSP.VerpakkingEenheidVisitor</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[		Quit Visitor.VerwerkWegwerppallet(##this)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/APPS/TRANSP/dto/LeveringInfo.cls.xml
===================================================================
diff -u -r66903 -r69222
--- vhTest/Utils/APPS/TRANSP/dto/LeveringInfo.cls.xml	(.../LeveringInfo.cls.xml)	(revision 66903)
+++ vhTest/Utils/APPS/TRANSP/dto/LeveringInfo.cls.xml	(.../LeveringInfo.cls.xml)	(revision 69222)
@@ -36,6 +36,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLeveringInfoEuroEnWWPallet">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.dto.LeveringInfo</ReturnType>
+<Implementation><![CDATA[
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringInfo()
+	
+	Set VerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Europallet).%New()
+	Set VerpakkingEenheid.Aantal = 1
+	Set VerpakkingEenheid.Volgnummer = 1
+
+	Set VerpakkingEenheidWW = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Wegwerppallet).%New()
+	Set VerpakkingEenheidWW.Aantal = 1
+	Set VerpakkingEenheidWW.Volgnummer = 1
+
+	Set LeveringInfo.VerpakkingEenheden = ##class(APPS.TRANSP.dto.VerpakkingEenheid.VerpakkingEenheidLijst).%New()
+	Do LeveringInfo.VerpakkingEenheden.Insert(VerpakkingEenheid)
+	Do LeveringInfo.VerpakkingEenheden.Insert(VerpakkingEenheidWW)
+	Set LeveringInfo.AantalVerpakkingEenhedenTotaal = 2
+	Quit LeveringInfo
+]]></Implementation>
+</Method>
+
 <Method name="GeefLeveringInfoMix">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.TRANSP.dto.LeveringInfo</ReturnType>
Index: vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/VerpakkingEenheden/Test.cls.xml
===================================================================
diff -u -r66251 -r69222
--- vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/VerpakkingEenheden/Test.cls.xml	(.../Test.cls.xml)	(revision 66251)
+++ vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/VerpakkingEenheden/Test.cls.xml	(.../Test.cls.xml)	(revision 69222)
@@ -115,12 +115,12 @@
 	do VerpakkingEenhedenDrieItems.Insert(##class(vhUnitTest.APPS.TRANSP.VerpakkingEenheidMock).%New(##class(DOM.TRANSP.enu.VerpakkingEenheidType).Colli()))
 	do VerpakkingEenhedenDrieItems.Insert(##class(vhUnitTest.APPS.TRANSP.VerpakkingEenheidMock).%New(##class(DOM.TRANSP.enu.VerpakkingEenheidType).Langgoed()))
 	do VerpakkingEenhedenDrieItems.Insert(##class(vhUnitTest.APPS.TRANSP.VerpakkingEenheidMock).%New(##class(DOM.TRANSP.enu.VerpakkingEenheidType).BuitenmaatsPallet()))
-	
+	do VerpakkingEenhedenDrieItems.Insert(##class(vhUnitTest.APPS.TRANSP.VerpakkingEenheidMock).%New(##class(DOM.TRANSP.enu.VerpakkingEenheidType).WegwerpPallet()))	
 	do ..MaakStubs()
 	
 	do ..LeveringStub.IndienMethodCall("GeefAantalColli").DanReturn(1)
 	do ..LeveringStub.IndienMethodCall("GeefAantalEuroPalletten").DanReturn(0)
-	do ..LeveringStub.IndienMethodCall("GeefAantalWegwerpPalletten").DanReturn(0)
+	do ..LeveringStub.IndienMethodCall("GeefAantalWegwerpPalletten").DanReturn(1)
 	do ..LeveringStub.IndienMethodCall("GeefAantalLanggoed").DanReturn(2)
 	do ..LeveringStub.IndienMethodCall("GeefAantalBuitenmaatsPalletten").DanReturn(3)
 	do ..LeveringStub.IndienMethodCall("GeefVerpakkingEenheden").DanReturn(VerpakkingEenhedenDrieItems)
@@ -130,7 +130,7 @@
 	#dim LeveringInfo As APPS.TRANSP.dto.LeveringInfo =  ..GeefTransportService().GeefLeveringInfo(..#RitID,..#LeveringID)
 	
 	; Assert
-	if $$$AssertEquals(3,LeveringInfo.VerpakkingEenheden.Count()) {
+	if $$$AssertEquals(4,LeveringInfo.VerpakkingEenheden.Count()) {
 		
 		do $$$AssertEquals(1,LeveringInfo.VerpakkingEenheden.GetAt(1).Aantal,1)
 		do $$$AssertEquals(##class(DOM.TRANSP.enu.VerpakkingEenheidType).Colli(),LeveringInfo.VerpakkingEenheden.GetAt(1).Type)
@@ -141,6 +141,9 @@
 			do $$$AssertEquals(3,LeveringInfo.VerpakkingEenheden.GetAt(2).Lengtes.GetAt(1))
 			do $$$AssertEquals(2,LeveringInfo.VerpakkingEenheden.GetAt(2).Lengtes.GetAt(2))
 		}
+		do $$$AssertEquals(1,LeveringInfo.VerpakkingEenheden.GetAt(4).Aantal,1)
+		Do ##class(Tools.Wlip).%New(207).ListOfObjectsToText(LeveringInfo.VerpakkingEenheden)
+		w !, LeveringInfo.VerpakkingEenheden.GetAt(4).Type
 	}
 ]]></Implementation>
 </Method>