129
begin
fData.tProduct.Filtered := false;
end;
procedure TfProduct.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Ord (Key) = 27) then
Close ();
end;
end.
unit ufSale;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.DBCtrls, Vcl.StdCtrls,
Vcl.ExtCtrls,
Vcl.Grids, Vcl.DBGrids, Vcl.ActnList, Vcl.PlatformDefaultStyleActnCtrls,
Vcl.ActnMan, DB;
type
TfSale = class(TForm)
DBGrid1: TDBGrid;
Panel1: TPanel;
DBNavigator1: TDBNavigator;
bShowfProducts: TButton;
Panel2: TPanel;
bSave: TButton;
bClear: TButton;
130
amSale: TActionManager;
aSave: TAction;
aLoad: TAction;
aClear: TAction;
Button1: TButton;
aShowClients: TAction;
aShowProducts: TAction;
Panel3: TPanel;
Label1: TLabel;
dblcbClient: TDBLookupComboBox;
Button2: TButton;
aConsignmentNote: TAction;
Button3: TButton;
aClose: TAction;
aAccount: TAction;
Button4: TButton;
procedure aSaveExecute(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure aLoadExecute(Sender: TObject);
procedure aClearExecute(Sender: TObject);
procedure aShowClientsExecute(Sender: TObject);
procedure aShowProductsExecute(Sender: TObject);
procedure aConsignmentNoteExecute(Sender: TObject);
procedure aCloseExecute(Sender: TObject);
procedure aAccountExecute(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
procedure LockControl (Value : Boolean);
end;
131
var
fSale: TfSale;
implementation
{$R *.dfm}
uses ufData, ufProduct, ufRefBooks;
procedure TfSale.LockControl (Value : Boolean);
begin
//
Value := not Value;
aClear.Enabled := Value;
aSave.Enabled := Value;
DBGrid1.Enabled := Value;
DBGrid1.Repaint;
DBNavigator1.Enabled := Value;
dblcbClient.Enabled := Value;
aAccount.Enabled := not Value;
aConsignmentNote.Enabled := not Value;
aShowClients.Enabled := Value;
aShowProducts.Enabled := Value;
end;
procedure TfSale.aAccountExecute(Sender: TObject);
begin
//
fData.frxReport.LoadFromFile(ExtractFilePath (Application.ExeName) +
'frxAccount.fr3' , true);
fData.frxReport.PrepareReport;
132
fData.frxReport.ShowPreparedReport;
end;
procedure TfSale.aClearExecute(Sender: TObject);
begin
//
LockControl (false);
fData.cdsESaleList.Close;
fData.cdsESaleList.CreateDataSet;
end;
procedure TfSale.aCloseExecute(Sender: TObject);
begin
Close;
end;
procedure TfSale.aConsignmentNoteExecute(Sender: TObject);
begin
//
fData.frxReport.LoadFromFile(ExtractFilePath (Application.ExeName) +
'frxConsignmentNote.fr3' , true);
fData.frxReport.PrepareReport;
fData.frxReport.ShowPreparedReport;
end;
procedure TfSale.aLoadExecute(Sender: TObject);
begin
//
fData.cdsESaleList.CreateDataSet;
end;
procedure TfSale.aSaveExecute(Sender: TObject);
133
var
I : Integer;
begin
//
if (fData.cdsESaleList.State = dsEdit) or (fData.cdsESaleList.State =
dsInsert) then
fData.cdsESaleList.Post;
if (VarIsNull(dblcbClient.KeyValue) = true) then
raise Exception.Create('Необходимо выбрать клиента');
if (fData.cdsESaleList.RecordCount = 0) then
raise Exception.Create('Необходимо указать товар');
fData.tSale.Insert;
fData.tSaleКод_Клиент.Value := dblcbClient.KeyValue;
fData.tSaleДата.Value := Now;
fData.tSale.Post;
for I := 1 to fData.cdsESaleList.RecordCount do
begin
//
fData.cdsESaleList.RecNo := I;
fData.tSaleList.Insert;
fData.tSaleListКод_Товар.Value := fData.cdsESaleListКод_Товар.Value;
fData.tSaleListКоличество
.Value :=
fData.cdsESaleListКоличество.Value;
fData.tSaleListСтоимость.Value := fData.cdsESaleListСтоимость.Value;
fData.tSaleList.Post;
fData.ProductCountAdd (fData.tSaleListКод_Товар.Value, 0 -
fData.tSaleListКоличество.Value);
end;
134
LockControl (true);
end;
procedure TfSale.aShowClientsExecute(Sender: TObject);
begin
//
fRefBooks.TabIndex := 2;
fRefBooks.ShowModal;
end;
procedure TfSale.aShowProductsExecute(Sender: TObject);
begin
//
fProduct.ShowModal;
end;
procedure TfSale.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Ord (Key) = 27) then
Close ();
end;
procedure TfSale.FormShow(Sender: TObject);
begin
//
aClear.Enabled := true;
aClear.Execute;
end;
end.
