Index: APPS/Halux/PPS/Activiteit/impl/ActiviteitRepository.cls.xml
===================================================================
diff -u -r29059 -r66526
--- APPS/Halux/PPS/Activiteit/impl/ActiviteitRepository.cls.xml	(.../ActiviteitRepository.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Activiteit/impl/ActiviteitRepository.cls.xml	(.../ActiviteitRepository.cls.xml)	(revision 66526)
@@ -9,13 +9,34 @@
 <Implementation><![CDATA[
 	#dim ActiviteitCodes As %String = ""
 	Set ActiviteitCodes = "'" _ ##class(TECH.ListUtils).ListToPieces(ActiviteitCodeList, "','" ) _ "'"
-	#dim Query As %String = "SELECT ID  FROM APPS_Halux_PPS_Activiteit.Activiteit As Act  WHERE (Code in ("_ActiviteitCodes_")) AND (ActiviteitGroepID = ?)"
+	#dim Query As %String = "SELECT ID FROM APPS_Halux_PPS_Activiteit.Activiteit As Act WHERE (Code in ("_ActiviteitCodes_")) AND (ActiviteitGroepID = ?)"
 	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetDynamicResultSet(Query,$LB(ActivititeitGroepID))
 	#dim ActiviteitIDs As %ListOfDataTypes = ResultSet.GeefLijstVanIDs()
 	Do ResultSet.Close()
 	Quit ActiviteitIDs
 ]]></Implementation>
 </Method>
+
+<Method name="GeefActiviteitIDVoorCode">
+<FormalSpec>ActiviteitCode:%String,ActivititeitGroepID:%String,Categorie:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Query As %String = "SELECT ID FROM APPS_Halux_PPS_Activiteit.Activiteit As Act WHERE Code = ? AND ActiviteitGroepID = ?"
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetDynamicResultSet(Query, $LB(ActiviteitCode, ActivititeitGroepID))
+	#dim ActiviteitIDs As %ListOfDataTypes = ResultSet.GeefLijstVanIDs()
+	Do ResultSet.Close()
+	
+	#dim AantalActiviteiten = ActiviteitIDs.Count()
+	If (AantalActiviteiten > 1) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("ActiviteitCode " _ ActiviteitCode _ " niet eenduidig. Categorie:"_Categorie))
+	}
+	If (AantalActiviteiten = 0) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen activiteit voor ActiviteitCode " _ ActiviteitCode_", Categorie:"_Categorie))
+	}
+	
+	Quit ActiviteitIDs.GetNext()
+]]></Implementation>
+</Method>
 </Class>