Index: PlanScan/Main.dfm
===================================================================
diff -u -r281 -r286
--- PlanScan/Main.dfm	(.../Main.dfm)	(revision 281)
+++ PlanScan/Main.dfm	(.../Main.dfm)	(revision 286)
@@ -27,7 +27,7 @@
     Top = 0
     Width = 635
     Height = 336
-    ActivePage = tsGebruikers
+    ActivePage = tsDnaCodes
     Align = alClient
     TabOrder = 1
     object tsDnaCodes: TTabSheet
@@ -183,6 +183,7 @@
     object tsGebruikers: TTabSheet
       Caption = 'Gebruikers'
       ImageIndex = 1
+      OnShow = tsGebruikersShow
       object Panel1: TPanel
         Left = 500
         Top = 0
@@ -314,11 +315,18 @@
       end
       item
         Name = 'cdsGebruikersAangemeldSinds'
-        DataType = ftDateTime
+        DataType = ftString
+        Size = 20
       end
       item
         Name = 'cdsGebruikersLaatsteActiviteit'
-        DataType = ftDateTime
+        DataType = ftString
+        Size = 20
+      end
+      item
+        Name = 'cdsGebruikersLoginCode'
+        DataType = ftString
+        Size = 20
       end>
     IndexDefs = <>
     Params = <>
Index: PlanScan/Main.pas
===================================================================
diff -u -r281 -r286
--- PlanScan/Main.pas	(.../Main.pas)	(revision 281)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 286)
@@ -7,7 +7,7 @@
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables, Vcl.Grids,
   Vcl.DBGrids, Vcl.OleCtrls, CACHEQUERYLib_TLB, TLLib_TLB, Vcl.OleServer,
   CacheActiveX_TLB, Vcl.StdCtrls, Datasnap.DBClient, UiContext, Vcl.ComCtrls,
-  DnaCodeService, Vcl.ExtCtrls;
+  DnaCodeService, Vcl.ExtCtrls, GebruikerService;
 
 type
   TfmMain = class(TForm)
@@ -38,9 +38,11 @@
     procedure btnMaatwerketiketClick(Sender: TObject);
     procedure btnKlantEtiketClick(Sender: TObject);
     procedure btnProboxetiketClick(Sender: TObject);
+    procedure tsGebruikersShow(Sender: TObject);
   private
     fUiContext: TUiContext;
     procedure VulDnaCodeGridMetData(DnaCodes: ArrayOfDnaCodeDnaCode);
+    procedure VulGebruikersGridMetData(Gebruikers: ArrayOfGebruikerGebruiker);
     function BepaalGeselecteerdeDnaCodes(): TStringList;
     function GeefAlleDnaCodesUitGrid(): TStringList;
   public
@@ -188,6 +190,26 @@
   result := DnaCodesStringList;
 end;
 
+procedure TfmMain.tsGebruikersShow(Sender: TObject);
+var
+  fZoekGebruikersResponse: ZoekGebruikersResponse;
+  Gebruikers: ArrayOfGebruikerGebruiker;
+begin
+  UiContext := TUiContext.Create;
+  UiContext.LoginCode := '1513';
+  UiContext.Initialen := 'TSN';
+  fZoekGebruikersResponse := TAgent.Create(UiContext).ZoekAlleGebruikers();
+  try
+    if fZoekGebruikersResponse.Header.Status = '200' then begin
+      VulGebruikersGridMetData(fZoekGebruikersResponse.Gebruikers);
+    end else begin
+      ShowMessage(fZoekGebruikersResponse.Header.Omschrijving);
+    end;
+  finally
+    fZoekGebruikersResponse.Free;
+  end;
+end;
+
 procedure TfmMain.VulDnaCodeGridMetData(DnaCodes: ArrayOfDnaCodeDnaCode);
 var
   ii: integer;
@@ -214,4 +236,33 @@
   end;
 end;
 
+procedure TfmMain.VulGebruikersGridMetData(Gebruikers: ArrayOfGebruikerGebruiker);
+var
+  ii: integer;
+  AangemeldSindsAsString: string;
+  LaatsteActiviteitAsString: string;
+begin
+  cdsGebruikers.Close;
+  cdsGebruikers.CreateDataSet;
+
+  ii := 0;
+  while ii <= length(Gebruikers)-1 do begin
+    if Gebruikers[ii].AangemeldSinds = nil then
+      AangemeldSindsAsString := ''
+    else
+      AangemeldSindsAsString := DateTimeToStr(Gebruikers[ii].AangemeldSinds.AsDateTime);
+    if Gebruikers[ii].LaatsteActiviteit = nil then
+      LaatsteActiviteitAsString := ''
+    else
+      LaatsteActiviteitAsString := DateTimeToStr(Gebruikers[ii].LaatsteActiviteit.AsDateTime);
+
+    cdsGebruikers.InsertRecord([Gebruikers[ii].Initialen,
+                                Gebruikers[ii].ComputerNaam,
+                                AangemeldSindsAsString,
+                                LaatsteActiviteitAsString,
+                                Gebruikers[ii].LoginCode]);
+    ii := ii + 1;
+  end;
+end;
+
 end.