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;
Index: AAPClient/UI/UiContext.pas
===================================================================
diff -u -r240 -r247
--- AAPClient/UI/UiContext.pas	(.../UiContext.pas)	(revision 240)
+++ AAPClient/UI/UiContext.pas	(.../UiContext.pas)	(revision 247)
@@ -26,6 +26,8 @@
     fInfoLogSchermToonGescand: boolean;
     fImagesScherm: TImagesScherm;
     fDesktopMode: boolean;
+    fIsDirecteLeveringPopupGetoond: boolean;
+    fIsWegwerpPalletPopupGetoond: boolean;
   public
     Property Initialen: String Read fInitialen Write fInitialen;
     Property LoginCode: String Read fLoginCode Write fLoginCode;
@@ -35,6 +37,8 @@
     Property InfoLogSchermToonGescand: boolean Read fInfoLogSchermToonGescand Write fInfoLogSchermToonGescand;
     Property ImagesScherm: TImagesScherm Read fImagesScherm Write fImagesScherm;
     Property DesktopMode: boolean Read fDesktopMode Write fDesktopMode;
+    Property IsDirecteLeveringPopupGetoond: boolean Read fIsDirecteLeveringPopupGetoond Write fIsDirecteLeveringPopupGetoond;
+    Property IsWegwerpPalletPopupGetoond: boolean Read fIsWegwerpPalletPopupGetoond Write fIsWegwerpPalletPopupGetoond;
   end;
 
 implementation
Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r244 -r247
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 244)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 247)
@@ -85,6 +85,10 @@
       fZoekViaPalletCodeResponse.Free;
     end;
 
+  //popups resetten
+  UiContext.IsDirecteLeveringPopupGetoond := false;
+  UiContext.IsWegwerpPalletPopupGetoond := false;
+
   end else begin
     Self.ModalResult := mrPallet;
   end;