Name('Cena A = A*1,0153846154')      ; pod tímto názvem bude sestava v menu
Designed('Skl_Man#1')                ; sestava bude dostupná z okna Adrman
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')  ;informace o autorovi
Descr('Povýší cenu A o 1,0153846154')  ;popis sestavy, tento text bude v bublince

WNSType(-1)
DeclareRec('Sklad')
DeclareRec('KeySklad1')

ClearKey(KeySklad1);

Veta:LongInt
Zmeneno:LongInt
LocL:LongInt;
LocR:Real;
Pocet:LongInt

ModifyMode(True);

InitStatus(UsedKeys(KeySklad1),'Přepočítávám ceny A ...');

While(NextKey(KeySklad1,Veta))
  begin
    ReadRec(Sklad,Veta);
    if(InFilter(Sklad))
      begin
           Sklad.CenaA=RoundPrice(Sklad.CenaA*1.0153846154)
           ModifyRec(Sklad,Veta);
           Inc(Zmeneno);
      end;
    Inc(Pocet);
    SetStatus(Pocet);
  end;

Message('\rByla upravena cena A.\r\r(Změněno položek: '+Str(Zmeneno)+')',mb_IconInformation);

END