Index: APPS/EC/Transport/impl/VerzendingMogelijkheidRepository.cls.xml
===================================================================
diff -u -r46846 -r46848
--- APPS/EC/Transport/impl/VerzendingMogelijkheidRepository.cls.xml	(.../VerzendingMogelijkheidRepository.cls.xml)	(revision 46846)
+++ APPS/EC/Transport/impl/VerzendingMogelijkheidRepository.cls.xml	(.../VerzendingMogelijkheidRepository.cls.xml)	(revision 46848)
@@ -10,7 +10,11 @@
 
 <Method name="VerwijderViaOfferteID">
 <FormalSpec>OfferteID:%String</FormalSpec>
-<Implementation><![CDATA[	do ..VerwijderViaFilter("OfferteID = ?",$listbuild(OfferteID))
+<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>
 </Method>
 
@@ -27,6 +31,26 @@
 <Implementation><![CDATA[	Quit ..ZoekViaFilter("OfferteId = ?",$listbuild(OfferteId))
 ]]></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>