Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r311 -r312
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 311)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 312)
@@ -110,7 +110,8 @@
   inherited;
   fAantalLadesOpHuidigePallet := BepaalAantalLadesOpHuidigePallet;
   if fAantalLadesOpHuidigePallet > 0 then begin
-     if (UiContext.Modus = modusDefault) and (ToonPopupScherm(lblHuidigePalletData.Caption+' volledig?'+#13#10+inttostr(fAantalLadesOpHuidigePallet)+' lades','Ja','Annuleren',14,6,7) = mrYes) then begin
+     if (UiContext.Modus = modusKAD) or
+        ((UiContext.Modus = modusDefault) and (ToonPopupScherm(lblHuidigePalletData.Caption+' volledig?'+#13#10+inttostr(fAantalLadesOpHuidigePallet)+' lades','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);
@@ -168,7 +169,7 @@
 begin
   result := 0;
 
-  fZoekViaPalletCodeResponse := TAgent.Create(UiContext).ZoekViaPalletCode(UiContext.Pallet);
+  fZoekViaPalletCodeResponse := TAgent.Create(UiContext).ZoekViaPalletCode(UiContext.Pallet);  //todo: enkel recente dingen
   try
     if fZoekViaPalletCodeResponse.Header.Status = '200' then begin
       result := length(fZoekViaPalletCodeResponse.DnaCodes);