Index: AAPClient/ProScan.dproj.local
===================================================================
diff -u -r47 -r50
--- AAPClient/ProScan.dproj.local	(.../ProScan.dproj.local)	(revision 47)
+++ AAPClient/ProScan.dproj.local	(.../ProScan.dproj.local)	(revision 50)
@@ -41,8 +41,8 @@
     <Transaction>2019/03/08 10:27:45.000.805,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\UI\PalletScherm.pas</Transaction>
     <Transaction>2019/03/08 10:28:02.000.451,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas</Transaction>
     <Transaction>2019/03/08 11:14:25.000.860,=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
-    <Transaction>2019/03/08 11:15:19.000.292,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\BestaandePalletScherm.pas</Transaction>
     <Transaction>2019/03/08 11:15:19.000.292,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\BestaandePalletScherm.dfm</Transaction>
+    <Transaction>2019/03/08 11:15:19.000.292,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\BestaandePalletScherm.pas</Transaction>
     <Transaction>2019/03/08 13:41:42.000.692,=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
     <Transaction>2019/03/08 13:43:18.000.167,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.pas</Transaction>
     <Transaction>2019/03/08 13:43:18.000.168,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.dfm</Transaction>
@@ -52,6 +52,9 @@
     <Transaction>2019/03/12 11:42:34.194,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=</Transaction>
     <Transaction>2019/03/12 11:42:41.845,=E:\svn\Delphi\AAPClient\WS.pas</Transaction>
     <Transaction>2019/03/12 11:42:52.715,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\WS.pas</Transaction>
+    <Transaction>2019/03/18 09:44:48.103,=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
+    <Transaction>2019/03/18 09:46:03.084,E:\svn\Delphi\AAPClient\UI\InfoLogScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm</Transaction>
+    <Transaction>2019/03/18 09:46:03.084,E:\svn\Delphi\AAPClient\UI\InfoLogScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="UI"/>
@@ -71,6 +74,8 @@
     <File Path="UI\BestaandePalletScherm.dfm"/>
     <File Path="UI\DnaCodeScherm.pas"/>
     <File Path="UI\DnaCodeScherm.dfm"/>
+    <File Path="UI\InfoLogScherm.pas"/>
+    <File Path="UI\InfoLogScherm.dfm"/>
     <File Path="WS"/>
     <File Path="WS\GebruikerService.pas"/>
     <File Path="WS\DnaCodeService.pas"/>
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;
Index: AAPClient/ProScan.dproj
===================================================================
diff -u -r43 -r50
--- AAPClient/ProScan.dproj	(.../ProScan.dproj)	(revision 43)
+++ AAPClient/ProScan.dproj	(.../ProScan.dproj)	(revision 50)
@@ -120,6 +120,10 @@
 				<FormType>dfm</FormType>
 			</DCCReference>
 			<DCCReference Include="WS\DnaCodeService.pas"/>
+			<DCCReference Include="UI\InfoLogScherm.pas">
+				<Form>fmInfoLogScherm</Form>
+				<FormType>dfm</FormType>
+			</DCCReference>
 			<BuildConfiguration Include="Release">
 				<Key>Cfg_2</Key>
 				<CfgParent>Base</CfgParent>
Index: AAPClient/Win32/Debug/ProScan.exe
===================================================================
diff -u -r48 -r50
Binary files differ
Index: AAPClient/ProScan.dpr
===================================================================
diff -u -r48 -r50
--- AAPClient/ProScan.dpr	(.../ProScan.dpr)	(revision 48)
+++ AAPClient/ProScan.dpr	(.../ProScan.dpr)	(revision 50)
@@ -12,7 +12,8 @@
   PalletScherm in 'UI\PalletScherm.pas' {fmPalletScherm},
   BestaandePalletScherm in 'UI\BestaandePalletScherm.pas' {fmBestaandePalletScherm},
   DnaCodeScherm in 'UI\DnaCodeScherm.pas' {fmDnaCodeScherm},
-  DnaCodeService in 'WS\DnaCodeService.pas';
+  DnaCodeService in 'WS\DnaCodeService.pas',
+  InfoLogScherm in 'UI\InfoLogScherm.pas' {fmInfoLogScherm};
 
 {$R *.res}
 
@@ -28,5 +29,6 @@
   Application.CreateForm(TfmPalletScherm, fmPalletScherm);
   Application.CreateForm(TfmBestaandePalletScherm, fmBestaandePalletScherm);
   Application.CreateForm(TfmDnaCodeScherm, fmDnaCodeScherm);
+  Application.CreateForm(TfmInfoLogScherm, fmInfoLogScherm);
   Application.Run;
 end.