Index: vhUnitTest/Res/VertalingRepository/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/Res/VertalingRepository/Test.cls.xml	(revision 0)
+++ vhUnitTest/Res/VertalingRepository/Test.cls.xml	(revision 60465)
@@ -0,0 +1,122 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Res.VertalingRepository.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: BestaatVertalingViaFilter gebruikt de juiste query en parameters">
+<Implementation><![CDATA[
+	#dim Groep As %String = "Groep"
+	#dim Sleutel As %String = "Sleutel"
+	#dim Type As %String = "L"
+	#dim Taal As %String = "N"
+	#dim QueryAPISpy As vhTest.Spy.TECH.Query.QueryAPI = ..MaakQueryAPISpy(Groep, Sleutel, Type, Taal)
+	Set VertalingRepository = ##class(Res.VertalingRepository).%New(..MaakGateWayDummy(), QueryAPISpy)
+	
+	Do VertalingRepository.BestaatVertalingViaFilter(Groep, Sleutel, Type, Taal)
+	
+	Do $$$AssertEquals(QueryAPISpy.Statement,"SELECT ID FROM Res.Vertaling WHERE Groep = ? AND Intern = ? AND Type = ? AND TAAL = ?")
+	Do $$$AssertEquals(QueryAPISpy.Params, $LB("Groep", "Sleutel" ,"L" ,"N"))
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefVertalingViaFilter gebruikt de juiste query en parameters">
+<Implementation><![CDATA[
+	#dim Groep As %String = "Groep"
+	#dim Sleutel As %String = "Sleutel"
+	#dim Type As %String = "L"
+	#dim Taal As %String = "N"
+	#dim QueryAPISpy As vhTest.Spy.TECH.Query.QueryAPI = ..MaakQueryAPISpy(Groep, Sleutel, Type, Taal)
+	Set VertalingRepository = ##class(Res.VertalingRepository).%New(..MaakGateWayDummy(), QueryAPISpy)
+	
+	Do VertalingRepository.GeefVertalingViaFilter(Groep, Sleutel, Type, Taal)
+	
+	Do $$$AssertEquals(QueryAPISpy.Statement,"SELECT ID FROM Res.Vertaling WHERE Groep = ? AND Intern = ? AND Type = ? AND TAAL = ?")
+	Do $$$AssertEquals(QueryAPISpy.Params, $LB("Groep", "Sleutel" ,"L" ,"N"))
+]]></Implementation>
+</Method>
+
+<Method name="aTest: VerwijderVertalingViaFilter gebruikt de juiste query en parameters">
+<Implementation><![CDATA[
+	#dim Groep As %String = "Groep"
+	#dim Sleutel As %String = "Sleutel"
+	#dim Type As %String = "L"
+	#dim Taal As %String = "N"
+	#dim QueryAPISpy As vhTest.Spy.TECH.Query.QueryAPI = ..MaakQueryAPISpy(Groep, Sleutel, Type, Taal)
+	Set VertalingRepository = ##class(Res.VertalingRepository).%New(..MaakGateWayDummy(), QueryAPISpy)
+	
+	Do VertalingRepository.VerwijderVertalingViaFilter(Groep, Sleutel, Type, Taal)
+	
+	Do $$$AssertEquals(QueryAPISpy.Statement,"SELECT ID FROM Res.Vertaling WHERE Groep = ? AND Intern = ? AND Type = ? AND TAAL = ?")
+	Do $$$AssertEquals(QueryAPISpy.Params, $LB("Groep", "Sleutel" ,"L" ,"N"))
+]]></Implementation>
+</Method>
+
+<Method name="aTest: UpdateVertalingIndienBestaat gebruikt de juiste query en parameters">
+<Implementation><![CDATA[
+	#dim Groep As %String = "Groep"
+	#dim Sleutel As %String = "Sleutel"
+	#dim Type As %String = "L"
+	#dim Taal As %String = "N"
+	#dim Vertaling As %String = "Sleutel" 
+	#dim QueryAPISpy As vhTest.Spy.TECH.Query.QueryAPI = ..MaakQueryAPISpyMetVertaling(Groep, Sleutel, Type, Taal, Vertaling)
+	Set VertalingObject = ##class(Res.Vertaling).%New()
+	Do VertalingObject.GroepSetObjectId(Groep)
+	Do VertalingObject.TypeSetObjectId(Type)
+	Do VertalingObject.TaalSetObjectId(Taal)
+	Set VertalingObject.Intern = Sleutel
+	Set VertalingObject.Vertaling = Vertaling
+	Set GatewayMock = ##class(vhTest.Mock.TECH.Persistent.impl.Gateway).%New("Res.Vertaling")
+	
+	Set VertalingRepository = ##class(Res.VertalingRepository).%New(GatewayMock, QueryAPISpy)
+	Do GatewayMock.VerwachtMethodCall("Save",..Matches.Object(VertalingObject))
+	Do GatewayMock.VerwachtMethodCall("OpenId",Groep)
+	
+	Do VertalingRepository.UpdateVertalingIndienBestaat(Groep, Sleutel, Type, Taal , Vertaling)
+	
+	Do GatewayMock.Verifieer()
+	Do $$$AssertEquals(QueryAPISpy.Statement,"SELECT ID FROM Res.Vertaling WHERE Groep = ? AND Intern = ? AND Type = ? AND TAAL = ?")
+	Do $$$AssertEquals(QueryAPISpy.Params, $LB("Groep", "Sleutel" ,"L" ,"N", "Sleutel"))
+]]></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("Res.Vertaling")
+	Do GateWayDummy.IndienMethodCall("OpenId",$$$ElkeWaarde).DanReturn(##class(Res.Vertaling).%New())
+	Quit GateWayDummy
+]]></Implementation>
+</Method>
+
+<Method name="MaakQueryAPISpy">
+<FormalSpec>Groep:%String,Sleutel:%String,Type:%String,Taal:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Spy.TECH.Query.QueryAPI</ReturnType>
+<Implementation><![CDATA[
+	#dim ResultSetData As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes($LB(Groep, Sleutel, Type, Taal))
+	#dim ResultSetColumns As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes($LB("Groep","Sleutel","Type","Taal"))
+	
+	#dim QueryAPISpy As vhTest.Spy.TECH.Query.QueryAPI = ##class(vhTest.Spy.TECH.Query.QueryAPI).%New(ResultSetData,ResultSetColumns )
+	
+	Quit QueryAPISpy
+]]></Implementation>
+</Method>
+
+<Method name="MaakQueryAPISpyMetVertaling">
+<FormalSpec>Groep:%String,Sleutel:%String,Type:%String,Taal:%String,Vertaling:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Spy.TECH.Query.QueryAPI</ReturnType>
+<Implementation><![CDATA[
+	#dim ResultSetData As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes($LB(Groep, Sleutel, Type, Taal, Vertaling))
+	#dim ResultSetColumns As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes($LB("Groep","Sleutel","Type","Taal","Vertaling"))
+	
+	#dim QueryAPISpy As vhTest.Spy.TECH.Query.QueryAPI = ##class(vhTest.Spy.TECH.Query.QueryAPI).%New(ResultSetData,ResultSetColumns )
+	
+	Quit QueryAPISpy
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: Res/VertalingRepository.cls.xml
===================================================================
diff -u
--- Res/VertalingRepository.cls.xml	(revision 0)
+++ Res/VertalingRepository.cls.xml	(revision 60465)
@@ -0,0 +1,73 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Res.VertalingRepository">
+<Super>TECH.Persistentie.impl.Repository</Super>
+
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>Res.Vertaling</Default>
+</Parameter>
+
+<Method name="BestaatVertalingViaFilter">
+<FormalSpec>Groep:%String,Sleutel:%String,Type:%String,Taal:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	; Quit ..BestaatViaID(Groep_"||"_Sleutel_"||"_Type_"||"_Taal)   ; Added by WimV  :-) 
+	
+	Quit ..BestaatViaFilter("Groep = ? AND Intern = ? AND Type = ? AND TAAL = ?", $LB(Groep,Sleutel,Type,Taal))
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*Method MaakVertaling(Groep As %String, Sleutel As %String, Type As %String, Taal As %String, Vertaling As %String) As TECH.Persistent
+{
+	Set VertalingObject = ##class(Res.Vertaling).%New()
+	Set VertalingObject.Groep = Groep
+	Set VertalingObject.Intern = Sleutel
+	Set VertalingObject.Type = Type
+	Set VertalingObject.Vertaling = Vertaling
+	Do ..Bewaar(VertalingObject)
+	Quit VertalingObject
+}
+*/
+]]></Content>
+</UDLText>
+
+<Method name="GeefVertalingViaFilter">
+<FormalSpec>Groep:%String,Sleutel:%String,Type:%String,Taal:%String</FormalSpec>
+<ReturnType>Res.Vertaling</ReturnType>
+<Implementation><![CDATA[
+	; Quit ..GeefViaID(Groep_"||"_Sleutel_"||"_Type_"||"_Taal)   ; Added by WimV  :-) 
+	
+	Quit ..GeefViaFilter("Groep = ? AND Intern = ? AND Type = ? AND TAAL = ?", $LB(Groep,Sleutel,Type,Taal))
+]]></Implementation>
+</Method>
+
+<Method name="UpdateVertalingIndienBestaat">
+<FormalSpec>Groep:%String,Sleutel:%String,Type:%String,Taal:%String,Vertaling:%String</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[
+	#dim VertalingObject As Res.Vertaling 
+	Set VertalingObject = ..GeefVertalingViaFilter(Groep, Sleutel, Type, Taal)
+	Do ##class(Tools.Wlip).%New(26).ObjToText(VertalingObject)
+	Set VertalingObject.Vertaling = Vertaling
+	Do ..Bewaar(VertalingObject) 
+
+	Quit VertalingObject
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderVertalingViaFilter">
+<FormalSpec>Groep:%String,Sleutel:%String,Type:%String,Taal:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	; Quit ..VerwijderViaID(Groep_"||"_Sleutel_"||"_Type_"||"_Taal)   ; Added by WimV  :-) 
+	
+	Quit ..VerwijderViaFilter("Groep = ? AND Intern = ? AND Type = ? AND TAAL = ?", $LB(Groep,Sleutel,Type,Taal))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>