Index: AAPClient/UI/DnaCodeScherm.dfm
===================================================================
diff -u -r128 -r147
--- AAPClient/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 128)
+++ AAPClient/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 147)
@@ -25,7 +25,7 @@
   end
   object lblHuidigePalletData: TLabel [2]
     Left = 269
-    Top = 396
+    Top = 392
     Width = 174
     Height = 39
     AutoSize = False
@@ -184,7 +184,7 @@
   end
   object lblHuidigePallet: TLabel [9]
     Left = 39
-    Top = 396
+    Top = 392
     Width = 210
     Height = 39
     AutoSize = False
Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r146 -r147
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 146)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 147)
@@ -106,6 +106,10 @@
   edtDnaCode.Text := '';
   ActiveControl := edtDnaCode;
   lblHuidigePalletData.Caption := UiContext.Pallet;
+  lblToeleveringData.Caption := UiContext.Toelevering;
+  lblAantalGescand.Caption := '';
+  lblTotaalAantal.Caption := '';
+  imgInfo.Visible := false;
   fImagesScherm.ilAlgemeen64.GetIcon(1, imgInfo.Picture.Icon);
   if not (UiContext.Toelevering = '') then
     ToeleveringDataOphalen();
@@ -193,6 +197,7 @@
         lblToeleveringData.Caption := UiContext.Toelevering;
         lblAantalGescand.Caption := IntToStr(Response.AantalReedsGescand);
         lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
+        imgInfo.Visible := true;
         if Response.DnaCodes[0].IsGlsDirect then begin
           ToonPopupScherm('GLS DIRECT', 'OK');
           imgGls.Visible := Response.DnaCodes[0].IsGlsDirect;