[brusel]

Код:

procedure TDM.TVagaCalcFields(DataSet: TDataSet);
var
i:integer;
begin
dm.QuerySum.Open;
i:= dm.QuerySum.Fields[0].AsInteger;  //заносим  сумму в переменную i
dm.QuerySum.Close;
dm.TVagaZ_posl.Value:=dm.TVagaKol.Value*dm.TVagaKol_god.Value;
dm.TVagaPyt_vag.Value:=RoundEx((dm.TVagaKol.Value/i),100);
end;