anchor.diff:    end;
   
    Self.fstaveni.nextVyhybka := -1;
  - Self.Krok := 0;
  + Self.Krok := _KROK_DEFAULT;
    Self.fstaveni.nc := false;
    Self.fstaveni.ab := false;
  + Self.fstaveni.prjWasClosed := false;
    Self.RusZacatekJC();
    Self.RusVBJC();
    Self.RusKonecJC();
  
positive.code:          writelog('Krok 13 : prejezd '+prejezd.name+' uzavren', WR_VC);
          end;//for i
  
        Self.Krok := 14;
       end;
  
  
     14:begin
        writelog('Krok 14 : useky: nastavit validni zaver', WR_VC);
  
        aZaver := Self.fproperties.TypCesty;
  
negative.code:      end;
     end;
  
    Self.Krok := _KROK_DEFAULT;
    Self.RozpadBlok := -5;
    Self.RozpadRuseniBlok := -5;
   end;
  