; verze z 8.6.2006

Name('Zrušení pomocných rezervací')
Designed('SKL_MAN#1')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Zruší pomocné rezervace učiněné automaticky programem')

WNSType(-1);

;****************************************************************************

DeclareRec('Pohyb');
DeclareRec('KeyPohyb7');

InitStatus(UsedKeys(KeyPohyb7),'Ruším rezervace ...')

Veta:LongInt;
Zruseno:LongInt;
Pozice:LongInt;

KeyPohyb7.Length=1
KeyPohyb7.Typ=3

LocBo:Boolean=SearchKey(KeyPohyb7,Veta);

While((LocBo)and(KeyPohyb7.Typ=3))
  begin
    ReadRec(Pohyb,Veta);
    if(Pohyb.Rezervace=-1)
      begin
        ModifyMode(True);
        DeleteRec(Pohyb,Veta);
        Inc(Zruseno);
      end;
    Inc(Pozice);
    SetStatus(Pozice);
    LocBo=NextKey(KeyPohyb7,Veta);
  end;

Message('Bylo zrušeno rezervací: '+Str(Zruseno),mb_IconInformation);

END;