Index: vhPowerTools/APPS/EC/KlantSessieData/Hein/GeneratorResponse.cls.xml
===================================================================
diff -u
--- vhPowerTools/APPS/EC/KlantSessieData/Hein/GeneratorResponse.cls.xml	(revision 0)
+++ vhPowerTools/APPS/EC/KlantSessieData/Hein/GeneratorResponse.cls.xml	(revision 39377)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.APPS.EC.KlantSessieData.Hein.GeneratorResponse">
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Property name="UnishopUrl">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="TandemboxUrl">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="TestUnishopUrl">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="TestTandemboxUrl">
+<Type>TECH.String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>GeneratorResponseState</State>
+<StreamLocation>^vhPowerToo1BA7.GeneratorReC2B4S</StreamLocation>
+<Data name="GeneratorResponseState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>UnishopUrl</Value>
+</Value>
+<Value name="2">
+<Value>TandemboxUrl</Value>
+</Value>
+<Value name="3">
+<Value>TestUnishopUrl</Value>
+</Value>
+<Value name="4">
+<Value>TestTandemboxUrl</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhPowerTools/APPS/EC/KlantSessieData/Hein/Generator.cls.xml
===================================================================
diff -u
--- vhPowerTools/APPS/EC/KlantSessieData/Hein/Generator.cls.xml	(revision 0)
+++ vhPowerTools/APPS/EC/KlantSessieData/Hein/Generator.cls.xml	(revision 39377)
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.APPS.EC.KlantSessieData.Hein.Generator">
+<Super>vhLib.WebService</Super>
+
+<Parameter name="SERVICENAME">
+<Default>WebshopSessionService</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://www.vanhoecke.be/WS/EC/Webshop</Default>
+</Parameter>
+
+<Property name="TandemboxUrlGenerator">
+<Type>vhPowerTools.APPS.EC.KlantSessieDataGeneratorTbx</Type>
+</Property>
+
+<Property name="UnishopGenerator">
+<Type>vhPowerTools.APPS.EC.KlantSessieDataGeneratorUnishop</Type>
+</Property>
+
+<Property name="TbxWebSetup">
+<Type>vhPowerTools.APPS.EC.KlantSessieData.Hein.TbxWebSetupClient</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..TandemboxUrlGenerator = ##class(vhPowerTools.APPS.EC.KlantSessieDataGeneratorTbx).%New()
+	set ..UnishopGenerator = ##class(vhPowerTools.APPS.EC.KlantSessieDataGeneratorUnishop).%New()
+	set ..TbxWebSetup = ##class(vhPowerTools.APPS.EC.KlantSessieData.Hein.TbxWebSetupClient).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Genereer">
+<FormalSpec>KlantSessieData:vhPowerTools.APPS.EC.KlantSessieData.Hein.KlantData</FormalSpec>
+<ReturnType>vhPowerTools.APPS.EC.KlantSessieData.Hein.GeneratorResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	
+	#dim Id As %String = "hein_"_KlantSessieData.Nr
+	if ##class(DOM.VKP.impl.HeinKlantData).%ExistsId(Id) {
+		set HeinKlantData = ##class(DOM.VKP.impl.HeinKlantData).%OpenId(Id)
+	} else {
+		set HeinKlantData = ##class(DOM.VKP.impl.HeinKlantData).%New()
+		set HeinKlantData.ID = Id
+	}
+
+	set HeinKlantData.Personality = ##class(DOM.common.enu.Personality).Hein()
+	set HeinKlantData.Naam = KlantSessieData.Naam
+	set HeinKlantData.EmailAdres = KlantSessieData.EmailAdres
+	set HeinKlantData.Taal = KlantSessieData.Taal
+	set HeinKlantData.StraatEnNr = KlantSessieData.StraatEnNr
+	set HeinKlantData.Postcode = KlantSessieData.Postcode
+	set HeinKlantData.Gemeente = KlantSessieData.Gemeente
+	set HeinKlantData.TelefoonNummer = KlantSessieData.TelefoonNummer
+	set HeinKlantData.FaxNummer = KlantSessieData.FaxNummer
+	do HeinKlantData.Save()
+	
+	set Response = ##class(vhPowerTools.APPS.EC.KlantSessieData.Hein.GeneratorResponse).%New()
+	
+	set Response.UnishopUrl = "http://hein.taorbox.com/login?"_..UnishopGenerator.GenereerLoginQueryString("HEIN","hein_"_KlantSessieData.Nr,KlantSessieData.Naam,"hein_"_KlantSessieData.Nr_"_1",KlantSessieData.EmailAdres,KlantSessieData.Taal)
+	set Response.TandemboxUrl = "http://tbx.tandem-box.de/VHISIE/TBX/Main.csp?"_..TandemboxUrlGenerator.GenereerLoginQueryString("HEIN",KlantSessieData.Nr,KlantSessieData.Naam,KlantSessieData.EmailAdres,KlantSessieData.Taal,"START")
+	
+	set Response.TestUnishopUrl = "http://hein.taorbox.com:8081/login?"_..UnishopGenerator.GenereerLoginQueryString("HEIN","hein_"_KlantSessieData.Nr,KlantSessieData.Naam,"hein_"_KlantSessieData.Nr_"_1",KlantSessieData.EmailAdres,KlantSessieData.Taal)
+	set Response.TestTandemboxUrl = "http://tbx.tandem-box.de/VHISIEDEMO/TBX/Main.csp?"_..TandemboxUrlGenerator.GenereerLoginQueryString("HEIN",KlantSessieData.Nr,KlantSessieData.Naam,KlantSessieData.EmailAdres,KlantSessieData.Taal,"START")
+	
+	do ..TbxWebSetup.Setup(+$H,KlantSessieData.Nr,KlantSessieData.Username,KlantSessieData.Password,Response.TandemboxUrl,Response.UnishopUrl)
+	
+	quit Response
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhPowerTools/APPS/EC/KlantSessieData/Hein/TbxWebSetupClient.cls.xml
===================================================================
diff -u
--- vhPowerTools/APPS/EC/KlantSessieData/Hein/TbxWebSetupClient.cls.xml	(revision 0)
+++ vhPowerTools/APPS/EC/KlantSessieData/Hein/TbxWebSetupClient.cls.xml	(revision 39377)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.APPS.EC.KlantSessieData.Hein.TbxWebSetupClient">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SOAP.WebClient</Super>
+
+<Parameter name="LOCATION">
+<Description>
+This is the URL used to access the web service.</Description>
+<Default>http://jcl-ecp/csp/dmz-dev/vhPowerTool.WS.TBX.HeinUserConfigurator.cls</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Description>
+This is the namespace used by the Service</Description>
+<Default>http://tempuri.org</Default>
+</Parameter>
+
+<Parameter name="OUTPUTTYPEATTRIBUTE">
+<Description>
+Use xsi:type attribute for literal types.</Description>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="SERVICENAME">
+<Description>
+This is the name of the Service</Description>
+<Default>HeinUserConfigurator</Default>
+</Parameter>
+
+<Parameter name="SOAPVERSION">
+<Description>
+This is the SOAP version supported by the service.</Description>
+<Default>1.1</Default>
+</Parameter>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..Location = ##class(TECH.Config.ConfigMgr).Instance().GeefString("Linked_Vhisie3_TandemboxWeb_WebService_RootPath")_"vhPowerTool.WS.TBX.HeinUserConfigurator.cls"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Setup">
+<Final>1</Final>
+<FormalSpec>SecurityKey:%String,KlantNr:%String,Username:%String,Password:%String,TbxWebUrl:%String,UnishopUrl:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[ Quit ..WebMethod("Setup").Invoke($this,"http://tempuri.org/vhPowerTool.WS.TBX.HeinUserConfigurator.Setup",.SecurityKey,.KlantNr,.Username,.Password,.TbxWebUrl,.UnishopUrl)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhPowerTools/APPS/EC/KlantSessieDataGeneratorTbx.cls.xml
===================================================================
diff -u -r39312 -r39377
--- vhPowerTools/APPS/EC/KlantSessieDataGeneratorTbx.cls.xml	(.../KlantSessieDataGeneratorTbx.cls.xml)	(revision 39312)
+++ vhPowerTools/APPS/EC/KlantSessieDataGeneratorTbx.cls.xml	(.../KlantSessieDataGeneratorTbx.cls.xml)	(revision 39377)
@@ -101,10 +101,9 @@
 </Method>
 
 <Method name="GenereerLoginQueryString">
-<FormalSpec>WebShopVerwerker:APPS.EC.enu.WebShopVerwerker,KlantId:%String,Email:%String="ict_development@vanhoecke.be",Taal:WSimpl.Unishop.enu.Taal="N",Modus:APPS.EC.enu.WebshopModusTbx</FormalSpec>
-<Private>1</Private>
+<FormalSpec>WebShopVerwerker:APPS.EC.enu.WebShopVerwerker,KlantId:%String,KlantNaam:%String,Email:%String="ict_development@vanhoecke.be",Taal:WSimpl.Unishop.enu.Taal="N",Modus:APPS.EC.enu.WebshopModusTbx</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "/login?TAAL=" _ Taal _ "&REF=" _ ..GenereerRef(WebShopVerwerker, Modus) _ "&DATAOPT=" _ ..GenereerDataOpt(WebShopVerwerker, KlantId, Email, Taal)
+<Implementation><![CDATA[	Quit "/login?TAAL=" _ Taal _ "&REF=" _ ..GenereerRef(WebShopVerwerker, Modus) _ "&DATAOPT=" _ ..GenereerDataOpt(WebShopVerwerker, KlantId, KlantNaam, Email, Taal)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhPowerTools/APPS/EC/KlantSessieData/Hein/KlantData.cls.xml
===================================================================
diff -u
--- vhPowerTools/APPS/EC/KlantSessieData/Hein/KlantData.cls.xml	(revision 0)
+++ vhPowerTools/APPS/EC/KlantSessieData/Hein/KlantData.cls.xml	(revision 39377)
@@ -0,0 +1,99 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.APPS.EC.KlantSessieData.Hein.KlantData">
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Property name="Username">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="Password">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="Nr">
+<Type>%Integer</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="Naam">
+<Type>TECH.String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="Taal">
+<Type>DOM.enu.Taal</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="StraatEnNr">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Postcode">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Gemeente">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="TelefoonNummer">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="FaxNummer">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="EmailAdres">
+<Type>TECH.String</Type>
+<Required>1</Required>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>KlantDataState</State>
+<StreamLocation>^vhPowerTools.APP1BA7.KlantDataS</StreamLocation>
+<Data name="KlantDataState">
+<Value name="1">
+<Value>Nr</Value>
+</Value>
+<Value name="2">
+<Value>Naam</Value>
+</Value>
+<Value name="3">
+<Value>Taal</Value>
+</Value>
+<Value name="4">
+<Value>StraatEnNr</Value>
+</Value>
+<Value name="5">
+<Value>Postcode</Value>
+</Value>
+<Value name="6">
+<Value>Gemeente</Value>
+</Value>
+<Value name="7">
+<Value>TelefoonNummer</Value>
+</Value>
+<Value name="8">
+<Value>FaxNummer</Value>
+</Value>
+<Value name="9">
+<Value>EmailAdres</Value>
+</Value>
+<Value name="10">
+<Value>Username</Value>
+</Value>
+<Value name="11">
+<Value>Password</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhPowerTools/APPS/EC/KlantSessieDataGeneratorUnishop.cls.xml
===================================================================
diff -u -r39312 -r39377
--- vhPowerTools/APPS/EC/KlantSessieDataGeneratorUnishop.cls.xml	(.../KlantSessieDataGeneratorUnishop.cls.xml)	(revision 39312)
+++ vhPowerTools/APPS/EC/KlantSessieDataGeneratorUnishop.cls.xml	(.../KlantSessieDataGeneratorUnishop.cls.xml)	(revision 39377)
@@ -54,29 +54,28 @@
 </Method>
 
 <Method name="DecrypteerDataOpt">
-<FormalSpec>DataOpt:%String,PersonalityId:DOM.common.enu.Personality</FormalSpec>
+<FormalSpec>DataOpt:%String,UnishopVerwerker:APPS.EC.enu.UniShopVerwerker</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	#dim DomeinVerwerker As APPS.EC.enu.UniShopVerwerker = ..WebshopSessionService.GeefDomeinVerwerkerVoorPersonality(PersonalityId)
-	#dim KlantSessieData As APPS.EC.dto.KlantSessieData = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New().GeefKlantSessieData(DataOpt, DomeinVerwerker)
+	#dim KlantSessieData As APPS.EC.dto.KlantSessieData = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New().GeefKlantSessieData(DataOpt, UnishopVerwerker)
 
 	Quit "Taal:" _ KlantSessieData.Taal _ "; KlantNaam:" _ KlantSessieData.KlantNaam _ "; KlantId:" _ KlantSessieData.KlantID _ "; Email:" _ KlantSessieData.Email _ "; Korting:" _ KlantSessieData.Korting _ "; GebruikerID:" _ KlantSessieData.GebruikerID
 ]]></Implementation>
 </Method>
 
 <Method name="GenereerDataOpt">
-<FormalSpec>UnishopVerwerker:APPS.EC.enu.UniShopVerwerker,KlantId:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:WSimpl.Unishop.enu.Taal="N"</FormalSpec>
+<FormalSpec>UnishopVerwerker:APPS.EC.enu.UniShopVerwerker,KlantId:%String,Klantnaam:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:WSimpl.Unishop.enu.Taal="N"</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	#dim KlantSessieDataBepaler As APPS.EC.KlantSessieDataBepaler = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New()
 	#dim KlantSessieData As APPS.EC.dto.KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
 	
 	Set KlantSessieData.Email = Email
-	Set KlantSessieData.GebruikerID = GebruikerId
 	Set KlantSessieData.KlantID = KlantId
-	Set KlantSessieData.KlantNaam = Personality.GeefNaam()
+	set KlantSessieData.GebruikerID = GebruikerId
+	Set KlantSessieData.KlantNaam = Klantnaam
 	Set KlantSessieData.Korting = 0
 	Set KlantSessieData.Taal = Taal
 	
@@ -85,10 +84,10 @@
 </Method>
 
 <Method name="GeefLoginUrl">
-<FormalSpec>PersonalityId:DOM.common.enu.Personality,KlantId:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:WSimpl.Unishop.enu.Taal="N",Modus:%String="Normaal"</FormalSpec>
+<FormalSpec>PersonalityId:DOM.common.enu.Personality,KlantId:%String,KlantNaam:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:WSimpl.Unishop.enu.Taal="N",Modus:%String="Normaal"</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[	Quit ..GeefDomein(PersonalityId) _ ..GenereerLoginQueryString(PersonalityId, KlantId, GebruikerId, Email, Taal)
+<Implementation><![CDATA[	Quit ..GeefDomein(PersonalityId) _ ..GenereerLoginQueryString(PersonalityId, KlantId, KlantNaam ,GebruikerId, Email, Taal)
 ]]></Implementation>
 </Method>
 
@@ -101,10 +100,9 @@
 </Method>
 
 <Method name="GenereerLoginQueryString">
-<FormalSpec>UnishopVerwerker:APPS.EC.enu.UniShopVerwerker,KlantId:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:WSimpl.Unishop.enu.Taal="N",Modus:%String="Normaal"</FormalSpec>
-<Private>1</Private>
+<FormalSpec>UnishopVerwerker:APPS.EC.enu.UniShopVerwerker,KlantId:%String,KlantNaam:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:WSimpl.Unishop.enu.Taal="N",Modus:%String="Normaal"</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "/login?TAAL=" _ Taal _ "&REF=" _ ..GenereerRef(UnishopVerwerker, Modus) _ "&DATAOPT=" _ ..GenereerDataOpt(PersonalityId, KlantId, GebruikerId, Email, Taal)
+<Implementation><![CDATA[	Quit "/login?TAAL=" _ Taal _ "&REF=" _ ..GenereerRef(UnishopVerwerker, Modus) _ "&DATAOPT=" _ ..GenereerDataOpt(UnishopVerwerker, KlantId, KlantNaam, GebruikerId, Email, Taal)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhDeploy/D20170125xLinkedTbxWebConfig.cls.xml
===================================================================
diff -u
--- vhDeploy/D20170125xLinkedTbxWebConfig.cls.xml	(revision 0)
+++ vhDeploy/D20170125xLinkedTbxWebConfig.cls.xml	(revision 39377)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20170125xLinkedTbxWebConfig">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Bulk actie aanmaken voor Bereken Moeder Product Gewicht</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	If ##class(TECH.Config.ConfigMgr).Instance().GeefOmgeving()["PROD" {
+		do ##class(TECH.Config.ConfigMgr).Instance().ZetString("Linked_Vhisie3_TandemboxWeb_WebService_RootPath","www01:1972/csp/hadev/")
+	} else {
+		#dim Server As %String = $$$Server
+		#dim RootPath As %String = ""
+		if Server [ "W7" {
+			set RootPath = "http://"_$replace(Server,"W7","ECP")_":1972/csp/dmz-dev/"
+		} elseif (Server="CACHETEST2010") {
+			set RootPath = "http://www01:1972/csp/demo" 
+		}
+		do ##class(TECH.Config.ConfigMgr).Instance().ZetString("Linked_Vhisie3_TandemboxWeb_WebService_RootPath",RootPath)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>