Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r242 -r247
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 242)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 247)
@@ -292,19 +292,23 @@
 procedure TfmDnaCodeScherm.VerwerkMogelijkePopups(EersteDnaCode: DnaCode);
 begin
   if EersteDnaCode.IsDirecteLevering then begin
-    if not imgDirecteLevering.Visible then
+    if not UiContext.IsDirecteLeveringPopupGetoond then begin
       ToonPopupScherm('Directe levering', 'OK','',15,-1,-1,clBlue);
-    fImagesScherm.ilAlgemeen32.GetIcon(3, imgDirecteLevering.Picture.Icon);
-    imgDirecteLevering.Visible := EersteDnaCode.IsDirecteLevering;
+      fImagesScherm.ilAlgemeen32.GetIcon(3, imgDirecteLevering.Picture.Icon);
+      imgDirecteLevering.Visible := EersteDnaCode.IsDirecteLevering;
+      UiContext.IsDirecteLeveringPopupGetoond := true;
+    end;
   end else begin
     imgDirecteLevering.Visible := false;
   end;
 
   if EersteDnaCode.IsWegwerpPallet then begin
-    if not imgWegwerpPallet.Visible then
+    if not UiContext.IsWegwerpPalletPopupGetoond then begin
       ToonPopupScherm('Wegwerppallet', 'OK','',16,-1,-1,clYellow);
-    fImagesScherm.ilAlgemeen32.GetIcon(4, imgWegwerpPallet.Picture.Icon);
-    imgWegwerpPallet.Visible := EersteDnaCode.IsWegwerpPallet;
+      fImagesScherm.ilAlgemeen32.GetIcon(4, imgWegwerpPallet.Picture.Icon);
+      imgWegwerpPallet.Visible := EersteDnaCode.IsWegwerpPallet;
+      UiContext.IsWegwerpPalletPopupGetoond := true;
+    end;
   end else begin
     imgWegwerpPallet.Visible := false;
   end;