Index: APPS/TRANSP/Transsmart/data/VerzendDataRepository.cls.xml
===================================================================
diff -u -r67701 -r72356
--- APPS/TRANSP/Transsmart/data/VerzendDataRepository.cls.xml	(.../VerzendDataRepository.cls.xml)	(revision 67701)
+++ APPS/TRANSP/Transsmart/data/VerzendDataRepository.cls.xml	(.../VerzendDataRepository.cls.xml)	(revision 72356)
@@ -15,6 +15,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BestaatViaReference">
+<FormalSpec>Reference:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..BestaatViaFilter("Reference = ? and LaatsteRequestType = 'Registratie' and status = 'Finished'", $LB(Reference))
+]]></Implementation>
+</Method>
+
+<Method name="BestaatViaFilter">
+<FormalSpec>Filter:%String,Params:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</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))
+
+	Quit ResultSet.Next()
+]]></Implementation>
+</Method>
+
 <Method name="GeefViaFilter">
 <FormalSpec>Filter:%String,Params:%List</FormalSpec>
 <Private>1</Private>