Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r517 -r519
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 517)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 519)
@@ -642,6 +642,8 @@
           ToonPopupScherm('Onvolledige toeleveringen','OK','',0,-1,-1,$001717CD,cdsRondAfKaderdeurDag)
       end else
         ToonPopupScherm('Toeleveringen afgerond','OK','',19,-1,-1,clGreen);
+        UiContext.Toelevering := '';
+        UiContext.Pallet := '';
     end else begin
       ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw');
     end;