Index: AAPClient/WS/DnaCodeService.pas
===================================================================
diff -u -r332 -r359
--- AAPClient/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 332)
+++ AAPClient/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 359)
@@ -5,7 +5,7 @@
 //  >Import : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1>0
 // Encoding : UTF-8
 // Version  : 1.0
-// (3/04/2020 10:30:14 - - $Rev: 45757 $)
+// (21/04/2020 13:48:23 - - $Rev: 45757 $)
 // ************************************************************************ //
 
 unit DnaCodeService;
Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r358 -r359
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 358)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 359)
@@ -43,7 +43,7 @@
     procedure PalletBijwerken(Status: DnaCodeStatus; IsDirecteLevering: boolean);
     procedure ZetIcoontjesBovenaan;
     procedure DrukProboxEtiketAfIndienNodig;
-    procedure RondKaderdeurDagAf();
+    procedure RondAfKaderdeurDag();
   public
   end;
 
@@ -139,7 +139,7 @@
     exit;
 
   if UiContext.Modus = modusKAD then begin
-    RondKaderdeurDagAf();
+    RondAfKaderdeurDag();
     UiContext.Toelevering := '';
     UiContext.Pallet := '';
   end else begin
@@ -367,26 +367,26 @@
   end;
 end;
 
-procedure TfmDnaCodeScherm.RondKaderdeurDagAf;
+procedure TfmDnaCodeScherm.RondAfKaderdeurDag;
 var
   Response: RondAfKaderdeurDagResponse;
-  cdsRondKaderdeurDagAf: TClientDataset;
+  cdsRondAfKaderdeurDag: TClientDataset;
   antwoordlijnTeller: integer;
 begin
   Response := TAgent.Create(UiContext).RondAfKaderdeurDag(UiContext.LaatsteDnaCode);
-  cdsRondKaderdeurDagAf := TClientDataset.Create(self);
-  cdsRondKaderdeurDagAf.FieldDefs.Add('Toelevering',ftString,20);
-  cdsRondKaderdeurDagAf.FieldDefs.Add('Nog te scannen',ftInteger);
+  cdsRondAfKaderdeurDag := TClientDataset.Create(self);
+  cdsRondAfKaderdeurDag.FieldDefs.Add('Toelevering',ftString,20);
+  cdsRondAfKaderdeurDag.FieldDefs.Add('Nog te scannen',ftInteger);
   try
-    cdsRondKaderdeurDagAf.CreateDataSet;
+    cdsRondAfKaderdeurDag.CreateDataSet;
     if Response.Header.Status = '200' then begin
       for antwoordlijnTeller := 0 to System.Length(Response.ToeleveringMetAantallen) -1 do begin
-        cdsRondKaderdeurDagAf.InsertRecord([Response.ToeleveringMetAantallen[antwoordlijnTeller].ToeleveringID,
+        cdsRondAfKaderdeurDag.InsertRecord([Response.ToeleveringMetAantallen[antwoordlijnTeller].ToeleveringID,
                                             strtoint(Response.ToeleveringMetAantallen[antwoordlijnTeller].AantalKaderdeuren)-strtoint(Response.ToeleveringMetAantallen[antwoordlijnTeller].AantalKaderdeurenGescand)
                                             ]);
       end;
       if System.Length(Response.ToeleveringMetAantallen) > 0 then
-        ToonPopupScherm('Onvolledige toelevering(en)','Ok','',0,6,0,$001717CD,cdsRondKaderdeurDagAf);
+        ToonPopupScherm('Onvolledige toelevering(en)','Ok','',0,6,0,$001717CD,cdsRondAfKaderdeurDag);
     end else begin
       ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw');
     end;