Index: AAPClient/UI/InfoLogScherm.pas
===================================================================
diff -u -r51 -r52
--- AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 51)
+++ AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 52)
@@ -5,7 +5,7 @@
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DrieKnoppenScherm, Vcl.ActnList,
-  Vcl.StdCtrls, Vcl.Grids;
+  Vcl.StdCtrls, Vcl.Grids, DnaCodeService;
 
 type
   TfmInfoLogScherm = class(TfmDrieKnoppenScherm)
@@ -17,7 +17,7 @@
     sgToeleveringData: TStringGrid;
     procedure FormCreate(Sender: TObject);
   private
-    { Private declarations }
+    function ToeleveringDataOphalen(): ZoekViaToeleveringResponse;
   public
     { Public declarations }
   end;
@@ -36,4 +36,39 @@
   sgToeleveringData.Cols[1].Text := 'Pallet';
 end;
 
+function TfmInfoLogScherm.ToeleveringDataOphalen: ZoekViaToeleveringResponse;
+var
+  Service: DnaCodeServiceSoap;
+  Request: ZoekViaToeleveringRequest;
+  Response: ZoekViaToeleveringResponse;
+  Header: RequestHeader;
+begin
+  Service := DnaCodeService.GetDnaCodeServiceSoap();
+  // request opbouwen
+  Request := ZoekViaToeleveringRequest.Create;
+  Header := RequestHeader.Create;
+  try
+    Header.Initialen := lblGebruiker.Caption;
+    Header.ComputerNaam := ComputerName();
+    Request.Header := Header;
+    Request.Toelevering := lblToelevering.Caption;
+
+    Response := Service.ZoekViaToelevering(Request);
+    try
+      if Response.Header.Status <> '200' then begin
+        Self.ModalResult := mrRetry;
+        ToonPopupScherm('Geen data beschikbaar', 'Probeer opnieuw')
+      end else begin
+        lblAantalGescand.Caption := IntToStr(Response.AantalReedsGescand);
+        lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
+        Self.ModalResult := mrIgnore;
+      end;
+    finally
+      Response.Free;
+    end;
+  finally
+    Request.Free;
+  end;
+end;
+
 end.