Index: APPS/EC/Transport/impl/VerzendingMogelijkheidRepository.cls.xml
===================================================================
diff -u -r41490 -r46846
--- APPS/EC/Transport/impl/VerzendingMogelijkheidRepository.cls.xml	(.../VerzendingMogelijkheidRepository.cls.xml)	(revision 41490)
+++ APPS/EC/Transport/impl/VerzendingMogelijkheidRepository.cls.xml	(.../VerzendingMogelijkheidRepository.cls.xml)	(revision 46846)
@@ -10,11 +10,7 @@
 
 <Method name="VerwijderViaOfferteID">
 <FormalSpec>OfferteID:%String</FormalSpec>
-<Implementation><![CDATA[
-	#dim SQLTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
-	#dim SqlStatement As TECH.String = "DELETE FROM " _SQLTableName _" WHERE (OfferteID = ?)"
-	#dim lbParams As %List = $LB(OfferteID)
-	Do ..QueryAPI.ExecuteDynamicQuery(SqlStatement,lbParams)
+<Implementation><![CDATA[	do ..VerwijderViaFilter("OfferteID = ?",$listbuild(OfferteID))
 ]]></Implementation>
 </Method>
 
@@ -25,23 +21,10 @@
 ]]></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
+<Method name="ZoekViaOfferteId">
+<FormalSpec>OfferteId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("OfferteId = ?",$listbuild(OfferteId))
 ]]></Implementation>
 </Method>
 </Class>