Список проголосовавших за комментарий "iWANTforLCHI2019fromZERO, Огромное спасибо за замечание. Источник тот же, ни откуда принудительно загружать не нужно. Просто при попытке уменьшить количество сделок (по одной цене и в одно и то же время) что-то пошло не так )). Вот исправленный код. Его можно вставить в конец файла connections.cfg через обыкновенный блокнот. Скопировать отсюда:<br/> <p>(defun funcall-lchi-ticker-menu (menu menu-item window)<br/> (declare (ignore menu window))<br/> (let* ((ticker-str (title menu-item))<br/> (ticker-moex (find-moex-sec-id ticker-str))<br/> (first (find ticker-str *lchi-deals* :key #'(lambda (x) (princ-to-string (tiker x))) :test #'string=))<br/> (last (find ticker-str *lchi-deals* :key #'(lambda (x) (princ-to-string (tiker x))) :test #'string= :from-end t))<br/> (first-date (if first (deal-date first)))<br/> (last-date (if last (deal-date last))))<br/> (unless ticker-moex<br/> (pop-up-message-dialog *main-wnd* «Поиск на MOEX» (format nil «Инструмент ~a не найден или не торгуется.» ticker-str) warning-icon «Ok»)<br/> (return-from funcall-lchi-ticker-menu))<br/> (when (and first-date last-date)<br/> (when ticker-moex<br/> (create-ticker ticker-moex)<br/> (let* ((wnd (eval (read-from-string ticker-str))))<br/> (with-message-window ((format nil «Загрузка данных...») :owner (frame-child (main-wnd wnd)) :width 150 :height 80<br/> :font (make-font-ex nil «Arial» 12) :foreground-color white :background-color dark-gray)<br/> (clear-old-data wnd)<br/> (setf (start-date wnd) (convert-yyyymmdd-to-ddmmyy (incf-date last-date 2)))<br/> (set-Nmin-time-frame wnd (read-from-string (format nil ":~amin" (period (car (time-candle-list wnd)))))))<br/> ; Обновляем открытую таблицу сделок<br/> (when (windowp (orders-wnd wnd))<br/> (setf (object-list (orders-wnd wnd)) (user-deals wnd))<br/> (setf (range (vscroll-bar (orders-wnd wnd)))<br/> (list 0 (max 0 (1- (length (if (object-prop (orders-wnd wnd)) <br/> (funcall (object-prop (orders-wnd wnd)) (grid-object (orders-wnd wnd)))<br/> (grid-object (orders-wnd wnd))))))))<br/> (setf (value (vscroll-bar (orders-wnd wnd))) 0)<br/> (setf (cur-ind (orders-wnd wnd)) 0)<br/> (invalidate (frame-child (orders-wnd wnd))))<br/> (invalidate (frame-child (main-wnd wnd))))))))</p><br/> Откомпилированная версия будет завтра утром в виде заплатки (скачать и распаковать в паку Джато поверх старых файлов."