unit KlantinstellingenDetailScherm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.StrUtils;

type
  TfmKlantinstellingenDetail = class(TForm)
    lblKlantId: TLabel;
    lblExport: TLabel;
    edtklantId: TEdit;
    cbIsExport: TCheckBox;
    btnOk: TButton;
    cbWegwerppallet: TCheckBox;
    cbMeerdereToeleveringen: TCheckBox;
    lblWegwerpPallet: TLabel;
    lblMeerdereToeleveringen: TLabel;
    lblBlumXs: TLabel;
    cbIsBlumXs: TCheckBox;
    lblHalvePallet: TLabel;
    cbHalvePallet: TCheckBox;
  private
    function getIsExport: boolean;
    function getIsBlumXs: boolean;
    function getKlantId: string;
    procedure setIsExport(const Value: boolean);
    procedure setIsBlumXs (const Value: boolean);
    procedure setKlantId(const Value: string);
    function getWegwerppallet: boolean;
    procedure setWegwerppallet(const Value: boolean);
    function getMeerdereToeleveringen: boolean;
    procedure setMeerdereToeleveringen(const Value: boolean);
    function getHalvePallet: boolean;
    procedure setHalvePallet(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 MeerdereToeleveringen: boolean read getMeerdereToeleveringen write setMeerdereToeleveringen;
  end;

var
  fmKlantinstellingenDetail: TfmKlantinstellingenDetail;

implementation

{$R *.dfm}

{ TfmKlantinstellingenDetail }

function TfmKlantinstellingenDetail.getIsExport: boolean;
begin
  result := cbIsExport.Checked;
end;

function TfmKlantinstellingenDetail.getIsBlumXs: boolean;
begin
  result := cbIsBlumXs.Checked;
end;

function TfmKlantinstellingenDetail.getKlantId: string;
begin
  if not (System.StrUtils.LeftStr(edtKlantId.Text,3) = 'K||') then
    result := 'K||'+edtKlantId.Text
  else
    result := edtKlantId.Text;
end;

function TfmKlantinstellingenDetail.getMeerdereToeleveringen: boolean;
begin
  result := cbMeerdereToeleveringen.Checked;
end;

function TfmKlantinstellingenDetail.getWegwerppallet: boolean;
begin
  result := cbWegwerppallet.Checked;
end;

function TfmKlantinstellingenDetail.getHalvePallet: boolean;
begin
  result := cbHalvePallet.Checked;
end;

procedure TfmKlantinstellingenDetail.setIsExport(const Value: boolean);
begin
  cbIsExport.Checked := Value;
end;

procedure TfmKlantinstellingenDetail.setIsBlumXs(const Value: boolean);
begin
  cbIsBlumXs.Checked := Value;
end;

procedure TfmKlantinstellingenDetail.setKlantId(const Value: string);
begin
  edtKlantId.Text := Value;
end;

procedure TfmKlantinstellingenDetail.setMeerdereToeleveringen(
  const Value: boolean);
begin
  cbMeerdereToeleveringen.Checked := Value;
end;

procedure TfmKlantinstellingenDetail.setWegwerppallet(const Value: boolean);
begin
  cbWegwerppallet.Checked := Value;
end;

procedure TfmKlantinstellingenDetail.setHalvePallet(const Value: boolean);
begin
  cbHalvePallet.Checked := Value;
end;

end.