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 +