Index: AAPClient/ProScanMain.pas =================================================================== diff -u -r168 -r191 --- AAPClient/ProScanMain.pas (.../ProScanMain.pas) (revision 168) +++ AAPClient/ProScanMain.pas (.../ProScanMain.pas) (revision 191) @@ -33,7 +33,7 @@ uses LoginScherm2, GebruikerService, HomeScherm, DrieKnoppenScherm, PalletScherm, BestaandePalletscherm, DnaCodeScherm, InfoLogScherm, Images, HernoemPalletScherm, - DimmerForm, DnaCodeReedsGescandScherm; + DimmerForm, DnaCodeReedsGescandScherm, Agent; {$R *.dfm} @@ -81,24 +81,10 @@ procedure TfmProScanHoofdscherm.HuidigeGebruikerAfmelden; var - Service: GebruikerServiceSoap; - Request: GebruikerAfmeldenRequest; - Header: RequestHeader; + fAgent: TAgent; begin - Service := GebruikerService.GetGebruikerServiceSoap(); - - Request := GebruikerAfmeldenRequest.Create; - Header := RequestHeader.Create; - try - Request.Initialen := fUiContext.Initialen; - Request.LoginCode := fUiContext.LoginCode; - Header.Initialen := fUiContext.Initialen; - Request.Header := Header; - - Service.GebruikerAfmelden(Request); - finally - Request.Free; - end; + fAgent := TAgent.Create(); + fAgent.GebruikerAfmelden(fUiContext.Initialen, fUiContext.LoginCode); end; end.