ошибка в вычислении

[wowka]

Такая проблема - у меня есть два RxDbcalcEdit, надо чтобы при вводе одного RxDbcalcEdit код выщитывал по формуле это значиение и отображал в другом RxDbcalcEdit, вся загвоздка в том что этого непроисходит, ошибки никакой невыбивает ненаю уже что делать но пробую

procedure TF_a_pr_na.RxDBCalcEdit2Change(Sender: TObject);
begin
IF NOT ISV THEN EXIT;
try
with TpFibDataset(dsi.DataSet) do
 begin
  if FN('SR_PI').AsInteger=1 then
   if RxDBCalcEdit2.Value<>0 then
    TFibBcdField(fn('N_AM_G')).AsExtended:=1/RxDBCalcEdit2.Value*100;
 end;
except
end;
end;

[Stilet]

А до вычисления выполнение доходит вообще? Протрассируй по шагам или бряк поставь на TFibBcdField(fn('N_AM_G')).AsExtend ed:=1/RxDBCalcEdit2.Value*100;

[wowka]

Сообщение от Stilet

А до вычисления выполнение доходит вообще? Протрассируй по шагам или бряк поставь на TFibBcdField(fn('N_AM_G')).AsExtend ed:=1/RxDBCalcEdit2.Value*100;

Троссировал конечно, всё проходит, но не заполняеться ...

[wowka]

Нашёл оно вписывает если значение вводится 1 (единица)
Так стало работать

procedure TF_a_pr_na.RxDBCalcEdit2Change(Sender: TObject);
begin
IF NOT ISV THEN EXIT;
try
with TpFibDataset(dsi.DataSet) do
 begin
//  if FN('SR_PI').AsInteger= then
   if RxDBCalcEdit2.Value<>0 then
    TFibBcdField(fn('N_AM_G')).AsExtended:=1/RxDBCalcEdit2.Value*100;

 end;
except
end;
end;

From Stilet: Не путай теги цитаты и кода. Код оформляется другой кнопкой (#)

[wowka]

Надо что бы одному RxDBCalcEdit было присвоено значение 1, но чтобы его можно было изменить в будущем(Что то немогу присвоить...).И ещё одно - в значениях вида 0,### не отображаеться ноль... как исправить?

с первым справился при помощи тригера

SET TERM ^ ;

CREATE OR ALTER TRIGGER T_SP_GHU_GY_HU_OF_BIU1 FOR SP_GHU_GY_HU_OF
ACTIVE BEFORE INSERT or UPDATE  POSITION 1
AS
BEGIN
if (NEW.ISNODE=1) then EXIT;
if (COALESCE(NEW.K_SY,0)<>0) then EXIT;
NEW.K_SY=1;
END
^
SET TERM ; ^

если есть ещё идеи с удовольствием прочитаю
а вот со вторым помогите)