Index: vhUnitTest/APPS/VKP/Commissie/impl/CommissieService/VerwijderCommissie/Test.cls.xml
===================================================================
diff -u -r36449 -r36627
--- vhUnitTest/APPS/VKP/Commissie/impl/CommissieService/VerwijderCommissie/Test.cls.xml (.../Test.cls.xml) (revision 36449)
+++ vhUnitTest/APPS/VKP/Commissie/impl/CommissieService/VerwijderCommissie/Test.cls.xml (.../Test.cls.xml) (revision 36627)
@@ -33,7 +33,7 @@
5
-
+
%String
1
@@ -53,7 +53,7 @@
1
-
+
DOM.common.GebruikerAPI
1
@@ -94,12 +94,12 @@
]]>
-
+
@@ -169,7 +169,7 @@
1
@@ -222,7 +222,7 @@
Do Commissie.Save()
Set ..BlijvendeCommissieID = Commissie.GeefID()
- Set ..IsGebruikerVerkoopLeider = $$$True
+ Set ..IsGebruikerAanbrengerCommissieBeheerder = $$$True
]]>
Index: APPS/VKP/Commissie/impl/CommissieService.cls.xml
===================================================================
diff -u -r36449 -r36627
--- APPS/VKP/Commissie/impl/CommissieService.cls.xml (.../CommissieService.cls.xml) (revision 36449)
+++ APPS/VKP/Commissie/impl/CommissieService.cls.xml (.../CommissieService.cls.xml) (revision 36627)
@@ -417,8 +417,8 @@
}
#dim GebruikerID As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerID()
- If $$$Not(##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().IsVerkoopLeider(GebruikerID)) {
- Set Exceptie = ##class(TECH.Exceptions.IllegalUsageException).%New("U kan deze commissie niet verwijderen. Enkel de verkoopleiders hebben toelating om commissies te verwijderen")
+ If $$$Not(##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().IsAanbrengerCommissieBeheerder(GebruikerID)) {
+ Set Exceptie = ##class(TECH.Exceptions.IllegalUsageException).%New("U kan deze commissie niet verwijderen. Enkel de commissie beheerders hebben toelating om commissies te verwijderen.")
Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
}
Do ..VerwijderCommissieInfo(Commissie)
Index: DOM/common/impl/GebruikerAPIimpl.cls.xml
===================================================================
diff -u -r35976 -r36627
--- DOM/common/impl/GebruikerAPIimpl.cls.xml (.../GebruikerAPIimpl.cls.xml) (revision 35976)
+++ DOM/common/impl/GebruikerAPIimpl.cls.xml (.../GebruikerAPIimpl.cls.xml) (revision 36627)
@@ -56,6 +56,18 @@
]]>
+
+GebruikerId:%String
+%Boolean
+
+
+
@@ -69,18 +81,16 @@
If ($Piece(..GebruikerID,"||") = 4682) {
Set GebruikerBeheerder = ..GeefVanHoeckeGebruikerBeheerder()
Set InterneGebruikerID = $Piece(..GebruikerID,"||",2)
- } ElseIf($Piece(..GebruikerID,"||") = "Vhisie"){
+ }ElseIf($Piece(..GebruikerID,"||") = "Vhisie"){
#dim KlantID as DOM.common.PartijID = $Piece(..GebruikerID,"||",2,3)
Set GebruikerBeheerder = ..GeefVhisieGebruikerBeheerder(KlantID)
Set InterneGebruikerID = $Piece(..GebruikerID,"||",4)
}
-
If ('$IsObject(GebruikerBeheerder)) {
Set Exceptie = ##class(TECH.Exceptions.InvalidInputException).%New("Geen gebruikerbeheerder voor gebruiker "_..GebruikerID)
Do Exceptie.VoegToeExtraInfo("Personality:"_VanHoeckePersonality.GeefNaam())
Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
}
-
Set ..Gebruiker = GebruikerBeheerder.GeefGebruiker(InterneGebruikerID)
]]>
Index: vhTest/Mock/DOM/common/GebruikerAPI.cls.xml
===================================================================
diff -u -r29059 -r36627
--- vhTest/Mock/DOM/common/GebruikerAPI.cls.xml (.../GebruikerAPI.cls.xml) (revision 29059)
+++ vhTest/Mock/DOM/common/GebruikerAPI.cls.xml (.../GebruikerAPI.cls.xml) (revision 36627)
@@ -36,6 +36,13 @@
]]>
+
+GebruikerId:%String
+%Boolean
+
+
+
Gebruiker:DOM.common.Gebruiker
%Boolean
Index: DOM/common/GebruikerAPI.cls.xml
===================================================================
diff -u -r29059 -r36627
--- DOM/common/GebruikerAPI.cls.xml (.../GebruikerAPI.cls.xml) (revision 29059)
+++ DOM/common/GebruikerAPI.cls.xml (.../GebruikerAPI.cls.xml) (revision 36627)
@@ -35,6 +35,12 @@
GebruikerID:%String
%Boolean
+
+
+1
+GebruikerId:%String
+%Boolean
+