begin

  Dataset.First;
  dataset.DisableControls;
  try
    while not dataset.eof do
    begin
      dataset.edit;

      //>> >> >> IS> Можно ли задать процент по умолчанию например такой: цена меньше 50 р.
      //>> >> SZ> -
      //>> >> >> IS> 30%, 50-100 р. - 20%, и т.д.

      if dataset.fieldbyname('zakupcena').asFloat < 50
      then
        dataset.fieldbyname('rs_cena').asFloat := bvroundto(dataset.Fieldbyname('zakupcena').asFloat * 1.3,-2,rptruncate)
      else
      if dataset.fieldbyname('zakupcena').asFloat < 100
      then
        dataset.fieldbyname('rs_cena').asFloat := bvroundto(dataset.Fieldbyname('zakupcena').asFloat * 1.2,-2,rptruncate)
      else
      //if dataset.fieldbyname('zakupcena').asFloat < 150
      //then
        dataset.fieldbyname('rs_cena').asFloat := bvroundto(dataset.Fieldbyname('zakupcena').asFloat * 1.1,-2,rptruncate);

      dataset.post;
      dataset.next;
    end;
  finally
    dataset.enableControls;
  end;
end.