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())