Index: WS/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r29059 -r32438
--- WS/EC/Winkelkar/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 29059)
+++ WS/EC/Winkelkar/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 32438)
@@ -13,15 +13,31 @@
http://www.vanhoecke.be/EC/Winkelkar
+
+APPS.EC.Winkelkar.impl.WinkelkarServiceUtils
+1
+
+
+
+1
+
+
+
Applicatie:APPS.common.dto.Applicatie="",WinkelkarID:%String
APPS.EC.Winkelkar.dto.Winkelkar
1
@@ -36,10 +52,15 @@
$$$chkIsObject(Applicatie)
$$$chkValidateObject(Applicatie)
-
+
Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetKlant(KlantID)
+
#dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantID)
- Quit ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().MaakWinkelkar(Applicatie, PartijID,..GeefPersonalityID())
+ #dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().MaakWinkelkar(Applicatie, PartijID,..GeefPersonalityID())
+
+ Do ..Utils.CorrigeerWinkelkar(Winkelkar)
+
+ Quit Winkelkar
]]>
@@ -52,7 +73,12 @@
$$$chkRequiredParameter(LijnID)
Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
- Quit ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().VerwijderLijn(WinkelkarID, LijnID)
+
+ #dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().VerwijderLijn(WinkelkarID, LijnID)
+
+ Do ..Utils.CorrigeerWinkelkar(Winkelkar)
+
+ Quit Winkelkar
]]>
@@ -69,7 +95,12 @@
$$$chkValidateObject(IngegevenKenmerken)
Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
- Quit ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().VoegToeMaatwerkEnGeefWinkelkarTerug(WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, .ProjectReferentie)
+
+ #dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().VoegToeMaatwerkEnGeefWinkelkarTerug(WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, .ProjectReferentie)
+
+ Do ..Utils.CorrigeerWinkelkar(Winkelkar)
+
+ Quit Winkelkar
]]>
@@ -108,7 +139,12 @@
$$$chkRequiredParameter(WinkelkarID)
Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
- Quit ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().MaakLeegWinkelkar(WinkelkarID)
+
+ #dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().MaakLeegWinkelkar(WinkelkarID)
+
+ Do ..Utils.CorrigeerWinkelkar(Winkelkar)
+
+ Quit Winkelkar
]]>
@@ -121,7 +157,12 @@
$$$chkRequiredParameter(LijnID)
Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
- Quit ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().GeefLijn(WinkelkarID,LijnID)
+
+ #dim Lijn As APPS.EC.Winkelkar.dto.Lijn = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().GeefLijn(WinkelkarID, LijnID)
+
+ Do ..Utils.CorrigeerLijn(Lijn)
+
+ Quit Lijn
]]>
@@ -134,7 +175,12 @@
$$$chkRequiredParameter(LijnID)
Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
- Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().DupliceerLijn(WinkelkarID,LijnID)
+
+ #dim Lijn As APPS.EC.Winkelkar.dto.Lijn = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().DupliceerLijn(WinkelkarID, LijnID)
+
+ Do ..Utils.CorrigeerLijn(Lijn)
+
+ Quit Lijn
]]>
@@ -147,7 +193,7 @@
$$$chkRequiredParameter(Aantal)
Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
- Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().WijzigLijnAantal(WinkelkarID,LijnID,Aantal)
+ Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().WijzigLijnAantal(WinkelkarID, LijnID, Aantal)
]]>
@@ -163,9 +209,8 @@
$$$chkIsObject(IngegevenKenmerken)
$$$chkValidateObject(IngegevenKenmerken)
-
Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(WinkelkarID)
- Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().WijzigMaatwerkLijn(WinkelkarID,LijnID,IngegevenKenmerken,Aantal,GroepNaam,ProjectReferentie)
+ Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService().WijzigMaatwerkLijn(WinkelkarID, LijnID, IngegevenKenmerken, Aantal, GroepNaam, ProjectReferentie)
]]>
@@ -175,8 +220,9 @@