Index: ProScan/UI/InfoLogScherm.dfm
===================================================================
diff -u -r396 -r503
--- ProScan/UI/InfoLogScherm.dfm	(.../InfoLogScherm.dfm)	(revision 396)
+++ ProScan/UI/InfoLogScherm.dfm	(.../InfoLogScherm.dfm)	(revision 503)
@@ -1,7 +1,5 @@
 inherited fmInfoLogScherm: TfmInfoLogScherm
   Caption = 'fmInfoLogScherm'
-  ExplicitWidth = 480
-  ExplicitHeight = 640
   PixelsPerInch = 96
   TextHeight = 19
   object lblToelevering: TLabel [0]
Index: ProScan/UI/InfoLogScherm.pas
===================================================================
diff -u -r477 -r503
--- ProScan/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 477)
+++ ProScan/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 503)
@@ -32,7 +32,7 @@
     procedure actTerugExecute(Sender: TObject);
   private
     function ToeleveringDataOphalen(): ZoekViaToeleveringResponse;
-    function VhossDataOphalen(): ZoekAlleVhossLadesBijDnaCodeResponse;
+    function VhossDataOphalen(): ZoekViaPalletCodeResponse;
     procedure VulGridMetDnaCodeData(DnaCodes: array of DnaCode);
     procedure GridLeegmaken();
     function GridToontData: boolean;
@@ -171,26 +171,26 @@
   end;
 end;
 
-function TfmInfoLogScherm.VhossDataOphalen: ZoekAlleVhossLadesBijDnaCodeResponse;
+function TfmInfoLogScherm.VhossDataOphalen: ZoekViaPalletCodeResponse;
 var
-  fZoekAlleVhossLadesBijDnaCodeResponse: ZoekAlleVhossLadesBijDnaCodeResponse;
+  fZoekViaPalletCodeResponse: ZoekViaPalletCodeResponse;
   fAantalGescand: integer;
   fAantalDnaCodes: integer;
   fDnaCodeTeller: integer;
   fAgent: TAgent;
 begin
   fAgent := TAgent.Create(UiContext);
-  fZoekAlleVhossLadesBijDnaCodeResponse := fAgent.ZoekAlleVhossLadesBijDnaCode(UiContext.LaatsteDnaCode);
+  fZoekViaPalletCodeResponse := fAgent.ZoekViaPalletCode(UiContext.Pallet);
   fAgent.Free;
   try
-    if fZoekAlleVhossLadesBijDnaCodeResponse.Header.Status <> '200' then begin
-      ToonPopupScherm(fZoekAlleVhossLadesBijDnaCodeResponse.Header.Omschrijving, 'Probeer opnieuw','')
+    if fZoekViaPalletCodeResponse.Header.Status <> '200' then begin
+      ToonPopupScherm(fZoekViaPalletCodeResponse.Header.Omschrijving, 'Probeer opnieuw','')
     end else begin
       fAantalGescand := 0;
-      fAantalDnaCodes := length(fZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes);
+      fAantalDnaCodes := length(fZoekViaPalletCodeResponse.DnaCodes);
       fDnaCodeTeller := 0;
-      while fDnaCodeTeller < length(fZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes) do begin
-          if not (fZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes[fDnaCodeTeller].ScanTijdstip = nil) then
+      while fDnaCodeTeller < length(fZoekViaPalletCodeResponse.DnaCodes) do begin
+          if not (fZoekViaPalletCodeResponse.DnaCodes[fDnaCodeTeller].ScanTijdstip = nil) then
             fAantalGescand := fAantalGescand + 1;
           fDnaCodeTeller := fDnaCodeTeller + 1;
       end;
@@ -205,7 +205,7 @@
       lblTotaalAantal.Caption := IntToStr(fAantalDnaCodes);
     end;
   finally
-    result := fZoekAlleVhossLadesBijDnaCodeResponse;
+    result := fZoekViaPalletCodeResponse;
   end;
 end;