Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r540 -r542
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 540)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 542)
@@ -201,24 +201,26 @@
           ToonPopupScherm('Directe levering', 'OK','',15,-1,-1,clBlue);
           imgDirecteLevering.Visible := true;
         end;
+        DrukProboxEtiketAfIndienNodig;
         ZetToeleveringStatus(DnaCodeStatus.InBuffer, fIsDirecteLevering);
         if Self.ModalResult = mrPallet then begin
           ToonPopupScherm('Toelevering succesvol afgerond','OK','',19,-1,-1,clGreen);
-          UiContext.Toelevering := '';
-          UiContext.BatchId := '';
-          DrukProboxEtiketAfIndienNodig;
+        end else begin
+          ToonPopupScherm('Toelevering niet succesvol afgerond, etiket weggooien','OK','',2,-1,-1, clRed);
         end;
+        UiContext.Toelevering := '';
+        UiContext.BatchId := '';
       end else begin
         fOnvolledigeToeleveringScherm := TfmOnvolledigeToeleveringScherm.Create(self);
         try
           fOnvolledigeToeleveringScherm.UiContext := UiContext;
           fWaarschuwingModalResult := fOnvolledigeToeleveringScherm.ShowModal;
           if fWaarschuwingModalResult = mrNo then begin
+            DrukProboxEtiketAfIndienNodig;
             ZetToeleveringStatus(DnaCodeStatus.InBuffer, fIsDirecteLevering);
             UiContext.Toelevering := '';
             UiContext.BatchId := '';
             Self.ModalResult := mrPallet;
-            DrukProboxEtiketAfIndienNodig;
           end else begin
             Self.ModalResult := mrDnaCode;
           end;