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) ]]>