Name('Export příznaků pro další rok');
Designed('Skl_Man#1');
Descr('Exportuje příznaky pro další rok')

WnsType(-1)

DeclareRec('Sklad')
DeclareRec('KeySklad2')
DeclareRec('Program')
Veta:LongInt
Pos:LongInt

PF:TextFile;

Rewrite(PF,'SklPri'+Null(Str(Val(Rok(2))+1),2)+'.TXT')

ClearKey(KeySklad2)
InitStatus(UsedKeys(KeySklad2))
While(NextKey(KeySklad2,Veta))
  begin
    ReadRec(Sklad,Veta)
    if(InFilter(Sklad))
      begin
        WriteLn(PF,Str(Sklad.Sklad)+','+Sklad.Material+','+Str(Sklad.Flags));
      end
    Inc(Pos)
    SetStatus(Pos)
  end
END