Index: ProScan/ProScan.identcache
===================================================================
diff -u -r493 -r509
Binary files differ
Index: ProScan/UI/InfoLogScherm.pas
===================================================================
diff -u -r503 -r509
--- ProScan/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 503)
+++ ProScan/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 509)
@@ -32,7 +32,7 @@
     procedure actTerugExecute(Sender: TObject);
   private
     function ToeleveringDataOphalen(): ZoekViaToeleveringResponse;
-    function VhossDataOphalen(): ZoekViaPalletCodeResponse;
+    function VhossDataOphalen(): ZoekAlleDnaCodesDieOpVhossMoetenResponse;
     procedure VulGridMetDnaCodeData(DnaCodes: array of DnaCode);
     procedure GridLeegmaken();
     function GridToontData: boolean;
@@ -171,26 +171,26 @@
   end;
 end;
 
-function TfmInfoLogScherm.VhossDataOphalen: ZoekViaPalletCodeResponse;
+function TfmInfoLogScherm.VhossDataOphalen: ZoekAlleDnaCodesDieOpVhossMoetenResponse;
 var
-  fZoekViaPalletCodeResponse: ZoekViaPalletCodeResponse;
+  fZoekAlleDnaCodesDieOpVhossMoetenResponse: ZoekAlleDnaCodesDieOpVhossMoetenResponse;
   fAantalGescand: integer;
   fAantalDnaCodes: integer;
   fDnaCodeTeller: integer;
   fAgent: TAgent;
 begin
   fAgent := TAgent.Create(UiContext);
-  fZoekViaPalletCodeResponse := fAgent.ZoekViaPalletCode(UiContext.Pallet);
+  fZoekAlleDnaCodesDieOpVhossMoetenResponse := fAgent.ZoekAlleDnaCodesDieOpVhossMoeten(UiContext.Pallet);
   fAgent.Free;
   try
-    if fZoekViaPalletCodeResponse.Header.Status <> '200' then begin
-      ToonPopupScherm(fZoekViaPalletCodeResponse.Header.Omschrijving, 'Probeer opnieuw','')
+    if fZoekAlleDnaCodesDieOpVhossMoetenResponse.Header.Status <> '200' then begin
+      ToonPopupScherm(fZoekAlleDnaCodesDieOpVhossMoetenResponse.Header.Omschrijving, 'Probeer opnieuw','')
     end else begin
       fAantalGescand := 0;
-      fAantalDnaCodes := length(fZoekViaPalletCodeResponse.DnaCodes);
+      fAantalDnaCodes := length(fZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes);
       fDnaCodeTeller := 0;
-      while fDnaCodeTeller < length(fZoekViaPalletCodeResponse.DnaCodes) do begin
-          if not (fZoekViaPalletCodeResponse.DnaCodes[fDnaCodeTeller].ScanTijdstip = nil) then
+      while fDnaCodeTeller < length(fZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes) do begin
+          if not (fZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes[fDnaCodeTeller].ScanTijdstip = nil) then
             fAantalGescand := fAantalGescand + 1;
           fDnaCodeTeller := fDnaCodeTeller + 1;
       end;
@@ -205,7 +205,7 @@
       lblTotaalAantal.Caption := IntToStr(fAantalDnaCodes);
     end;
   finally
-    result := fZoekViaPalletCodeResponse;
+    result := fZoekAlleDnaCodesDieOpVhossMoetenResponse;
   end;
 end;