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;