Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r420 -r422
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 420)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 422)
@@ -133,6 +133,7 @@
         imgDirecteLevering.Visible := true;
       end;
       PalletBijwerken(DnaCodeStatus.InBuffer,fIsDirecteLevering);
+      DrukProboxEtiketAfIndienNodig;
       UiContext.Pallet := '';
       Self.ModalResult := mrPallet;
     end else begin
@@ -170,8 +171,7 @@
       if Self.ModalResult = mrPallet then begin
         ToonPopupScherm('Toelevering succesvol afgerond','OK','',19,-1,-1,clGreen);
         UiContext.Toelevering := '';
-        if System.StrUtils.LeftStr(UiContext.Pallet,3) = 'TBP' then
-          DrukProboxEtiketAfIndienNodig;
+        DrukProboxEtiketAfIndienNodig;
       end;
     end else begin
       fWaarschuwingModalResult := ToonPopupScherm('Onvolledige toelevering','Scan code','Nieuw',18,11,12);
@@ -337,7 +337,7 @@
     Response.Free;
   end;
   PostMessage(Self.Handle,WM_Close,0,0);
-  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
+  //(Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
 end;
 
 procedure TfmDnaCodeScherm.ToeleveringDataOphalen;
@@ -542,34 +542,38 @@
   DnaCodes: ArrayOfDnaCodeDnaCode;
   ii: integer;
 begin
-  {fZoekViaPalletCodeResponse := TAgent.Create(UiContext).ZoekViaPalletCode(UiContext.Pallet);
+  if not (System.StrUtils.LeftStr(UiContext.Pallet,3) = 'TBP') then
+    exit;
+
+  fZoekViaPalletCodeResponse := TAgent.Create(UiContext).ZoekViaPalletCode(UiContext.Pallet);
   try
     if fZoekViaPalletCodeResponse.Header.Status = '200' then begin
       DnaCodes := fZoekViaPalletCodeResponse.DnaCodes;
     end else begin
       ToonPopupScherm(fZoekViaPalletCodeResponse.Header.Omschrijving, 'Bel planning');
     end;
-  finally
-    fZoekViaPalletCodeResponse.Free;
-  end;
 
-  DnaCodesStringList := TStringList.Create();
-  ii := 0;
-  while ii < length(DnaCodes)-1 do begin
-    DnaCodesStringList.Add(DnaCodes[ii].DnaCode)   <-- geeft AV in test6
-  end;
+    DnaCodesStringList := TStringList.Create();
+    ii := 0;
+    while ii < length(DnaCodes)-1 do begin
+      DnaCodesStringList.Add(DnaCodes[ii].DnaCode);
+      ii := ii + 1;
+    end;
 
-  fProboxAfdrukkenResponse := TAgent.Create(UiContext).ProboxEtiketAfdrukken(DnaCodesStringList);
-  try
-    if fProboxAfdrukkenResponse.Header.Status <> '200' then begin
-      Self.ModalResult := mrDnaCode;
-      ToonPopupScherm(fProboxAfdrukkenResponse.Header.Omschrijving, 'Bel planning')
-    end else begin
-      Self.ModalResult := mrPallet;
+    fProboxAfdrukkenResponse := TAgent.Create(UiContext).ProboxEtiketAfdrukken(DnaCodesStringList);
+    try
+      if fProboxAfdrukkenResponse.Header.Status <> '200' then begin
+        Self.ModalResult := mrDnaCode;
+        ToonPopupScherm(fProboxAfdrukkenResponse.Header.Omschrijving, 'Bel planning')
+      end else begin
+        Self.ModalResult := mrPallet;
+      end;
+    finally
+      fProboxAfdrukkenResponse.Free;
     end;
   finally
-    fProboxAfdrukkenResponse.Free;
-  end;}
+    fZoekViaPalletCodeResponse.Free;
+  end;
 end;
 
 end.