Index: WS/Vhisie4/WinkelkarService.cls.xml
===================================================================
diff -u
--- WS/Vhisie4/WinkelkarService.cls.xml	(revision 0)
+++ WS/Vhisie4/WinkelkarService.cls.xml	(revision 37344)
@@ -0,0 +1,244 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Vhisie4.WinkelkarService">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhLib.WebService</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+/**
+ * Interface-design-opmerkingen:
+ * - Over Offerte en Winkelkar: we bieden aan Intracto sowieso geen 2 ID's aan (van Winkelkar en Offerte).
+ * - De (Intracto-kant) webshop moet de ERP-ID's niet kennen. Omgekeerd wel.
+ * - 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.
+ * - 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.
+ * - Oude winkelkarren worden "gemigreerd" naar de nieuwe shop, en stellen we onbeschikbaar op de oude shop.
+ *   Behalve dus voor de white label webshop winkelkarren, en hun doorbestelde winkelkarren.
+ * - Elke method kan ofwel het normale resultaat teruggeven, 
+ *   ofwel een InvalidUserInputException met melding rechtstreeks aan de gebruiker te tonen (geeft caché in élke taal terug) (en Webshop moet rollback doen van eventuele niet-caché handelingen),
+ *   ofwel een ander type Exception, waarbij de webshop een "Technisch probleem..." moet tonen (en Webshop moet rollback doen van eventuele niet-caché handelingen).
+ * - 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.
+ */
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+/**
+ * Mogelijke toekomstige aspecten:
+ * - De pure prijsberekening kan later eventueel op een aparte server (cache01 kan dat delegeren).
+ * - Caché zou winkelkarren met verouderde geldigheidsdatum eventueel proactief kunnen herberekenen, zodat de klant geen vertraging ondervindt.
+ */
+]]></Content>
+</UDLText>
+
+<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).
+ * - TAX Export-modus (blijft voorlopig in de "oude" vorm).
+ * - Wijzigen van referentie e.d. ná het bestellen.
+ */
+]]></Content>
+</UDLText>
+
+<Parameter name="SERVICENAME">
+<Default>WinkelkarService</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://www.vanhoecke.be/EC/Vhisie4/Winkelkar</Default>
+</Parameter>
+
+<Method name="MaakWinkelkar">
+<FormalSpec>SessieID:TECH.String,WinkelkarID:TECH.String,PersonalityID:TECH.String,KlantID:TECH.String,GebruikerID:TECH.String,GebruikerIP:TECH.String</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/**
+ * Voorbereiden van de bestelling.
+ * De winkelkarlijnen worden nog eens gesynchroniseerd. Indien nodig worden er dan (her?)berekende maatwerklijnen teruggegeven.
+ * De mogelijke leverdatums worden teruggegeven. Later misschien nog zaken om tussen te kiezen bij het bestellen.
+ * Vorige naam: GeefBestelOpties.
+ */
+]]></Content>
+</UDLText>
+
+<Method name="BereidVoorBestelling">
+<FormalSpec>SessieID:TECH.String,Winkelkar:APPS.EC.Vhisie4.Winkelkar.dto.Winkelkar,LeverAdres:APPS.common.dto.Adres</FormalSpec>
+<ReturnType>APPS.EC.Vhisie4.Winkelkar.dto.BereidVoorBestellingUitvoer</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	#Dim Resultaat As APPS.EC.Vhisie4.Winkelkar.dto.BereidVoorBestellingUitvoer = ##class(APPS.EC.Vhisie4.Winkelkar.dto.BereidVoorBestellingUitvoer).%New()
+	
+	Do Resultaat.MogelijkeLeverdatums.Insert( ##class(TECH.DateTime.impl.DateTimeAPI).%New().CurrentDate() + 1 )
+	Do Resultaat.MogelijkeLeverdatums.Insert( ##class(TECH.DateTime.impl.DateTimeAPI).%New().CurrentDate() + 2 )
+	
+	#Dim HerberekendeLijn As APPS.EC.Vhisie4.Winkelkar.dto.HerberekendeMaatwerkLijn = ##class(APPS.EC.Vhisie4.Winkelkar.dto.HerberekendeMaatwerkLijn).%New()
+	Set HerberekendeLijn.LijnID = "1"
+	Set HerberekendeLijn.EenheidPrijs = 123.45
+	Set HerberekendeLijn.TotaalPrijs = 246.91
+	Do Resultaat.HerberekendeMaatwerklijnen.Insert(HerberekendeLijn)
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/**
+ * De winkelkarlijnen worden nog eens gesynchroniseerd. Indien nodig worden er dan (her?)berekende maatwerklijnen teruggegeven.
+ */
+]]></Content>
+</UDLText>
+
+<Method name="BestelWinkelkar">
+<FormalSpec>SessieID:TECH.String,Winkelkar:APPS.EC.Vhisie4.Winkelkar.dto.Winkelkar,LeverAdres:APPS.common.dto.Adres,Leverdatum:%Date,Referentie:TECH.String,BestelOpmerking:TECH.String</FormalSpec>
+<ReturnType>APPS.EC.Vhisie4.Winkelkar.dto.BestelWinkelkarUitvoer</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	#Dim HerberekendeLijn As APPS.EC.Vhisie4.Winkelkar.dto.HerberekendeMaatwerkLijn = ##class(APPS.EC.Vhisie4.Winkelkar.dto.HerberekendeMaatwerkLijn).%New()
+	Set HerberekendeLijn.LijnID = "1"
+	Set HerberekendeLijn.EenheidPrijs = 123.45
+	Set HerberekendeLijn.TotaalPrijs = 246.91
+
+	#Dim Resultaat As APPS.EC.Vhisie4.Winkelkar.dto.BestelWinkelkarUitvoer = ##class(APPS.EC.Vhisie4.Winkelkar.dto.BestelWinkelkarUitvoer).%New()	
+	Do Resultaat.HerberekendeLijnen.Insert(HerberekendeLijn)
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderWinkelkar">
+<FormalSpec>SessieID:TECH.String,WinkelkarID:TECH.String</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/**
+ * De winkelkar wordt gesynchroniseerd, en (enkel de vervallen) de prijzen van maatwerk worden herberekend en teruggegeven.
+ * @Return: een lijst van LijnID met nieuwe prijs.
+ */
+]]></Content>
+</UDLText>
+
+<Method name="HerberekenMaatwerk">
+<FormalSpec>SessieID:TECH.String,Winkelkar:APPS.EC.Vhisie4.Winkelkar.dto.Winkelkar</FormalSpec>
+<ReturnType>APPS.EC.Vhisie4.Winkelkar.dto.HerberekenMaatwerkUitvoer</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	#Dim Resultaat As APPS.EC.Vhisie4.Winkelkar.dto.HerberekenMaatwerkUitvoer = ##class(APPS.EC.Vhisie4.Winkelkar.dto.HerberekenMaatwerkUitvoer).%New()
+	Do Resultaat.MeldingenAanGebruiker.Insert( "De promotie is voorbij." )
+	
+	#Dim HerberekendeLijn As APPS.EC.Vhisie4.Winkelkar.dto.HerberekendeMaatwerkLijn = ##class(APPS.EC.Vhisie4.Winkelkar.dto.HerberekendeMaatwerkLijn).%New()
+	Set HerberekendeLijn.LijnID = "1"
+	Set HerberekendeLijn.EenheidPrijs = 123.45
+	Set HerberekendeLijn.TotaalPrijs = 246.91
+	Set HerberekendeLijn.PrijzenGeldigTotEnMet = ##class(TECH.DateTime.impl.DateTimeAPI).%New().CurrentDate() + 30
+	Do Resultaat.HerberekendeLijnen.Insert(HerberekendeLijn)
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/**
+ * N.B. Groepnaam is hier expliciet niet opgenomen. Te bespreken met Intracto.
+ * N.B. Aantal en ProjectReferentie zijn geen expliciete aparte parameters, want die zitten in de IngegevenKenmerken bevat.
+ */
+]]></Content>
+</UDLText>
+
+<Method name="BewaarMaatwerkLijn">
+<FormalSpec>SessieID:TECH.String,WinkelkarID:TECH.String,LijnID:TECH.String,IngegevenKenmerken:TECH.String,EconConfiguratieSleutel:TECH.String</FormalSpec>
+<ReturnType>APPS.EC.Vhisie4.Winkelkar.dto.BewaarMaatwerkLijnUitvoer</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	#Dim Resultaat As APPS.EC.Vhisie4.Winkelkar.dto.BewaarMaatwerkLijnUitvoer = ##class(APPS.EC.Vhisie4.Winkelkar.dto.BewaarMaatwerkLijnUitvoer).%New()
+	Set Resultaat.EenheidPrijs = 123.45
+	Set Resultaat.TotaalPrijs = 246.91
+	Do Resultaat.MeldingenAanGebruiker.Insert( "Let op: Probox mag enkel indien u minstens 5 laden bestelt." )
+	Set Resultaat.PrijzenGeldigTotEnMet = ##class(TECH.DateTime.impl.DateTimeAPI).%New().CurrentDate() + 30
+	
+	#Dim UnishopKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()
+	Set UnishopKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500()
+	Set Resultaat.UnishopKenmerken = UnishopKenmerken
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="BewaarProductLijn">
+<FormalSpec>SessieID:TECH.String,WinkelkarID:TECH.String,LijnID:TECH.String,ProductID:TECH.String,Aantal:TECH.String,EenheidPrijs:TECH.Decimal,TotaalPrijs:TECH.Decimal,ProjectReferentie:TECH.String</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/**
+ * N.B. Er is geen method voor wijzigen van ingegeven kenmerken of aantal van maatwerk.
+ * Dat moet namelijk via VerwijderLijn en daarna VoegToe.
+ * Qua performantie is dat niet ideaal, maar het gaat om minder voorkomende situaties.
+ */
+]]></Content>
+</UDLText>
+
+<Method name="VerwijderLijn">
+<FormalSpec>SessieID:TECH.String,WinkelkarID:TECH.String,LijnID:TECH.String</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 37344 refers to a dead (removed) revision in file `WS/EC/Vhisie4/WinkelkarService.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?