Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r386 -r389
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 386)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 389)
@@ -187,7 +187,7 @@
 begin
   result := 0;
   if StartsText('O1',UiContext.Pallet) then begin
-    fZoekAlleVhossLadesBijDnaCodeResponse := TAgent.Create(UiContext).ZoekAlleVhossLadesBijDnaCode(UiContext.Pallet);
+    fZoekAlleVhossLadesBijDnaCodeResponse := TAgent.Create(UiContext).ZoekAlleVhossLadesBijDnaCode(UiContext.LaatsteDnaCode);
     try
       if fZoekAlleVhossLadesBijDnaCodeResponse.Header.Status = '200' then begin
         result := length(fZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes);