Расcчеты в DBGrid-e

[VaskoPavel]

Не могу выполнить операцию деления в DBGride. Если написать такой код то все ОК,
popravka:=(Table2Ostatoknanachmes.V alue+(Table2Pologenodeneg.Value-Table2Ostatoknakonmes.Value))/905
а если вместо 905 поставить допустим Table3nds.Value или переменную, то получается ошибка.

[Аватар]

Причем здесь эта строка и та ошибка, что у вас показана? StrToFloat пытается преобразовать строку в real, а в самой строке данные которые нельзя преобразовать в такой формат. Пустая строка не преобразуется в том числе, возможно у вас точка десятичная введена, а ожидается запятая (или наоборот) или вообще буква введена. Используйте try ... except. Table3nds.Value - возможно тип не подходящий или NULL

[VaskoPavel]

Ок. Убрал всю эту хрень с StrToFloat оставил так:
popravka:=(Table2Ostatoknanachmes.V alue+(Table2Pologenodeneg.Value-Table2Ostatoknakonmes.Value))/Table3NDS.Value;
Один хрен ошибка. Тип данных в DB Desktop по полю NDS ставил Namber.
Может Таблица 2 и Таблица 3 должны быть соединены как-то? Что-то я запутался.

[Аватар]

А по сообщению не видно, что деление на 0

[VaskoPavel]

Вставил значения в таблицу 3 - все равно не считает. Такая же ошибка. Получается не видит эти значения программа? А если добавлю еще одно поле допустим НДС в табл. 2 и заполню его, то программа запускается без проблем. Нужно использовать таблицу подстановки или что-то другое может? Не подскажете

[Serge_Bliznykov]

Аватар абсолютно прав.
я бы вообще такой вариант предложил:

var S : string;
   DValue : extended;
.....

  S := Table3NDS.Value;
  if DecimalSeparator = '.' then
     DValue := StrToFloatDef(StringReplace(S, ',' , DecimalSeparator, [rfIgnoreCase, rfReplaceAll]),0)
  else
     DValue := StrToFloatDef(StringReplace(S, '.' , DecimalSeparator, [rfIgnoreCase, rfReplaceAll]),0);
  if DValue<>0 then
      popravka:=(Table2Ostatoknanachmes.V alue+(Table2Pologenodeneg.Value-Table2Ostatoknakonmes.Value))/DValue
  else 
      popravka:= 0; {или чему равна поправка, если НДС проставлен нулевой...}

[VaskoPavel]

Написал код

procedure TForm1.Table2CalcFields(DataSet: TDataSet);
var
S : string;
DValue : extended;

begin
Table2Pzamesposchet.Value:= Table2Pnakonec.Value - Table2Pnanach.Value; // по счетчику

S :=FloatToStr(Table3Tarif.Value);
if DecimalSeparator = '.' then
DValue := StrToFloatDef(StringReplace(S, ',' , DecimalSeparator, [rfIgnoreCase, rfReplaceAll]),0)
else
DValue := StrToFloatDef(StringReplace(S, '.' , DecimalSeparator, [rfIgnoreCase, rfReplaceAll]),0);
if DValue<>0 then
Table2Pzamespoden.Value:=Round((Table2Ostatoknanachmes.Value+(Table2Pologenodeneg.Value-Table2Ostatoknakonmes.Value))/DValue) // по деньгам
else
MessageDlg('Тариф равен нулю. Введите другое значение!',mtError,[mbOk],0); {или чему равна поправка, если НДС проставлен нулевой...}

end;

Сразу по нажатии на компиляцию выдает мою ошибку "Тариф равен нулю. Введите другое значение!" Нажму Ок и прога стартует но не считает правильно. Попробую объяснить все сначала. Есть три таблицы: 1) firma; 2) mesto; 3) tarif. Таблицы фирма и место связаны между собой один ко многим. Таблица тариф не связана не с кем. Но значения из этой таблицы используются для расчета цены и т.д. и т.п. в таблице 2.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

да ну, я думал, что изначально у Вас в Table3Tarif.Value находится ТЕКСТОВОЕ значение, которое не может быть нормально обработано функцией StrToFloat, т.к. вместо десятичной запятой стоит точка (или наоборот) - такие вещи бывают, когда тип поля выбран (ошибочно) как текстовый и таблица заполняется на компьютерах с разными региональными установками.

в Вашем же случае достаточно так:

procedure TForm1.Table2CalcFields(DataSet: TDataSet);
begin
if Table3Tarif.Value<>0 then
  Table2Pzamespoden.Value:=Round((Table2Ostatoknanachmes.Value+(Table2Pologenodeneg.Value-Table2Ostatoknakonmes.Value))/Table3Tarif.Value) // по деньгам
else
  Table2Pzamesposchet.Value:= Table2Pnakonec.Value - Table2Pnanach.Value; // по счетчику

end;