Index: APPS/Halux/common/ProductieSequentie.cls.xml
===================================================================
diff -u -r62201 -r62515
--- APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 62201)
+++ APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 62515)
@@ -172,6 +172,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVHOSSProductieSequentieItemViaSequentieNummer">
+<FormalSpec>SequentieNummer:%String</FormalSpec>
+<ReturnType>APPS.Halux.common.VHOSSProductieSequentieItem</ReturnType>
+<Implementation><![CDATA[
+	Set Resultaat = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+	#dim ItemIterator As TECH.Iterator = ..GeefItemIterator()
+	While ItemIterator.HasNext() {
+		#dim Item As APPS.Halux.common.VHOSSProductieSequentieItem = ItemIterator.Next()
+		//Do ##class(Tools.Wlip).%New(127).ObjToXML(Item)
+		If Item.SequentieNummer = SequentieNummer {
+			Set Resultaat = Item
+		}
+	}
+	If (Resultaat.SequentieNummer = "") {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Geen ProductieSequentieItem voor nummer '"_SequentieNummer_"' en batch '"_..BatchID_"'"))
+	}
+	Do ##class(Tools.Wlip).%New(127).String(Resultaat.%ClassName(1))
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
 <Method name="GeefSorteerSleutel">
 <Description>
 </Description>