Index: DOM/enu/Munt/AutoComplete.cls.xml
===================================================================
diff -u -r57708 -r66335
--- DOM/enu/Munt/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 57708)
+++ DOM/enu/Munt/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 66335)
@@ -23,6 +23,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="DKK">
+<Type>%String</Type>
+<InitialExpression>"DKK"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="EUR">
 <Type>%String</Type>
 <InitialExpression>"EUR"</InitialExpression>
Index: DOM/enu/Munt.cls.xml
===================================================================
diff -u -r57708 -r66335
--- DOM/enu/Munt.cls.xml	(.../Munt.cls.xml)	(revision 57708)
+++ DOM/enu/Munt.cls.xml	(.../Munt.cls.xml)	(revision 66335)
@@ -6,11 +6,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>,EUR,USD,ATS,CHF,GBP,ITL,NLG,SEK,THB,NOK</Default>
+<Default>,EUR,USD,ATS,CHF,GBP,ITL,NLG,SEK,THB,NOK,DKK</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>,EUR,USD,ATS,CHF,GBP,ITL,NLG,SEK,THB,NOK</Default>
+<Default>,EUR,USD,ATS,CHF,GBP,ITL,NLG,SEK,THB,NOK,DKK</Default>
 </Parameter>
 
 <Method name="EUR">
@@ -82,6 +82,13 @@
 <Implementation><![CDATA[	quit "NOK"
 ]]></Implementation>
 </Method>
+
+<Method name="DKK">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.enu.Munt</ReturnType>
+<Implementation><![CDATA[	quit "DKK"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EC/Winkelkar/impl/VerkoopPrijsMuntBepaler.cls.xml
===================================================================
diff -u -r65154 -r66335
--- APPS/EC/Winkelkar/impl/VerkoopPrijsMuntBepaler.cls.xml	(.../VerkoopPrijsMuntBepaler.cls.xml)	(revision 65154)
+++ APPS/EC/Winkelkar/impl/VerkoopPrijsMuntBepaler.cls.xml	(.../VerkoopPrijsMuntBepaler.cls.xml)	(revision 66335)
@@ -67,6 +67,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[	Set ..Munt=##class(DOM.enu.Munt).DKK()
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkOPO">
 <FormalSpec>OPOPersonality:DOM.common.OPOPersonality</FormalSpec>
 <Implementation><![CDATA[	Set ..Munt=##class(DOM.enu.Munt).CHF()
Index: DOM/enu/Munt/Verwerker.cls.xml
===================================================================
diff -u -r57708 -r66335
--- DOM/enu/Munt/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 57708)
+++ DOM/enu/Munt/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 66335)
@@ -16,6 +16,8 @@
 		Do ..VerwerkATS()
 	} ElseIf Munt = "CHF" {
 		Do ..VerwerkCHF()
+	} ElseIf Munt = "DKK" {
+		Do ..VerwerkDKK()
 	} ElseIf Munt = "EUR" {
 		Do ..VerwerkEUR()
 	} ElseIf Munt = "GBP" {
@@ -51,6 +53,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkDKK">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkEUR">
 <Abstract>1</Abstract>
 <Private>1</Private>