Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r441 -r447
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 441)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 447)
@@ -56,7 +56,8 @@
 implementation
 
 uses
-  UiContext, Agent, CommonFunctions, ProScanMain, Datasnap.DBClient, Data.DB;
+  UiContext, Agent, CommonFunctions, ProScanMain, Datasnap.DBClient, Data.DB,
+  OnvolledigeToeleveringScherm;
 
 {$R *.dfm}
 
@@ -152,6 +153,7 @@
 var
   fWaarschuwingModalResult: TModalResult;
   fIsDirecteLevering: boolean;
+  fOnvolledigeToeleveringScherm: TfmOnvolledigeToeleveringScherm;
 begin
   inherited;
   if UiContext.Toelevering = '' then
@@ -177,15 +179,17 @@
         DrukProboxEtiketAfIndienNodig;
       end;
     end else begin
-      fWaarschuwingModalResult := ToonPopupScherm('Onvolledige toelevering','Scan code','Nieuw',18,11,12);
-      if fWaarschuwingModalResult = mrYes then begin
-        Self.ModalResult := mrDnaCode;
-      end else begin
-        fWaarschuwingModalResult := ToonPopupScherm('Nieuwe toelevering starten?','Ja','Nee',14,6,7);
+      fOnvolledigeToeleveringScherm := TfmOnvolledigeToeleveringScherm.Create(self);
+      try
+        fOnvolledigeToeleveringScherm.UiContext := UiContext;
+        fWaarschuwingModalResult := fOnvolledigeToeleveringScherm.ShowModal;
         if fWaarschuwingModalResult = mrYes then begin
-          ZetToeleveringStatus(DnaCodeStatus.OnHold,BepaalDirecteLevering);
+          Self.ModalResult := mrDnaCode;
+        end else begin
           Self.ModalResult := mrPallet;
         end;
+      finally
+        fOnvolledigeToeleveringScherm.Free;
       end;
     end;
   end;