Russian Progress User Group

Имею программу примерно следующего содержания: define browse b-invs query q-invs display ... with 7 down single size 76 by 9 title 'Документы:'. procedure open-q-invs. title1 = codepage-convert('Документы:' + ... ,'ibm866'). open query q-invs ... . end procedure. run open-q-invs. b-invs:titl...

А вот если не обработка в цикле а длинная команда, например так: on f5 anywhere do: message '!!!'. end. process events. for each table-with-10-mln-records no-lock by non-index-field: process events. end. не работает. Кроме STOP никаких клавиш не обрабатывается . (до тех пор, ессесна, пока внутри цик...

хочу простого. Запустить некую программу, которая создаст запись, вернет ее recid, а вызывающая программа вставила бы этот рецид в списки записей квери и броуза. Пишу что-то типа on f5 of main-b in frame br do: do transaction: qbf_rec = recid(goods). run t-ga.p ( input-output qbf_rec, ou...

И еще раз какая-то хрень... Имею стартап параметры -lng "Russian" -cpcase Basic -cpcoll Russian -cpinternal 1251 -cpstream ibm866 и текстовый интерфейс. Имею кусок кода: define browse b-sort2 query sort2 display sf-2.fld-usr-name column-label 'Критерий' sf-2.order column-label 'пор.' strin...

В конце концов сделал отметки хранимыми во временной таблице. define browse b1s query q1s no-lock display can-find(first wf where wf.sel-rid = recid(...)) format '**/' column-label 'отм' ... with 20 down [u]single[/u] no-box size 78 by 20. и на пробел повесил тригер на создание/удале...

Чесна сказать, не пробовал, потому что хотелось бы более верхнего уровня события взять... А навигационные - сколько их? cursor-up/down page-up/down home, end, Ctrl-PgUp/Dn Ctrl-cursor-left, left-mouse-click Что я еще пропустил? Опять же, они вроде как происходят ДО того как фокус изменит свое местоп...

Что-то, наверное, торможу, но никак... Имею объект BROWSE с опцией multiple . Хочу при изменении фокуса (ну, т.е. когда юзер, скажем, нажал стрелку вверх, или вниз, или мышью там в строку щелкнул) делать некое действие (реально - выводить в нижней строке более подробную информацию о текущей строке с...