Index: ProScan/WS/DnaCodeService.pas
===================================================================
diff -u -r671 -r692
--- ProScan/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 671)
+++ ProScan/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 692)
@@ -5,7 +5,7 @@
 //  >Import : http://jlm-ws020:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls?WSDL=1>0
 // Encoding : UTF-8
 // Version  : 1.0
-// (25/04/2024 8:12:55 - - $Rev: 45757 $)
+// (13/11/2024 14:57:43 - - $Rev: 45757 $)
 // ************************************************************************ //
 
 unit DnaCodeService;
@@ -283,6 +283,7 @@
     FIsBlumXs: Boolean;
     FWegwerpPallet: Boolean;
     FHalvePallet: Boolean;
+    FKartonnenPallet: Boolean;
     FMeerdereToeleveringen: Boolean;
   public
     destructor Destroy; override;
@@ -294,6 +295,7 @@
     property IsBlumXs:              Boolean        read FIsBlumXs write FIsBlumXs;
     property WegwerpPallet:         Boolean        read FWegwerpPallet write FWegwerpPallet;
     property HalvePallet:           Boolean        read FHalvePallet write FHalvePallet;
+    property KartonnenPallet:       Boolean        read FKartonnenPallet write FKartonnenPallet;
     property MeerdereToeleveringen: Boolean        read FMeerdereToeleveringen write FMeerdereToeleveringen;
   end;
 
@@ -669,6 +671,8 @@
     FWegwerpPallet_Specified: boolean;
     FHalvePallet: Boolean;
     FHalvePallet_Specified: boolean;
+    FKartonnenPallet: Boolean;
+    FKartonnenPallet_Specified: boolean;
     FMeerdereToeleveringen: Boolean;
     FMeerdereToeleveringen_Specified: boolean;
     procedure SetKlantId(Index: Integer; const Astring: string);
@@ -683,6 +687,8 @@
     function  WegwerpPallet_Specified(Index: Integer): boolean;
     procedure SetHalvePallet(Index: Integer; const ABoolean: Boolean);
     function  HalvePallet_Specified(Index: Integer): boolean;
+    procedure SetKartonnenPallet(Index: Integer; const ABoolean: Boolean);
+    function  KartonnenPallet_Specified(Index: Integer): boolean;
     procedure SetMeerdereToeleveringen(Index: Integer; const ABoolean: Boolean);
     function  MeerdereToeleveringen_Specified(Index: Integer): boolean;
   published
@@ -692,6 +698,7 @@
     property IsBlumXs:              Boolean  Index (IS_OPTN) read FIsBlumXs write SetIsBlumXs stored IsBlumXs_Specified;
     property WegwerpPallet:         Boolean  Index (IS_OPTN) read FWegwerpPallet write SetWegwerpPallet stored WegwerpPallet_Specified;
     property HalvePallet:           Boolean  Index (IS_OPTN) read FHalvePallet write SetHalvePallet stored HalvePallet_Specified;
+    property KartonnenPallet:       Boolean  Index (IS_OPTN) read FKartonnenPallet write SetKartonnenPallet stored KartonnenPallet_Specified;
     property MeerdereToeleveringen: Boolean  Index (IS_OPTN) read FMeerdereToeleveringen write SetMeerdereToeleveringen stored MeerdereToeleveringen_Specified;
   end;
 
@@ -1831,6 +1838,17 @@
   Result := FHalvePallet_Specified;
 end;
 
+procedure Klantinstellingen.SetKartonnenPallet(Index: Integer; const ABoolean: Boolean);
+begin
+  FKartonnenPallet := ABoolean;
+  FKartonnenPallet_Specified := True;
+end;
+
+function Klantinstellingen.KartonnenPallet_Specified(Index: Integer): boolean;
+begin
+  Result := FKartonnenPallet_Specified;
+end;
+
 procedure Klantinstellingen.SetMeerdereToeleveringen(Index: Integer; const ABoolean: Boolean);
 begin
   FMeerdereToeleveringen := ABoolean;