Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r505 -r507
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 505)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 507)
@@ -49,6 +49,7 @@
     procedure DrukProboxEtiketAfIndienNodig;
     procedure RondAfKaderdeurDag();
     procedure RondAfVhossBatch();
+    procedure ZetAfrondActieStatus(actief: boolean);
   public
   end;
 
@@ -177,7 +178,7 @@
   inherited;
   if UiContext.Toelevering = '' then
     exit;
-
+  ZetAfrondActieStatus(false);
   if (UiContext.Modus = modusKAD) then begin
     RondAfKaderdeurDag();
     UiContext.Toelevering := '';
@@ -219,6 +220,7 @@
       end;
     end;
   end;
+  ZetAfrondActieStatus(true);
   PostMessage(Self.Handle,WM_Close,0,0);
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
 end;
@@ -553,6 +555,17 @@
   end;
 end;
 
+procedure TfmDnaCodeScherm.ZetAfrondActieStatus(actief: boolean);
+begin
+  if actief then begin
+    pnlRechtsOnder.Color := $001717CD;
+    actAfronden.OnExecute := actAfrondenExecute;
+  end else begin
+    pnlRechtsOnder.Color := clGray;
+    actAfronden.OnExecute := nil;
+  end;
+end;
+
 procedure TfmDnaCodeScherm.ZetIcoontjesBovenaan;
 begin
   if UiContext.Pallet = '' then begin