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;
  private
    function getIsExport: boolean;
    function getKlantId: string;
    procedure setIsExport(const Value: boolean);
    procedure setKlantId(const Value: string);
    { Private declarations }
  public
    property KlantId: string read getKlantId write setKlantId;
    property IsExport: boolean read getIsExport write setIsExport;
  end;

var
  fmKlantinstellingenDetail: TfmKlantinstellingenDetail;

implementation

{$R *.dfm}

{ TfmKlantinstellingenDetail }

function TfmKlantinstellingenDetail.getIsExport: boolean;
begin
  result := cbIsExport.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;

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

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

end.