Index: WS/Vhisie4/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r38747 -r65206
--- WS/Vhisie4/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 38747)
+++ WS/Vhisie4/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 65206)
@@ -14,8 +14,8 @@
  * - Aangezien deze interface bij Vhisie 4 enkel en specifiek dient voor winkelkarren (van maken tot aan het bestellen, maar niet verder dan dat), wordt de naam "Winkelkar" gebruikt.
  * - Als een webservice-call iets van data moet teruggeven, zelfs al is dat initieel maar 1 getalleke, dan voorzien we een object, waarin we later backward-compatible extra velden aan kunnen toevoegen.
  * - We hergebruiken de DTO's van Vhisie3/Unishop standaard niet (behalve de oude IK, die we teruggeven, zie volgende lijn).
- * - Caché stuurt het oude DTO-formaat van de IK terug, opdat Intracto de oude LBX/TAX-winkelkarview kan hergebruiken in Vhisie4.
- *   Te bekijken of de Diverse- en andere teksten al vanuit e-Con worden opgesteld.
+ * - Caché stuurt het oude DTO-formaat van de IK niet terug, want Intracto kan de oude LBX/TAX-winkelkarview sowieso niet hergebruiken in Vhisie4.
+ * - Diverse- en andere teksten (voor op de webshop) worden door e-Con worden opgesteld.
  * - Uitgangspunt is dat de white label webshops, én het doorbestellen door handels, in het oude systeem blijft werken.
  *   Er is dus geen method à la GeefNieuweWinkelkarrenSinds(WinkelkarID) nodig.
  *   Als een handel rechtstreeks bij VH "winkelt", is dat in de nieuwe webshop.
@@ -27,6 +27,7 @@
  * - We werken niet met een custom SOAP-header. Caché krijgt éénmalig wat context-info door, bij het maken van een winkelkar.
  *   Caché beheert toch de webshop-accounts niet meer, en kan dus toch niet echt controleren. Wel krijgt Caché de sessie-id binnen, dit om de logging op beide tiers te kunnen correleren.
  * - TAX export: blijft nog even op de Unishop-leest.
+ * - Caché krijgt de taal binnen. Dus stuurt Caché de vertalingen (InvalidUserInputException) in de betreffende taal mee.
  */
 ]]></Content>
 </UDLText>
@@ -44,34 +45,6 @@
 <UDLText name="T">
 <Content><![CDATA[
 /**
- * TO DO: 
- * - Krijgt Caché de taal binnen? Of stuurt Caché de vertalingen (Diverse-kolom; InvalidUserInputException) in élke taal mee?
- *   Intracto heeft een voorkeur voor het terugkrijgen in élke taal.
- * - Wat met TBX?
- * - Stream-vorm gebruiken voor e-Con ingegeven kenmerken?
- * - Overleg met Intracto. 
- *   x Hoe we exceptions raisen/doorgeven.
- *   x Kan Intracto de winkelkarview hergebruiken? Hebben ze dan enkel de oude IK's nodig, of zouden ze de volledige Winkelkar-DTO nodig hebben?
- * - Interface (DTO-structuur) tussen e-Con en Caché vastleggen (name-value-pairs; enten op EDI?)
- * - Als we EDI-winkelkarren in web-interface willen tonen, doen we dat dan in de Unishop of in Vhisie4? 
- *   => Wellicht Unishop, zoals andere situaties waarin Caché de winkelkar eerst ontdekt.
- * - Over de migratie:
- *   x In welke vorm, en vanuit welke bron gaan we bestelde winkelkarren (bvb van TBX) migreren?
- *   x Gaan alle klanten tegelijk, of in golven? Of eerst enkele piloot-klanten?
- * - Gaan we in 1 stap over, of is Vhisie 3 (in ruime zin) nog even in parallel bruikbaar?
- *   x Pro 1 stap:
- *     + We weten welke winkelkarren te migreren, en welke niet.
- *   x Pro Nog even in parallel:
- *     + We hebben nog wat uitstel qua onbeschikbaar stellen (en eventueel redirecten) van de oude eventueel gebookmarkte deep links.
- * - Wat met de leveradressen? Stuurt Paul de leveradressen elke dag door? Met de nodige ID?
- * - Vinden we de MaakWinkelkar nog steeds een goed idee? Is het minder werk voor ons als we toch met een sessie (als soap header) werken?
- */
-]]></Content>
-</UDLText>
-
-<UDLText name="T">
-<Content><![CDATA[
-/**
  * Functioneel bewust niet in scope:
  * - Volgorde van lijnen (is voor misschien later).
  * - Authenticatie (overlaten aan Webshop en IIS; trusted subsystem-principe).
@@ -94,13 +67,39 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KlantIdConverter">
+<Type>AXimpl.Utils.KlantIdConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductIdConverter">
+<Type>WSimpl.Vhisie4.ProductIdConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SessionManager">
+<Type>WSimpl.Vhisie4.SessionManager</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ObjectApi">
+<Type>TECH.Object.ObjectAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..HeaderValidator = ##class(WSimpl.Vhisie4.HeaderValidator).%New()
+	Do ##super()
+	Set ..HeaderValidator = ##class(WSimpl.Vhisie4.HeaderValidator).%New()
+	Set ..SessionManager = ##class(WSimpl.Vhisie4.SessionManager).%New()
+	Set ..ObjectApi = ##class(TECH.Context).Instance().GeefObjectAPI()
+	Set ..KlantIdConverter = ##class(AXimpl.Utils.KlantIdConverter).%New()
+	Set ..ProductIdConverter = ##class(WSimpl.Vhisie4.ProductIdConverter).%New()
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -109,8 +108,13 @@
 <FormalSpec>MaakWinkelkarRequest:WS.Vhisie4.Winkelkar.MaakWinkelkarRequest</FormalSpec>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
+	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
+		Set MaakWinkelkarRequest.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(MaakWinkelkarRequest.Header.KlantId, MaakWinkelkarRequest.Header.PersonalityId)
+	}
+	
 	Do ..HeaderValidator.ValidateHeader(MaakWinkelkarRequest.Header)
-	Do ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarServiceDummy.MaakWinkelkar).%New().MaakWinkelkar(MaakWinkelkarRequest)
+	Do ..SessionManager.RegisterSession(MaakWinkelkarRequest.Header)
+	Do ..MaakKlasseInstance("MaakWinkelkar").MaakWinkelkar(MaakWinkelkarRequest)
 	Quit
 ]]></Implementation>
 </Method>
@@ -131,8 +135,15 @@
 <ReturnType>WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
+	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
+		Set BereidVoorBestellingRequest.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(BereidVoorBestellingRequest.Header.KlantId, BereidVoorBestellingRequest.Header.PersonalityId)
+		Set BereidVoorBestellingRequest.Winkelkar.KlantId = ..KlantIdConverter.ConvertToVanHoecke(BereidVoorBestellingRequest.Winkelkar.KlantId, BereidVoorBestellingRequest.Header.PersonalityId)
+		Set BereidVoorBestellingRequest.Winkelkar.Lijnen = ..ProductIdConverter.ConvertLijnenToVanHoecke(BereidVoorBestellingRequest.Winkelkar.Lijnen)
+	}
+	
 	Do ..HeaderValidator.ValidateHeader(BereidVoorBestellingRequest.Header)
-	Quit ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarServiceDummy.BereidVoorBestelling).%New().BereidVoorBestelling(BereidVoorBestellingRequest)
+	Do ..SessionManager.RegisterSession(BereidVoorBestellingRequest.Header)
+	Quit ..MaakKlasseInstance("BereidVoorBestelling").BereidVoorBestelling(BereidVoorBestellingRequest)
 ]]></Implementation>
 </Method>
 
@@ -149,17 +160,29 @@
 <ReturnType>WS.Vhisie4.Winkelkar.BestelWinkelkarResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
+	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
+		Set BestelWinkelkarRequest.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(BestelWinkelkarRequest.Header.KlantId, BestelWinkelkarRequest.Header.PersonalityId)
+		Set BestelWinkelkarRequest.Winkelkar.KlantId = ..KlantIdConverter.ConvertToVanHoecke(BestelWinkelkarRequest.Winkelkar.KlantId, BestelWinkelkarRequest.Header.PersonalityId)	
+		Set BestelWinkelkarRequest.Winkelkar.Lijnen = ..ProductIdConverter.ConvertLijnenToVanHoecke(BestelWinkelkarRequest.Winkelkar.Lijnen)
+	}
+	
 	Do ..HeaderValidator.ValidateHeader(BestelWinkelkarRequest.Header)
-	Quit ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarServiceDummy.BestelWinkelkar).%New().BestelWinkelkar(BestelWinkelkarRequest)
+	Do ..SessionManager.RegisterSession(BestelWinkelkarRequest.Header)
+	Quit ..MaakKlasseInstance("BestelWinkelkar").BestelWinkelkar(BestelWinkelkarRequest)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwijderWinkelkar">
 <FormalSpec>VerwijderWinkelkarRequest:WS.Vhisie4.Winkelkar.VerwijderWinkelkarRequest</FormalSpec>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
+	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
+		Set VerwijderWinkelkarRequest.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(VerwijderWinkelkarRequest.Header.KlantId, VerwijderWinkelkarRequest.Header.PersonalityId)
+	}
+	
 	Do ..HeaderValidator.ValidateHeader(VerwijderWinkelkarRequest.Header)
-	Do ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarServiceDummy.VerwijderWinkelkar).%New().VerwijderWinkelkar(VerwijderWinkelkarRequest)
+	Do ..SessionManager.RegisterSession(VerwijderWinkelkarRequest.Header)
+	Do ..MaakKlasseInstance("VerwijderWinkelkar").VerwijderWinkelkar(VerwijderWinkelkarRequest)
 	Quit
 ]]></Implementation>
 </Method>
@@ -178,8 +201,17 @@
 <ReturnType>WS.Vhisie4.Winkelkar.HerberekenMaatwerkResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
+	Set %request.GatewayTimeout = 300
+	
+	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
+		Set HerberekenMaatwerkRequest.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(HerberekenMaatwerkRequest.Header.KlantId, HerberekenMaatwerkRequest.Header.PersonalityId)
+		Set HerberekenMaatwerkRequest.Winkelkar.KlantId = ..KlantIdConverter.ConvertToVanHoecke(HerberekenMaatwerkRequest.Winkelkar.KlantId, HerberekenMaatwerkRequest.Header.PersonalityId)
+		Set HerberekenMaatwerkRequest.Winkelkar.Lijnen = ..ProductIdConverter.ConvertLijnenToVanHoecke(HerberekenMaatwerkRequest.Winkelkar.Lijnen)
+	}
+	
 	Do ..HeaderValidator.ValidateHeader(HerberekenMaatwerkRequest.Header)
-	Quit ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarServiceDummy.HerberekenMaatwerk).%New().HerberekenMaatwerk(HerberekenMaatwerkRequest)
+	Do ..SessionManager.RegisterSession(HerberekenMaatwerkRequest.Header)
+	Quit ..MaakKlasseInstance("HerberekenMaatwerk").HerberekenMaatwerk(HerberekenMaatwerkRequest)
 ]]></Implementation>
 </Method>
 
@@ -197,17 +229,28 @@
 <ReturnType>WS.Vhisie4.Winkelkar.BewaarMaatwerkLijnResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
+	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
+		Set BewaarMaatwerkLijnRequest.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(BewaarMaatwerkLijnRequest.Header.KlantId, BewaarMaatwerkLijnRequest.Header.PersonalityId)
+	}
+	
 	Do ..HeaderValidator.ValidateHeader(BewaarMaatwerkLijnRequest.Header)
-	Quit ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarServiceDummy.BewaarMaatwerkLijn).%New().BewaarMaatwerkLijn(BewaarMaatwerkLijnRequest)
+	Do ..SessionManager.RegisterSession(BewaarMaatwerkLijnRequest.Header)
+	Quit ..MaakKlasseInstance("BewaarMaatwerkLijn").BewaarMaatwerkLijn(BewaarMaatwerkLijnRequest)
 ]]></Implementation>
 </Method>
 
 <Method name="BewaarProductLijn">
 <FormalSpec>BewaarProductLijnRequest:WS.Vhisie4.Winkelkar.BewaarProductLijnRequest</FormalSpec>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
+	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
+		Set BewaarProductLijnRequest.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(BewaarProductLijnRequest.Header.KlantId, BewaarProductLijnRequest.Header.PersonalityId)
+		Set BewaarProductLijnRequest.ProductId = ..ProductIdConverter.ConvertToProductId(BewaarProductLijnRequest.ProductId)
+	}
+	
 	Do ..HeaderValidator.ValidateHeader(BewaarProductLijnRequest.Header)
-	Do ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarServiceDummy.BewaarProductLijn).%New().BewaarProductLijn(BewaarProductLijnRequest)
+	Do ..SessionManager.RegisterSession(BewaarProductLijnRequest.Header)
+	Do ..MaakKlasseInstance("BewaarProductLijn").BewaarProductLijn(BewaarProductLijnRequest)
 	Quit
 ]]></Implementation>
 </Method>
@@ -226,11 +269,74 @@
 <FormalSpec>VerwijderLijnRequest:WS.Vhisie4.Winkelkar.VerwijderLijnRequest</FormalSpec>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
+	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
+		Set VerwijderLijnRequest.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(VerwijderLijnRequest.Header.KlantId, VerwijderLijnRequest.Header.PersonalityId)
+	}
+	
 	Do ..HeaderValidator.ValidateHeader(VerwijderLijnRequest.Header)
-	Do ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarServiceDummy.VerwijderLijn).%New().VerwijderLijn(VerwijderLijnRequest)
+	Do ..SessionManager.RegisterSession(VerwijderLijnRequest.Header)
+	Do ..MaakKlasseInstance("VerwijderLijn").VerwijderLijn(VerwijderLijnRequest)
 	Quit
 ]]></Implementation>
 </Method>
+
+<Method name="MaakOrderVanOfferte">
+<FormalSpec>MaakOrderVanOfferteRequest:WS.Vhisie4.Winkelkar.MaakOrderVanOfferteRequest</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A"){
+		Set MaakOrderVanOfferteRequest.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(MaakOrderVanOfferteRequest.Header.KlantId, MaakOrderVanOfferteRequest.Header.PersonalityId)
+	}
+	
+	Do ..HeaderValidator.ValidateHeader(MaakOrderVanOfferteRequest.Header)
+	Do ..SessionManager.RegisterSession(MaakOrderVanOfferteRequest.Header)
+	Do ..MaakKlasseInstance("MaakOrderVanOfferte").MaakOrderVanOfferte(MaakOrderVanOfferteRequest)
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="Synchroniseer">
+<FormalSpec>SynchroniseerRequest:WS.Vhisie4.Winkelkar.SynchroniseerRequest</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Set %request.GatewayTimeout = 300
+	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
+		Set SynchroniseerRequest.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(SynchroniseerRequest.Header.KlantId, SynchroniseerRequest.Header.PersonalityId)
+		Set SynchroniseerRequest.Winkelkar.KlantId = ..KlantIdConverter.ConvertToVanHoecke(SynchroniseerRequest.Winkelkar.KlantId, SynchroniseerRequest.Header.PersonalityId)
+		Set SynchroniseerRequest.Winkelkar.Lijnen = ..ProductIdConverter.ConvertLijnenToVanHoecke(SynchroniseerRequest.Winkelkar.Lijnen)
+	}
+	
+	Do ..HeaderValidator.ValidateHeader(SynchroniseerRequest.Header)
+	Do ..SessionManager.RegisterSession(SynchroniseerRequest.Header)
+	Do ..MaakKlasseInstance("Synchroniseer").Synchroniseer(SynchroniseerRequest.Winkelkar)
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="StartVerpakkingBerekening">
+<FormalSpec>StartVerpakkingBerekeningRequest:WS.Vhisie4.Winkelkar.StartVerpakkingBerekeningRequest</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
+		Set StartVerpakkingBerekeningRequest.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(StartVerpakkingBerekeningRequest.Header.KlantId, StartVerpakkingBerekeningRequest.Header.PersonalityId)
+	}
+	
+	Do ..HeaderValidator.ValidateHeader(StartVerpakkingBerekeningRequest.Header)
+	Do ..SessionManager.RegisterSession(StartVerpakkingBerekeningRequest.Header)
+	Do ..MaakKlasseInstance("StartVerpakkingBerekening").StartVerpakkingBerekening(StartVerpakkingBerekeningRequest)
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="MaakKlasseInstance">
+<FormalSpec>KlasseNaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.RegisteredObject</ReturnType>
+<Implementation><![CDATA[
+	#dim VolledigeKlasseNaam As TECH.String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("WSimpl.Vhisie4.Winkelkar.WinkelkarService." _KlasseNaam _"_Implementatie")
+	Quit ..ObjectApi.New(VolledigeKlasseNaam)
+]]></Implementation>
+</Method>
 </Class>