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();