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