Index: APPS/VisiDot/impl/VHossProductionHelper.cls.xml
===================================================================
diff -u -r2494 -r2571
--- APPS/VisiDot/impl/VHossProductionHelper.cls.xml	(.../VHossProductionHelper.cls.xml)	(revision 2494)
+++ APPS/VisiDot/impl/VHossProductionHelper.cls.xml	(.../VHossProductionHelper.cls.xml)	(revision 2571)
@@ -143,5 +143,27 @@
 <Implementation><![CDATA[	Quit ##class(BL.PPS.TBX.Sequencer).GeefQueueIterator(BatchID)
 ]]></Implementation>
 </Method>
+
+<Method name="ZoekQueueElement">
+<FormalSpec>BatchID,VHossSeqNr,VHossZijkant,VHossSlotNr,ProductNr</FormalSpec>
+<ReturnType>APPS.VisiDot.impl.QueueHelper</ReturnType>
+<Implementation><![CDATA[
+	Set ResultQueueHelper = ""
+	Set it=..GeefQueueIterator()
+	Set Stop=0
+	While it.HasNext()&&($G(ResultQueueHelper)="")
+	{
+		Set QueueHelper=it.Next()
+		If (QueueHelper.GeefBatchID()=BatchID)&&(QueueHelper.GeefVHossSeqNr()=VHossSeqNr)&&(QueueHelper.GeefVHossZijkant()=VHossZijkant)
+		{
+			If (QueueHelper.GeefProductNr()=ProductNr)&&(QueueHelper.GeefVHossSlotNr()=VHossSlotNr)
+			{
+				Set ResultQueueHelper=QueueHelper
+			}
+		}
+	}
+	Quit $G(ResultQueueHelper)
+]]></Implementation>
+</Method>
 </Class>
 </Export>