Index: APPS/EC/Winkelkar/impl/VerkoopPrijsMuntBepaler.cls.xml
===================================================================
diff -u -r64789 -r65154
--- APPS/EC/Winkelkar/impl/VerkoopPrijsMuntBepaler.cls.xml	(.../VerkoopPrijsMuntBepaler.cls.xml)	(revision 64789)
+++ APPS/EC/Winkelkar/impl/VerkoopPrijsMuntBepaler.cls.xml	(.../VerkoopPrijsMuntBepaler.cls.xml)	(revision 65154)
@@ -61,6 +61,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleCH">
+<FormalSpec>HaefeleCHPersonality:DOM.common.HaefeleCHPersonality</FormalSpec>
+<Implementation><![CDATA[	Set ..Munt=##class(DOM.enu.Munt).CHF()
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkOPO">
 <FormalSpec>OPOPersonality:DOM.common.OPOPersonality</FormalSpec>
 <Implementation><![CDATA[	Set ..Munt=##class(DOM.enu.Munt).CHF()