Index: APPS/Halux/common/BatchService.cls.xml
===================================================================
diff -u -r946 -r954
--- APPS/Halux/common/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 946)
+++ APPS/Halux/common/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 954)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-09 15:28:02">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 11:13:21">
 <Class name="APPS.Halux.common.BatchService">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62159,55755.955894</TimeChanged>
+<TimeChanged>62174,40487.602047</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefBatch">
@@ -36,6 +36,33 @@
 <Implementation><![CDATA[	Quit ##class(DS.PPS.TBX.Batch).%DeleteId(BatchID)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBijhorendeBatch">
+<Description>
+Geeft de batch waar een toelevering in zit. Indien niet in een batch dan geeft het leeg terug</Description>
+<FormalSpec>Toelevering:DOM.LEV.Toelevering</FormalSpec>
+<ReturnType>APPS.Halux.common.Batch</ReturnType>
+<Implementation><![CDATA[
+	Set GevondenBatch = ""
+	Set ResultSet=##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT ID FROM PPS.Batch")
+	Do ResultSet.Execute()
+	While ((GevondenBatch = "") && ResultSet.Next()) {
+		Set ID = ResultSet.Data("ID")
+		Set Batch = ##class(DS.PPS.TBX.Batch).%OpenId(ID)
+		Set i = 0
+		While ((GevondenBatch = "") && (i < Batch.Toeleveringen.Count()))
+		{
+			Set i = i + 1
+			If ($Piece(Batch.Toeleveringen.GetAt(i).Toelevering,"||",2) = Toelevering.GeefToeNr())
+			{
+				Set GevondenBatch = ..GeefBatch(Batch.%Id())
+			}
+		}
+	}
+	Quit GevondenBatch
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="2411138713"/>
+<Checksum value="4001108744"/>
 </Export>