end;
procedure TDataModule2.RashodTableAfterPost(DataSet: TDataSet);
begin
{ If TovarTable.State<>dsEdit then
TovarTable.Edit;
TovarTable.FieldByName('OSTATOK').Value:=
TovarTable.FieldByName('OSTATOK').Value-
RashodTable.FieldByName('KOLVO_RASHOD').Value;
TovarTable.Post;
}
end;
procedure TDataModule2.SaleTableBeforePost(DataSet: TDataSet);
begin
Id_tovar:=SaleTable.FieldByName('ID_TOVAR').Value;
With SaleTable do begin
FieldByName('SUMMA').Value:=
FieldByName('KOLVO_TOVAR').Value*FieldByName('PRICE').Value;
FieldByName('SUMMA_NALOG').Value:=
((FieldByName('KOLVO_TOVAR').Value*FieldByName('PRICE').Value)/
(100+FieldByName('NALOG').Value))*
FieldByName('NALOG').Value;
FieldByName('SUMMA_NDS').Value:=
(FieldByName('KOLVO_TOVAR').Value*FieldByName('PRICE').Value-
FieldByName('SUMMA_NALOG').Value)/
(100+FieldByName('NDS').Value)*FieldByName('NDS').Value;
FieldByName('ALL_SUMMA').Value:=
FieldByName('SUMMA').Value-
FieldByName('SUMMA_NALOG').Value-
FieldByName('SUMMA_NDS').Value;
end;
{ With SaleTable do begin
FieldByName('ALL_SUMMA').Value:=
FieldByName('KOLVO_TOVAR').Value*FieldByName('PRICE').Value;
FieldByName('SUMMA_NDS').Value:=
(FieldByName('KOLVO_TOVAR').Value*FieldByName('PRICE').Value)*
FieldByName('NDS').Value/100;
FieldByName('SUMMA_NALOG').Value:=
((FieldByName('KOLVO_TOVAR').Value*FieldByName('PRICE').Value)*
FieldByName('NDS').Value/100)*
FieldByName('NALOG').Value/100;
FieldByName('SUMMA').Value:=
FieldByName('ALL_SUMMA').Value+FieldByName('SUMMA_NALOG').Value+
FieldByName('SUMMA_NDS').Value;
end;
}
end;
procedure TDataModule2.SaleTableAfterPost(DataSet: TDataSet);
Var i:integer;
begin
If DocTable.State<>dsEdit then
DocTable.Edit;
SummaQry.Open;
DocTable.FieldByName('DOC_SUMMA').Value:=SummaQry.FieldByName('SUM
MA').Value;
DocTable.FieldByName('DOC_NDS').Value:=SummaQry.FieldByName('SUMMA_
NDS').Value;
DocTable.FieldByName('DOC_NALOG').Value:=SummaQry.FieldByName('SUM
MA_NALOG').Value;
DocTable.FieldByName('DOC_ALL_SUMMA').Value:=SummaQry.FieldByName('
ALL_SUMMA').Value;
DocTable.FieldByName('SUMMA_STRING').AsString:=
SummaString(SummaQry.FieldByName('SUMMA').AsFloat);
SummaQry.Close;
DocTable.Post;
UpdateTovQry1.ParamByName('KOLVO').AsInteger:=
SaleTable.FieldByName('KOLVO_TOVAR').AsInteger;
UpdateTovQry1.ParamByName('ID_TOVAR').AsInteger:=
SaleTable.FieldByName('ID_TOVAR').AsInteger;
UpdateTovQry1.ExecSQL;
TovarTable.Active:=False;
TovarTable.Active:=True;;
UpPrihodQry.ParamByName('ID_TOVAR').AsInteger:=ID_TOVAR;
{
UpPrihodQry.ParamByName('OSTATOK').AsInteger:=
TovarTable.FieldByName('OSTATOK').AsInteger;
UpPrihodQry.ParamByName('ID_TOVAR').AsInteger:=ID_TOVAR;
SaleTable.FieldByName('ID_TOVAR').AsInteger;
UpPrihodQry.ExecSQL;
}
{If PrihodTable.State<>dsEdit then
PrihodTable.Edit;
PrihodTable.FieldByName('OSTATOK').Value:=
TovarTable.FieldByName('OSTATOK').Value;
PrihodTable.Post;}
end;
procedure TDataModule2.SaleTableAfterDelete(DataSet: TDataSet);
begin
If DocTable.State<>dsEdit then
DocTable.Edit;
SummaQry.Open;
DocTable.FieldByName('DOC_SUMMA').Value:=SummaQry.FieldByName('SUM
MA').Value;
DocTable.FieldByName('DOC_NDS').Value:=SummaQry.FieldByName('SUMMA_
NDS').Value;
DocTable.FieldByName('DOC_ALL_SUMMA').Value:=SummaQry.FieldByName('
ALL_SUMMA').Value;
DocTable.FieldByName('SUMMA_STRING').AsString:=
SummaString(SummaQry.FieldByName('SUMMA').AsFloat);
SummaQry.Close;
DocTable.Post;
{ UpPrihodQry.ParamByName('OSTATOK').AsInteger:=
TovarTable.FieldByName('OSTATOK').AsInteger;
UpPrihodQry.ParamByName('ID_TOVAR').AsInteger:=
TovarTable.FieldByName('ID_TOVAR').AsInteger;
UpPrihodQry.ExecSQL;
}
end;
procedure TDataModule2.SaleTableBeforeEdit(DataSet: TDataSet);
begin
UpdateTovQry2.ParamByName('KOLVO').AsInteger:=
SaleTable.FieldByName('KOLVO_TOVAR').AsInteger;
UpdateTovQry2.ParamByName('ID_TOVAR').AsInteger:=
SaleTable.FieldByName('ID_TOVAR').AsInteger;
UpdateTovQry2.ExecSQL;
TovarTable.Active:=False;
TovarTable.Active:=True;;
end;
procedure TDataModule2.SaleTableBeforeDelete(DataSet: TDataSet);
begin
UpdateTovQry2.ParamByName('KOLVO').AsInteger:=
SaleTable.FieldByName('KOLVO_TOVAR').AsInteger;
UpdateTovQry2.ParamByName('ID_TOVAR').AsInteger:=
SaleTable.FieldByName('ID_TOVAR').AsInteger;
UpdateTovQry2.ExecSQL;
TovarTable.Active:=False;
TovarTable.Active:=True;;
UpPrihodQry.ParamByName('OSTATOK').AsInteger:=
TovarTable.FieldByName('OSTATOK').AsInteger;
UpPrihodQry.ParamByName('ID_TOVAR').AsInteger:=ID_TOVAR;
SaleTable.FieldByName('ID_TOVAR').AsInteger;
UpPrihodQry.ExecSQL;
end;
procedure TDataModule2.PrihodTableBeforeEdit(DataSet: TDataSet);
begin
{UpTovQry2.ParamByName('KOLVO').AsInteger:=
PrihodTable.FieldByName('KOLVO_PRIHOD').AsInteger;
UpTovQry2.ParamByName('ID_TOVAR').AsInteger:=
PrihodTable.FieldByName('ID_TOVAR').AsInteger;
UpTovQry2.ExecSQL;
{ TovarTable.Active:=False;
TovarTable.Active:=True;;}
end;
procedure TDataModule2.PrihodTableBeforeDelete(DataSet: TDataSet);
begin
{UpTovQry2.ParamByName('KOLVO').AsInteger:=
PrihodTable.FieldByName('KOLVO_PRIHOD').AsInteger;
UpTovQry2.ParamByName('ID_TOVAR').AsInteger:=
PrihodTable.FieldByName('ID_TOVAR').AsInteger;
UpTovQry2.ExecSQL;
{ TovarTable.Active:=False;
TovarTable.Active:=True;; }
end;
procedure TDataModule2.PrihodTableAfterDelete(DataSet: TDataSet);
begin
TovarTable.Active:=False;
TovarTable.Active:=True;;
end;
end.