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;