Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r391 -r392
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 391)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 392)
@@ -234,11 +234,16 @@
 procedure TfmDnaCodeScherm.btnInfoClick(Sender: TObject);
 begin
   inherited;
-  if UiContext.Toelevering = '' then
-    Self.ModalResult := mrDnaCode
-  else begin
+  if UiContext.Modus = modusVHOSS then begin
     UiContext.InfoLogSchermToonGescand := true;
     Self.ModalResult := mrInfoLog;
+  end else begin
+    if UiContext.Toelevering = '' then
+      Self.ModalResult := mrDnaCode
+    else begin
+      UiContext.InfoLogSchermToonGescand := true;
+      Self.ModalResult := mrInfoLog;
+    end;
   end;
   PostMessage(Self.Handle,WM_Close,0,0);
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
@@ -350,12 +355,37 @@
 procedure TfmDnaCodeScherm.VhossDataOphalen;
 var
   fZoekAlleVhossLadesBijDnaCodeResponse: ZoekAlleVhossLadesBijDnaCodeResponse;
+  fZoekAlleDnaCodesDieOpVhossMoetenResponse: ZoekAlleDnaCodesDieOpVhossMoetenResponse;
   fDnaCodeTeller: integer;
   fAantalGescand: integer;
 begin
   if UiContext.LaatsteDnaCode = '' then begin
-     //
+    fZoekAlleDnaCodesDieOpVhossMoetenResponse := TAgent.Create(UiContext).ZoekAlleDnaCodesDieOpVhossMoeten(UiContext.Pallet);
+    try
+      if fZoekAlleDnaCodesDieOpVhossMoetenResponse.Header.Status <> '200' then begin
+        ToonPopupScherm(fZoekAlleDnaCodesDieOpVhossMoetenResponse.Header.Omschrijving, 'Probeer opnieuw')
+      end else begin
+        fDnaCodeTeller := 0;
+        fAantalGescand := 0;
+        while fDnaCodeTeller < length(fZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes) do begin
+          if not (fZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes[fDnaCodeTeller].ScanTijdstip = nil) then
+            fAantalGescand := fAantalGescand + 1;
 
+          if fZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes[fDnaCodeTeller].DnaCode = UiContext.LaatsteDnaCode then
+            UiContext.Toelevering := fZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes[fDnaCodeTeller].Toelevering;
+
+          fDnaCodeTeller := fDnaCodeTeller + 1;
+        end;
+
+        lblAantalGescand.Caption := IntToStr(fAantalGescand);
+        lblTotaalAantal.Caption := IntToStr(length(fZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes));
+        btnInfo.Visible := true;
+        ZetIcoontjesBovenaan;
+        Self.ModalResult := mrDnaCode;
+      end;
+    finally
+      fZoekAlleDnaCodesDieOpVhossMoetenResponse.Free;
+    end;
   end else begin
     fZoekAlleVhossLadesBijDnaCodeResponse := TAgent.Create(UiContext).ZoekAlleVhossLadesBijDnaCode(UiContext.LaatsteDnaCode);
     try