Designed('WinDUO');
Name('Změna sazby DPH v pohybech');

DeclareRec('Pohyb');
DeclareRec('KeyPohyb1');

InitStatus(UsedKeys(KeyPohyb1),'Měním sazby');

Obd:String;

Obd=Rok(4);

if(Val(Obd)<>2010)
  Error('Rok musí být 2010 a je '+Obd);

Zmeneno:LongInt;
Pozice:LongInt;
Veta:LongInt;
Zmena:Boolean;

ModifyMode(True);

ClearKey(KeyPohyb1);

while(NextKey(KeyPohyb1,Veta))
  begin
    ReadRec(Pohyb,Veta);
    Zmena=False;
    if(Pohyb.DPH=9)
      begin
        Zmena=True;
        Pohyb.DPH=10
      end else
    if(Pohyb.DPH=19)
      begin
        Zmena=True;
        Pohyb.DPH=20;
      end;
    if(Zmena)
      begin
        Inc(Zmeneno);
        ModifyRec(Pohyb,Veta);
      end;
    Inc(Pozice);
    SetStatus(Pozice);
  end;

Message('Bylo změněno záznamů: '+Str(Zmeneno)+' z '+Str(Pozice),mb_IconInformation);

END