unit BusinessProcessorServerMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
  uDAPoweredByDataAbstractButton, Spin;

type
  TBusinessProcessorServerMainForm = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    cbCheckCustomerID: TCheckBox;
    cbDeclineDeleteCustomers: TCheckBox;
    cbCompany: TCheckBox;
    eCompany: TEdit;
    GroupBox2: TGroupBox;
    cbFreight: TCheckBox;
    cbDeclineDeleteOrders: TCheckBox;
    eFreight: TSpinEdit;
    procedure cbCompanyClick(Sender: TObject);
    procedure eCompanyChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cbFreightClick(Sender: TObject);
    procedure eFreightChange(Sender: TObject);
    procedure cbDeclineDeleteCustomersClick(Sender: TObject);
    procedure cbDeclineDeleteOrdersClick(Sender: TObject);
    procedure cbCheckCustomerIDClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BusinessProcessorServerMainForm                  : TBusinessProcessorServerMainForm;

implementation
uses
  ServerGlobal;
{$R *.dfm}

procedure TBusinessProcessorServerMainForm.cbCompanyClick(Sender: TObject);
begin
  eCompany.Enabled := cbCompany.Checked;
  gCompanyCheck := cbCompany.Checked;
  eCompanyChange(eCompany);
end;

procedure TBusinessProcessorServerMainForm.eCompanyChange(Sender: TObject);
begin
  gCompany := eCompany.Text;
end;

procedure TBusinessProcessorServerMainForm.FormShow(Sender: TObject);
begin
  eCompany.Text := gCompany;
  eFreight.Value := gFreight;
  cbCompany.Checked := gCompanyCheck;
  cbFreight.Checked := gFreightCheck;
  cbCompanyClick(cbCompany);
  cbFreightClick(cbFreight);
  cbDeclineDeleteCustomers.Checked := gDeclineDeleteCustomers;
  cbDeclineDeleteOrders.Checked := gDeclineDeleteOrders;
  cbCheckCustomerID.Checked := gCheckCustomerID;
end;

procedure TBusinessProcessorServerMainForm.cbFreightClick(Sender: TObject);
begin
  eFreight.Enabled := cbFreight.Checked;
  gFreightCheck := cbFreight.Checked;
  eFreightChange(eFreight);
end;

procedure TBusinessProcessorServerMainForm.eFreightChange(Sender: TObject);
begin
  gFreight := eFreight.Value;
end;

procedure TBusinessProcessorServerMainForm.cbDeclineDeleteCustomersClick(Sender: TObject);
begin
  gDeclineDeleteCustomers := cbDeclineDeleteCustomers.Checked;
end;

procedure TBusinessProcessorServerMainForm.cbDeclineDeleteOrdersClick(Sender: TObject);
begin
  gDeclineDeleteOrders := cbDeclineDeleteOrders.Checked;
end;

procedure TBusinessProcessorServerMainForm.cbCheckCustomerIDClick(Sender: TObject);
begin
  gCheckCustomerID := cbCheckCustomerID.Checked;
end;

end.