Index: APPS/TRANSP/GLS/GLSv1/impl/VerzendDataRepository.cls.xml
===================================================================
diff -u -r40895 -r40926
--- APPS/TRANSP/GLS/GLSv1/impl/VerzendDataRepository.cls.xml	(.../VerzendDataRepository.cls.xml)	(revision 40895)
+++ APPS/TRANSP/GLS/GLSv1/impl/VerzendDataRepository.cls.xml	(.../VerzendDataRepository.cls.xml)	(revision 40926)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.TRANSP.GLS.GLSv1.impl.VerzendDataRepository">
-<Super>TECH.Persistentie.impl.Repository</Super>
+<Super>TECH.Persistentie.impl.Repository,TECH.Mockable</Super>
 
 <Parameter name="DataClassName">
 <Type>%String</Type>
@@ -13,6 +13,12 @@
 <Implementation><![CDATA[	quit ..GeefViaFilter("UnitID = ?",$listbuild(UnitID))
 ]]></Implementation>
 </Method>
+
+<Method name="BestaatViaUnitID">
+<FormalSpec>UnitID:%String</FormalSpec>
+<Implementation><![CDATA[	quit ..BestaatViaFilter("UnitID = ?",$listbuild(UnitID))
+]]></Implementation>
+</Method>
 </Class>