Name('Rušení příznaků ročních převodů'); pod tímto názvem bude sestava v menu
Designed('DenMan')                ; sestava bude dostupná z okna Denman
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')  ;informace o autorovi
Descr('Zruší v dokladech příznak o automatickém generování dokladu','důrazně doporučujeme nezpouštět pokud nevíte co skript dělá')  ;popis sestavy, tento text bude v bublince

WNSType(-1)

DeclareRec('Denik')
DeclareRec('KeyDenik2')

ClearKey(KeyDenik2);

Veta:LongInt
Zmeneno:LongInt
LocL:LongInt;
Pocet:LongInt

ModifyMode(True);

InitStatus(UsedKeys(KeyDenik2),'Provádím úpravy ...');

LastDokl:String;
LastRus:Boolean;

While(NextKey(KeyDenik2,Veta))
  begin
    ReadRec(Denik,Veta);
    if(InFilter(Denik))
      begin
        if(Denik.Flags&1<>0)
          begin
            if(CompareStr(LastDokl,Denik.Doklad)<>0)
              begin
                LastRus=Question('Přejete si zrušit příznak automatického generování u dokladu'+#13+Denik.Doklad+#13+'?');
                LastDokl=Denik.Doklad;
              end;
            if(LastRus)
              begin
                Denik.Flags=Denik.Flags & $FFFE;
                ModifyRec(Denik,Veta);
                Inc(Zmeneno);
              end;
          end;
      end;
    Inc(Pocet);
    SetStatus(Pocet);
  end;

Message('Byla upraven příznak u počtu položek: '+Str(Zmeneno),mb_IconInformation);

END