Index: APPS/TRANSP/Offerte/impl/DHL/TransportduurRepository.cls.xml
===================================================================
diff -u -r34137 -r34183
--- APPS/TRANSP/Offerte/impl/DHL/TransportduurRepository.cls.xml	(.../TransportduurRepository.cls.xml)	(revision 34137)
+++ APPS/TRANSP/Offerte/impl/DHL/TransportduurRepository.cls.xml	(.../TransportduurRepository.cls.xml)	(revision 34183)
@@ -14,6 +14,16 @@
 <Implementation><![CDATA[	Quit ..GeefViaFilter("LandCode = ? AND PostCode = ?", $LB(LandCode,PostCode))
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderViaLandCode">
+<FormalSpec>LandCode:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim SQLTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
+	#dim SqlStatement As TECH.String = "DELETE FROM " _SQLTableName _" WHERE LandCode = ?"
+	#dim lbParams As %List = $LB(LandCode)
+	Do ..QueryAPI.ExecuteDynamicQuery(SqlStatement,lbParams)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TransportduurRepository/Test.cls.xml
===================================================================
diff -u -r34136 -r34183
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TransportduurRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34136)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TransportduurRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34183)
@@ -14,16 +14,24 @@
 	
 	Do TransportduurRepository.GeefViaLandEnPostCode(LandCode, PostCode)
 	
-	Do ..AssertQueryAndParameters(QueryAPISpy)
+	Do $$$AssertEquals(QueryAPISpy.Statement,"SELECT ID FROM APPS_TRANSP_Offerte_impl_DHL.Transportduur WHERE LandCode = ? AND PostCode = ?")
+	Do $$$AssertEquals(QueryAPISpy.Params ,$LB("DE","54122"))
 ]]></Implementation>
 </Method>
 
-<Method name="AssertQueryAndParameters">
-<FormalSpec>QueryAPISpy:vhTest.Spy.TECH.Query.QueryAPI</FormalSpec>
-<Private>1</Private>
+<Method name="Test: VerwijderViaLand gebruikt de juiste query en parameters.">
 <Implementation><![CDATA[
-	Do $$$AssertEquals(QueryAPISpy.Statement,"SELECT ID FROM APPS_TRANSP_Offerte_impl_DHL.Transportduur WHERE LandCode = ? AND PostCode = ?")
-	Do $$$AssertEquals(QueryAPISpy.Params ,$LB("DE","54122"))
+	#dim LandCode As %String = "DE"
+	#dim PostCode As %String = "54122"
+	
+	#dim QueryAPISpy As vhTest.Spy.TECH.Query.QueryAPI = ..MaakQueryAPISpy(LandCode, PostCode)
+	
+	Set TransportduurRepository = ##class(APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository).%New(..MaakGateWayDummy(), QueryAPISpy)
+	
+	Do TransportduurRepository.VerwijderViaLandCode(LandCode)
+	
+	Do $$$AssertEquals(QueryAPISpy.Statement,"DELETE FROM APPS_TRANSP_Offerte_impl_DHL.Transportduur WHERE LandCode = ?")
+	Do $$$AssertEquals(QueryAPISpy.Params ,$LB("DE"))
 ]]></Implementation>
 </Method>