Index: PlanScan/Main.pas
===================================================================
diff -u -r289 -r290
--- PlanScan/Main.pas	(.../Main.pas)	(revision 289)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 290)
@@ -40,6 +40,7 @@
     procedure btnProboxetiketClick(Sender: TObject);
     procedure tsGebruikersShow(Sender: TObject);
     procedure btnGebruikerAfmeldenClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
   private
     fUiContext: TUiContext;
     procedure VulDnaCodeGridMetData(DnaCodes: ArrayOfDnaCodeDnaCode);
@@ -176,6 +177,11 @@
   end;
 end;
 
+procedure TfmMain.FormCreate(Sender: TObject);
+begin
+  pcMain.ActivePage := tsDnaCodes;
+end;
+
 function TfmMain.BepaalGeselecteerdeDnaCodes: TStringList;
 var
   DnaCodesStringList: TStringList;
@@ -241,7 +247,7 @@
     if DnaCodes[ii].ScanTijdstip = nil then
       ScanTijdstipAsString := ''
     else
-      ScanTijdstipAsString := DateTimeToStr(DnaCodes[ii].ScanTijdstip.AsDateTime);
+      ScanTijdstipAsString := DateTimeToStr(DnaCodes[ii].ScanTijdstip.AsUTCDateTime);
 
     cdsDnaCodes.InsertRecord([DnaCodes[ii].DnaCode,
                               DnaCodes[ii].PalletCode,
@@ -268,11 +274,11 @@
     if Gebruikers[ii].AangemeldSinds = nil then
       AangemeldSindsAsString := ''
     else
-      AangemeldSindsAsString := DateTimeToStr(Gebruikers[ii].AangemeldSinds.AsDateTime);
+      AangemeldSindsAsString := DateTimeToStr(Gebruikers[ii].AangemeldSinds.AsUTCDateTime);
     if Gebruikers[ii].LaatsteActiviteit = nil then
       LaatsteActiviteitAsString := ''
     else
-      LaatsteActiviteitAsString := DateTimeToStr(Gebruikers[ii].LaatsteActiviteit.AsDateTime);
+      LaatsteActiviteitAsString := DateTimeToStr(Gebruikers[ii].LaatsteActiviteit.AsUTCDateTime);
 
     cdsGebruikers.InsertRecord([Gebruikers[ii].Initialen,
                                 Gebruikers[ii].ComputerNaam,
Index: PlanScan/Main.dfm
===================================================================
diff -u -r289 -r290
--- PlanScan/Main.dfm	(.../Main.dfm)	(revision 289)
+++ PlanScan/Main.dfm	(.../Main.dfm)	(revision 290)
@@ -11,6 +11,7 @@
   Font.Name = 'Tahoma'
   Font.Style = []
   OldCreateOrder = False
+  OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 13
   object CacheQuery1: TCacheQuery
@@ -27,7 +28,7 @@
     Top = 0
     Width = 635
     Height = 336
-    ActivePage = tsDnaCodes
+    ActivePage = tsGebruikers
     Align = alClient
     TabOrder = 1
     object tsDnaCodes: TTabSheet