Index: PlanScan/UI/frameKlantinstellingen.pas
===================================================================
diff -u -r375 -r419
--- PlanScan/UI/frameKlantinstellingen.pas	(.../frameKlantinstellingen.pas)	(revision 375)
+++ PlanScan/UI/frameKlantinstellingen.pas	(.../frameKlantinstellingen.pas)	(revision 419)
@@ -44,7 +44,7 @@
 var
   fBewerkKlantinstellingenResponse: BewerkKlantinstellingenResponse;
 begin
-  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('List','',false);
+  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('List','',false, false, false);
   try
     if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
       VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
@@ -66,7 +66,7 @@
   fKlantinstellingenDetailScherm.KlantId := '';
   fKlantinstellingenDetailScherm.IsExport := false;
   fKlantinstellingenDetailScherm.ShowModal;
-  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport);
+  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport, fKlantinstellingenDetailScherm.Wegwerppallet, fKlantinstellingenDetailScherm.MeerdereToeleveringen);
   if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
     VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
   end else begin
@@ -84,7 +84,7 @@
       dbgKlantinstellingen.DataSource.DataSet.GotoBookmark(Pointer(dbgKlantinstellingen.SelectedRows.Items[0]));
       fGeselecteerdeKlantId := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenKlantId').AsString;
   end;
-  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Delete',fGeselecteerdeKlantId,false);
+  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Delete',fGeselecteerdeKlantId,false,false,false);
   if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
     VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
   end else begin
@@ -103,8 +103,10 @@
     fKlantinstellingenDetailScherm := TfmKlantinstellingenDetail.Create(self);
     fKlantinstellingenDetailScherm.KlantId := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenKlantId').AsString;
     fKlantinstellingenDetailScherm.IsExport := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenIsExport').AsBoolean;
+    fKlantinstellingenDetailScherm.WegwerpPallet := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenWegwerppallet').AsBoolean;
+    fKlantinstellingenDetailScherm.MeerdereToeleveringen := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenMeerdereToeleveringen').AsBoolean;
     fKlantinstellingenDetailScherm.ShowModal;
-    fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport);
+    fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport,fKlantinstellingenDetailScherm.Wegwerppallet,fKlantinstellingenDetailScherm.MeerdereToeleveringen);
     if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
       VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
     end else begin
@@ -160,7 +162,9 @@
   while ii <= length(Klantinstellingen)-1 do begin
     cdsKlantinstellingen.InsertRecord([Klantinstellingen[ii].KlantId,
                                        Klantinstellingen[ii].Klantnaam,
-                                       Klantinstellingen[ii].IsExport]);
+                                       Klantinstellingen[ii].IsExport,
+                                       Klantinstellingen[ii].WegwerpPallet,
+                                       Klantinstellingen[ii].MeerdereToeleveringen]);
     ii := ii + 1;
   end;
 end;
Index: PlanScan/UI/frameKlantinstellingen.dfm
===================================================================
diff -u -r375 -r419
--- PlanScan/UI/frameKlantinstellingen.dfm	(.../frameKlantinstellingen.dfm)	(revision 375)
+++ PlanScan/UI/frameKlantinstellingen.dfm	(.../frameKlantinstellingen.dfm)	(revision 419)
@@ -40,6 +40,18 @@
         FieldName = 'cdsKlantinstellingenIsExport'
         Title.Caption = 'Export'
         Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'cdsKlantinstellingenWegwerppallet'
+        Title.Caption = 'Wegwerp'
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'cdsKlantinstellingenMeerdereToeleveringen'
+        Title.Caption = '>1 TL'
+        Visible = True
       end>
   end
   object Panel1: TPanel
@@ -95,6 +107,14 @@
       item
         Name = 'cdsKlantinstellingenIsExport'
         DataType = ftBoolean
+      end
+      item
+        Name = 'cdsKlantinstellingenWegwerpPallet'
+        DataType = ftBoolean
+      end
+      item
+        Name = 'cdsKlantinstellingenMeerdereToeleveringen'
+        DataType = ftBoolean
       end>
     IndexDefs = <>
     Params = <>
Index: PlanScan/PlanScan.dproj.local
===================================================================
diff -u -r403 -r419
--- PlanScan/PlanScan.dproj.local	(.../PlanScan.dproj.local)	(revision 403)
+++ PlanScan/PlanScan.dproj.local	(.../PlanScan.dproj.local)	(revision 419)
@@ -2,8 +2,8 @@
 <BorlandProject>
 	<Transactions>
     <Transaction>2020/02/17 10:05:16.000.600,=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas</Transaction>
-    <Transaction>2020/02/17 10:06:02.000.921,E:\svn\Delphi\PlanScan\Main.dfm=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.dfm</Transaction>
     <Transaction>2020/02/17 10:06:02.000.921,E:\svn\Delphi\PlanScan\Main.pas=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas</Transaction>
+    <Transaction>2020/02/17 10:06:02.000.921,E:\svn\Delphi\PlanScan\Main.dfm=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.dfm</Transaction>
     <Transaction>2020/02/17 10:06:12.000.996,E:\svn\Delphi\PlanScan\PlanScan.dproj=C:\Users\TomV\Documents\RAD Studio\Projects\Project2.dproj</Transaction>
     <Transaction>2020/02/17 11:09:31.000.812,=E:\svn\Delphi\PlanScan\WS\GebruikerService.pas</Transaction>
     <Transaction>2020/02/17 11:09:31.000.810,=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas</Transaction>
@@ -26,17 +26,17 @@
     <Transaction>2020/03/02 09:30:46.000.906,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas=</Transaction>
     <Transaction>2020/03/02 09:31:23.000.040,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
     <Transaction>2020/03/04 11:43:31.000.229,=E:\svn\Delphi\PlanScan\Unit1.pas</Transaction>
-    <Transaction>2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\UI\LoginScherm.pas=E:\svn\Delphi\PlanScan\Unit1.pas</Transaction>
     <Transaction>2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\UI\LoginScherm.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm</Transaction>
+    <Transaction>2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\UI\LoginScherm.pas=E:\svn\Delphi\PlanScan\Unit1.pas</Transaction>
     <Transaction>2020/04/20 08:48:05.000.552,=E:\svn\Delphi\PlanScan\Unit1.pas</Transaction>
-    <Transaction>2020/04/20 08:48:21.000.787,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas=E:\svn\Delphi\PlanScan\Unit1.pas</Transaction>
     <Transaction>2020/04/20 08:48:21.000.787,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm</Transaction>
+    <Transaction>2020/04/20 08:48:21.000.787,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas=E:\svn\Delphi\PlanScan\Unit1.pas</Transaction>
     <Transaction>2020/04/20 09:19:59.000.705,E:\svn\Delphi\PlanScan\UI\frameDnaCodes.pas=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas</Transaction>
     <Transaction>2020/04/20 09:19:59.000.705,E:\svn\Delphi\PlanScan\UI\frameDnaCodes.dfm=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm</Transaction>
     <Transaction>2020/04/20 09:21:17.000.241,=E:\svn\Delphi\PlanScan\Unit1.pas</Transaction>
     <Transaction>2020/04/20 10:46:18.000.858,=E:\svn\Delphi\PlanScan\Unit1.pas</Transaction>
-    <Transaction>2020/04/20 10:49:21.000.229,E:\svn\Delphi\PlanScan\UI\frameGebruikers.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm</Transaction>
     <Transaction>2020/04/20 10:49:21.000.229,E:\svn\Delphi\PlanScan\UI\frameGebruikers.pas=E:\svn\Delphi\PlanScan\Unit1.pas</Transaction>
+    <Transaction>2020/04/20 10:49:21.000.229,E:\svn\Delphi\PlanScan\UI\frameGebruikers.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm</Transaction>
     <Transaction>2020/04/21 13:47:35.000.169,=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
     <Transaction>2020/04/21 13:47:43.000.211,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=</Transaction>
     <Transaction>2020/04/21 13:47:54.000.335,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
@@ -56,6 +56,12 @@
     <Transaction>2020/05/07 11:27:31.000.777,=E:\svn\Delphi\PlanScan\Unit1.pas</Transaction>
     <Transaction>2020/05/07 11:28:03.000.538,E:\svn\Delphi\PlanScan\Unit1.pas=E:\svn\Delphi\PlanScan\UI\KlantinstellingenDetailScherm.pas</Transaction>
     <Transaction>2020/05/07 11:28:03.000.538,E:\svn\Delphi\PlanScan\Unit1.dfm=E:\svn\Delphi\PlanScan\UI\KlantinstellingenDetailScherm.dfm</Transaction>
+    <Transaction>2020/06/22 09:45:59.420,=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
+    <Transaction>2020/06/22 09:46:07.509,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=</Transaction>
+    <Transaction>2020/06/22 09:46:23.552,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
+    <Transaction>2020/06/22 10:13:59.200,=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
+    <Transaction>2020/06/22 10:14:25.473,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=</Transaction>
+    <Transaction>2020/06/22 10:14:54.776,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="UI"/>
@@ -74,8 +80,8 @@
     <File Path="WS"/>
     <File Path="WS\Agent.pas"/>
     <File Path="WS\__history"/>
-    <File Path="WS\DnaCodeService.pas"/>
     <File Path="WS\GebruikerService.pas"/>
+    <File Path="WS\DnaCodeService.pas"/>
     <File Path="Main.pas"/>
     <File Path="Main.dfm"/>
   </ProjectSortOrder>
Index: PlanScan/PlanScan.dproj
===================================================================
diff -u -r396 -r419
--- PlanScan/PlanScan.dproj	(.../PlanScan.dproj)	(revision 396)
+++ PlanScan/PlanScan.dproj	(.../PlanScan.dproj)	(revision 419)
@@ -70,7 +70,7 @@
 			<DCC_RemoteDebug>true</DCC_RemoteDebug>
 		</PropertyGroup>
 		<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
-			<Debugger_RunParams>server=cache01</Debugger_RunParams>
+			<Debugger_RunParams>server=tve-w10</Debugger_RunParams>
 			<DCC_RemoteDebug>false</DCC_RemoteDebug>
 		</PropertyGroup>
 		<PropertyGroup Condition="'$(Cfg_2)'!=''">
@@ -109,12 +109,12 @@
 				<FormType>dfm</FormType>
 				<DesignClass>TFrame</DesignClass>
 			</DCCReference>
-			<DCCReference Include="WS\DnaCodeService.pas"/>
 			<DCCReference Include="WS\GebruikerService.pas"/>
 			<DCCReference Include="UI\KlantinstellingenDetailScherm.pas">
 				<Form>fmKlantinstellingenDetail</Form>
 				<FormType>dfm</FormType>
 			</DCCReference>
+			<DCCReference Include="WS\DnaCodeService.pas"/>
 			<None Include="WS\__history"/>
 			<BuildConfiguration Include="Release">
 				<Key>Cfg_2</Key>
Index: PlanScan/WS/DnaCodeService.pas
===================================================================
diff -u -r366 -r419
--- PlanScan/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 366)
+++ PlanScan/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 419)
@@ -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
-// (7/05/2020 8:09:33 - - $Rev: 45757 $)
+// (22/06/2020 10:13:59 - - $Rev: 45757 $)
 // ************************************************************************ //
 
 unit DnaCodeService;
@@ -36,52 +36,56 @@
   // !:string          - "http://www.w3.org/2001/XMLSchema"[Gbl]
 
   GeefVolgendeTbpCodeRequest = class;           { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+  HernoemPalletRequest = class;                 { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   DnaCodeAfmeldenRequest = class;               { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   ZoekViaPalletCodeRequest = class;             { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   ZoekViaToeleveringRequest = class;            { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   ZoekViaLadecodeRequest = class;               { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   ZoekViaOrdernummerRequest = class;            { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   BewerkKlantinstellingenRequest = class;       { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   RequestHeader        = class;                 { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+  ResponseHeader       = class;                 { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   DataTransferObject   = class;                 { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   DnaCode              = class;                 { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
-  ResponseHeader       = class;                 { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
-  Klantinstellingen    = class;                 { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   GeneriekeResponse    = class;                 { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   BewerkKlantinstellingenResponse = class;      { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   GeefVolgendeTbpCodeResponse = class;          { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+  HernoemPalletResponse = class;                { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   DnaCodeAfmeldenResponse = class;              { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   ZoekViaKlantnummerResponse = class;           { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   ZoekViaPalletCodeResponse = class;            { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   ZoekViaToeleveringResponse = class;           { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   ZoekViaLadecodeResponse = class;              { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   ZoekViaOrdernummerResponse = class;           { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+  Klantinstellingen    = class;                 { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+  ValideerPalletCodeResponse = class;           { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+  ZoekAlleDnaCodesDieOpVhossMoetenRequest = class;   { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+  ValideerPalletCodeRequest = class;            { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   ToeleveringBijwerkenRequest = class;          { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   ToeleveringBijwerkenResponse = class;         { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
-  RondAfKaderdeurDagResponse = class;           { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
-  ToeleveringMetAantallen = class;              { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+  ZoekAlleDnaCodesDieOpVhossMoetenResponse = class;   { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   ZoekViaDnaCodeResponse = class;               { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   ZoekViaKlantnummerRequest = class;            { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   ZoekViaDnaCodeRequest = class;                { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
-  ValideerPalletCodeRequest = class;            { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
-  ValideerPalletCodeResponse = class;           { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
-  DirecteLeveringResponse = class;              { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+  ZoekAlleVhossLadesBijDnaCodeRequest = class;   { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+  ZoekAlleVhossLadesBijDnaCodeResponse = class;   { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+  PalletBijwerkenResponse = class;              { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   PalletBijwerkenRequest = class;               { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   DirecteLeveringRequest = class;               { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
-  HernoemPalletRequest = class;                 { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
-  HernoemPalletResponse = class;                { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+  DirecteLeveringResponse = class;              { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+  ProboxEtiketAfdrukkenRequest = class;         { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+  ToeleveringMetAantallen = class;              { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+  RondAfKaderdeurDagResponse = class;           { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   ProboxEtiketAfdrukkenResponse = class;        { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   RondAfKaderdeurDagRequest = class;            { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
-  PalletBijwerkenResponse = class;              { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
-  ProboxEtiketAfdrukkenRequest = class;         { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
 
   {$SCOPEDENUMS ON}
   { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] }
   DnaCodeStatus = (Nieuw, Gescand, Ongedaan, OnHold, InBuffer, InBatch);
 
   {$SCOPEDENUMS OFF}
 
-  ArrayOfKlantinstellingenKlantinstellingen = array of Klantinstellingen;   { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+  ArrayOfDnaCodeDnaCode = array of DnaCode;     { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
 
 
   // ************************************************************************ //
@@ -97,11 +101,34 @@
     property Header: RequestHeader  read FHeader write FHeader;
   end;
 
-  ArrayOfDnaCodeDnaCode = array of DnaCode;     { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   String_         =  type string;      { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] }
 
 
   // ************************************************************************ //
+  // XML       : HernoemPalletRequest, global, <complexType>
+  // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
+  // ************************************************************************ //
+  HernoemPalletRequest = class(TRemotable)
+  private
+    FHeader: RequestHeader;
+    FOudeCode: string;
+    FNieuweCode: string;
+    FEnkelDezeDnaCode: string;
+    FEnkelDezeDnaCode_Specified: boolean;
+    procedure SetEnkelDezeDnaCode(Index: Integer; const Astring: string);
+    function  EnkelDezeDnaCode_Specified(Index: Integer): boolean;
+  public
+    destructor Destroy; override;
+  published
+    property Header:           RequestHeader  read FHeader write FHeader;
+    property OudeCode:         string         read FOudeCode write FOudeCode;
+    property NieuweCode:       string         read FNieuweCode write FNieuweCode;
+    property EnkelDezeDnaCode: string         Index (IS_OPTN) read FEnkelDezeDnaCode write SetEnkelDezeDnaCode stored EnkelDezeDnaCode_Specified;
+  end;
+
+
+
+  // ************************************************************************ //
   // XML       : DnaCodeAfmeldenRequest, global, <complexType>
   // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
   // ************************************************************************ //
@@ -116,21 +143,26 @@
     FPalletCode: string;
     FLocatie: string;
     FLocatie_Specified: boolean;
+    FGuiVhossVolgnummer: string;
+    FGuiVhossVolgnummer_Specified: boolean;
     procedure SetAantal(Index: Integer; const AInt64: Int64);
     function  Aantal_Specified(Index: Integer): boolean;
     procedure SetToelevering(Index: Integer; const Astring: string);
     function  Toelevering_Specified(Index: Integer): boolean;
     procedure SetLocatie(Index: Integer; const Astring: string);
     function  Locatie_Specified(Index: Integer): boolean;
+    procedure SetGuiVhossVolgnummer(Index: Integer; const Astring: string);
+    function  GuiVhossVolgnummer_Specified(Index: Integer): boolean;
   public
     destructor Destroy; override;
   published
-    property Header:      RequestHeader  read FHeader write FHeader;
-    property DnaCode:     string         read FDnaCode write FDnaCode;
-    property Aantal:      Int64          Index (IS_OPTN) read FAantal write SetAantal stored Aantal_Specified;
-    property Toelevering: string         Index (IS_OPTN) read FToelevering write SetToelevering stored Toelevering_Specified;
-    property PalletCode:  string         read FPalletCode write FPalletCode;
-    property Locatie:     string         Index (IS_OPTN) read FLocatie write SetLocatie stored Locatie_Specified;
+    property Header:             RequestHeader  read FHeader write FHeader;
+    property DnaCode:            string         read FDnaCode write FDnaCode;
+    property Aantal:             Int64          Index (IS_OPTN) read FAantal write SetAantal stored Aantal_Specified;
+    property Toelevering:        string         Index (IS_OPTN) read FToelevering write SetToelevering stored Toelevering_Specified;
+    property PalletCode:         string         read FPalletCode write FPalletCode;
+    property Locatie:            string         Index (IS_OPTN) read FLocatie write SetLocatie stored Locatie_Specified;
+    property GuiVhossVolgnummer: string         Index (IS_OPTN) read FGuiVhossVolgnummer write SetGuiVhossVolgnummer stored GuiVhossVolgnummer_Specified;
   end;
 
 
@@ -213,13 +245,17 @@
     FActie: string;
     FKlantId: string;
     FIsExport: Boolean;
+    FWegwerpPallet: Boolean;
+    FMeerdereToeleveringen: Boolean;
   public
     destructor Destroy; override;
   published
-    property Header:   RequestHeader  read FHeader write FHeader;
-    property Actie:    string         read FActie write FActie;
-    property KlantId:  string         read FKlantId write FKlantId;
-    property IsExport: Boolean        read FIsExport write FIsExport;
+    property Header:                RequestHeader  read FHeader write FHeader;
+    property Actie:                 string         read FActie write FActie;
+    property KlantId:               string         read FKlantId write FKlantId;
+    property IsExport:              Boolean        read FIsExport write FIsExport;
+    property WegwerpPallet:         Boolean        read FWegwerpPallet write FWegwerpPallet;
+    property MeerdereToeleveringen: Boolean        read FMeerdereToeleveringen write FMeerdereToeleveringen;
   end;
 
 
@@ -240,6 +276,22 @@
 
 
   // ************************************************************************ //
+  // XML       : ResponseHeader, global, <complexType>
+  // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
+  // ************************************************************************ //
+  ResponseHeader = class(TRemotable)
+  private
+    FStatus: String_;
+    FOmschrijving: String_;
+  published
+    property Status:       String_  read FStatus write FStatus;
+    property Omschrijving: String_  read FOmschrijving write FOmschrijving;
+  end;
+
+  ArrayOfKlantinstellingenKlantinstellingen = array of Klantinstellingen;   { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+
+
+  // ************************************************************************ //
   // XML       : DataTransferObject, global, <complexType>
   // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
   // ************************************************************************ //
@@ -349,47 +401,6 @@
 
 
   // ************************************************************************ //
-  // XML       : ResponseHeader, global, <complexType>
-  // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
-  // ************************************************************************ //
-  ResponseHeader = class(TRemotable)
-  private
-    FStatus: String_;
-    FOmschrijving: String_;
-  published
-    property Status:       String_  read FStatus write FStatus;
-    property Omschrijving: String_  read FOmschrijving write FOmschrijving;
-  end;
-
-
-
-  // ************************************************************************ //
-  // XML       : Klantinstellingen, global, <complexType>
-  // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
-  // ************************************************************************ //
-  Klantinstellingen = class(DataTransferObject)
-  private
-    FKlantId: string;
-    FKlantId_Specified: boolean;
-    FKlantnaam: string;
-    FKlantnaam_Specified: boolean;
-    FIsExport: Boolean;
-    FIsExport_Specified: boolean;
-    procedure SetKlantId(Index: Integer; const Astring: string);
-    function  KlantId_Specified(Index: Integer): boolean;
-    procedure SetKlantnaam(Index: Integer; const Astring: string);
-    function  Klantnaam_Specified(Index: Integer): boolean;
-    procedure SetIsExport(Index: Integer; const ABoolean: Boolean);
-    function  IsExport_Specified(Index: Integer): boolean;
-  published
-    property KlantId:   string   Index (IS_OPTN) read FKlantId write SetKlantId stored KlantId_Specified;
-    property Klantnaam: string   Index (IS_OPTN) read FKlantnaam write SetKlantnaam stored Klantnaam_Specified;
-    property IsExport:  Boolean  Index (IS_OPTN) read FIsExport write SetIsExport stored IsExport_Specified;
-  end;
-
-
-
-  // ************************************************************************ //
   // XML       : GeneriekeResponse, global, <complexType>
   // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
   // ************************************************************************ //
@@ -436,6 +447,24 @@
 
 
   // ************************************************************************ //
+  // XML       : HernoemPalletResponse, global, <complexType>
+  // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
+  // ************************************************************************ //
+  HernoemPalletResponse = class(GeneriekeResponse)
+  private
+    FDnaCodes: ArrayOfDnaCodeDnaCode;
+    FDnaCodes_Specified: boolean;
+    procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
+    function  DnaCodes_Specified(Index: Integer): boolean;
+  public
+    destructor Destroy; override;
+  published
+    property DnaCodes: ArrayOfDnaCodeDnaCode  Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified;
+  end;
+
+
+
+  // ************************************************************************ //
   // XML       : DnaCodeAfmeldenResponse, global, <complexType>
   // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
   // ************************************************************************ //
@@ -447,18 +476,23 @@
     FAantalReedsGescand_Specified: boolean;
     FDnaCodes: ArrayOfDnaCodeDnaCode;
     FDnaCodes_Specified: boolean;
+    FInterneVhossKastId: string;
+    FInterneVhossKastId_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;
+    procedure SetInterneVhossKastId(Index: Integer; const Astring: string);
+    function  InterneVhossKastId_Specified(Index: Integer): boolean;
   public
     destructor Destroy; override;
   published
     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;
+    property InterneVhossKastId:  string                 Index (IS_OPTN) read FInterneVhossKastId write SetInterneVhossKastId stored InterneVhossKastId_Specified;
   end;
 
 
@@ -564,6 +598,87 @@
 
 
   // ************************************************************************ //
+  // XML       : Klantinstellingen, global, <complexType>
+  // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
+  // ************************************************************************ //
+  Klantinstellingen = class(DataTransferObject)
+  private
+    FKlantId: string;
+    FKlantId_Specified: boolean;
+    FKlantnaam: string;
+    FKlantnaam_Specified: boolean;
+    FIsExport: Boolean;
+    FIsExport_Specified: boolean;
+    FWegwerpPallet: Boolean;
+    FWegwerpPallet_Specified: boolean;
+    FMeerdereToeleveringen: Boolean;
+    FMeerdereToeleveringen_Specified: boolean;
+    procedure SetKlantId(Index: Integer; const Astring: string);
+    function  KlantId_Specified(Index: Integer): boolean;
+    procedure SetKlantnaam(Index: Integer; const Astring: string);
+    function  Klantnaam_Specified(Index: Integer): boolean;
+    procedure SetIsExport(Index: Integer; const ABoolean: Boolean);
+    function  IsExport_Specified(Index: Integer): boolean;
+    procedure SetWegwerpPallet(Index: Integer; const ABoolean: Boolean);
+    function  WegwerpPallet_Specified(Index: Integer): boolean;
+    procedure SetMeerdereToeleveringen(Index: Integer; const ABoolean: Boolean);
+    function  MeerdereToeleveringen_Specified(Index: Integer): boolean;
+  published
+    property KlantId:               string   Index (IS_OPTN) read FKlantId write SetKlantId stored KlantId_Specified;
+    property Klantnaam:             string   Index (IS_OPTN) read FKlantnaam write SetKlantnaam stored Klantnaam_Specified;
+    property IsExport:              Boolean  Index (IS_OPTN) read FIsExport write SetIsExport stored IsExport_Specified;
+    property WegwerpPallet:         Boolean  Index (IS_OPTN) read FWegwerpPallet write SetWegwerpPallet stored WegwerpPallet_Specified;
+    property MeerdereToeleveringen: Boolean  Index (IS_OPTN) read FMeerdereToeleveringen write SetMeerdereToeleveringen stored MeerdereToeleveringen_Specified;
+  end;
+
+
+
+  // ************************************************************************ //
+  // XML       : ValideerPalletCodeResponse, global, <complexType>
+  // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
+  // ************************************************************************ //
+  ValideerPalletCodeResponse = class(GeneriekeResponse)
+  private
+  published
+  end;
+
+
+
+  // ************************************************************************ //
+  // XML       : ZoekAlleDnaCodesDieOpVhossMoetenRequest, global, <complexType>
+  // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
+  // ************************************************************************ //
+  ZoekAlleDnaCodesDieOpVhossMoetenRequest = class(TRemotable)
+  private
+    FHeader: RequestHeader;
+    FFrameId: string;
+  public
+    destructor Destroy; override;
+  published
+    property Header:  RequestHeader  read FHeader write FHeader;
+    property FrameId: string         read FFrameId write FFrameId;
+  end;
+
+
+
+  // ************************************************************************ //
+  // XML       : ValideerPalletCodeRequest, global, <complexType>
+  // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
+  // ************************************************************************ //
+  ValideerPalletCodeRequest = class(TRemotable)
+  private
+    FHeader: RequestHeader;
+    FPalletCode: string;
+  public
+    destructor Destroy; override;
+  published
+    property Header:     RequestHeader  read FHeader write FHeader;
+    property PalletCode: string         read FPalletCode write FPalletCode;
+  end;
+
+
+
+  // ************************************************************************ //
   // XML       : ToeleveringBijwerkenRequest, global, <complexType>
   // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
   // ************************************************************************ //
@@ -593,54 +708,27 @@
   published
   end;
 
-  ArrayOfToeleveringMetAantallenToeleveringMetAantallen = array of ToeleveringMetAantallen;   { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
 
 
   // ************************************************************************ //
-  // XML       : RondAfKaderdeurDagResponse, global, <complexType>
+  // XML       : ZoekAlleDnaCodesDieOpVhossMoetenResponse, global, <complexType>
   // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
   // ************************************************************************ //
-  RondAfKaderdeurDagResponse = class(GeneriekeResponse)
+  ZoekAlleDnaCodesDieOpVhossMoetenResponse = class(GeneriekeResponse)
   private
-    FToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen;
-    FToeleveringMetAantallen_Specified: boolean;
-    procedure SetToeleveringMetAantallen(Index: Integer; const AArrayOfToeleveringMetAantallenToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen);
-    function  ToeleveringMetAantallen_Specified(Index: Integer): boolean;
+    FDnaCodes: ArrayOfDnaCodeDnaCode;
+    FDnaCodes_Specified: boolean;
+    procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
+    function  DnaCodes_Specified(Index: Integer): boolean;
   public
     destructor Destroy; override;
   published
-    property ToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen  Index (IS_OPTN or IS_UNBD or IS_NLBL) read FToeleveringMetAantallen write SetToeleveringMetAantallen stored ToeleveringMetAantallen_Specified;
+    property DnaCodes: ArrayOfDnaCodeDnaCode  Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified;
   end;
 
 
 
   // ************************************************************************ //
-  // XML       : ToeleveringMetAantallen, global, <complexType>
-  // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
-  // ************************************************************************ //
-  ToeleveringMetAantallen = class(DataTransferObject)
-  private
-    FToeleveringID: string;
-    FToeleveringID_Specified: boolean;
-    FAantalKaderdeuren: string;
-    FAantalKaderdeuren_Specified: boolean;
-    FAantalKaderdeurenGescand: string;
-    FAantalKaderdeurenGescand_Specified: boolean;
-    procedure SetToeleveringID(Index: Integer; const Astring: string);
-    function  ToeleveringID_Specified(Index: Integer): boolean;
-    procedure SetAantalKaderdeuren(Index: Integer; const Astring: string);
-    function  AantalKaderdeuren_Specified(Index: Integer): boolean;
-    procedure SetAantalKaderdeurenGescand(Index: Integer; const Astring: string);
-    function  AantalKaderdeurenGescand_Specified(Index: Integer): boolean;
-  published
-    property ToeleveringID:            string  Index (IS_OPTN) read FToeleveringID write SetToeleveringID stored ToeleveringID_Specified;
-    property AantalKaderdeuren:        string  Index (IS_OPTN) read FAantalKaderdeuren write SetAantalKaderdeuren stored AantalKaderdeuren_Specified;
-    property AantalKaderdeurenGescand: string  Index (IS_OPTN) read FAantalKaderdeurenGescand write SetAantalKaderdeurenGescand stored AantalKaderdeurenGescand_Specified;
-  end;
-
-
-
-  // ************************************************************************ //
   // XML       : ZoekViaDnaCodeResponse, global, <complexType>
   // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
   // ************************************************************************ //
@@ -693,42 +781,52 @@
 
 
   // ************************************************************************ //
-  // XML       : ValideerPalletCodeRequest, global, <complexType>
+  // XML       : ZoekAlleVhossLadesBijDnaCodeRequest, global, <complexType>
   // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
   // ************************************************************************ //
-  ValideerPalletCodeRequest = class(TRemotable)
+  ZoekAlleVhossLadesBijDnaCodeRequest = class(TRemotable)
   private
     FHeader: RequestHeader;
-    FPalletCode: string;
+    FDnaCode: string;
+    FGuiVhossVolgnummer: string;
+    FGuiVhossVolgnummer_Specified: boolean;
+    procedure SetGuiVhossVolgnummer(Index: Integer; const Astring: string);
+    function  GuiVhossVolgnummer_Specified(Index: Integer): boolean;
   public
     destructor Destroy; override;
   published
-    property Header:     RequestHeader  read FHeader write FHeader;
-    property PalletCode: string         read FPalletCode write FPalletCode;
+    property Header:             RequestHeader  read FHeader write FHeader;
+    property DnaCode:            string         read FDnaCode write FDnaCode;
+    property GuiVhossVolgnummer: string         Index (IS_OPTN) read FGuiVhossVolgnummer write SetGuiVhossVolgnummer stored GuiVhossVolgnummer_Specified;
   end;
 
 
 
   // ************************************************************************ //
-  // XML       : ValideerPalletCodeResponse, global, <complexType>
+  // XML       : ZoekAlleVhossLadesBijDnaCodeResponse, global, <complexType>
   // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
   // ************************************************************************ //
-  ValideerPalletCodeResponse = class(GeneriekeResponse)
+  ZoekAlleVhossLadesBijDnaCodeResponse = class(GeneriekeResponse)
   private
+    FDnaCodes: ArrayOfDnaCodeDnaCode;
+    FDnaCodes_Specified: boolean;
+    procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
+    function  DnaCodes_Specified(Index: Integer): boolean;
+  public
+    destructor Destroy; override;
   published
+    property DnaCodes: ArrayOfDnaCodeDnaCode  Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified;
   end;
 
 
 
   // ************************************************************************ //
-  // XML       : DirecteLeveringResponse, global, <complexType>
+  // XML       : PalletBijwerkenResponse, global, <complexType>
   // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
   // ************************************************************************ //
-  DirecteLeveringResponse = class(GeneriekeResponse)
+  PalletBijwerkenResponse = class(GeneriekeResponse)
   private
-    FIsDirecteLevering: Boolean;
   published
-    property IsDirecteLevering: Boolean  read FIsDirecteLevering write FIsDirecteLevering;
   end;
 
 
@@ -772,100 +870,105 @@
 
 
   // ************************************************************************ //
-  // XML       : HernoemPalletRequest, global, <complexType>
+  // XML       : DirecteLeveringResponse, global, <complexType>
   // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
   // ************************************************************************ //
-  HernoemPalletRequest = class(TRemotable)
+  DirecteLeveringResponse = class(GeneriekeResponse)
   private
-    FHeader: RequestHeader;
-    FOudeCode: string;
-    FNieuweCode: string;
-    FEnkelDezeDnaCode: string;
-    FEnkelDezeDnaCode_Specified: boolean;
-    procedure SetEnkelDezeDnaCode(Index: Integer; const Astring: string);
-    function  EnkelDezeDnaCode_Specified(Index: Integer): boolean;
-  public
-    destructor Destroy; override;
+    FIsDirecteLevering: Boolean;
   published
-    property Header:           RequestHeader  read FHeader write FHeader;
-    property OudeCode:         string         read FOudeCode write FOudeCode;
-    property NieuweCode:       string         read FNieuweCode write FNieuweCode;
-    property EnkelDezeDnaCode: string         Index (IS_OPTN) read FEnkelDezeDnaCode write SetEnkelDezeDnaCode stored EnkelDezeDnaCode_Specified;
+    property IsDirecteLevering: Boolean  read FIsDirecteLevering write FIsDirecteLevering;
   end;
 
+  ArrayOfStringString = array of String_;       { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
 
 
   // ************************************************************************ //
-  // XML       : HernoemPalletResponse, global, <complexType>
+  // XML       : ProboxEtiketAfdrukkenRequest, global, <complexType>
   // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
   // ************************************************************************ //
-  HernoemPalletResponse = class(GeneriekeResponse)
+  ProboxEtiketAfdrukkenRequest = class(TRemotable)
   private
-    FDnaCodes: ArrayOfDnaCodeDnaCode;
-    FDnaCodes_Specified: boolean;
-    procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
-    function  DnaCodes_Specified(Index: Integer): boolean;
+    FHeader: RequestHeader;
+    FDnaCodes: ArrayOfStringString;
   public
     destructor Destroy; override;
   published
-    property DnaCodes: ArrayOfDnaCodeDnaCode  Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified;
+    property Header:   RequestHeader        read FHeader write FHeader;
+    property DnaCodes: ArrayOfStringString  Index (IS_UNBD) read FDnaCodes write FDnaCodes;
   end;
 
 
 
   // ************************************************************************ //
-  // XML       : ProboxEtiketAfdrukkenResponse, global, <complexType>
+  // XML       : ToeleveringMetAantallen, global, <complexType>
   // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
   // ************************************************************************ //
-  ProboxEtiketAfdrukkenResponse = class(GeneriekeResponse)
+  ToeleveringMetAantallen = class(DataTransferObject)
   private
+    FToeleveringID: string;
+    FToeleveringID_Specified: boolean;
+    FAantalKaderdeuren: string;
+    FAantalKaderdeuren_Specified: boolean;
+    FAantalKaderdeurenGescand: string;
+    FAantalKaderdeurenGescand_Specified: boolean;
+    procedure SetToeleveringID(Index: Integer; const Astring: string);
+    function  ToeleveringID_Specified(Index: Integer): boolean;
+    procedure SetAantalKaderdeuren(Index: Integer; const Astring: string);
+    function  AantalKaderdeuren_Specified(Index: Integer): boolean;
+    procedure SetAantalKaderdeurenGescand(Index: Integer; const Astring: string);
+    function  AantalKaderdeurenGescand_Specified(Index: Integer): boolean;
   published
+    property ToeleveringID:            string  Index (IS_OPTN) read FToeleveringID write SetToeleveringID stored ToeleveringID_Specified;
+    property AantalKaderdeuren:        string  Index (IS_OPTN) read FAantalKaderdeuren write SetAantalKaderdeuren stored AantalKaderdeuren_Specified;
+    property AantalKaderdeurenGescand: string  Index (IS_OPTN) read FAantalKaderdeurenGescand write SetAantalKaderdeurenGescand stored AantalKaderdeurenGescand_Specified;
   end;
 
+  ArrayOfToeleveringMetAantallenToeleveringMetAantallen = array of ToeleveringMetAantallen;   { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
 
 
   // ************************************************************************ //
-  // XML       : RondAfKaderdeurDagRequest, global, <complexType>
+  // XML       : RondAfKaderdeurDagResponse, global, <complexType>
   // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
   // ************************************************************************ //
-  RondAfKaderdeurDagRequest = class(TRemotable)
+  RondAfKaderdeurDagResponse = class(GeneriekeResponse)
   private
-    FHeader: RequestHeader;
-    FDnaCode: String_;
+    FToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen;
+    FToeleveringMetAantallen_Specified: boolean;
+    procedure SetToeleveringMetAantallen(Index: Integer; const AArrayOfToeleveringMetAantallenToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen);
+    function  ToeleveringMetAantallen_Specified(Index: Integer): boolean;
   public
     destructor Destroy; override;
   published
-    property Header:  RequestHeader  read FHeader write FHeader;
-    property DnaCode: String_        read FDnaCode write FDnaCode;
+    property ToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen  Index (IS_OPTN or IS_UNBD or IS_NLBL) read FToeleveringMetAantallen write SetToeleveringMetAantallen stored ToeleveringMetAantallen_Specified;
   end;
 
-  ArrayOfStringString = array of String_;       { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
 
 
   // ************************************************************************ //
-  // XML       : PalletBijwerkenResponse, global, <complexType>
+  // XML       : ProboxEtiketAfdrukkenResponse, global, <complexType>
   // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
   // ************************************************************************ //
-  PalletBijwerkenResponse = class(GeneriekeResponse)
+  ProboxEtiketAfdrukkenResponse = class(GeneriekeResponse)
   private
   published
   end;
 
 
 
   // ************************************************************************ //
-  // XML       : ProboxEtiketAfdrukkenRequest, global, <complexType>
+  // XML       : RondAfKaderdeurDagRequest, global, <complexType>
   // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
   // ************************************************************************ //
-  ProboxEtiketAfdrukkenRequest = class(TRemotable)
+  RondAfKaderdeurDagRequest = class(TRemotable)
   private
     FHeader: RequestHeader;
-    FDnaCodes: ArrayOfStringString;
+    FDnaCode: String_;
   public
     destructor Destroy; override;
   published
-    property Header:   RequestHeader        read FHeader write FHeader;
-    property DnaCodes: ArrayOfStringString  Index (IS_UNBD) read FDnaCodes write FDnaCodes;
+    property Header:  RequestHeader  read FHeader write FHeader;
+    property DnaCode: String_        read FDnaCode write FDnaCode;
   end;
 
 
@@ -892,11 +995,13 @@
     function  RondAfKaderdeurDag(const RondAfKaderdeurDagRequest: RondAfKaderdeurDagRequest): RondAfKaderdeurDagResponse; stdcall;
     function  ToeleveringBijwerken(const ToeleveringBijwerkenRequest: ToeleveringBijwerkenRequest): ToeleveringBijwerkenResponse; stdcall;
     function  ValideerPalletCode(const ValideerPalletCodeRequest: ValideerPalletCodeRequest): ValideerPalletCodeResponse; stdcall;
+    function  ZoekAlleDnaCodesDieOpVhossMoeten(const ZoekAlleDnaCodesDieOpVhossMoetenRequest: ZoekAlleDnaCodesDieOpVhossMoetenRequest): ZoekAlleDnaCodesDieOpVhossMoetenResponse; stdcall;
+    function  ZoekAlleVhossLadesBijDnaCode(const ZoekAlleVhossLadesBijDnaCode: ZoekAlleVhossLadesBijDnaCodeRequest): ZoekAlleVhossLadesBijDnaCodeResponse; stdcall;
     function  ZoekViaDnaCode(const ZoekViaDnaCodeRequest: ZoekViaDnaCodeRequest): ZoekViaDnaCodeResponse; stdcall;
     function  ZoekViaKlantnummer(const ZoekViaKlantnummerRequest: ZoekViaKlantnummerRequest): ZoekViaKlantnummerResponse; stdcall;
     function  ZoekViaLadecode(const ZoekViaLadecodeRequest: ZoekViaLadecodeRequest): ZoekViaLadecodeResponse; stdcall;
     function  ZoekViaOrdernummer(const ZoekViaOrdernummerRequest: ZoekViaOrdernummerRequest): ZoekViaOrdernummerResponse; stdcall;
-    function  ZoekViaPalletCode(const ZoakViaPalletCodeRequest: ZoekViaPalletCodeRequest): ZoekViaPalletCodeResponse; stdcall;
+    function  ZoekViaPalletCode(const ZoekViaPalletCodeRequest: ZoekViaPalletCodeRequest): ZoekViaPalletCodeResponse; stdcall;
     function  ZoekViaToelevering(const ZoekViaToeleveringRequest: ZoekViaToeleveringRequest): ZoekViaToeleveringResponse; stdcall;
   end;
 
@@ -949,6 +1054,23 @@
   inherited Destroy;
 end;
 
+destructor HernoemPalletRequest.Destroy;
+begin
+  SysUtils.FreeAndNil(FHeader);
+  inherited Destroy;
+end;
+
+procedure HernoemPalletRequest.SetEnkelDezeDnaCode(Index: Integer; const Astring: string);
+begin
+  FEnkelDezeDnaCode := Astring;
+  FEnkelDezeDnaCode_Specified := True;
+end;
+
+function HernoemPalletRequest.EnkelDezeDnaCode_Specified(Index: Integer): boolean;
+begin
+  Result := FEnkelDezeDnaCode_Specified;
+end;
+
 destructor DnaCodeAfmeldenRequest.Destroy;
 begin
   SysUtils.FreeAndNil(FHeader);
@@ -988,6 +1110,17 @@
   Result := FLocatie_Specified;
 end;
 
+procedure DnaCodeAfmeldenRequest.SetGuiVhossVolgnummer(Index: Integer; const Astring: string);
+begin
+  FGuiVhossVolgnummer := Astring;
+  FGuiVhossVolgnummer_Specified := True;
+end;
+
+function DnaCodeAfmeldenRequest.GuiVhossVolgnummer_Specified(Index: Integer): boolean;
+begin
+  Result := FGuiVhossVolgnummer_Specified;
+end;
+
 destructor ZoekViaPalletCodeRequest.Destroy;
 begin
   SysUtils.FreeAndNil(FHeader);
@@ -1211,39 +1344,6 @@
   Result := FBatchId_Specified;
 end;
 
-procedure Klantinstellingen.SetKlantId(Index: Integer; const Astring: string);
-begin
-  FKlantId := Astring;
-  FKlantId_Specified := True;
-end;
-
-function Klantinstellingen.KlantId_Specified(Index: Integer): boolean;
-begin
-  Result := FKlantId_Specified;
-end;
-
-procedure Klantinstellingen.SetKlantnaam(Index: Integer; const Astring: string);
-begin
-  FKlantnaam := Astring;
-  FKlantnaam_Specified := True;
-end;
-
-function Klantinstellingen.Klantnaam_Specified(Index: Integer): boolean;
-begin
-  Result := FKlantnaam_Specified;
-end;
-
-procedure Klantinstellingen.SetIsExport(Index: Integer; const ABoolean: Boolean);
-begin
-  FIsExport := ABoolean;
-  FIsExport_Specified := True;
-end;
-
-function Klantinstellingen.IsExport_Specified(Index: Integer): boolean;
-begin
-  Result := FIsExport_Specified;
-end;
-
 destructor GeneriekeResponse.Destroy;
 begin
   SysUtils.FreeAndNil(FHeader);
@@ -1271,6 +1371,27 @@
   Result := FKlantinstellingen_Specified;
 end;
 
+destructor HernoemPalletResponse.Destroy;
+var
+  I: Integer;
+begin
+  for I := 0 to System.Length(FDnaCodes)-1 do
+    SysUtils.FreeAndNil(FDnaCodes[I]);
+  System.SetLength(FDnaCodes, 0);
+  inherited Destroy;
+end;
+
+procedure HernoemPalletResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
+begin
+  FDnaCodes := AArrayOfDnaCodeDnaCode;
+  FDnaCodes_Specified := True;
+end;
+
+function HernoemPalletResponse.DnaCodes_Specified(Index: Integer): boolean;
+begin
+  Result := FDnaCodes_Specified;
+end;
+
 destructor DnaCodeAfmeldenResponse.Destroy;
 var
   I: Integer;
@@ -1314,6 +1435,17 @@
   Result := FDnaCodes_Specified;
 end;
 
+procedure DnaCodeAfmeldenResponse.SetInterneVhossKastId(Index: Integer; const Astring: string);
+begin
+  FInterneVhossKastId := Astring;
+  FInterneVhossKastId_Specified := True;
+end;
+
+function DnaCodeAfmeldenResponse.InterneVhossKastId_Specified(Index: Integer): boolean;
+begin
+  Result := FInterneVhossKastId_Specified;
+end;
+
 destructor ZoekViaKlantnummerResponse.Destroy;
 var
   I: Integer;
@@ -1441,66 +1573,100 @@
   Result := FDnaCodes_Specified;
 end;
 
-destructor ToeleveringBijwerkenRequest.Destroy;
+procedure Klantinstellingen.SetKlantId(Index: Integer; const Astring: string);
 begin
-  SysUtils.FreeAndNil(FHeader);
-  inherited Destroy;
+  FKlantId := Astring;
+  FKlantId_Specified := True;
 end;
 
-destructor RondAfKaderdeurDagResponse.Destroy;
-var
-  I: Integer;
+function Klantinstellingen.KlantId_Specified(Index: Integer): boolean;
 begin
-  for I := 0 to System.Length(FToeleveringMetAantallen)-1 do
-    SysUtils.FreeAndNil(FToeleveringMetAantallen[I]);
-  System.SetLength(FToeleveringMetAantallen, 0);
-  inherited Destroy;
+  Result := FKlantId_Specified;
 end;
 
-procedure RondAfKaderdeurDagResponse.SetToeleveringMetAantallen(Index: Integer; const AArrayOfToeleveringMetAantallenToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen);
+procedure Klantinstellingen.SetKlantnaam(Index: Integer; const Astring: string);
 begin
-  FToeleveringMetAantallen := AArrayOfToeleveringMetAantallenToeleveringMetAantallen;
-  FToeleveringMetAantallen_Specified := True;
+  FKlantnaam := Astring;
+  FKlantnaam_Specified := True;
 end;
 
-function RondAfKaderdeurDagResponse.ToeleveringMetAantallen_Specified(Index: Integer): boolean;
+function Klantinstellingen.Klantnaam_Specified(Index: Integer): boolean;
 begin
-  Result := FToeleveringMetAantallen_Specified;
+  Result := FKlantnaam_Specified;
 end;
 
-procedure ToeleveringMetAantallen.SetToeleveringID(Index: Integer; const Astring: string);
+procedure Klantinstellingen.SetIsExport(Index: Integer; const ABoolean: Boolean);
 begin
-  FToeleveringID := Astring;
-  FToeleveringID_Specified := True;
+  FIsExport := ABoolean;
+  FIsExport_Specified := True;
 end;
 
-function ToeleveringMetAantallen.ToeleveringID_Specified(Index: Integer): boolean;
+function Klantinstellingen.IsExport_Specified(Index: Integer): boolean;
 begin
-  Result := FToeleveringID_Specified;
+  Result := FIsExport_Specified;
 end;
 
-procedure ToeleveringMetAantallen.SetAantalKaderdeuren(Index: Integer; const Astring: string);
+procedure Klantinstellingen.SetWegwerpPallet(Index: Integer; const ABoolean: Boolean);
 begin
-  FAantalKaderdeuren := Astring;
-  FAantalKaderdeuren_Specified := True;
+  FWegwerpPallet := ABoolean;
+  FWegwerpPallet_Specified := True;
 end;
 
-function ToeleveringMetAantallen.AantalKaderdeuren_Specified(Index: Integer): boolean;
+function Klantinstellingen.WegwerpPallet_Specified(Index: Integer): boolean;
 begin
-  Result := FAantalKaderdeuren_Specified;
+  Result := FWegwerpPallet_Specified;
 end;
 
-procedure ToeleveringMetAantallen.SetAantalKaderdeurenGescand(Index: Integer; const Astring: string);
+procedure Klantinstellingen.SetMeerdereToeleveringen(Index: Integer; const ABoolean: Boolean);
 begin
-  FAantalKaderdeurenGescand := Astring;
-  FAantalKaderdeurenGescand_Specified := True;
+  FMeerdereToeleveringen := ABoolean;
+  FMeerdereToeleveringen_Specified := True;
 end;
 
-function ToeleveringMetAantallen.AantalKaderdeurenGescand_Specified(Index: Integer): boolean;
+function Klantinstellingen.MeerdereToeleveringen_Specified(Index: Integer): boolean;
 begin
-  Result := FAantalKaderdeurenGescand_Specified;
+  Result := FMeerdereToeleveringen_Specified;
 end;
 
+destructor ZoekAlleDnaCodesDieOpVhossMoetenRequest.Destroy;
+begin
+  SysUtils.FreeAndNil(FHeader);
+  inherited Destroy;
+end;
+
+destructor ValideerPalletCodeRequest.Destroy;
+begin
+  SysUtils.FreeAndNil(FHeader);
+  inherited Destroy;
+end;
+
+destructor ToeleveringBijwerkenRequest.Destroy;
+begin
+  SysUtils.FreeAndNil(FHeader);
+  inherited Destroy;
+end;
+
+destructor ZoekAlleDnaCodesDieOpVhossMoetenResponse.Destroy;
+var
+  I: Integer;
+begin
+  for I := 0 to System.Length(FDnaCodes)-1 do
+    SysUtils.FreeAndNil(FDnaCodes[I]);
+  System.SetLength(FDnaCodes, 0);
+  inherited Destroy;
+end;
+
+procedure ZoekAlleDnaCodesDieOpVhossMoetenResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
+begin
+  FDnaCodes := AArrayOfDnaCodeDnaCode;
+  FDnaCodes_Specified := True;
+end;
+
+function ZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes_Specified(Index: Integer): boolean;
+begin
+  Result := FDnaCodes_Specified;
+end;
+
 destructor ZoekViaDnaCodeResponse.Destroy;
 begin
   SysUtils.FreeAndNil(FDnaCodes);
@@ -1530,12 +1696,44 @@
   inherited Destroy;
 end;
 
-destructor ValideerPalletCodeRequest.Destroy;
+destructor ZoekAlleVhossLadesBijDnaCodeRequest.Destroy;
 begin
   SysUtils.FreeAndNil(FHeader);
   inherited Destroy;
 end;
 
+procedure ZoekAlleVhossLadesBijDnaCodeRequest.SetGuiVhossVolgnummer(Index: Integer; const Astring: string);
+begin
+  FGuiVhossVolgnummer := Astring;
+  FGuiVhossVolgnummer_Specified := True;
+end;
+
+function ZoekAlleVhossLadesBijDnaCodeRequest.GuiVhossVolgnummer_Specified(Index: Integer): boolean;
+begin
+  Result := FGuiVhossVolgnummer_Specified;
+end;
+
+destructor ZoekAlleVhossLadesBijDnaCodeResponse.Destroy;
+var
+  I: Integer;
+begin
+  for I := 0 to System.Length(FDnaCodes)-1 do
+    SysUtils.FreeAndNil(FDnaCodes[I]);
+  System.SetLength(FDnaCodes, 0);
+  inherited Destroy;
+end;
+
+procedure ZoekAlleVhossLadesBijDnaCodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
+begin
+  FDnaCodes := AArrayOfDnaCodeDnaCode;
+  FDnaCodes_Specified := True;
+end;
+
+function ZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes_Specified(Index: Integer): boolean;
+begin
+  Result := FDnaCodes_Specified;
+end;
+
 destructor PalletBijwerkenRequest.Destroy;
 begin
   SysUtils.FreeAndNil(FHeader);
@@ -1548,42 +1746,64 @@
   inherited Destroy;
 end;
 
-destructor HernoemPalletRequest.Destroy;
+destructor ProboxEtiketAfdrukkenRequest.Destroy;
 begin
   SysUtils.FreeAndNil(FHeader);
   inherited Destroy;
 end;
 
-procedure HernoemPalletRequest.SetEnkelDezeDnaCode(Index: Integer; const Astring: string);
+procedure ToeleveringMetAantallen.SetToeleveringID(Index: Integer; const Astring: string);
 begin
-  FEnkelDezeDnaCode := Astring;
-  FEnkelDezeDnaCode_Specified := True;
+  FToeleveringID := Astring;
+  FToeleveringID_Specified := True;
 end;
 
-function HernoemPalletRequest.EnkelDezeDnaCode_Specified(Index: Integer): boolean;
+function ToeleveringMetAantallen.ToeleveringID_Specified(Index: Integer): boolean;
 begin
-  Result := FEnkelDezeDnaCode_Specified;
+  Result := FToeleveringID_Specified;
 end;
 
-destructor HernoemPalletResponse.Destroy;
+procedure ToeleveringMetAantallen.SetAantalKaderdeuren(Index: Integer; const Astring: string);
+begin
+  FAantalKaderdeuren := Astring;
+  FAantalKaderdeuren_Specified := True;
+end;
+
+function ToeleveringMetAantallen.AantalKaderdeuren_Specified(Index: Integer): boolean;
+begin
+  Result := FAantalKaderdeuren_Specified;
+end;
+
+procedure ToeleveringMetAantallen.SetAantalKaderdeurenGescand(Index: Integer; const Astring: string);
+begin
+  FAantalKaderdeurenGescand := Astring;
+  FAantalKaderdeurenGescand_Specified := True;
+end;
+
+function ToeleveringMetAantallen.AantalKaderdeurenGescand_Specified(Index: Integer): boolean;
+begin
+  Result := FAantalKaderdeurenGescand_Specified;
+end;
+
+destructor RondAfKaderdeurDagResponse.Destroy;
 var
   I: Integer;
 begin
-  for I := 0 to System.Length(FDnaCodes)-1 do
-    SysUtils.FreeAndNil(FDnaCodes[I]);
-  System.SetLength(FDnaCodes, 0);
+  for I := 0 to System.Length(FToeleveringMetAantallen)-1 do
+    SysUtils.FreeAndNil(FToeleveringMetAantallen[I]);
+  System.SetLength(FToeleveringMetAantallen, 0);
   inherited Destroy;
 end;
 
-procedure HernoemPalletResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
+procedure RondAfKaderdeurDagResponse.SetToeleveringMetAantallen(Index: Integer; const AArrayOfToeleveringMetAantallenToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen);
 begin
-  FDnaCodes := AArrayOfDnaCodeDnaCode;
-  FDnaCodes_Specified := True;
+  FToeleveringMetAantallen := AArrayOfToeleveringMetAantallenToeleveringMetAantallen;
+  FToeleveringMetAantallen_Specified := True;
 end;
 
-function HernoemPalletResponse.DnaCodes_Specified(Index: Integer): boolean;
+function RondAfKaderdeurDagResponse.ToeleveringMetAantallen_Specified(Index: Integer): boolean;
 begin
-  Result := FDnaCodes_Specified;
+  Result := FToeleveringMetAantallen_Specified;
 end;
 
 destructor RondAfKaderdeurDagRequest.Destroy;
@@ -1592,12 +1812,6 @@
   inherited Destroy;
 end;
 
-destructor ProboxEtiketAfdrukkenRequest.Destroy;
-begin
-  SysUtils.FreeAndNil(FHeader);
-  inherited Destroy;
-end;
-
 initialization
   { DnaCodeServiceSoap }
   InvRegistry.RegisterInterface(TypeInfo(DnaCodeServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'UTF-8');
@@ -1633,6 +1847,12 @@
   { DnaCodeServiceSoap.ValideerPalletCode }
   InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ValideerPalletCode', '',
                                  '[ReturnName="ValideerPalletCodeResult"]');
+  { DnaCodeServiceSoap.ZoekAlleDnaCodesDieOpVhossMoeten }
+  InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekAlleDnaCodesDieOpVhossMoeten', '',
+                                 '[ReturnName="ZoekAlleDnaCodesDieOpVhossMoetenResult"]');
+  { DnaCodeServiceSoap.ZoekAlleVhossLadesBijDnaCode }
+  InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekAlleVhossLadesBijDnaCode', '',
+                                 '[ReturnName="ZoekAlleVhossLadesBijDnaCodeResult"]');
   { DnaCodeServiceSoap.ZoekViaDnaCode }
   InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaDnaCode', '',
                                  '[ReturnName="ZoekViaDnaCodeResult"]');
@@ -1651,26 +1871,28 @@
   { DnaCodeServiceSoap.ZoekViaToelevering }
   InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaToelevering', '',
                                  '[ReturnName="ZoekViaToeleveringResult"]');
-  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfKlantinstellingenKlantinstellingen), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfKlantinstellingenKlantinstellingen');
-  RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeRequest');
-  RemClassRegistry.RegisterXSInfo(TypeInfo(DnaCodeStatus), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeStatus');
   RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfDnaCodeDnaCode), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfDnaCodeDnaCode');
+  RemClassRegistry.RegisterXSInfo(TypeInfo(DnaCodeStatus), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeStatus');
+  RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeRequest');
   RemClassRegistry.RegisterXSInfo(TypeInfo(String_), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'String_', 'String');
+  RemClassRegistry.RegisterXSClass(HernoemPalletRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletRequest');
   RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenRequest');
   RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeRequest');
   RemClassRegistry.RegisterXSClass(ZoekViaToeleveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaToeleveringRequest');
   RemClassRegistry.RegisterXSClass(ZoekViaLadecodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaLadecodeRequest');
   RemClassRegistry.RegisterXSClass(ZoekViaOrdernummerRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaOrdernummerRequest');
   RemClassRegistry.RegisterXSClass(BewerkKlantinstellingenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'BewerkKlantinstellingenRequest');
   RemClassRegistry.RegisterXSClass(RequestHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RequestHeader');
+  RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ResponseHeader');
+  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfKlantinstellingenKlantinstellingen), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfKlantinstellingenKlantinstellingen');
   RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DataTransferObject');
   RemClassRegistry.RegisterXSClass(DnaCode, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCode');
-  RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ResponseHeader');
-  RemClassRegistry.RegisterXSClass(Klantinstellingen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'Klantinstellingen');
   RemClassRegistry.RegisterXSClass(GeneriekeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeneriekeResponse');
   RemClassRegistry.RegisterXSClass(BewerkKlantinstellingenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'BewerkKlantinstellingenResponse');
   RemClassRegistry.RegisterExternalPropName(TypeInfo(BewerkKlantinstellingenResponse), 'Klantinstellingen', '[ArrayItemName="Klantinstellingen"]');
   RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeResponse');
+  RemClassRegistry.RegisterXSClass(HernoemPalletResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletResponse');
+  RemClassRegistry.RegisterExternalPropName(TypeInfo(HernoemPalletResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
   RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenResponse');
   RemClassRegistry.RegisterExternalPropName(TypeInfo(DnaCodeAfmeldenResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
   RemClassRegistry.RegisterXSClass(ZoekViaKlantnummerResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaKlantnummerResponse');
@@ -1683,28 +1905,32 @@
   RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaLadecodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
   RemClassRegistry.RegisterXSClass(ZoekViaOrdernummerResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaOrdernummerResponse');
   RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaOrdernummerResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
+  RemClassRegistry.RegisterXSClass(Klantinstellingen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'Klantinstellingen');
+  RemClassRegistry.RegisterXSClass(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse');
+  RemClassRegistry.RegisterXSClass(ZoekAlleDnaCodesDieOpVhossMoetenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleDnaCodesDieOpVhossMoetenRequest');
+  RemClassRegistry.RegisterXSClass(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest');
   RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenRequest');
   RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenResponse');
-  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfToeleveringMetAantallenToeleveringMetAantallen), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfToeleveringMetAantallenToeleveringMetAantallen');
-  RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagResponse');
-  RemClassRegistry.RegisterExternalPropName(TypeInfo(RondAfKaderdeurDagResponse), 'ToeleveringMetAantallen', '[ArrayItemName="ToeleveringMetAantallen"]');
-  RemClassRegistry.RegisterXSClass(ToeleveringMetAantallen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringMetAantallen');
+  RemClassRegistry.RegisterXSClass(ZoekAlleDnaCodesDieOpVhossMoetenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleDnaCodesDieOpVhossMoetenResponse');
+  RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekAlleDnaCodesDieOpVhossMoetenResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
   RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeResponse');
   RemClassRegistry.RegisterXSClass(ZoekViaKlantnummerRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaKlantnummerRequest');
   RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeRequest');
-  RemClassRegistry.RegisterXSClass(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest');
-  RemClassRegistry.RegisterXSClass(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse');
-  RemClassRegistry.RegisterXSClass(DirecteLeveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringResponse');
+  RemClassRegistry.RegisterXSClass(ZoekAlleVhossLadesBijDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleVhossLadesBijDnaCodeRequest');
+  RemClassRegistry.RegisterXSClass(ZoekAlleVhossLadesBijDnaCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleVhossLadesBijDnaCodeResponse');
+  RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekAlleVhossLadesBijDnaCodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
+  RemClassRegistry.RegisterXSClass(PalletBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenResponse');
   RemClassRegistry.RegisterXSClass(PalletBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenRequest');
   RemClassRegistry.RegisterXSClass(DirecteLeveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringRequest');
-  RemClassRegistry.RegisterXSClass(HernoemPalletRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletRequest');
-  RemClassRegistry.RegisterXSClass(HernoemPalletResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletResponse');
-  RemClassRegistry.RegisterExternalPropName(TypeInfo(HernoemPalletResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
-  RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenResponse');
-  RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagRequest');
+  RemClassRegistry.RegisterXSClass(DirecteLeveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringResponse');
   RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfStringString), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfStringString');
-  RemClassRegistry.RegisterXSClass(PalletBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenResponse');
   RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenRequest');
   RemClassRegistry.RegisterExternalPropName(TypeInfo(ProboxEtiketAfdrukkenRequest), 'DnaCodes', '[ArrayItemName="String"]');
+  RemClassRegistry.RegisterXSClass(ToeleveringMetAantallen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringMetAantallen');
+  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfToeleveringMetAantallenToeleveringMetAantallen), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfToeleveringMetAantallenToeleveringMetAantallen');
+  RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagResponse');
+  RemClassRegistry.RegisterExternalPropName(TypeInfo(RondAfKaderdeurDagResponse), 'ToeleveringMetAantallen', '[ArrayItemName="ToeleveringMetAantallen"]');
+  RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenResponse');
+  RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagRequest');
 
 end.
\ No newline at end of file
Index: PlanScan/WS/Agent.pas
===================================================================
diff -u -r370 -r419
--- PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 370)
+++ PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 419)
@@ -34,7 +34,7 @@
     function ZoekViaKlantnummer(Klantnummer: string): ZoekViaKlantnummerResponse;
     function ZoekViaLadecode(Ladecode: string): ZoekViaLadecodeResponse;
     function ZoekViaOrdernummer(Ordernummer: string): ZoekViaOrdernummerResponse;
-    function BewerkKlantinstellingen(Actie: string; KlantId: string; IsExport: boolean): BewerkKlantinstellingenResponse;
+    function BewerkKlantinstellingen(Actie: string; KlantId: string; IsExport: boolean; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
   end;
 
 implementation
@@ -419,7 +419,7 @@
 end;
 
 function TAgent.BewerkKlantinstellingen(Actie, KlantId:string;
-  IsExport: boolean): BewerkKlantinstellingenResponse;
+  IsExport: boolean; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
 var
   Header: DnaCodeService.RequestHeader;
   fBewerkKlantinstellingenRequest: BewerkKlantinstellingenRequest;
@@ -433,6 +433,8 @@
     fBewerkKlantinstellingenRequest.Actie := Actie;
     fBewerkKlantinstellingenRequest.KlantId := KlantId;
     fBewerkKlantinstellingenRequest.IsExport := IsExport;
+    fBewerkKlantinstellingenRequest.WegwerpPallet := WegwerpPallet;
+    fBewerkKlantinstellingenRequest.MeerdereToeleveringen := MeerdereToeleveringen;
 
     result := fDnaCodeServiceSoap.BewerkKlantinstellingen(fBewerkKlantinstellingenRequest);
   finally
Index: PlanScan/PlanScan.dpr
===================================================================
diff -u -r373 -r419
--- PlanScan/PlanScan.dpr	(.../PlanScan.dpr)	(revision 373)
+++ PlanScan/PlanScan.dpr	(.../PlanScan.dpr)	(revision 419)
@@ -15,9 +15,9 @@
   frameDnaCodes in 'UI\frameDnaCodes.pas' {frmDnaCodes: TFrame},
   frameGebruikers in 'UI\frameGebruikers.pas' {frmGebruikers: TFrame},
   frameKlantinstellingen in 'UI\frameKlantinstellingen.pas' {frmKlantinstellingen: TFrame},
-  DnaCodeService in 'WS\DnaCodeService.pas',
   GebruikerService in 'WS\GebruikerService.pas',
-  KlantinstellingenDetailScherm in 'UI\KlantinstellingenDetailScherm.pas' {fmKlantinstellingenDetail};
+  KlantinstellingenDetailScherm in 'UI\KlantinstellingenDetailScherm.pas' {fmKlantinstellingenDetail},
+  DnaCodeService in 'WS\DnaCodeService.pas';
 
 {$R *.res}