procedure TframeMonitor.DBGResPricesColumns10UpdateData(Sender: TObject;
  var Text: string; var Value: Variant; var UseText, Handled: Boolean);
begin
  Handled := True;
  if DBGResPrices.DataSource.DataSet.State = dsEdit then
  begin
    DBGResPrices.DataSource.DataSet.FieldByName('USEINCALC').AsInteger := (1-DBGResPrices.DataSource.DataSet.FieldByName('USEINCALC').AsInteger);
    try
      DM.TRNShort.StartTransaction;
      with DM.RunFIBSQL do
      begin
        Close;
        SQL.Text := 'update TPrices set '+(Sender as TDBGridColumnEh).Grid.SelectedField.FieldName+'=:PARAM, IDAUTH=:IDAUTH, IDAUTHLOG=:IDAUTHLOG, LASTEDITDATE=current_timestamp where ID=:ID';
        ParamByName('ID').AsInteger := (Sender as TDBGridColumnEh).Grid.DataSource.DataSet.FieldByName('ID').AsInteger;
        ParamByName('IDAUTH').AsInteger := GlobalUserID;
        ParamByName('IDAUTHLOG').AsInteger := GlobalLogID;
        ParamByName('PARAM').AsInteger := (Sender as TDBGridColumnEh).Grid.DataSource.DataSet.FieldByName((Sender as TDBGridColumnEh).Grid.SelectedField.FieldName).AsInteger;
        ExecQuery;
        Close;
      end;
      DM.TRNShort.Commit;
    except
      DM.TRNShort.Rollback;
    end;
    DBGResPrices.DataSource.DataSet.Post;
  end;
end;