Index: zTryout/JBL/Unishop.cls.xml
===================================================================
diff -u -r29059 -r47774
--- zTryout/JBL/Unishop.cls.xml	(.../Unishop.cls.xml)	(revision 29059)
+++ zTryout/JBL/Unishop.cls.xml	(.../Unishop.cls.xml)	(revision 47774)
@@ -5,10 +5,12 @@
 
 <Method name="GeefURL">
 <Description>
-Do ##class(zTryout.JBL.Unishop).GeefURL(##class(DOM.common.enu.Personality).HaefeleBE())</Description>
+Do ##class(zTryout.JBL.Unishop).GeefURL(##class(DOM.common.enu.Personality).HaefeleNL())</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PersonalityID:DOM.common.enu.Personality,Taal:%String="N"</FormalSpec>
 <Implementation><![CDATA[
+		Write !, "Deze tool is niet veilig om een realistische REF of DATAOPT te verkrijgen. Want de gebruikte waarden zijn niet ok."
+	
 		Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(PersonalityID)
 		
 		#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
@@ -19,17 +21,17 @@
 		
 		Set KSD = ##class(APPS.EC.dto.KlantSessieData).%New()
 		Set KSD.Email = "ict_development@vanhoecke.be"
-		Set KSD.GebruikerID = "hfleBE_BE2000107_1"
-		Set KSD.KlantID = "hfleBE_BE2000107"
-		Set KSD.KlantNaam = "DummyKlantNaam"
+		Set KSD.GebruikerID = "SampleUserPra" // "Dit is leeg bij DATAOPT's die de handel zelf maakt, en ingevuld door VH bij anonieme handels"
+		Set KSD.KlantID = "SampleCustomerIdPra" // "De klant ID zoals de handel die doorgeeft aan ons, dus zonder onze personality-prefix"
+		Set KSD.KlantNaam = "SampleCustomer"
 		Set KSD.Korting = ""
 		Set KSD.Taal = "N"					
 		#dim EncryptedKlantSessieData As %String = KlantSessieDataBepaler.GeefEncryptedKlantSessieData(KSD,DomeinVerwerker)
 				
 		Set RefSessieData = ##class(APPS.EC.dto.RefSessieData).%New()
-		Set RefSessieData.KlantID = KlantID
+		Set RefSessieData.KlantID = "" // In de multipersonality START-REF mag geen KlantID zitten!
 		Set RefSessieData.Verwerker = DomeinVerwerker
-		Set RefSessieData.WebshopModus = ##class(APPS.EC.enu.WebshopModus).Normaal()
+		Set RefSessieData.WebshopModus = ##class(APPS.EC.enu.WebshopModus).Tandembox()
 		#dim Ref As %String = ##class(APPS.EC.impl.RefSessieDataBepaler).%New().GeefEncryptedRefSessieData(RefSessieData)	
 				
 		#dim EchteURL As %String = "http://legrabox.accounts.intracto.com"