Index: APPS/Halux/Planning/Pitching/impl/BatchPitchedRepository.cls.xml
===================================================================
diff -u -r71487 -r73348
--- APPS/Halux/Planning/Pitching/impl/BatchPitchedRepository.cls.xml	(.../BatchPitchedRepository.cls.xml)	(revision 71487)
+++ APPS/Halux/Planning/Pitching/impl/BatchPitchedRepository.cls.xml	(.../BatchPitchedRepository.cls.xml)	(revision 73348)
@@ -14,6 +14,43 @@
 <Implementation><![CDATA[	Quit ..ZoekViaFilter("Batch = ?", $LB(BatchId))
 ]]></Implementation>
 </Method>
+
+<Method name="ZoekViaPitchordeEnLijnNr">
+<FormalSpec>Volgnummer:%Integer,LijnNr:%Integer</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("Pitchorde = ? AND LijnNr = ?", $LB(Volgnummer, LijnNr))
+]]></Implementation>
+</Method>
+
+<Method name="ZoekAlleGesorteerd">
+<FormalSpec>SorteerSleutel:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..DataClassName)
+	#dim SqlStatement As TECH.String = "SELECT ID FROM " _SqlTableName _ " ORDER BY " _ SorteerSleutel _ " ASC" 
+
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+	#dim Opener As TECH.Persistentie.Repository.ResultSetItemOpener = ##class(TECH.Persistentie.Repository.ResultSetItemOpener).%New($this)
+	#dim ResultSetIterator As TECH.Iterator = ##class(TECH.ResultSetIterator).%New(ResultSet)
+	#dim Result As TECH.Iterator = ##class(TECH.DynamicIterator).%New(ResultSetIterator, Opener)
+
+	Quit Result
+]]></Implementation>
+</Method>
+
+<Method name="GeefHoogstePitchordeVoorLijnNr">
+<FormalSpec>LijnNr:%Integer</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
+	#dim SqlStatement As TECH.String = "SELECT MAX(Pitchorde) As Pitchorde FROM " _ SqlTableName _ " WHERE LijnNr ='" _ LijnNr _ "'"
+				
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+	#dim ResultSetIterator As TECH.Iterator = ##class(TECH.ResultSetIterator).%New(ResultSet)
+	
+	Quit ResultSetIterator.Next().Pitchorde
+]]></Implementation>
+</Method>
 </Class>