Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseNotifier.cls.xml
===================================================================
diff -u -r35966 -r35981
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseNotifier.cls.xml	(.../ResponseNotifier.cls.xml)	(revision 35966)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseNotifier.cls.xml	(.../ResponseNotifier.cls.xml)	(revision 35981)
@@ -1,7 +1,62 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseNotifier">
-<Super>%RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
+
+<Property name="EventRaiser">
+<Type>TECH.PubSub.EventRaiser</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>EventRaiser:TECH.PubSub.EventRaiser</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..EventRaiser = $$$Inject(EventRaiser,##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="StartVerwerking">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Event:APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseRecievedEvent</FormalSpec>
+<Implementation><![CDATA[	do ..%New().RaiseColliOpPalletBerekeningKlaarEvent(Event.Data)
+]]></Implementation>
+</Method>
+
+<Method name="RaiseColliOpPalletBerekeningKlaarEvent">
+<FormalSpec>cubeiq:APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = ##class(APPS.TRANSP.Stapeling.event.ColliOpPalletBerekeningKlaarEventData).%New(..MaakStapelaarResultaat(cubeiq))
+	Set Event = ##class(APPS.TRANSP.Stapeling.event.ColliOpPalletBerekeningKlaarEvent).%New(EventData)
+	Do ..EventRaiser.RaiseEventAsync(Event)
+]]></Implementation>
+</Method>
+
+<Method name="MaakStapelaarResultaat">
+<FormalSpec>cubeiq:APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.Stapeling.dto.StapelingResultaat</ReturnType>
+<Implementation><![CDATA[
+	#dim StapelaarResultaat As APPS.TRANSP.Stapeling.dto.StapelingResultaat = ##class(APPS.TRANSP.Stapeling.dto.StapelingResultaat).%New()
+	Set StapelaarResultaat.Referentie = cubeiq.solutions.id
+	
+	#dim LoadedContainersIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(cubeiq.loadedcontainers)
+	While LoadedContainersIterator.HasNext()
+	{
+		#dim LoadedContainer As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.loadedcontainer = LoadedContainersIterator.Next()
+		#dim Pallet As APPS.TRANSP.Stapeling.dto.Pallet = ##class(APPS.TRANSP.Stapeling.dto.Pallet).%New()
+		Set Pallet.Gewicht = LoadedContainer.totalweight		
+		Set Pallet.Afmeting.Hoogte = LoadedContainer.maxheight
+		Set Pallet.Afmeting.Lengte = LoadedContainer.maxlength
+		Set Pallet.Afmeting.Breedte = LoadedContainer.maxwidth
+		Do StapelaarResultaat.Palletten.Insert(Pallet)
+	}
+	Quit StapelaarResultaat
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseNotifier/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseNotifier/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseNotifier/Test.cls.xml	(revision 35981)
@@ -0,0 +1,108 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseNotifier.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: RaiseResponseReceivedEvent">
+<Implementation><![CDATA[
+	set PubSubEventRaiserSpy = ##class(vhTest.Spy.TECH.PubSub.EventRaiser).%New()
+	
+	set EventRaiser = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseNotifier).%New(PubSubEventRaiserSpy)
+	
+	set Message = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq).%New()
+	Set Message.loadedcontainers = ##class(%ListOfObjects).%New()
+	do EventRaiser.RaiseColliOpPalletBerekeningKlaarEvent(Message)
+	
+	#dim Events As %ListOfObjects = PubSubEventRaiserSpy.GeefAsynchroneEvents()
+	
+	if $$$AssertEquals(Events.Count(),1) {
+		do $$$AssertIsObject(Events.GetAt(1).Data.GeefStapelingResultaat())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: Conversie cubeiq naar StapelingResultaat voor 1 container">
+<Implementation><![CDATA[
+	set PubSubEventRaiserSpy = ##class(vhTest.Spy.TECH.PubSub.EventRaiser).%New()
+	
+	set EventRaiser = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseNotifier).%New(PubSubEventRaiserSpy)
+	
+	set Message = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq).%New()
+	Set Message.solutions.id = "Referentie"
+	Set Message.loadedcontainers = ..GeefLoadedContainer()
+	do EventRaiser.RaiseColliOpPalletBerekeningKlaarEvent(Message)
+	
+	#dim Events As %ListOfObjects = PubSubEventRaiserSpy.GeefAsynchroneEvents()
+	
+	if $$$AssertEquals(Events.Count(),1) {
+		#dim StapelingResultaat As APPS.TRANSP.Stapeling.dto.StapelingResultaat = Events.GetAt(1).Data.GeefStapelingResultaat()
+		do $$$AssertEquals(StapelingResultaat.Referentie,"Referentie")
+		do $$$AssertEquals(StapelingResultaat.Palletten.GetAt(1).Gewicht,100)
+		do $$$AssertEquals(StapelingResultaat.Palletten.GetAt(1).Afmeting.Breedte,70)
+		do $$$AssertEquals(StapelingResultaat.Palletten.GetAt(1).Afmeting.Lengte,80)
+		do $$$AssertEquals(StapelingResultaat.Palletten.GetAt(1).Afmeting.Hoogte,90)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: Conversie cubeiq naar StapelingResultaat voor 2 containers">
+<Implementation><![CDATA[
+	set PubSubEventRaiserSpy = ##class(vhTest.Spy.TECH.PubSub.EventRaiser).%New()
+	
+	set EventRaiser = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseNotifier).%New(PubSubEventRaiserSpy)
+	
+	set Message = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq).%New()
+	Set Message.solutions.id = "Referentie"
+	Set Message.loadedcontainers = ..GeefLoadedContainers()
+	do EventRaiser.RaiseColliOpPalletBerekeningKlaarEvent(Message)
+	
+	#dim Events As %ListOfObjects = PubSubEventRaiserSpy.GeefAsynchroneEvents()
+	
+	if $$$AssertEquals(Events.Count(),1) {
+		#dim StapelingResultaat As APPS.TRANSP.Stapeling.dto.StapelingResultaat = Events.GetAt(1).Data.GeefStapelingResultaat()
+		do $$$AssertEquals(StapelingResultaat.Palletten.Count(),2)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefLoadedContainer">
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim LoadedContainers As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim LoadedContainer As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.loadedcontainer = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.loadedcontainer).%New()
+	Set LoadedContainer.totalweight = 100
+	Set LoadedContainer.maxheight = 90
+	Set LoadedContainer.maxlength = 80
+	Set LoadedContainer.maxwidth = 70
+	Do LoadedContainers.Insert(LoadedContainer)
+	Quit LoadedContainers
+]]></Implementation>
+</Method>
+
+<Method name="GeefLoadedContainers">
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim LoadedContainers As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim LoadedContainer As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.loadedcontainer = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.loadedcontainer).%New()
+	Set LoadedContainer.totalweight = 100
+	Set LoadedContainer.maxheight = 90
+	Set LoadedContainer.maxlength = 80
+	Set LoadedContainer.maxwidth = 70
+	Do LoadedContainers.Insert(LoadedContainer)
+
+	Set LoadedContainer = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.loadedcontainer).%New()
+	Set LoadedContainer.totalweight = 150
+	Set LoadedContainer.maxheight = 95
+	Set LoadedContainer.maxlength = 85
+	Set LoadedContainer.maxwidth = 75
+	Do LoadedContainers.Insert(LoadedContainer)
+	
+	Quit LoadedContainers
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Stapeling/dto/StapelingResultaat.cls.xml
===================================================================
diff -u -r35969 -r35981
--- APPS/TRANSP/Stapeling/dto/StapelingResultaat.cls.xml	(.../StapelingResultaat.cls.xml)	(revision 35969)
+++ APPS/TRANSP/Stapeling/dto/StapelingResultaat.cls.xml	(.../StapelingResultaat.cls.xml)	(revision 35981)
@@ -9,7 +9,7 @@
 </Property>
 
 <Property name="Palletten">
-<Type>APPS.TRANSP.Stapeling.dto.Palletten</Type>
+<Type>APPS.TRANSP.Stapeling.dto.Pallet</Type>
 <Collection>list</Collection>
 </Property>
 
Index: vhTest/Fake/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseNotifier.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseNotifier.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseNotifier.cls.xml	(revision 35981)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseNotifier">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseNotifier</Super>
+
+<Method name="RaiseColliOpPalletBerekeningKlaarEvent">
+<FormalSpec>cubeiq:APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseNotifier.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseNotifier.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseNotifier.cls.xml	(revision 35981)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseNotifier">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseNotifier,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="RaiseColliOpPalletBerekeningKlaarEvent">
+<FormalSpec>cubeiq:APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("RaiseColliOpPalletBerekeningKlaarEvent",cubeiq)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/XML/Response/cubeiq.cls.xml
===================================================================
diff -u -r35720 -r35981
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/XML/Response/cubeiq.cls.xml	(.../cubeiq.cls.xml)	(revision 35720)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/XML/Response/cubeiq.cls.xml	(.../cubeiq.cls.xml)	(revision 35981)
@@ -32,6 +32,7 @@
 
 <Property name="loadedcontainers">
 <Type>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.loadedcontainer</Type>
+<Collection>list</Collection>
 <Required>1</Required>
 <Parameter name="XMLNAME" value="loadedcontainers"/>
 <Parameter name="XMLPROJECTION" value="WRAPPED"/>
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseRecievedEvent.cls.xml
===================================================================
diff -u -r35726 -r35981
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseRecievedEvent.cls.xml	(.../ResponseRecievedEvent.cls.xml)	(revision 35726)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseRecievedEvent.cls.xml	(.../ResponseRecievedEvent.cls.xml)	(revision 35981)
@@ -4,6 +4,10 @@
 <ClassType>serial</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.PubSub.Event</Super>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+</Storage>
 </Class>
 
 
Index: APPS/TRANSP/Stapeling/event/ColliOpPalletBerekeningKlaarEventData.cls.xml
===================================================================
diff -u -r35735 -r35981
--- APPS/TRANSP/Stapeling/event/ColliOpPalletBerekeningKlaarEventData.cls.xml	(.../ColliOpPalletBerekeningKlaarEventData.cls.xml)	(revision 35735)
+++ APPS/TRANSP/Stapeling/event/ColliOpPalletBerekeningKlaarEventData.cls.xml	(.../ColliOpPalletBerekeningKlaarEventData.cls.xml)	(revision 35981)
@@ -8,36 +8,37 @@
 <Default>APPS.TRANSP.Stapeling.impl.event.ColliOpPalletBerekeningKlaarEventData</Default>
 </Parameter>
 
-<Property name="ColliOpPallet">
-<Type>APPS.TRANSP.Stapeling.dto.ColliOpPallet</Type>
+<Property name="StapelingResultaat">
+<Type>APPS.TRANSP.Stapeling.dto.StapelingResultaat</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ColliOpPallet:APPS.TRANSP.Stapeling.dto.ColliOpPallet</FormalSpec>
+<FormalSpec>StapelingResultaat:APPS.TRANSP.Stapeling.dto.StapelingResultaat</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..ColliOpPallet = ColliOpPallet
+	Set ..StapelingResultaat = StapelingResultaat
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="GeefColliOpPallet">
-<ReturnType>APPS.TRANSP.Stapeling.dto.ColliOpPallet</ReturnType>
-<Implementation><![CDATA[	Quit ..ColliOpPallet
+<Method name="GeefStapelingResultaat">
+<ReturnType>APPS.TRANSP.Stapeling.dto.StapelingResultaat</ReturnType>
+<Implementation><![CDATA[	Quit ..StapelingResultaat
 ]]></Implementation>
 </Method>
 
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>ColliOpPalletBerekeningKlaarEventDataState</State>
 <Data name="ColliOpPalletBerekeningKlaarEventDataState">
+<Structure>listnode</Structure>
 <Subscript>"ColliOpPalletBerekeningKlaarEventData"</Subscript>
 <Value name="1">
-<Value>ColliOpPallet</Value>
+<Value>StapelingResultaat</Value>
 </Value>
 </Data>
 </Storage>