diff --git a/src/bloky/TBloky.pas b/src/bloky/TBloky.pas index 6563ee91..863bed94 100644 --- a/src/bloky/TBloky.pas +++ b/src/bloky/TBloky.pas @@ -845,7 +845,7 @@ function TBlky.GetBlkWithSpr(spr:Integer):TBlksList; // predpovidani soupravy na bloky v jizdni ceste procedure TBlky.SprPrediction(Nav:TBlk); -var Usek:TBlk; +var Usek, startUsek:TBlk; Trat:TBlk; spr:Integer; JC:TJC; @@ -853,6 +853,7 @@ procedure TBlky.SprPrediction(Nav:TBlk); try // zjistime soupravu pred navestidlem Usek := (Nav as TBlkSCom).UsekPred; + startUsek := Usek; spr := (Nav as TBlkSCom).GetSoupravaIndex(usek); if ((Nav as TBlkSCom).Navest > 0) then begin @@ -870,6 +871,9 @@ procedure TBlky.SprPrediction(Nav:TBlk); // zjistime posledni usek jizdni cesty Blky.GetBlkByID(JC.data.Useky[JC.data.Useky.Count-1], Usek); + if (usek = startUsek) then + break; // ochrana proti JC na ovalu + if ((Usek.typ = _BLK_TU) and ((Usek as TBlkTU).InTrat > -1)) then begin // pokud je usek v trati, zmenime usek na usek na druhem konci trati diff --git a/src/hJOPserver.dproj b/src/hJOPserver.dproj index 1977290d..7b578a74 100644 --- a/src/hJOPserver.dproj +++ b/src/hJOPserver.dproj @@ -294,7 +294,7 @@ True 4 13 - 0 + 1 0 False False @@ -307,7 +307,7 @@ Jan Horáček hJOP technologicky server - 4.13.0.0 + 4.13.1.0 hJOPserver Jan Horáček 2008-2018