Index: APPS/BKH/AankoopFactuurArchivering/impl/EasyFormRepository.cls.xml
===================================================================
diff -u -r29670 -r29672
--- APPS/BKH/AankoopFactuurArchivering/impl/EasyFormRepository.cls.xml	(.../EasyFormRepository.cls.xml)	(revision 29670)
+++ APPS/BKH/AankoopFactuurArchivering/impl/EasyFormRepository.cls.xml	(.../EasyFormRepository.cls.xml)	(revision 29672)
@@ -43,13 +43,21 @@
 <Default>'3CBB1FC3-D8A9-482C-8062-1412A9ABE017'</Default>
 </Parameter>
 
-<Parameter name="FirmaEntityIdVanHoecke">
-<Default>'E4A6D3B3-059C-4E6B-87B2-22B4C238A4D6'</Default>
-</Parameter>
+<Property name="InterneFirmaBepaler">
+<Type>APPS.BKH.AankoopFactuurArchivering.impl.EasyFormInterneFirmaBepaler</Type>
+<Private>1</Private>
+</Property>
 
-<Parameter name="FirmaEntityIdHalux">
-<Default>'E5A6D3B3-059C-4E6B-87B2-22B4C238A4D6'</Default>
-</Parameter>
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..InterneFirmaBepaler = ##class(APPS.BKH.AankoopFactuurArchivering.impl.EasyFormInterneFirmaBepaler).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
 
 <Method name="Execute">
 <FormalSpec><![CDATA[Query:%String,Param:%List,&List:%ListOfDataTypes]]></FormalSpec>