Index: CHUI/Orgalux/PrintSelect.cls.xml
===================================================================
diff -u -r31406 -r31504
--- CHUI/Orgalux/PrintSelect.cls.xml	(.../PrintSelect.cls.xml)	(revision 31406)
+++ CHUI/Orgalux/PrintSelect.cls.xml	(.../PrintSelect.cls.xml)	(revision 31504)
@@ -346,6 +346,7 @@
 	Do ..pmTaal.AddItem("N","N")
 	Do ..pmTaal.AddItem("F","F")
 	Do ..pmTaal.AddItem("D","D")
+	Do ..pmTaal.AddItem("E","E")
 	Do ..pmTaal.AddItem("NF","N+F")
 	Do ..pmTaal.DefaultFrames()
 	Set ..pmTaal.Value="K"
@@ -427,9 +428,9 @@
  		if 0&&(LandKlant'=Belgie.GeefID())&&(LandKlant'=Nederland.GeefID()) //&&(LandKlant'=1120) 
  			{ set errMessage=errMessage_"Klant is niet afkomstig van Belgie of Nederland"_$$$CRLF }
  	 	if ..pmTaal.Value = "K" { 
-			set TaalKlant = Partij.GeefTaal()
-			if (TaalKlant'=##class(DOM.enu.Taal).Frans()) && ( TaalKlant '= ##class(DOM.enu.Taal).Nederlands()) && ( TaalKlant '= ##class(DOM.enu.Taal).Duits()) {
-				set errMessage = errMessage_"Taalkeuze is niet Nederlands of Frans of Duits"_$$$CRLF
+			#dim TaalKlant As DOM.enu.Taal = Partij.GeefTaal()
+			if $$$Not(##class(TECH.StringUtils).Equals(TaalKlant, ##class(DOM.enu.Taal).Frans(), ##class(DOM.enu.Taal).Nederlands(), ##class(DOM.enu.Taal).Duits(), ##class(DOM.enu.Taal).Engels())) {
+				set errMessage = errMessage_"Taalkeuze is niet Nederlands of Frans of Duits of Engels"_$$$CRLF
 			}
 			set ..ExportTalen = $listbuild(TaalKlant)
 		}