Index: WSimpl/Unishop/Login/Aanmelder.cls.xml
===================================================================
diff -u -r34640 -r39388
--- WSimpl/Unishop/Login/Aanmelder.cls.xml	(.../Aanmelder.cls.xml)	(revision 34640)
+++ WSimpl/Unishop/Login/Aanmelder.cls.xml	(.../Aanmelder.cls.xml)	(revision 39388)
@@ -59,6 +59,16 @@
 	
 	Do ..WebshopSessieSettingsInvuller.VulIn(.WebshopSessie)
 	
+	if (WebshopSessie.PersonalityID = ##class(DOM.common.enu.Personality).Hein()) {
+		#dim TbxRef As %String = "I7DhXf6xijmwSi2wVlwJlA--"
+		#dim KlantSessieData As APPS.EC.dto.KlantSessieData = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New().GeefKlantSessieData(DataOpt,"HEIN")
+		
+		set Generator = ##class(vhPowerTools.APPS.EC.KlantSessieDataGeneratorTbx).%New()
+		#dim TbxDataOpt As %String = Generator.GenereerDataOpt("HEIN",$piece(KlantSessieData.KlantID,"_",2),KlantSessieData.KlantNaam,KlantSessieData.Email,KlantSessieData.Taal)
+		
+		Set WebshopSessie.TBXURL = "http://tbx.tandem-box.de/vhisiedemo/TBX/main.csp?Taal=N&REF="_TbxRef_"&DATAOPT="_TbxDataOpt
+	}
+
 	quit WebshopSessie
 ]]></Implementation>
 </Method>
Index: WS/EC/SessionService.cls.xml
===================================================================
diff -u -r37655 -r39388
--- WS/EC/SessionService.cls.xml	(.../SessionService.cls.xml)	(revision 37655)
+++ WS/EC/SessionService.cls.xml	(.../SessionService.cls.xml)	(revision 39388)
@@ -85,6 +85,13 @@
 	#dim WebshopSessie As APPS.EC.dto.WebshopSessie = ##class(APPS.EC.impl.WebshopSessieGenerator.SessieNaarDtoConverter).%New().GeefWebshopSessie( Sessie )
 	Set WebshopSessieSettingsInvuller = ##class(WSimpl.Unishop.Login.WebshopSessieSettingsInvuller).%New()
 	Do WebshopSessieSettingsInvuller.VulIn(.WebshopSessie)
+	
+	if (WebshopSessie.PersonalityID = ##class(DOM.common.enu.Personality).Hein()) {
+		set Generator = ##class(vhPowerTools.APPS.EC.KlantSessieDataGeneratorTbx).%New()
+		#dim Ref As %String = "I7DhXf6xijmwSi2wVlwJlA--"
+		#dim DataOpt As %String = Generator.GenereerDataOpt("HEIN",$piece(HandelKlantData.ID,"_",2),HandelKlantData.Naam,HandelKlantData.EmailAdres,HandelKlantData.Taal)
+		Set WebshopSessie.TBXURL = "http://tbx.tandem-box.de/vhisiedemo/TBX/main.csp?Taal=N&REF="_Ref_"&DATAOPT="_DataOpt
+	}
 
 	Quit WebshopSessie
 ]]></Implementation>
Index: cspBasis/TBX/Lib.mac.rou
===================================================================
diff -u -r39225 -r39388
--- cspBasis/TBX/Lib.mac.rou	(.../Lib.mac.rou)	(revision 39225)
+++ cspBasis/TBX/Lib.mac.rou	(.../Lib.mac.rou)	(revision 39388)
@@ -97,7 +97,7 @@
 
 	If $L(DecryptedDataOpt) {
 		if $length(DecryptedDataOpt,"\") < 2 {
-			do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Invalid Decryption (DataOpt - "_sDomVERW_")."))
+			do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Invalid Decryption (DataOpt - "_sDomVERW_"). EncryptionKey '"_EncryptionKey_"', zag er gedecrypteerd zo uit:'"_DecryptedDataOpt_"'."))
 		}
 		Do ddoDataOptToArray^cspBasis.TBX.Lib(DecryptedDataOpt,.DataOptArray)
 	}
@@ -136,3 +136,4 @@
 	Quit "DummyKey"
 	
 
+