Index: vhTest/Utils/APPS/TRANSP/Stapeling/dto/CollisOpPallet.cls.xml =================================================================== diff -u -r35952 -r35962 --- vhTest/Utils/APPS/TRANSP/Stapeling/dto/CollisOpPallet.cls.xml (.../CollisOpPallet.cls.xml) (revision 35952) +++ vhTest/Utils/APPS/TRANSP/Stapeling/dto/CollisOpPallet.cls.xml (.../CollisOpPallet.cls.xml) (revision 35962) @@ -9,6 +9,8 @@ Index: vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer/Compose/Test.cls.xml =================================================================== diff -u -r35952 -r35962 --- vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer/Compose/Test.cls.xml (.../Test.cls.xml) (revision 35952) +++ vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer/Compose/Test.cls.xml (.../Test.cls.xml) (revision 35962) @@ -215,7 +215,7 @@ #dim RequestComposer As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestComposer = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestComposer).%New() #dim cubeiqrequest As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.cubeiq = RequestComposer.Compose(CollisOpPallet) - Do $$$AssertEquals(cubeiqrequest.solutions.id, "Stapelaar.Solution") + Do $$$AssertEquals(cubeiqrequest.solutions.id, "Referentie") Do $$$AssertEquals(cubeiqrequest.solutions.solutionid, "Stapelaar.Solution") Do $$$AssertContains(cubeiqrequest.solutions.date, ..GeefHuidigeDatum()) Do $$$AssertEquals(cubeiqrequest.solutions.stage, "1") Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml =================================================================== diff -u -r35952 -r35962 --- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml (.../RequestComposer.cls.xml) (revision 35952) +++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml (.../RequestComposer.cls.xml) (revision 35962) @@ -31,7 +31,7 @@ Set Requestcubeiq.containers = ..VoegToePalletFormaten(CollisOpPallet.Settings.PalletFormaten) - Set Requestcubeiq.solutions = ..GeefSolution() + Set Requestcubeiq.solutions = ..GeefSolution(CollisOpPallet.Referentie) Set Requestcubeiq.containerstoload = ..GeefContainersToLoad() #dim CollisOpPalletIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(CollisOpPallet.Collis) @@ -241,11 +241,12 @@ +Referentie:%String 1 APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.solution TECH.RegisteredObject + +%String + + APPS.TRANSP.Stapeling.dto.Settings