Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/StapelingRepository/VerwijderViaReferentie/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/StapelingRepository/VerwijderViaReferentie/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/StapelingRepository/VerwijderViaReferentie/Test.cls.xml	(revision 35960)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.DHL.StapelingRepository.VerwijderViaReferentie.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: VerwijderViaReferentie gebruikt de juiste query en parameters.">
+<Implementation><![CDATA[
+	#dim Referentie As %String = "111377"
+	
+	#dim QueryAPISpy As vhTest.Spy.TECH.Query.QueryAPI = ..MaakQueryAPISpy(Referentie)
+	
+	Set StapelingRepository = ##class(APPS.TRANSP.Offerte.impl.DHL.StapelingRepository).%New(..MaakGateWayDummy(), QueryAPISpy)
+	
+	Do StapelingRepository.VerwijderViaReferentie(Referentie)
+	
+	Do $$$AssertEquals(QueryAPISpy.Statement,"DELETE FROM APPS_TRANSP_Offerte_impl_DHL.Stapeling WHERE Referentie = ?")
+	Do $$$AssertEquals(QueryAPISpy.Params ,$LB("111377"))
+]]></Implementation>
+</Method>
+
+<Method name="MaakGateWayDummy">
+<Private>1</Private>
+<ReturnType>vhTest.Mock.TECH.Persistent.impl.Gateway</ReturnType>
+<Implementation><![CDATA[
+	#dim GateWayDummy As vhTest.Mock.TECH.Persistent.impl.Gateway = ##class(vhTest.Mock.TECH.Persistent.impl.Gateway).%New("APPS.TRANSP.Offerte.impl.DHL.Stapeling")
+	Do GateWayDummy.IndienMethodCall("OpenId",$$$ElkeWaarde).DanReturn(##class(APPS.TRANSP.Offerte.impl.DHL.Stapeling).%New())
+	Quit GateWayDummy
+]]></Implementation>
+</Method>
+
+<Method name="MaakQueryAPISpy">
+<FormalSpec>Referentie:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Spy.TECH.Query.QueryAPI</ReturnType>
+<Implementation><![CDATA[
+	#dim ResultSetData As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes($LB(Referentie))
+	#dim ResultSetColumns As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes($LB("Referentie"))
+	
+	#dim QueryAPISpy As vhTest.Spy.TECH.Query.QueryAPI = ##class(vhTest.Spy.TECH.Query.QueryAPI).%New(ResultSetData,ResultSetColumns )
+	
+	Quit QueryAPISpy
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Offerte/impl/DHL/Stapeling.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Offerte/impl/DHL/Stapeling.cls.xml	(revision 0)
+++ APPS/TRANSP/Offerte/impl/DHL/Stapeling.cls.xml	(revision 35960)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Offerte.impl.DHL.Stapeling">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="Referentie">
+<Type>%String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.TRANSP.Offe93EE.StapelingD</DataLocation>
+<DefaultData>StapelingDefaultData</DefaultData>
+<IdLocation>^APPS.TRANSP.Offe93EE.StapelingD</IdLocation>
+<IndexLocation>^APPS.TRANSP.Offe93EE.StapelingI</IndexLocation>
+<StreamLocation>^APPS.TRANSP.Offe93EE.StapelingS</StreamLocation>
+<Data name="StapelingDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Referentie</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Offerte/impl/DHL/StapelingRepository.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Offerte/impl/DHL/StapelingRepository.cls.xml	(revision 0)
+++ APPS/TRANSP/Offerte/impl/DHL/StapelingRepository.cls.xml	(revision 35960)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Offerte.impl.DHL.StapelingRepository">
+<Super>TECH.Persistentie.Repository</Super>
+
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>APPS.TRANSP.Offerte.impl.DHL.Stapeling</Default>
+</Parameter>
+
+<Method name="GeefViaReferentie">
+<FormalSpec>Referentie:%String</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefViaFilter("Referentie = ?", $LB(Referentie))
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderViaReferentie">
+<FormalSpec>Referentie:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim SQLTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
+	#dim SqlStatement As TECH.String = "DELETE FROM " _SQLTableName _" WHERE Referentie = ?"
+	#dim lbParams As %List = $LB(Referentie)
+	Do ..QueryAPI.ExecuteDynamicQuery(SqlStatement,lbParams)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/StapelingRepository/GeefViaReferentie/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/StapelingRepository/GeefViaReferentie/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/StapelingRepository/GeefViaReferentie/Test.cls.xml	(revision 35960)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.DHL.StapelingRepository.GeefViaReferentie.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: GeefViaReferentie gebruikt de juiste query en parameters.">
+<Implementation><![CDATA[
+	#dim Referentie As %String = "111377"
+	
+	#dim QueryAPISpy As vhTest.Spy.TECH.Query.QueryAPI = ..MaakQueryAPISpy(Referentie)
+	
+	Set StapelingRepository = ##class(APPS.TRANSP.Offerte.impl.DHL.StapelingRepository).%New(..MaakGateWayDummy(), QueryAPISpy)
+	
+	Do StapelingRepository.GeefViaReferentie(Referentie)
+	
+	Do $$$AssertEquals(QueryAPISpy.Statement,"SELECT ID FROM APPS_TRANSP_Offerte_impl_DHL.Stapeling WHERE Referentie = ?")
+	Do $$$AssertEquals(QueryAPISpy.Params ,$LB("111377"))
+]]></Implementation>
+</Method>
+
+<Method name="MaakGateWayDummy">
+<Private>1</Private>
+<ReturnType>vhTest.Mock.TECH.Persistent.impl.Gateway</ReturnType>
+<Implementation><![CDATA[
+	#dim GateWayDummy As vhTest.Mock.TECH.Persistent.impl.Gateway = ##class(vhTest.Mock.TECH.Persistent.impl.Gateway).%New("APPS.TRANSP.Offerte.impl.DHL.Stapeling")
+	Do GateWayDummy.IndienMethodCall("OpenId",$$$ElkeWaarde).DanReturn(##class(APPS.TRANSP.Offerte.impl.DHL.Stapeling).%New())
+	Quit GateWayDummy
+]]></Implementation>
+</Method>
+
+<Method name="MaakQueryAPISpy">
+<FormalSpec>Referentie:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Spy.TECH.Query.QueryAPI</ReturnType>
+<Implementation><![CDATA[
+	#dim ResultSetData As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes($LB(Referentie))
+	#dim ResultSetColumns As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes($LB("Referentie"))
+	
+	#dim QueryAPISpy As vhTest.Spy.TECH.Query.QueryAPI = ##class(vhTest.Spy.TECH.Query.QueryAPI).%New(ResultSetData,ResultSetColumns )
+	
+	Quit QueryAPISpy
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>