Index: AAPClient/WS/DnaCodeService.pas
===================================================================
diff -u -r188 -r199
--- AAPClient/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 188)
+++ AAPClient/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 199)
@@ -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
-// (2/10/2019 15:42:14 - - $Rev: 45757 $)
+// (7/10/2019 9:43:00 - - $Rev: 45757 $)
 // ************************************************************************ //
 
 unit DnaCodeService;
@@ -336,14 +336,14 @@
     FHeader: RequestHeader;
     FToelevering: string;
     FStatus: DnaCodeStatus;
-    FIsGlsDirect: Boolean;
+    FIsDirecteLevering: 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 IsGlsDirect: Boolean        read FIsGlsDirect write FIsGlsDirect;
+    property Header:            RequestHeader  read FHeader write FHeader;
+    property Toelevering:       string         read FToelevering write FToelevering;
+    property Status:            DnaCodeStatus  read FStatus write FStatus;
+    property IsDirecteLevering: Boolean        read FIsDirecteLevering write FIsDirecteLevering;
   end;
 
 
@@ -370,14 +370,14 @@
     FHeader: RequestHeader;
     FPallet: string;
     FStatus: DnaCodeStatus;
-    FIsGlsDirect: Boolean;
+    FIsDirecteLevering: 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 IsGlsDirect: Boolean        read FIsGlsDirect write FIsGlsDirect;
+    property Header:            RequestHeader  read FHeader write FHeader;
+    property Pallet:            string         read FPallet write FPallet;
+    property Status:            DnaCodeStatus  read FStatus write FStatus;
+    property IsDirecteLevering: Boolean        read FIsDirecteLevering write FIsDirecteLevering;
   end;
 
 
@@ -412,8 +412,8 @@
     FLadeCode_Specified: boolean;
     FStatus: DnaCodeStatus;
     FStatus_Specified: boolean;
-    FIsGlsDirect: Boolean;
-    FIsGlsDirect_Specified: boolean;
+    FIsDirecteLevering: Boolean;
+    FIsDirecteLevering_Specified: boolean;
     FParentDnaCode: string;
     FParentDnaCode_Specified: boolean;
     FSequentieNummer: string;
@@ -444,8 +444,8 @@
     function  LadeCode_Specified(Index: Integer): boolean;
     procedure SetStatus(Index: Integer; const ADnaCodeStatus: DnaCodeStatus);
     function  Status_Specified(Index: Integer): boolean;
-    procedure SetIsGlsDirect(Index: Integer; const ABoolean: Boolean);
-    function  IsGlsDirect_Specified(Index: Integer): boolean;
+    procedure SetIsDirecteLevering(Index: Integer; const ABoolean: Boolean);
+    function  IsDirecteLevering_Specified(Index: Integer): boolean;
     procedure SetParentDnaCode(Index: Integer; const Astring: string);
     function  ParentDnaCode_Specified(Index: Integer): boolean;
     procedure SetSequentieNummer(Index: Integer; const Astring: string);
@@ -465,7 +465,7 @@
     property ScanTijdstip:           Horolog        Index (IS_OPTN) read FScanTijdstip write SetScanTijdstip stored ScanTijdstip_Specified;
     property LadeCode:               string         Index (IS_OPTN) read FLadeCode write SetLadeCode stored LadeCode_Specified;
     property Status:                 DnaCodeStatus  Index (IS_OPTN) read FStatus write SetStatus stored Status_Specified;
-    property IsGlsDirect:            Boolean        Index (IS_OPTN) read FIsGlsDirect write SetIsGlsDirect stored IsGlsDirect_Specified;
+    property IsDirecteLevering:      Boolean        Index (IS_OPTN) read FIsDirecteLevering write SetIsDirecteLevering stored IsDirecteLevering_Specified;
     property ParentDnaCode:          string         Index (IS_OPTN) read FParentDnaCode write SetParentDnaCode stored ParentDnaCode_Specified;
     property SequentieNummer:        string         Index (IS_OPTN) read FSequentieNummer write SetSequentieNummer stored SequentieNummer_Specified;
     property IsWegwerpPallet:        Boolean        Index (IS_OPTN) read FIsWegwerpPallet write SetIsWegwerpPallet stored IsWegwerpPallet_Specified;
@@ -889,15 +889,15 @@
   Result := FStatus_Specified;
 end;
 
-procedure DnaCode.SetIsGlsDirect(Index: Integer; const ABoolean: Boolean);
+procedure DnaCode.SetIsDirecteLevering(Index: Integer; const ABoolean: Boolean);
 begin
-  FIsGlsDirect := ABoolean;
-  FIsGlsDirect_Specified := True;
+  FIsDirecteLevering := ABoolean;
+  FIsDirecteLevering_Specified := True;
 end;
 
-function DnaCode.IsGlsDirect_Specified(Index: Integer): boolean;
+function DnaCode.IsDirecteLevering_Specified(Index: Integer): boolean;
 begin
-  Result := FIsGlsDirect_Specified;
+  Result := FIsDirecteLevering_Specified;
 end;
 
 procedure DnaCode.SetParentDnaCode(Index: Integer; const Astring: string);