anchor.diff:    TOblRizeni, changeEvent, changeEventCaller, JsonDataObjects, PTUtils;
   
   const
  -  _JC_TIMEOUT_SEC = 20;                                                         // timeout pro staveni jizdni cesty (vlakove i posunove v sekundach)
  +  _JC_INITPOTVR_TIMEOUT_SEC = 60;                                               // timeout UPO a potvrzeni na zacatku staveni JC
  +  _JC_TIMEOUT_SEC = 30;                                                         // timeout pro staveni jizdni cesty (vlakove i posunove v sekundach)
  +  _JC_PRJ_TIMEOUT_SEC = 50;                                                     // timeout pri staveni JC pro zavirani prejezdu v ceste
     _NC_TIMEOUT_MIN = 1;                                                          // timeout pro staveni nouzove cesty (vlakove i posunove) v minutach
     _JC_MAX_VYH_STAVENI = 4;                                                      // kolik vyhybek se muze stavit zaroven v JC
   
  
positive.code: 
  ////////////////////////////////////////////////////////////////////////////////
  
  // timeout staveni JC = 40 sekund
  procedure TJC.UpdateTimeOut();
  var prejezd:TBlkPrejezd;
      prjZaver:TJCPrjZaver;
  
negative.code:         end;//for i
  
        if (anyUzavren) then
         begin
          Self.Krok := _JC_KROK_CEKANI_PREJEZDY;
          Self.fstaveni.TimeOut := Now + EncodeTime(0, _JC_PRJ_TIMEOUT_SEC div 60, _JC_PRJ_TIMEOUT_SEC mod 60, 0);
         end else
          Self.Krok := _JC_KROK_FINALNI_ZAVER;
  
       end;
  
  