Index: AAPClient/UI/InfoLogScherm.pas
===================================================================
diff -u -r315 -r387
--- AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 315)
+++ AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 387)
@@ -32,7 +32,7 @@
     procedure actTerugExecute(Sender: TObject);
   private
     function ToeleveringDataOphalen(): ZoekViaToeleveringResponse;
-    procedure VulGridMetToeleveringData(DnaCodes: array of DnaCode);
+    procedure VulGridMetDnaCodeData(DnaCodes: array of DnaCode);
     procedure GridLeegmaken();
     function GridToontData: boolean;
     procedure SwitchGrid();
@@ -81,7 +81,7 @@
       if Response.Header.Status <> '200' then begin
         ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw','')
       end else begin
-        VulGridMetToeleveringData(Response.DnaCodes);
+        VulGridMetDnaCodeData(Response.DnaCodes);
       end;
     finally
       Response.Free;
@@ -137,7 +137,7 @@
   end;
   lblToelevering.Caption := UiContext.Toelevering;
   Response := ToeleveringDataOphalen();
-  VulGridMetToeleveringData(Response.DnaCodes);
+  VulGridMetDnaCodeData(Response.DnaCodes);
   inherited;
 end;
 
@@ -164,7 +164,7 @@
   end;
 end;
 
-procedure TfmInfoLogScherm.VulGridMetToeleveringData(DnaCodes: array of DnaCode);
+procedure TfmInfoLogScherm.VulGridMetDnaCodeData(DnaCodes: array of DnaCode);
 var
   DnaCodeTeller: Integer;
   VuilbakTonen: boolean;
@@ -228,7 +228,7 @@
   btnRechtsOnder.Visible := false;
   btnCentraalOnder.Visible := false;
   Response := ToeleveringDataOphalen();
-  VulGridMetToeleveringData(Response.DnaCodes);
+  VulGridMetDnaCodeData(Response.DnaCodes);
   Repaint;
 end;