Index: PlanScan/WS/Agent.pas =================================================================== diff -u -r367 -r370 --- PlanScan/WS/Agent.pas (.../Agent.pas) (revision 367) +++ PlanScan/WS/Agent.pas (.../Agent.pas) (revision 370) @@ -19,7 +19,7 @@ function FullName: String; function GebruikerAanmelden(Initialen: string; LoginCode: string): GebruikerAanmeldenResponse; function GebruikerAfmelden(Initialen, LoginCode: string): boolean; - function ZoekAlleGebruikers(): ZoekGebruikersResponse; + function ZoekAangemeldeGebruikers(): ZoekAangemeldeGebruikersResponse; function ValideerPalletCode(PalletCode: string): ValideerPalletCodeResponse; function ZoekViaPalletCode(PalletCode: string): ZoekViaPalletCodeResponse; function DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string; Aantal: integer): DnaCodeAfmeldenResponse; @@ -129,12 +129,12 @@ end; end; -function TAgent.ZoekAlleGebruikers: ZoekGebruikersResponse; +function TAgent.ZoekAangemeldeGebruikers: ZoekAangemeldeGebruikersResponse; var - Request: ZoekGebruikersRequest; + Request: ZoekAangemeldeGebruikersRequest; Header: RequestHeader; begin - Request := ZoekGebruikersRequest.Create; + Request := ZoekAangemeldeGebruikersRequest.Create; Header := RequestHeader.Create; try Request.Initialen := fUiContext.Initialen; @@ -143,7 +143,7 @@ Header.ComputerNaam := FullName(); Request.Header := Header; - Result := fGebruikerServiceSoap.ZoekGebruikers(Request); + Result := fGebruikerServiceSoap.ZoekAangemeldeGebruikers(Request); finally Request.Free;