Name('Import příznaků');
Designed('Skl_Man#1');
Descr('Importuje příznaky')

WnsType(-1)
ModifyMode(True)

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

PF:TextFile;

Open(PF,'SklPri'+Rok(2)+'.TXT')

LocStr:String;
LocStr2:String;
Priznaky:Byte;

While(not EOF(PF)) do
  begin
    LocStr=ReadLn(PF);
    LocStr2=ToChar(',',LocStr);
    LocStr=FromChar(',',LocStr);
    ClearRec(KeySklad2);
    KeySklad2.Length=SizeOf(KeySklad2)-1;
    KeySklad2.Sklad=Swap(LocStr2);
    LocStr2=ToChar(',',LocStr);
    LocStr=FromChar(',',LocStr);
    StrToChars(KeySklad2.Material,LocStr2,' ');
    LocStr2=ToChar(',',LocStr);
    Priznaky=Val(LocStr2);
    if(FindKey(KeySklad2,Veta))
      begin
        ReadRec(Sklad,Veta);
        if(Sklad.Flags<>Priznaky)
          begin
            Sklad.Flags=Priznaky
            ModifyRec(Sklad,Veta);
          end;
      end;
  end;

END