• Registered: 2016-04-19
  • Posts: 29

Topic: Grid и вычисляемое поле

Друзья, добрый день.
Прошу помочь со следующим вопросом: что-то голову сломал, но не могу самостоятельно решить данный вопрос.
На форме имеется грид в который выводятся следующие поля:
- артикул рабочей операции (LOPWork), тип поля: TEXT
- наименование рабочей операции (NameWork),тип поля: TEXT
- трудозатраты, н\ч ( KolNch), тип поля: ВЕЩ.ЧИСЛО
- стоимость н\ч (PriceNch), тип поля: ДЕНЬГИ
- итого стоимость работы (SumPriceNch), тип поля: ВЫЧИСЛЯЕМОЕ (KolNch * PriceNch)
так же на форме имеется Edit: edPriceNch
идея стоит такая: в Edit в ручками или используя выбор из другого грида, вносим текущую стоимость 1 н\ч, например 3 100,00 руб.
После внесения данное значение должно отобразиться в гриде в поле стоимость н\ч (PriceNch) и должен произойти автоматический расчёт стоимости работ, который так же должен отобразиться в поле Итого стоимость работ (SumPriceNch)/
Прошу помощи со скириптом для данного действия.
Заранее благодарю
С Уважением, Олег.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Grid и вычисляемое поле

Приветствую.


Все это должно работать без скриптов, возможно я чего то не понял, приложите пожалуйства ваш проект.

Dmitry.
  • Registered: 2016-04-19
  • Posts: 29

Re: Grid и вычисляемое поле

Дмитрий, добрый день.
Спасибо за отклик на вопрос.
К сожалению не знаю как приложить проект,
По нажатию на кнопку пытаюсь сохранить данные в гриде для и отображения текущей стоимости н\часа и для автоматического расчёта и ничего не происходит.
сам код ниже
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
  i,c: integer;
  sPrice: string;
begin
  c := Form1.TableGrid1.RowCount - 1;
    for i := 0 to c do
      begin
         sPrice := FormatFloat('###,###,##0.#0', StrToFloat(Form1.Edit1.Text) );
         if ValidFloat(sPrice) then
             Form1.TableGrid1.Cells[2,i] := FormatFloat('###,###,##0.#0', StrToFloat(sPrice) );
      end;
Form1.TableGrid1.dbUpdate;
end;

С Уважением, Олег

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Grid и вычисляемое поле

Отправьте пожалуйста ваш проект на support@drive-software.com
с сылкой на данную тему.

Dmitry.
  • Registered: 2016-04-19
  • Posts: 29

Re: Grid и вычисляемое поле

Дмитрий, добрый день.
Спасибо за отклик на мой запрос в оказании помощи.
Вопрос решен. Спасибо
С Уважением, Олег.