Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r200 -r208
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 200)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 208)
@@ -70,7 +70,7 @@
     fWaarschuwingModalResult := ToonPopupScherm(lblHuidigePalletData.Caption+' volledig?'+#13#10+inttostr(fAantalLadesOpHuidigePallet)+' lades','Ja','Rework',14,-1,-1);
     if fWaarschuwingModalResult = mrYes then begin
       if BepaalDirecteLevering then begin
-        ToonPopupScherm('GLS Direct', 'OK','',15,-1,-1,clBlue);
+        ToonPopupScherm('Directe levering', 'OK','',15,-1,-1,clBlue);
         fImagesScherm.ilAlgemeen32.GetIcon(3, imgDirecteLevering.Picture.Icon);
         imgDirecteLevering.Visible := true;
       end;
@@ -213,7 +213,7 @@
                VerwerkMogelijkePopups(Response.DnaCodes[0]);
                Self.ModalResult := mrDnaCode;
              end;
-       1005: begin //reeds gescand
+       1005,-1006: begin //reeds gescand
                Self.ModalResult := mrDnaCodeReedsGescand;
              end;
        else begin
@@ -271,7 +271,7 @@
 begin
   if EersteDnaCode.IsDirecteLevering then begin
     if not imgDirecteLevering.Visible then
-      ToonPopupScherm('GLS Direct', 'OK','',15,-1,-1,clBlue);
+      ToonPopupScherm('Directe levering', 'OK','',15,-1,-1,clBlue);
     fImagesScherm.ilAlgemeen32.GetIcon(3, imgDirecteLevering.Picture.Icon);
     imgDirecteLevering.Visible := EersteDnaCode.IsDirecteLevering;
   end else begin