Name('Zrušení počátečních stavů'); 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('Zruší počáteční stavy na kartách')  ;popis sestavy, tento text bude v bublince

WNSType(-1)

if(not Question('Pozor !!!'+#13+#13+'Tato volba zruší počáteční stavy na kartách, opravdu to chcete ?'))
  Exit;

DeclareRec('Sklad')
DeclareRec('KeySklad4')

ClearKey(KeySklad4);

Veta:LongInt
Zmeneno:LongInt
Pocet:LongInt;

ModifyMode(True);

InitStatus(UsedKeys(KeySklad4),'Upravuji počáteční stavy');

LocStr:String;
LocStr2:String;

While(NextKey(KeySklad4,Veta))
  begin
    ReadRec(Sklad,Veta);
    if(InFilter(Sklad))
      begin
        if((Sklad.PocStav<>0)or(Sklad.PocStavKC<>0))
          begin
            Sklad.PocStav=0
            Sklad.PocStavKC=0
            ModifyRec(Sklad,Veta);
            Inc(Zmeneno);
          end;
      end;
    Inc(Pocet);
    SetStatus(Pocet);
  end;

Message('Byly zrušeny počáteční stav u počtu položek: '+Str(Zmeneno),mb_IconInformation);

END