Index: AAPClient/WS/DnaCodeService.pas
===================================================================
diff -u -r175 -r187
--- AAPClient/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 175)
+++ AAPClient/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 187)
@@ -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
-// (1/10/2019 13:49:36 - - $Rev: 45757 $)
+// (2/10/2019 13:33:49 - - $Rev: 45757 $)
 // ************************************************************************ //
 
 unit DnaCodeService;
@@ -49,9 +49,9 @@
   DnaCodeAfmeldenResponse = 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] }
+  HernoemPalletRequest = class;                 { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   ToeleveringBijwerkenRequest = class;          { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   PalletBijwerkenRequest = class;               { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
-  HernoemPalletRequest = class;                 { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
   DnaCode              = class;                 { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
 
   {$SCOPEDENUMS ON}
@@ -327,63 +327,67 @@
 
 
   // ************************************************************************ //
-  // XML       : ToeleveringBijwerkenRequest, global, <complexType>
+  // XML       : HernoemPalletRequest, global, <complexType>
   // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
   // ************************************************************************ //
-  ToeleveringBijwerkenRequest = class(TRemotable)
+  HernoemPalletRequest = class(TRemotable)
   private
     FHeader: RequestHeader;
-    FToelevering: string;
-    FStatus: DnaCodeStatus;
+    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 Toelevering: string         read FToelevering write FToelevering;
-    property Status:      DnaCodeStatus  read FStatus write FStatus;
+    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       : PalletBijwerkenRequest, global, <complexType>
+  // XML       : ToeleveringBijwerkenRequest, global, <complexType>
   // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
   // ************************************************************************ //
-  PalletBijwerkenRequest = class(TRemotable)
+  ToeleveringBijwerkenRequest = class(TRemotable)
   private
     FHeader: RequestHeader;
-    FPallet: string;
+    FToelevering: string;
     FStatus: DnaCodeStatus;
+    FIsGlsDirect: Boolean;
   public
     destructor Destroy; override;
   published
-    property Header: RequestHeader  read FHeader write FHeader;
-    property Pallet: string         read FPallet write FPallet;
-    property Status: DnaCodeStatus  read FStatus write FStatus;
+    property Header:      RequestHeader  read FHeader write FHeader;
+    property Toelevering: string         read FToelevering write FToelevering;
+    property Status:      DnaCodeStatus  read FStatus write FStatus;
+    property IsGlsDirect: Boolean        read FIsGlsDirect write FIsGlsDirect;
   end;
 
 
 
   // ************************************************************************ //
-  // XML       : HernoemPalletRequest, global, <complexType>
+  // XML       : PalletBijwerkenRequest, global, <complexType>
   // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
   // ************************************************************************ //
-  HernoemPalletRequest = class(TRemotable)
+  PalletBijwerkenRequest = 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;
+    FPallet: string;
+    FStatus: DnaCodeStatus;
+    FIsGlsDirect: 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;
+    property Header:      RequestHeader  read FHeader write FHeader;
+    property Pallet:      string         read FPallet write FPallet;
+    property Status:      DnaCodeStatus  read FStatus write FStatus;
+    property IsGlsDirect: Boolean        read FIsGlsDirect write FIsGlsDirect;
   end;
 
 
@@ -723,18 +727,6 @@
   Result := FDnaCodes_Specified;
 end;
 
-destructor ToeleveringBijwerkenRequest.Destroy;
-begin
-  SysUtils.FreeAndNil(FHeader);
-  inherited Destroy;
-end;
-
-destructor PalletBijwerkenRequest.Destroy;
-begin
-  SysUtils.FreeAndNil(FHeader);
-  inherited Destroy;
-end;
-
 destructor HernoemPalletRequest.Destroy;
 begin
   SysUtils.FreeAndNil(FHeader);
@@ -752,6 +744,18 @@
   Result := FEnkelDezeDnaCode_Specified;
 end;
 
+destructor ToeleveringBijwerkenRequest.Destroy;
+begin
+  SysUtils.FreeAndNil(FHeader);
+  inherited Destroy;
+end;
+
+destructor PalletBijwerkenRequest.Destroy;
+begin
+  SysUtils.FreeAndNil(FHeader);
+  inherited Destroy;
+end;
+
 procedure DnaCode.SetAxProductieOrderNummer(Index: Integer; const Astring: string);
 begin
   FAxProductieOrderNummer := Astring;
@@ -977,9 +981,9 @@
   RemClassRegistry.RegisterXSClass(ZoekViaToeleveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaToeleveringResponse');
   RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaToeleveringResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
   RemClassRegistry.RegisterXSInfo(TypeInfo(DnaCodeStatus), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeStatus');
+  RemClassRegistry.RegisterXSClass(HernoemPalletRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletRequest');
   RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenRequest');
   RemClassRegistry.RegisterXSClass(PalletBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenRequest');
-  RemClassRegistry.RegisterXSClass(HernoemPalletRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletRequest');
   RemClassRegistry.RegisterXSClass(DnaCode, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCode');
 
 end.
\ No newline at end of file