Index: APPS/TRANSP/Transsmart/data/VerzendDataRepository.cls.xml
===================================================================
diff -u -r60392 -r66964
--- APPS/TRANSP/Transsmart/data/VerzendDataRepository.cls.xml	(.../VerzendDataRepository.cls.xml)	(revision 60392)
+++ APPS/TRANSP/Transsmart/data/VerzendDataRepository.cls.xml	(.../VerzendDataRepository.cls.xml)	(revision 66964)
@@ -7,6 +7,33 @@
 <Type>%String</Type>
 <Default>APPS.TRANSP.Transsmart.data.VerzendData</Default>
 </Parameter>
+
+<Method name="GeefViaReference">
+<FormalSpec>Reference:%String</FormalSpec>
+<ReturnType>APPS.TRANSP.Transsmart.data.VerzendData</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefViaFilter("Reference = ? and LaatsteRequestType = 'Registratie'", $LB(Reference))
+]]></Implementation>
+</Method>
+
+<Method name="GeefViaFilter">
+<FormalSpec>Filter:%String,Params:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[
+	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..DataClassName)
+	#dim SqlStatement As TECH.String = "SELECT ID1 FROM " _SqlTableName _" WHERE " _Filter
+
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,Params))
+
+	if ResultSet.Next() {
+		#dim Result As TECH.Persistent = ..GeefViaID(ResultSet.GetData(1))	
+		do:ResultSet.Next() ##class(TECH.Exceptions.DataNotFoundException).Throw("Geen unieke data in '"_SqlTableName_"' gevonden met filter '"_Filter_"' en parameters '"_$$$LCVT(Params)_"'")
+	} else {
+		do ##class(TECH.Exceptions.DataNotFoundException).Throw("Geen data in '"_SqlTableName_"' gevonden met filter '"_Filter_"' en parameters '"_$$$LCVT(Params)_"'")
+	}
+	quit Result
+]]></Implementation>
+</Method>
 </Class>