Index: PlanScan/WS/Agent.pas =================================================================== diff -u -r285 -r287 --- PlanScan/WS/Agent.pas (.../Agent.pas) (revision 285) +++ PlanScan/WS/Agent.pas (.../Agent.pas) (revision 287) @@ -15,7 +15,7 @@ Constructor Create(UiContext: TUiContext); overload; function FullName: String; function GebruikerAanmelden(Initialen: string; LoginCode: string): GebruikerAanmeldenResponse; - function GebruikerAfmelden(): boolean; + function GebruikerAfmelden(Initialen, LoginCode: string): boolean; function ZoekAlleGebruikers(): ZoekGebruikersResponse; function ValideerPalletCode(PalletCode: string): ValideerPalletCodeResponse; function ZoekViaPalletCode(PalletCode: string): ZoekViaPalletCodeResponse; @@ -94,7 +94,7 @@ end; end; -function TAgent.GebruikerAfmelden(): boolean; +function TAgent.GebruikerAfmelden(Initialen, LoginCode: string): boolean; var Service: GebruikerServiceSoap; Request: GebruikerAfmeldenRequest; @@ -105,8 +105,14 @@ Request := GebruikerAfmeldenRequest.Create; Header := RequestHeader.Create; try - Request.Initialen := fUiContext.Initialen; - Request.LoginCode := fUiContext.LoginCode; + if Initialen = '' then + Request.Initialen := fUiContext.Initialen + else + Request.Initialen := Initialen; + if LoginCode = '' then + Request.LoginCode := fUiContext.LoginCode + else + Request.LoginCode := LoginCode; Header.Initialen := fUiContext.Initialen; Request.Header := Header;