Index: vhTest/Mock/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml
===================================================================
diff -u -r35745 -r36410
--- vhTest/Mock/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml (.../RequestComposer.cls.xml) (revision 35745)
+++ vhTest/Mock/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml (.../RequestComposer.cls.xml) (revision 36410)
@@ -15,6 +15,13 @@
+
+
+Referentie:%String,ContainerId:%String,ContainerNummer:%String
+APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.containertoload
+
+
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/XML/Response/cubeiq.cls.xml
===================================================================
diff -u -r35981 -r36410
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/XML/Response/cubeiq.cls.xml (.../cubeiq.cls.xml) (revision 35981)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/XML/Response/cubeiq.cls.xml (.../cubeiq.cls.xml) (revision 36410)
@@ -47,6 +47,13 @@
+
+APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.unloadedpackage
+list
+
+
+
+
%Library.CacheSerialState
cubeiqState
@@ -64,6 +71,9 @@
loadedpackages
+
+unloadedpackages
+
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml
===================================================================
diff -u -r36346 -r36410
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml (.../RequestComposer.cls.xml) (revision 36346)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml (.../RequestComposer.cls.xml) (revision 36410)
@@ -204,25 +204,28 @@
#dim ContainersToLoad As %ListOfObjects = ##class(%ListOfObjects).%New()
- #dim ContainerToLoad As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.containertoload = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.containertoload).%New()
- Set ContainerToLoad.id = "Stapelaar.EuroPallet"
- Set ContainerToLoad.containerid = "Stapelaar.EuroPallet"
- Set ContainerToLoad.solutionid = Referentie
- Set ContainerToLoad.auto = "0"
- Set ContainerToLoad.containernum = "1"
- Set ContainerToLoad.sequence = "1"
- Do ContainersToLoad.Insert(ContainerToLoad)
+
+ for ContainerNummer=1:1:5
+ {
+ Do ContainersToLoad.Insert(..MaakContainerToLoad(Referentie,"Stapelaar.EuroPallet",ContainerNummer))
+ Do ContainersToLoad.Insert(..MaakContainerToLoad(Referentie,"Stapelaar.WegwerpPallet",ContainerNummer+5))
+ }
+ Quit ContainersToLoad
+]]>
+
+
+Referentie:%String,ContainerId:%String,ContainerNummer:%String
+APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.containertoload
+
Index: vhTest/Fake/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml
===================================================================
diff -u -r35749 -r36410
--- vhTest/Fake/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml (.../RequestComposer.cls.xml) (revision 35749)
+++ vhTest/Fake/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml (.../RequestComposer.cls.xml) (revision 36410)
@@ -20,6 +20,13 @@
]]>
+
+Referentie:%String,ContainerId:%String,ContainerNummer:%String
+APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.containertoload
+
+
+
APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.container
+
+
+
+
+
+Created from: c:/temp/output/cubeiq.xsd
+serial
+
+1
+%SerialObject,%XML.Adaptor
+right
+
+
+unloadedpackage
+
+
+
+1
+
+
+
+%String
+
+
+
+
+
+
+%xsd.int
+
+
+
+
+
+%xsd.int
+
+
+
+
+
+%xsd.int
+
+
+
+
+
+%xsd.int
+
+
+
+
+
+%xsd.int
+
+
+
+
+
+%xsd.double
+
+
+
+
+
+%xsd.int
+
+
+
+
+
+%String
+
+
+
+
+
+%String
+
+
+
+
+
+%Library.CacheSerialState
+unloadedpackageState
+^APPS.TRANSC981.unloadedpac31ECS
+
+listnode
+
+
+id
+
+
+solutionid
+
+
+quantity
+
+
+length
+
+
+width
+
+
+height
+
+
+weight
+
+
+cost
+
+
+loadseparately
+
+
+passthroughonly
+
+
+
+
+
Index: vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer/Compose/Test.cls.xml
===================================================================
diff -u -r36379 -r36410
--- vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer/Compose/Test.cls.xml (.../Test.cls.xml) (revision 36379)
+++ vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer/Compose/Test.cls.xml (.../Test.cls.xml) (revision 36410)
@@ -240,8 +240,8 @@
Do $$$AssertEquals(cubeiqrequest.containerstoload.GetAt(2).solutionid, "Referentie")
Do $$$AssertEquals(cubeiqrequest.containerstoload.GetAt(2).auto, "0")
Do $$$AssertEquals(cubeiqrequest.containerstoload.GetAt(2).containerid, "Stapelaar.WegwerpPallet")
- Do $$$AssertEquals(cubeiqrequest.containerstoload.GetAt(2).containernum, "2")
- Do $$$AssertEquals(cubeiqrequest.containerstoload.GetAt(2).sequence, "2")
+ Do $$$AssertEquals(cubeiqrequest.containerstoload.GetAt(2).containernum, "6")
+ Do $$$AssertEquals(cubeiqrequest.containerstoload.GetAt(2).sequence, "6")
]]>
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseProcessor.cls.xml
===================================================================
diff -u -r36219 -r36410
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseProcessor.cls.xml (.../ResponseProcessor.cls.xml) (revision 36219)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseProcessor.cls.xml (.../ResponseProcessor.cls.xml) (revision 36410)
@@ -50,7 +50,12 @@
0
+ {
+ do ..EventRaiser.RaiseCorruptedResponseReceivedEvent(FullFilename,..FileAPI.GeefFileReader(FullFilename).GeefStream())
+ } else {
+ do ..EventRaiser.RaiseResponseRecievedEvent(Message)
+ }
do ..FileAPI.GeefFileUtils().Delete(FullFilename)
} catch {
do ##class(vhLib.Logger).LogExceptie(##class(TECH.ExceptionHandler).Catch())