Index: AAPClient/UI/InfoLogScherm.pas
===================================================================
diff -u -r387 -r388
--- AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 387)
+++ AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 388)
@@ -32,6 +32,7 @@
     procedure actTerugExecute(Sender: TObject);
   private
     function ToeleveringDataOphalen(): ZoekViaToeleveringResponse;
+    function VhossDataOphalen(): ZoekAlleVhossLadesBijDnaCodeResponse;
     procedure VulGridMetDnaCodeData(DnaCodes: array of DnaCode);
     procedure GridLeegmaken();
     function GridToontData: boolean;
@@ -125,8 +126,6 @@
 end;
 
 procedure TfmInfoLogScherm.FormShow(Sender: TObject);
-var
-  Response: ZoekViaToeleveringResponse;
 begin
   btnLinksOnder.Action := actTerug;
   btnCentraalOnder.Action := actOngedaanMaken;
@@ -136,8 +135,10 @@
     btnRechtsOnder.Action := actSchermLinks;
   end;
   lblToelevering.Caption := UiContext.Toelevering;
-  Response := ToeleveringDataOphalen();
-  VulGridMetDnaCodeData(Response.DnaCodes);
+  if UiContext.Modus = modusVHOSS then
+    VulGridMetDnaCodeData(VhossDataOphalen().DnaCodes)
+  else
+    VulGridMetDnaCodeData(ToeleveringDataOphalen().DnaCodes);
   inherited;
 end;
 
@@ -164,6 +165,42 @@
   end;
 end;
 
+function TfmInfoLogScherm.VhossDataOphalen: ZoekAlleVhossLadesBijDnaCodeResponse;
+var
+  fZoekAlleVhossLadesBijDnaCodeResponse: ZoekAlleVhossLadesBijDnaCodeResponse;
+  fAantalGescand: integer;
+  fAantalDnaCodes: integer;
+  fDnaCodeTeller: integer;
+begin
+  fZoekAlleVhossLadesBijDnaCodeResponse := TAgent.Create(UiContext).ZoekAlleVhossLadesBijDnaCode(UiContext.LaatsteDnaCode);
+  try
+    if fZoekAlleVhossLadesBijDnaCodeResponse.Header.Status <> '200' then begin
+      ToonPopupScherm(fZoekAlleVhossLadesBijDnaCodeResponse.Header.Omschrijving, 'Probeer opnieuw','')
+    end else begin
+      fAantalGescand := 0;
+      fAantalDnaCodes := length(fZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes);
+      fDnaCodeTeller := 0;
+      while fDnaCodeTeller < length(fZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes) do begin
+          if not (fZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes[fDnaCodeTeller].ScanTijdstip = nil) then
+            fAantalGescand := fAantalGescand + 1;
+          fDnaCodeTeller := fDnaCodeTeller + 1;
+      end;
+
+      if UiContext.InfoLogSchermToonGescand then begin
+        lblAantallen.Caption := 'Afgescand';
+        lblAantalGescand.Caption := IntToStr(fAantalGescand);
+      end else begin
+        lblAantallen.Caption := 'Te scannen';
+        lblAantalGescand.Caption := IntToStr(fAantalDnaCodes - fAantalGescand);
+      end;
+      lblTotaalAantal.Caption := IntToStr(fAantalDnaCodes);
+    end;
+  finally
+    result := fZoekAlleVhossLadesBijDnaCodeResponse;
+  end;
+end;
+
+
 procedure TfmInfoLogScherm.VulGridMetDnaCodeData(DnaCodes: array of DnaCode);
 var
   DnaCodeTeller: Integer;
@@ -213,8 +250,6 @@
 end;
 
 procedure TfmInfoLogScherm.SwitchGrid;
-var
-  Response: ZoekViaToeleveringResponse;
 begin
   inherited;
   Self.ModalResult := mrInfoLog;
@@ -227,8 +262,10 @@
   UiContext.ImagesScherm.ilAlgemeen128.GetIcon(btnRechtsOnder.ImageIndex, imgRechtsOnder.Picture.Icon);
   btnRechtsOnder.Visible := false;
   btnCentraalOnder.Visible := false;
-  Response := ToeleveringDataOphalen();
-  VulGridMetDnaCodeData(Response.DnaCodes);
+  if UiContext.Modus = modusVHOSS then
+    VulGridMetDnaCodeData(VhossDataOphalen().DnaCodes)
+  else
+    VulGridMetDnaCodeData(ToeleveringDataOphalen().DnaCodes);
   Repaint;
 end;