Index: APPS/VisiDot/impl/QueueHelper.cls.xml
===================================================================
diff -u -r1717 -r1749
--- APPS/VisiDot/impl/QueueHelper.cls.xml	(.../QueueHelper.cls.xml)	(revision 1717)
+++ APPS/VisiDot/impl/QueueHelper.cls.xml	(.../QueueHelper.cls.xml)	(revision 1749)
@@ -30,7 +30,7 @@
 </Method>
 
 <Method name="IsModified">
-<Implementation><![CDATA[	Quit ..QueueElement.%IsModified()
+<Implementation><![CDATA[	Quit ..QueueElement.%IsModified()||..QueueElement.WPVerpak.%IsModified()
 ]]></Implementation>
 </Method>
 
@@ -62,6 +62,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVHossSeqEnZijkant">
+<Implementation><![CDATA[	Quit ..QueueElement.WPVerpak.UnitNr_"."_..QueueElement.WPVerpak.SubNr
+]]></Implementation>
+</Method>
+
+<Method name="GeefAndereVHossSeqEnZijkant">
+<FormalSpec>VHossSeqEnZijkant</FormalSpec>
+<Implementation><![CDATA[	Quit $P(VHossSeqEnZijkant,".")_"."_..GeefAndereVHossZijkant($P(VHossSeqEnZijkant,".",2))
+]]></Implementation>
+</Method>
+
+<Method name="GeefAndereVHossZijkant">
+<FormalSpec>Zijkant</FormalSpec>
+<Implementation><![CDATA[	Quit $S(Zijkant=1:2,1:1)
+]]></Implementation>
+</Method>
+
 <Method name="GeefVHossSlotNr">
 <Implementation><![CDATA[	Quit ..QueueElement.WPVerpak.SlotNr
 ]]></Implementation>