Index: PlanScan/WS/Agent.pas
===================================================================
diff -u -r672 -r690
--- PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 672)
+++ PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 690)
@@ -36,7 +36,7 @@
     function ZoekViaLadecode(Ladecode: string): ZoekViaLadecodeResponse;
     function ZoekViaOrdernummer(Ordernummer: string): ZoekViaOrdernummerResponse;
     function ZoekViaBatchId(BatchId: string): ZoekViaBatchResponse;
-    function BewerkKlantinstellingen(Actie: string; KlantId: string; IsExport: boolean; IsBlumXs: boolean; WegwerpPallet: boolean; HalvePallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
+    function BewerkKlantinstellingen(Actie: string; KlantId: string; IsExport: boolean; IsBlumXs: boolean; WegwerpPallet: boolean; HalvePallet: boolean; KartonnenPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
     function ProboxEtiketAfdrukken(DnaCodesStringList: TStringList; LijnWaaropGeprintMoetWorden: string): AfdrukService.ProboxEtiketAfdrukkenResponse;
     function KlantEtiketAfdrukken(DnaCodesStringList: TStringList): KlantEtiketAfdrukkenResponse;
     function ProductEtiketAfdrukken(DnaCodesStringList: TStringList): ProductEtiketAfdrukkenResponse;
@@ -509,7 +509,7 @@
 end;
 
 function TAgent.BewerkKlantinstellingen(Actie, KlantId:string;
-  IsExport: boolean; IsBlumXs: boolean; WegwerpPallet: boolean; HalvePallet: Boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
+  IsExport: boolean; IsBlumXs: boolean; WegwerpPallet: boolean; HalvePallet: Boolean; KartonnenPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
 var
   Header: DnaCodeService.RequestHeader;
   fBewerkKlantinstellingenRequest: BewerkKlantinstellingenRequest;
@@ -526,6 +526,7 @@
     fBewerkKlantinstellingenRequest.IsBlumXs := IsBlumXs;
     fBewerkKlantinstellingenRequest.WegwerpPallet := WegwerpPallet;
     fBewerkKlantinstellingenRequest.HalvePallet := HalvePallet;
+    fBewerkKlantinstellingenRequest.KartonnenPallet := KartonnenPallet;
     fBewerkKlantinstellingenRequest.MeerdereToeleveringen := MeerdereToeleveringen;
 
     result := fDnaCodeServiceSoap.BewerkKlantinstellingen(fBewerkKlantinstellingenRequest);
Index: PlanScan/UI/frameKlantinstellingen.pas
===================================================================
diff -u -r660 -r690
--- PlanScan/UI/frameKlantinstellingen.pas	(.../frameKlantinstellingen.pas)	(revision 660)
+++ PlanScan/UI/frameKlantinstellingen.pas	(.../frameKlantinstellingen.pas)	(revision 690)
@@ -44,7 +44,7 @@
 var
   fBewerkKlantinstellingenResponse: BewerkKlantinstellingenResponse;
 begin
-  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('List','',false, false, false, false, false);
+  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('List','',false, false, false, false, false, false);
   try
     if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
       VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
@@ -67,7 +67,7 @@
   fKlantinstellingenDetailScherm.IsExport := false;
   fKlantinstellingenDetailScherm.IsBlumXs := false;
   fKlantinstellingenDetailScherm.ShowModal;
-  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport, fKlantinstellingenDetailScherm.IsBlumXs, fKlantinstellingenDetailScherm.Wegwerppallet, fKlantinstellingenDetailScherm.HalvePallet, fKlantinstellingenDetailScherm.MeerdereToeleveringen);
+  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport, fKlantinstellingenDetailScherm.IsBlumXs, fKlantinstellingenDetailScherm.Wegwerppallet, fKlantinstellingenDetailScherm.HalvePallet, fKlantinstellingenDetailScherm.KartonnenPallet, fKlantinstellingenDetailScherm.MeerdereToeleveringen);
   if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
     VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
   end else begin
@@ -85,7 +85,7 @@
       dbgKlantinstellingen.DataSource.DataSet.GotoBookmark(Pointer(dbgKlantinstellingen.SelectedRows.Items[0]));
       fGeselecteerdeKlantId := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenKlantId').AsString;
   end;
-  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Delete',fGeselecteerdeKlantId,false,false,false,false,false);
+  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Delete',fGeselecteerdeKlantId,false,false,false,false,false,false);
   if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
     VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
   end else begin
@@ -107,9 +107,10 @@
     fKlantinstellingenDetailScherm.IsBlumXs := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenIsBlumXs').AsBoolean;
     fKlantinstellingenDetailScherm.WegwerpPallet := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenWegwerppallet').AsBoolean;
     fKlantinstellingenDetailScherm.HalvePallet := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenHalvePallet').AsBoolean;
+    fKlantinstellingenDetailScherm.KartonnenPallet := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenKartonnenPallet').AsBoolean;
     fKlantinstellingenDetailScherm.MeerdereToeleveringen := dbgKlantinstellingen.DataSource.DataSet.FieldByName('cdsKlantinstellingenMeerdereToeleveringen').AsBoolean;
     fKlantinstellingenDetailScherm.ShowModal;
-    fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport,fKlantinstellingenDetailScherm.IsBlumXs,fKlantinstellingenDetailScherm.Wegwerppallet,fKlantinstellingenDetailScherm.HalvePallet,fKlantinstellingenDetailScherm.MeerdereToeleveringen);
+    fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport,fKlantinstellingenDetailScherm.IsBlumXs,fKlantinstellingenDetailScherm.Wegwerppallet,fKlantinstellingenDetailScherm.HalvePallet,fKlantinstellingenDetailScherm.KartonnenPallet,fKlantinstellingenDetailScherm.MeerdereToeleveringen);
     if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
       VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
     end else begin
@@ -169,7 +170,8 @@
                                        Klantinstellingen[ii].WegwerpPallet,
                                        Klantinstellingen[ii].MeerdereToeleveringen,
                                        Klantinstellingen[ii].IsBlumXs,
-                                       Klantinstellingen[ii].HalvePallet]);
+                                       Klantinstellingen[ii].HalvePallet,
+                                       Klantinstellingen[ii].KartonnenPallet]);
     ii := ii + 1;
   end;
 end;
Index: PlanScan/WS/DnaCodeService.pas
===================================================================
diff -u -r672 -r690
--- PlanScan/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 672)
+++ PlanScan/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 690)
@@ -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 12:45:27 - - $Rev: 45757 $)
+// (13/11/2024 12:29:37 - - $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;
Index: PlanScan/UI/KlantinstellingenDetailScherm.pas
===================================================================
diff -u -r658 -r690
--- PlanScan/UI/KlantinstellingenDetailScherm.pas	(.../KlantinstellingenDetailScherm.pas)	(revision 658)
+++ PlanScan/UI/KlantinstellingenDetailScherm.pas	(.../KlantinstellingenDetailScherm.pas)	(revision 690)
@@ -21,6 +21,8 @@
     cbIsBlumXs: TCheckBox;
     lblHalvePallet: TLabel;
     cbHalvePallet: TCheckBox;
+    lblKartonnenPallet: TLabel;
+    cbKartonnenPallet: TCheckBox;
   private
     function getIsExport: boolean;
     function getIsBlumXs: boolean;
@@ -34,13 +36,16 @@
     procedure setMeerdereToeleveringen(const Value: boolean);
     function getHalvePallet: boolean;
     procedure setHalvePallet(const Value: boolean);
+    function getKartonnenPallet: boolean;
+    procedure setKartonnenPallet(const Value: boolean);
     { Private declarations }
   public
     property KlantId: string read getKlantId write setKlantId;
     property IsExport: boolean read getIsExport write setIsExport;
     property IsBlumXs: boolean read getIsBlumXs write setIsBlumXs;
     property Wegwerppallet: boolean read getWegwerppallet write setWegwerppallet;
     property HalvePallet: boolean read getHalvePallet write setHalvePallet;
+    property KartonnenPallet: boolean read getKartonnenPallet write setKartonnenPallet;
     property MeerdereToeleveringen: boolean read getMeerdereToeleveringen write setMeerdereToeleveringen;
   end;
 
@@ -86,6 +91,11 @@
   result := cbHalvePallet.Checked;
 end;
 
+function TfmKlantinstellingenDetail.getKartonnenPallet: boolean;
+begin
+  result := cbKartonnenPallet.Checked;
+end;
+
 procedure TfmKlantinstellingenDetail.setIsExport(const Value: boolean);
 begin
   cbIsExport.Checked := Value;
@@ -117,4 +127,9 @@
   cbHalvePallet.Checked := Value;
 end;
 
+procedure TfmKlantinstellingenDetail.setKartonnenPallet(const Value: boolean);
+begin
+  cbKartonnenPallet.Checked := Value;
+end;
+
 end.
Index: PlanScan/UI/frameKlantinstellingen.dfm
===================================================================
diff -u -r659 -r690
--- PlanScan/UI/frameKlantinstellingen.dfm	(.../frameKlantinstellingen.dfm)	(revision 659)
+++ PlanScan/UI/frameKlantinstellingen.dfm	(.../frameKlantinstellingen.dfm)	(revision 690)
@@ -1,13 +1,13 @@
 object frmKlantinstellingen: TfrmKlantinstellingen
   Left = 0
   Top = 0
-  Width = 640
+  Width = 704
   Height = 480
   TabOrder = 0
   object dbgKlantinstellingen: TDBGrid
     Left = 0
     Top = 0
-    Width = 513
+    Width = 577
     Height = 480
     Align = alClient
     DataSource = dsKlantinstellingen
@@ -64,17 +64,25 @@
         FieldName = 'cdsKlantinstellingenHalvePallet'
         Title.Caption = 'Halve pallet'
         Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'cdsKlantinstellingenKartonnenPallet'
+        Title.Caption = 'Kartonnen pallet'
+        Width = 89
+        Visible = True
       end>
   end
   object Panel1: TPanel
-    Left = 513
+    Left = 577
     Top = 0
     Width = 127
     Height = 480
     Align = alRight
     BevelEdges = []
     BevelOuter = bvNone
     TabOrder = 1
+    ExplicitLeft = 513
     object btnKlantinstellingenToevoegen: TButton
       Left = 6
       Top = 6
Index: PlanScan/UI/KlantinstellingenDetailScherm.dfm
===================================================================
diff -u -r657 -r690
--- PlanScan/UI/KlantinstellingenDetailScherm.dfm	(.../KlantinstellingenDetailScherm.dfm)	(revision 657)
+++ PlanScan/UI/KlantinstellingenDetailScherm.dfm	(.../KlantinstellingenDetailScherm.dfm)	(revision 690)
@@ -3,7 +3,7 @@
   Top = 0
   ActiveControl = btnOk
   Caption = 'KlantinstellingenDetail'
-  ClientHeight = 306
+  ClientHeight = 232
   ClientWidth = 377
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -30,8 +30,8 @@
     ParentFont = False
   end
   object lblExport: TLabel
-    Left = 68
-    Top = 64
+    Left = 20
+    Top = 56
     Width = 113
     Height = 19
     AutoSize = False
@@ -44,8 +44,8 @@
     ParentFont = False
   end
   object lblWegwerpPallet: TLabel
-    Left = 68
-    Top = 103
+    Left = 20
+    Top = 95
     Width = 113
     Height = 19
     AutoSize = False
@@ -58,8 +58,8 @@
     ParentFont = False
   end
   object lblMeerdereToeleveringen: TLabel
-    Left = 68
-    Top = 143
+    Left = 20
+    Top = 135
     Width = 113
     Height = 19
     AutoSize = False
@@ -72,8 +72,8 @@
     ParentFont = False
   end
   object lblBlumXs: TLabel
-    Left = 68
-    Top = 183
+    Left = 195
+    Top = 56
     Width = 113
     Height = 19
     AutoSize = False
@@ -86,8 +86,8 @@
     ParentFont = False
   end
   object lblHalvePallet: TLabel
-    Left = 68
-    Top = 223
+    Left = 195
+    Top = 96
     Width = 113
     Height = 19
     AutoSize = False
@@ -99,6 +99,20 @@
     Font.Style = []
     ParentFont = False
   end
+  object lblKartonnenPallet: TLabel
+    Left = 195
+    Top = 135
+    Width = 126
+    Height = 19
+    AutoSize = False
+    Caption = 'Kartonnen pallet'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
   object edtklantId: TEdit
     Left = 187
     Top = 21
@@ -113,9 +127,9 @@
     TabOrder = 0
   end
   object cbIsExport: TCheckBox
-    Left = 187
-    Top = 66
-    Width = 97
+    Left = 139
+    Top = 58
+    Width = 22
     Height = 17
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
@@ -126,8 +140,8 @@
     TabOrder = 1
   end
   object btnOk: TButton
-    Left = 133
-    Top = 256
+    Left = 139
+    Top = 176
     Width = 112
     Height = 33
     Caption = 'Ok'
@@ -142,9 +156,9 @@
     TabOrder = 2
   end
   object cbWegwerppallet: TCheckBox
-    Left = 187
-    Top = 105
-    Width = 97
+    Left = 139
+    Top = 97
+    Width = 22
     Height = 17
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
@@ -155,9 +169,9 @@
     TabOrder = 3
   end
   object cbMeerdereToeleveringen: TCheckBox
-    Left = 187
-    Top = 145
-    Width = 97
+    Left = 139
+    Top = 137
+    Width = 22
     Height = 17
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
@@ -168,9 +182,9 @@
     TabOrder = 4
   end
   object cbIsBlumXs: TCheckBox
-    Left = 187
-    Top = 185
-    Width = 97
+    Left = 330
+    Top = 58
+    Width = 22
     Height = 17
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
@@ -181,9 +195,9 @@
     TabOrder = 5
   end
   object cbHalvePallet: TCheckBox
-    Left = 187
-    Top = 225
-    Width = 97
+    Left = 330
+    Top = 97
+    Width = 22
     Height = 17
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
@@ -193,4 +207,17 @@
     ParentFont = False
     TabOrder = 6
   end
+  object cbKartonnenPallet: TCheckBox
+    Left = 330
+    Top = 137
+    Width = 22
+    Height = 17
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 7
+  end
 end