Index: AAPClient/Win32/Debug/ProScanMain.dcu
===================================================================
diff -u -r47 -r48
Binary files differ
Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r47 -r48
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 47)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 48)
@@ -80,7 +80,10 @@
         lblToelevering.Caption := Response.DnaCodes[0].Toelevering;
         lblAantalGescand.Caption := IntToStr(Response.AantalReedsGescand);
         lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
-        imgGls.Visible := Response.DnaCodes[0].IsGlsDirect;
+        if Response.DnaCodes[0].IsGlsDirect then begin
+          ToonPopupScherm('GLS DIRECT', 'OK')
+          imgGls.Visible := Response.DnaCodes[0].IsGlsDirect;
+        end;
         lblLaatstGescandData.Caption := Request.DnaCode;
         Self.ModalResult := mrIgnore;
       end;
Index: AAPClient/ProScanMain.dfm
===================================================================
diff -u -r15 -r48
--- AAPClient/ProScanMain.dfm	(.../ProScanMain.dfm)	(revision 15)
+++ AAPClient/ProScanMain.dfm	(.../ProScanMain.dfm)	(revision 48)
@@ -1,16 +1,18 @@
 object fmProScanHoofdscherm: TfmProScanHoofdscherm
   Left = 0
   Top = 0
+  BorderStyle = bsNone
   Caption = 'fmProScanHoofdscherm'
-  ClientHeight = 300
-  ClientWidth = 635
+  ClientHeight = 246
+  ClientWidth = 232
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
   Font.Height = -11
   Font.Name = 'Tahoma'
   Font.Style = []
   OldCreateOrder = False
+  Visible = True
   OnClose = FormClose
   OnCreate = FormCreate
   OnShow = FormShow
Index: AAPClient/ProScan.dpr
===================================================================
diff -u -r43 -r48
--- AAPClient/ProScan.dpr	(.../ProScan.dpr)	(revision 43)
+++ AAPClient/ProScan.dpr	(.../ProScan.dpr)	(revision 48)
@@ -19,7 +19,6 @@
 begin
   Application.Initialize;
   Application.MainFormOnTaskbar := True;
-  Application.ShowMainForm := False;
   Application.CreateForm(TfmProScanHoofdscherm, fmProScanHoofdscherm);
   Application.CreateForm(TfmDrieKnoppenScherm, fmDrieKnoppenScherm);
   Application.CreateForm(TfmLoginScherm, fmLoginScherm);
Index: AAPClient/Win32/Debug/ProScan.exe
===================================================================
diff -u -r47 -r48
Binary files differ
Index: AAPClient/UI/DnaCodeScherm.dfm
===================================================================
diff -u -r47 -r48
--- AAPClient/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 47)
+++ AAPClient/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 48)
@@ -1,4 +1,5 @@
 inherited fmDnaCodeScherm: TfmDnaCodeScherm
+  ActiveControl = edtDnaCode
   Caption = 'fmDnaCodeScherm'
   ExplicitWidth = 232
   ExplicitHeight = 246
@@ -69,12 +70,16 @@
     Width = 25
     Height = 26
   end
-  object edtDnaCode: TEdit [13]
+  object edtDnaCode: TEdit [12]
     Left = 108
     Top = 65
     Width = 109
     Height = 27
     CharCase = ecUpperCase
+    TabOrder = 2
+  end
+  inherited btnRechtsOnder: TButton
+    Default = True
     TabOrder = 3
   end
   inherited alAlgemeen: TActionList