Index: ProScan/WS/DnaCodeService.pas
===================================================================
diff -u -r396 -r425
--- ProScan/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 396)
+++ ProScan/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 425)
@@ -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/06/2020 17:24:09 - - $Rev: 45757 $)
+// (30/06/2020 8:56:11 - - $Rev: 45757 $)
 // ************************************************************************ //
 
 unit DnaCodeService;
@@ -245,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;
 
 
@@ -519,12 +523,17 @@
   private
     FDnaCodes: ArrayOfDnaCodeDnaCode;
     FDnaCodes_Specified: boolean;
+    FMeerdereToeleveringenToegestaan: Boolean;
+    FMeerdereToeleveringenToegestaan_Specified: boolean;
     procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
     function  DnaCodes_Specified(Index: Integer): boolean;
+    procedure SetMeerdereToeleveringenToegestaan(Index: Integer; const ABoolean: Boolean);
+    function  MeerdereToeleveringenToegestaan_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;
+    property DnaCodes:                        ArrayOfDnaCodeDnaCode  Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified;
+    property MeerdereToeleveringenToegestaan: Boolean                Index (IS_OPTN) read FMeerdereToeleveringenToegestaan write SetMeerdereToeleveringenToegestaan stored MeerdereToeleveringenToegestaan_Specified;
   end;
 
 
@@ -605,16 +614,26 @@
     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 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;
 
 
@@ -1474,6 +1493,17 @@
   Result := FDnaCodes_Specified;
 end;
 
+procedure ZoekViaPalletCodeResponse.SetMeerdereToeleveringenToegestaan(Index: Integer; const ABoolean: Boolean);
+begin
+  FMeerdereToeleveringenToegestaan := ABoolean;
+  FMeerdereToeleveringenToegestaan_Specified := True;
+end;
+
+function ZoekViaPalletCodeResponse.MeerdereToeleveringenToegestaan_Specified(Index: Integer): boolean;
+begin
+  Result := FMeerdereToeleveringenToegestaan_Specified;
+end;
+
 destructor ZoekViaToeleveringResponse.Destroy;
 var
   I: Integer;
@@ -1592,6 +1622,28 @@
   Result := FIsExport_Specified;
 end;
 
+procedure Klantinstellingen.SetWegwerpPallet(Index: Integer; const ABoolean: Boolean);
+begin
+  FWegwerpPallet := ABoolean;
+  FWegwerpPallet_Specified := True;
+end;
+
+function Klantinstellingen.WegwerpPallet_Specified(Index: Integer): boolean;
+begin
+  Result := FWegwerpPallet_Specified;
+end;
+
+procedure Klantinstellingen.SetMeerdereToeleveringen(Index: Integer; const ABoolean: Boolean);
+begin
+  FMeerdereToeleveringen := ABoolean;
+  FMeerdereToeleveringen_Specified := True;
+end;
+
+function Klantinstellingen.MeerdereToeleveringen_Specified(Index: Integer): boolean;
+begin
+  Result := FMeerdereToeleveringen_Specified;
+end;
+
 destructor ZoekAlleDnaCodesDieOpVhossMoetenRequest.Destroy;
 begin
   SysUtils.FreeAndNil(FHeader);