Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r276 -r277
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 276)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 277)
@@ -82,6 +82,7 @@
   fImagesScherm.ilAlgemeen64.GetIcon(8, imgToelevering.Picture.Icon);
   fImagesScherm.ilAlgemeen64.GetIcon(9, imgPallet.Picture.Icon);
   fImagesScherm.ilAlgemeen64.GetIcon(10, imgLaatstGescand.Picture.Icon);
+  fImagesScherm.ilAlgemeen32.GetIcon(4, imgWegwerpPallet.Picture.Icon);
   if not (UiContext.Toelevering = '') then
     ToeleveringDataOphalen()
   else begin
@@ -309,13 +310,11 @@
   if EersteDnaCode.IsWegwerpPallet then begin
     if not UiContext.IsWegwerpPalletPopupGetoond then begin
       ToonPopupScherm('Wegwerppallet', 'OK','',16,-1,-1,clYellow);
-      fImagesScherm.ilAlgemeen32.GetIcon(4, imgWegwerpPallet.Picture.Icon);
-      imgWegwerpPallet.Visible := EersteDnaCode.IsWegwerpPallet;
       UiContext.IsWegwerpPalletPopupGetoond := true;
     end;
-  end else begin
-    imgWegwerpPallet.Visible := false;
   end;
+  imgWegwerpPallet.Visible := EersteDnaCode.IsWegwerpPallet;
+  Repaint;
 end;
 
 procedure TfmDnaCodeScherm.ZetIcoontjesBovenaan;