Index: PlanScan/PlanScan.dproj =================================================================== diff -u -r293 -r303 --- PlanScan/PlanScan.dproj (.../PlanScan.dproj) (revision 293) +++ PlanScan/PlanScan.dproj (.../PlanScan.dproj) (revision 303) @@ -70,6 +70,7 @@ true + server=tve-w10 false Index: PlanScan/PlanScan.dproj.local =================================================================== diff -u -r293 -r303 --- PlanScan/PlanScan.dproj.local (.../PlanScan.dproj.local) (revision 293) +++ PlanScan/PlanScan.dproj.local (.../PlanScan.dproj.local) (revision 303) @@ -2,32 +2,32 @@ 2020/02/17 10:05:16.000.600,=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas - 2020/02/17 10:06:02.000.921,E:\svn\Delphi\PlanScan\Main.dfm=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.dfm - 2020/02/17 10:06:02.000.921,E:\svn\Delphi\PlanScan\Main.pas=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas - 2020/02/17 10:06:12.000.996,E:\svn\Delphi\PlanScan\PlanScan.dproj=C:\Users\TomV\Documents\RAD Studio\Projects\Project2.dproj - 2020/02/17 11:09:31.000.808,=E:\svn\Delphi\PlanScan\WS\Agent.pas + 2020/02/17 10:06:02.000.921,C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.dfm=E:\svn\Delphi\PlanScan\Main.dfm + 2020/02/17 10:06:02.000.921,C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas=E:\svn\Delphi\PlanScan\Main.pas + 2020/02/17 10:06:12.000.996,C:\Users\TomV\Documents\RAD Studio\Projects\Project2.dproj=E:\svn\Delphi\PlanScan\PlanScan.dproj 2020/02/17 11:09:31.000.810,=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas - 2020/02/17 11:09:31.000.815,=E:\svn\Delphi\PlanScan\WS\__history 2020/02/17 11:09:31.000.812,=E:\svn\Delphi\PlanScan\WS\GebruikerService.pas + 2020/02/17 11:09:31.000.815,=E:\svn\Delphi\PlanScan\WS\__history + 2020/02/17 11:09:31.000.808,=E:\svn\Delphi\PlanScan\WS\Agent.pas 2020/02/17 11:12:28.000.857,=E:\svn\Delphi\AAPClient\UI\UiContext.pas 2020/02/17 11:13:01.000.260,E:\svn\Delphi\AAPClient\UI\UiContext.pas= 2020/02/17 11:14:30.000.384,=E:\svn\Delphi\PlanScan\UI\UiContext.pas 2020/02/17 11:16:33.000.742,=E:\svn\Delphi\PlanScan\UI\Images.pas 2020/02/18 08:16:12.000.093,=E:\svn\Delphi\PlanScan\WS.pas 2020/02/18 08:21:57.000.780,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= - 2020/02/18 08:22:15.000.174,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas + 2020/02/18 08:22:15.000.174,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas 2020/02/18 08:32:28.000.107,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= 2020/02/18 08:32:46.000.480,=E:\svn\Delphi\PlanScan\WS.pas - 2020/02/18 08:33:00.000.884,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas + 2020/02/18 08:33:00.000.884,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas 2020/02/18 11:21:59.000.209,=E:\svn\Delphi\PlanScan\WS.pas 2020/02/18 11:22:27.000.481,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= - 2020/02/18 11:22:42.000.597,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas - 2020/03/02 09:30:33.825,=E:\svn\Delphi\PlanScan\WS.pas - 2020/03/02 09:30:46.906,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas= - 2020/03/02 09:31:23.040,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas=E:\svn\Delphi\PlanScan\WS.pas - 2020/03/04 11:43:31.229,=E:\svn\Delphi\PlanScan\Unit1.pas - 2020/03/04 11:49:17.078,E:\svn\Delphi\PlanScan\UI\LoginScherm.pas=E:\svn\Delphi\PlanScan\Unit1.pas - 2020/03/04 11:49:17.078,E:\svn\Delphi\PlanScan\UI\LoginScherm.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm + 2020/02/18 11:22:42.000.597,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas + 2020/03/02 09:30:33.000.825,=E:\svn\Delphi\PlanScan\WS.pas + 2020/03/02 09:30:46.000.906,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas= + 2020/03/02 09:31:23.000.040,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\GebruikerService.pas + 2020/03/04 11:43:31.000.229,=E:\svn\Delphi\PlanScan\Unit1.pas + 2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\Unit1.pas=E:\svn\Delphi\PlanScan\UI\LoginScherm.pas + 2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\Unit1.dfm=E:\svn\Delphi\PlanScan\UI\LoginScherm.dfm Index: PlanScan/Main.pas =================================================================== diff -u -r300 -r303 --- PlanScan/Main.pas (.../Main.pas) (revision 300) +++ PlanScan/Main.pas (.../Main.pas) (revision 303) @@ -71,7 +71,10 @@ if dbgGebruikers.SelectedRows.Count > 0 then begin for rijteller := 0 to dbgGebruikers.SelectedRows.Count-1 do begin dbgGebruikers.DataSource.DataSet.GotoBookmark(Pointer(dbgGebruikers.SelectedRows.Items[rijteller])); - TAgent.Create(UiContext).GebruikerAfmelden(dbgGebruikers.DataSource.DataSet.FieldByName('cdsGebruikersInitialen').AsString,dbgGebruikers.DataSource.DataSet.FieldByName('cdsGebruikersLoginCode').AsString) + if dbgGebruikers.DataSource.DataSet.FieldByName('cdsGebruikersInitialen').AsString = UiContexT.Initialen then + ShowMessage('Je kan jezelf hier niet afmelden') + else + TAgent.Create(UiContext).GebruikerAfmelden(dbgGebruikers.DataSource.DataSet.FieldByName('cdsGebruikersInitialen').AsString,dbgGebruikers.DataSource.DataSet.FieldByName('cdsGebruikersLoginCode').AsString) end; end; ZoekAlleGebruikers();