Name('Zrušení inventurních stavů');
Designed('Skl_Man#1');
Descr('Zruší inventurní stavy')

WnsType(-1)

ModifyMode(True);

DeclareRec('Sklad')
DeclareRec('KeySklad1')
DeclareRec('Program')
Veta:LongInt
Pos:LongInt
Kod:String[14]
Zmeneno:LongInt;

ClearKey(KeySklad1)
InitStatus(UsedKeys(KeySklad1))
While(NextKey(KeySklad1,Veta))
  begin
    ReadRec(Sklad,Veta)
    if(InFilter(Sklad))
      begin
        if((Sklad.InvStav<>0) or (Sklad.Flags2&$20<>0))
          begin
            Sklad.InvStav=0;
	    Sklad.Flags2=Sklad.Flags2 & $DF;
            ModifyRec(Sklad,Veta)
	    Inc(Zmeneno);
          end
      end
    Inc(Pos)
    SetStatus(Pos)
  end

Message('Zrušení inventur ukončeno, zrušena inventura u vět: '+Str(Zmeneno),mb_IconInformation);

END