Index: PlanScan/Main.pas
===================================================================
diff -u -r286 -r288
--- PlanScan/Main.pas	(.../Main.pas)	(revision 286)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 288)
@@ -29,7 +29,7 @@
     tsGebruikers: TTabSheet;
     Panel1: TPanel;
     btnGebruikerAfmelden: TButton;
-    DBGrid1: TDBGrid;
+    dbgGebruikers: TDBGrid;
     cdsGebruikers: TClientDataSet;
     dsGebruikers: TDataSource;
     procedure btnZoekViaToeleveringClick(Sender: TObject);
@@ -39,12 +39,14 @@
     procedure btnKlantEtiketClick(Sender: TObject);
     procedure btnProboxetiketClick(Sender: TObject);
     procedure tsGebruikersShow(Sender: TObject);
+    procedure btnGebruikerAfmeldenClick(Sender: TObject);
   private
     fUiContext: TUiContext;
     procedure VulDnaCodeGridMetData(DnaCodes: ArrayOfDnaCodeDnaCode);
     procedure VulGebruikersGridMetData(Gebruikers: ArrayOfGebruikerGebruiker);
     function BepaalGeselecteerdeDnaCodes(): TStringList;
     function GeefAlleDnaCodesUitGrid(): TStringList;
+    procedure ZoekAlleGebruikers();
   public
     property UiContext: TUiContext Read fUiContext Write fUiContext;
   end;
@@ -59,6 +61,19 @@
 
 {$R *.dfm}
 
+procedure TfmMain.btnGebruikerAfmeldenClick(Sender: TObject);
+var
+  rijteller: integer;
+begin
+  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)
+    end;
+  end;
+  ZoekAlleGebruikers();
+end;
+
 procedure TfmMain.btnKlantEtiketClick(Sender: TObject);
 var
   DnaCodesStringList: TStringList;
@@ -179,7 +194,6 @@
 function TfmMain.GeefAlleDnaCodesUitGrid: TStringList;
 var
   DnaCodesStringList: TStringList;
-  RijTeller: integer;
 begin
   DnaCodesStringList := TStringList.Create();
   dbgDnaCodes.DataSource.DataSet.First;
@@ -191,13 +205,18 @@
 end;
 
 procedure TfmMain.tsGebruikersShow(Sender: TObject);
-var
-  fZoekGebruikersResponse: ZoekGebruikersResponse;
-  Gebruikers: ArrayOfGebruikerGebruiker;
 begin
   UiContext := TUiContext.Create;
   UiContext.LoginCode := '1513';
   UiContext.Initialen := 'TSN';
+  ZoekAlleGebruikers();
+end;
+
+procedure TfmMain.ZoekAlleGebruikers();
+var
+  fZoekGebruikersResponse: ZoekGebruikersResponse;
+  Gebruikers: ArrayOfGebruikerGebruiker;
+begin
   fZoekGebruikersResponse := TAgent.Create(UiContext).ZoekAlleGebruikers();
   try
     if fZoekGebruikersResponse.Header.Status = '200' then begin
Index: PlanScan/Main.dfm
===================================================================
diff -u -r286 -r288
--- PlanScan/Main.dfm	(.../Main.dfm)	(revision 286)
+++ PlanScan/Main.dfm	(.../Main.dfm)	(revision 288)
@@ -27,7 +27,7 @@
     Top = 0
     Width = 635
     Height = 336
-    ActivePage = tsDnaCodes
+    ActivePage = tsGebruikers
     Align = alClient
     TabOrder = 1
     object tsDnaCodes: TTabSheet
@@ -203,10 +203,10 @@
           Height = 25
           Caption = 'Afmelden'
           TabOrder = 0
-          OnClick = btnMaatwerketiketClick
+          OnClick = btnGebruikerAfmeldenClick
         end
       end
-      object DBGrid1: TDBGrid
+      object dbgGebruikers: TDBGrid
         Left = 0
         Top = 0
         Width = 500