Index: zTryout/FM/SFS/XML.cls.xml
===================================================================
diff -u -r1222 -r1661
--- zTryout/FM/SFS/XML.cls.xml	(.../XML.cls.xml)	(revision 1222)
+++ zTryout/FM/SFS/XML.cls.xml	(.../XML.cls.xml)	(revision 1661)
@@ -53,7 +53,7 @@
 	;Set WSOrd=##class(WS.TBX.Order).%OpenId(wsID)
 	
 	Set blProxy=##class(BL.Prod.GAData.TBXLadeXML).Instantiate()
-	Do blProxy.Init("E","EUR","",1,1,)   ; Taal As %String, Munt As %String = "EUR", sDomVERW As %String = "", blnShowAKP As %Boolean, blnShowVKP As %Boolean, blnBeursUser As %Boolean = 0)
+	Do blProxy.Init("E","EUR","HFLB",1,1,)   ; Taal As %String, Munt As %String = "EUR", sDomVERW As %String = "", blnShowAKP As %Boolean, blnShowVKP As %Boolean, blnBeursUser As %Boolean = 0)
 	Set sc=blProxy.EDIOrderToFile(wsID,.FilePath)
 	Do blProxy.Close()
 	Quit:($$$ISERR(sc)) sc
Index: zTryout/FM/AESTest.cls.xml
===================================================================
diff -u -r1222 -r1661
--- zTryout/FM/AESTest.cls.xml	(.../AESTest.cls.xml)	(revision 1222)
+++ zTryout/FM/AESTest.cls.xml	(.../AESTest.cls.xml)	(revision 1661)
@@ -3,6 +3,7 @@
 <Class name="zTryout.FM.AESTest">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="Enc">
 <Description>
@@ -12,11 +13,12 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Tekst:%String,Key="NL_MeuHo.VH!lAdE"</FormalSpec>
 <Implementation><![CDATA[
+	w "AES-encoding:", !
 	Set Encrypted = $system.Encryption.AESEncode(Tekst, Key)
 	ZZDUMP Encrypted
 	Set Base64 = $system.Encryption.Base64Encode(Encrypted)
-	w !,Base64,!
-	w $TR(Base64,"+=","_-"),!
+	w !,"Base64-encoding: ", Base64,!
+	w "Replace + and =: ", $TR(Base64,"+=","_-"),!
 ]]></Implementation>
 </Method>