154
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;
155
{ 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.
