 // скрипт расценки приходной накладной
 // максимальный процент наценки используется как процент наценки от ЗАКУП.ЦЕНЫ


var RoundDigits :integer = -1; // округление. Если -2 - то до копейки, если -1, то 10 коп, 0 - рубль, 1 - 10 рублей, и т.д.


begin
  if IsOutput then CreateHIntW('Данный скрипт предназначен для приходных документов')
  else begin
     with TWaitCursor.create do
     try
       dataset.disablecontrols;
       try
         dataset.first;
         while not dataset.eof do
         begin
           dataset.edit;
           dataset.fieldbyname('rs_cena').asFloat :=  bvroundto( dataset.fieldbyname('cena').asFloat * (1 + dataset.fieldbyname('maxprocent').asfloat / 100), RoundDigits);
           dataset.next;
         end;
       finally
         dataset.enablecontrols;
       end;

     finally
       free
     end;

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


end.
