Index: zTryout/JLM/DataOptKorting.cls.xml
===================================================================
diff -u
--- zTryout/JLM/DataOptKorting.cls.xml	(revision 0)
+++ zTryout/JLM/DataOptKorting.cls.xml	(revision 67088)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JLM.DataOptKorting">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefSFSDataOpt">
+<Description>
+Do ##class(zTryout.JLM.DataOptKorting).GeefSFSDataOpt()</Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+    #dim DomeinVerwerker As APPS.EC.enu.WebShopVerwerker= ##class(APPS.EC.enu.WebShopVerwerker).SFS()
+    Set KSD= ##class(APPS.EC.dto.KlantSessieData).%New()
+    Set KSD.Email= "[anton@aus-tirol.ch|mailto:anton@aus-tirol.ch]"
+    Set KSD.GebruikerID= "SFS-Dummy"
+    Set KSD.KlantID= "999999"
+    Set KSD.KlantNaam= "Schreinerei Anton"
+    Set KSD.Korting= "TBX=20.5;LBX=25.5;TAOR=30.5;OL=36.6"
+    Set KSD.Taal= "D"
+    Set KlantSessieDataBepaler= ##class(APPS.EC.impl.KlantSessieDataBepaler).%New()
+    
+    // Controleer encryptie
+    #dim EncryptedKlantSessieData As %String= KlantSessieDataBepaler.GeefEncryptedKlantSessieData(KSD,DomeinVerwerker)
+    W !,EncryptedKlantSessieData,!,!
+    Quit EncryptedKlantSessieData
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>