 // пример скрипта расценки в розничном чеке

const
 RoundDigits = -2; // количество знаков для округления

begin
  CreateHInt('Данный скрипт применяет скидку 5% всем товарам в чеке');

  begin
     with TWaitCursor.create do
     try
       dataset.disablecontrols;
       try
         dataset.first;
         while not dataset.eof do
         begin
           //Можно сделать проверку по коду, например:
           // if dataset.fieldbyname('nn').asstring ='12345' then begin
           // А можно интересующие коды не вручную в скрипт писать, что нехорошо, все-таки программа,
           // а создать список кодов, например, в виде текстового файла и подсовывать его сюда.
           // Или в справочнике товаров задействовать колонку какую, а здесь проверять.

           dataset.edit;
           dataset.fieldbyname('cena').asFloat :=  bvroundto( dataset.fieldbyname('prodcena').asFloat * (1 - 5 / 100), RoundDigits);

           // Конец проверки
           // end;

           dataset.next;
         end;
       finally
         dataset.enablecontrols;
       end;

     finally
       free
     end;

     CreateHint('Товар расценен');
  end;


end.
