Index: PlanScan/WS/GebruikerService.pas =================================================================== diff -u -r283 -r370 --- PlanScan/WS/GebruikerService.pas (.../GebruikerService.pas) (revision 283) +++ PlanScan/WS/GebruikerService.pas (.../GebruikerService.pas) (revision 370) @@ -5,7 +5,7 @@ // >Import : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.GebruikerService.CLS?WSDL=1>0 // Encoding : UTF-8 // Version : 1.0 -// (2/03/2020 9:30:33 - - $Rev: 45757 $) +// (7/05/2020 8:38:23 - - $Rev: 45757 $) // ************************************************************************ // unit GebruikerService; @@ -35,12 +35,12 @@ GebruikerAanmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } RequestHeader = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } - ZoekGebruikersRequest = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + ZoekAangemeldeGebruikersRequest = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } GebruikerAfmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } DataTransferObject = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } GebruikerAfmeldenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } GebruikerAanmeldenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } - ZoekGebruikersResponse = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + ZoekAangemeldeGebruikersResponse = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } Gebruiker = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } ResponseHeader = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } @@ -83,10 +83,10 @@ // ************************************************************************ // - // XML : ZoekGebruikersRequest, global, + // XML : ZoekAangemeldeGebruikersRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker // ************************************************************************ // - ZoekGebruikersRequest = class(TRemotable) + ZoekAangemeldeGebruikersRequest = class(TRemotable) private FHeader: RequestHeader; FLoginCode: string; @@ -172,10 +172,10 @@ // ************************************************************************ // - // XML : ZoekGebruikersResponse, global, + // XML : ZoekAangemeldeGebruikersResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker // ************************************************************************ // - ZoekGebruikersResponse = class(DataTransferObject) + ZoekAangemeldeGebruikersResponse = class(DataTransferObject) private FHeader: ResponseHeader; FGebruikers: ArrayOfGebruikerGebruiker; @@ -258,7 +258,7 @@ ['{B88E6F54-A0CE-0BA2-3E36-0D17B4BAA312}'] function GebruikerAanmelden(const GebruikerAanmeldenRequest: GebruikerAanmeldenRequest): GebruikerAanmeldenResponse; stdcall; function GebruikerAfmelden(const GebruikerAfmeldenRequest: GebruikerAfmeldenRequest): GebruikerAfmeldenResponse; stdcall; - function ZoekGebruikers(const ZoakGebruikersRequest: ZoekGebruikersRequest): ZoekGebruikersResponse; stdcall; + function ZoekAangemeldeGebruikers(const ZoekAangemeldeGebruikersRequest: ZoekAangemeldeGebruikersRequest): ZoekAangemeldeGebruikersResponse; stdcall; end; function GetGebruikerServiceSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): GebruikerServiceSoap; @@ -310,19 +310,19 @@ inherited Destroy; end; -destructor ZoekGebruikersRequest.Destroy; +destructor ZoekAangemeldeGebruikersRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -procedure ZoekGebruikersRequest.SetInitialen(Index: Integer; const Astring: string); +procedure ZoekAangemeldeGebruikersRequest.SetInitialen(Index: Integer; const Astring: string); begin FInitialen := Astring; FInitialen_Specified := True; end; -function ZoekGebruikersRequest.Initialen_Specified(Index: Integer): boolean; +function ZoekAangemeldeGebruikersRequest.Initialen_Specified(Index: Integer): boolean; begin Result := FInitialen_Specified; end; @@ -356,7 +356,7 @@ inherited Destroy; end; -destructor ZoekGebruikersResponse.Destroy; +destructor ZoekAangemeldeGebruikersResponse.Destroy; var I: Integer; begin @@ -367,13 +367,13 @@ inherited Destroy; end; -procedure ZoekGebruikersResponse.SetGebruikers(Index: Integer; const AArrayOfGebruikerGebruiker: ArrayOfGebruikerGebruiker); +procedure ZoekAangemeldeGebruikersResponse.SetGebruikers(Index: Integer; const AArrayOfGebruikerGebruiker: ArrayOfGebruikerGebruiker); begin FGebruikers := AArrayOfGebruikerGebruiker; FGebruikers_Specified := True; end; -function ZoekGebruikersResponse.Gebruikers_Specified(Index: Integer): boolean; +function ZoekAangemeldeGebruikersResponse.Gebruikers_Specified(Index: Integer): boolean; begin Result := FGebruikers_Specified; end; @@ -451,20 +451,20 @@ { GebruikerServiceSoap.GebruikerAfmelden } InvRegistry.RegisterMethodInfo(TypeInfo(GebruikerServiceSoap), 'GebruikerAfmelden', '', '[ReturnName="GebruikerAfmeldenResult"]'); - { GebruikerServiceSoap.ZoekGebruikers } - InvRegistry.RegisterMethodInfo(TypeInfo(GebruikerServiceSoap), 'ZoekGebruikers', '', - '[ReturnName="ZoekGebruikersResult"]'); + { GebruikerServiceSoap.ZoekAangemeldeGebruikers } + InvRegistry.RegisterMethodInfo(TypeInfo(GebruikerServiceSoap), 'ZoekAangemeldeGebruikers', '', + '[ReturnName="ZoekAangemeldeGebruikersResult"]'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfGebruikerGebruiker), 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ArrayOfGebruikerGebruiker'); RemClassRegistry.RegisterXSInfo(TypeInfo(String_), 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'String_', 'String'); RemClassRegistry.RegisterXSClass(GebruikerAanmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'GebruikerAanmeldenRequest'); RemClassRegistry.RegisterXSClass(RequestHeader, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'RequestHeader'); - RemClassRegistry.RegisterXSClass(ZoekGebruikersRequest, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ZoekGebruikersRequest'); + RemClassRegistry.RegisterXSClass(ZoekAangemeldeGebruikersRequest, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ZoekAangemeldeGebruikersRequest'); RemClassRegistry.RegisterXSClass(GebruikerAfmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'GebruikerAfmeldenRequest'); RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'DataTransferObject'); RemClassRegistry.RegisterXSClass(GebruikerAfmeldenResponse, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'GebruikerAfmeldenResponse'); RemClassRegistry.RegisterXSClass(GebruikerAanmeldenResponse, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'GebruikerAanmeldenResponse'); - RemClassRegistry.RegisterXSClass(ZoekGebruikersResponse, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ZoekGebruikersResponse'); - RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekGebruikersResponse), 'Gebruikers', '[ArrayItemName="Gebruiker"]'); + RemClassRegistry.RegisterXSClass(ZoekAangemeldeGebruikersResponse, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ZoekAangemeldeGebruikersResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekAangemeldeGebruikersResponse), 'Gebruikers', '[ArrayItemName="Gebruiker"]'); RemClassRegistry.RegisterXSClass(Gebruiker, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'Gebruiker'); RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ResponseHeader');