Index: AAPClient/WS/DnaCodeService.pas
===================================================================
diff -u -r47 -r50
--- AAPClient/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 47)
+++ AAPClient/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 50)
@@ -5,7 +5,7 @@
 //  >Import : http://tve-w7:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1>0
 // Encoding : UTF-8
 // Version  : 1.0
-// (12/03/2019 11:42:41 - - $Rev: 45757 $)
+// (18/03/2019 11:06:46 - - $Rev: 45757 $)
 // ************************************************************************ //
 
 unit DnaCodeService;
@@ -317,15 +317,25 @@
   ZoekViaToeleveringResponse = class(DataTransferObject)
   private
     FHeader: ResponseHeader;
+    FAantalInToelevering: Int64;
+    FAantalInToelevering_Specified: boolean;
+    FAantalReedsGescand: Int64;
+    FAantalReedsGescand_Specified: boolean;
     FDnaCodes: ArrayOfDnaCodeDnaCode;
     FDnaCodes_Specified: boolean;
+    procedure SetAantalInToelevering(Index: Integer; const AInt64: Int64);
+    function  AantalInToelevering_Specified(Index: Integer): boolean;
+    procedure SetAantalReedsGescand(Index: Integer; const AInt64: Int64);
+    function  AantalReedsGescand_Specified(Index: Integer): boolean;
     procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
     function  DnaCodes_Specified(Index: Integer): boolean;
   public
     destructor Destroy; override;
   published
-    property Header:   ResponseHeader         read FHeader write FHeader;
-    property DnaCodes: ArrayOfDnaCodeDnaCode  Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified;
+    property Header:              ResponseHeader         read FHeader write FHeader;
+    property AantalInToelevering: Int64                  Index (IS_OPTN) read FAantalInToelevering write SetAantalInToelevering stored AantalInToelevering_Specified;
+    property AantalReedsGescand:  Int64                  Index (IS_OPTN) read FAantalReedsGescand write SetAantalReedsGescand stored AantalReedsGescand_Specified;
+    property DnaCodes:            ArrayOfDnaCodeDnaCode  Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified;
   end;
 
 
@@ -683,6 +693,28 @@
   inherited Destroy;
 end;
 
+procedure ZoekViaToeleveringResponse.SetAantalInToelevering(Index: Integer; const AInt64: Int64);
+begin
+  FAantalInToelevering := AInt64;
+  FAantalInToelevering_Specified := True;
+end;
+
+function ZoekViaToeleveringResponse.AantalInToelevering_Specified(Index: Integer): boolean;
+begin
+  Result := FAantalInToelevering_Specified;
+end;
+
+procedure ZoekViaToeleveringResponse.SetAantalReedsGescand(Index: Integer; const AInt64: Int64);
+begin
+  FAantalReedsGescand := AInt64;
+  FAantalReedsGescand_Specified := True;
+end;
+
+function ZoekViaToeleveringResponse.AantalReedsGescand_Specified(Index: Integer): boolean;
+begin
+  Result := FAantalReedsGescand_Specified;
+end;
+
 procedure ZoekViaToeleveringResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
 begin
   FDnaCodes := AArrayOfDnaCodeDnaCode;