Index: AAPClient/WS/DnaCodeService.pas
===================================================================
diff -u -r125 -r172
--- AAPClient/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 125)
+++ AAPClient/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 172)
@@ -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
-// (6/09/2019 7:39:37 - - $Rev: 45757 $)
+// (26/09/2019 8:53:19 - - $Rev: 45757 $)
 // ************************************************************************ //
 
 unit DnaCodeService;
@@ -373,12 +373,17 @@
     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 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;
 
 
@@ -731,6 +736,17 @@
   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;
+
 procedure DnaCode.SetAxProductieOrderNummer(Index: Integer; const Astring: string);
 begin
   FAxProductieOrderNummer := Astring;