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