Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r436 -r441
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 436)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 441)
@@ -129,7 +129,7 @@
       PalletBijwerken(DnaCodeStatus.InBuffer,false);
       UiContext.Pallet := '';
       Self.ModalResult := mrPallet;
-    end else if ((UiContext.Modus = modusDefault) and (ToonPopupScherm(lblHuidigePalletData.Caption+' volledig?'+#13#10+inttostr(fAantalLadesOpHuidigePallet)+' lades','Ja','Annuleren',14,6,7) = mrYes)) then begin
+    end else if ((UiContext.Modus = modusDefault) and (ToonPopupScherm(lblHuidigePalletData.Caption+' verwerken?'+#13#10+inttostr(fAantalLadesOpHuidigePallet)+' lade(s)','Ja','Annuleren',14,6,7) = mrYes)) then begin
       fIsDirecteLevering := (UiContext.Modus = modusDefault) and BepaalDirecteLevering;
       if fIsDirecteLevering then begin
         ToonPopupScherm('Directe levering', 'OK','',15,-1,-1,clBlue);
@@ -333,7 +333,7 @@
       Self.ModalResult := mrPallet;
     end else begin
       if not (UiContext.Modus = modusKAD) then
-        ToonPopupScherm('Pallet '+UiContext.Pallet+' volledig verwerkt','OK','',19,-1,-1,clGreen);
+        ToonPopupScherm('Pallet '+UiContext.Pallet+' verwerkt','OK','',19,-1,-1,clGreen);
       Self.ModalResult := mrPallet;
     end;
   finally
@@ -580,7 +580,7 @@
 
     DnaCodesStringList := TStringList.Create();
     ii := 0;
-    while ii < length(DnaCodes)-1 do begin
+    while ii < length(DnaCodes) do begin
       DnaCodesStringList.Add(DnaCodes[ii].DnaCode);
       ii := ii + 1;
     end;