Russian Progress User Group

У каждого дела запах особый. В булочной пахнет сгоревшею сдобой. Мясом протухшим пахнет мясник. Газом угарным пахнет печник. Пахнет молочник прокисшей сметаной. Пахнут шахтеры горелым метаном. Пахнет газетчик как дохлая утка, Как парфюмерный отдел проститутка. Пахнет хирург неудачным наркозом. Пахне...

Check out в SVN - это не тоже самое, что check out в VSS, SoS. Check out в SVN - это "Get latest version". VSS-вский Check out в терминах SVN называется Lock. Lock в методологии SVN применяется к не-текстовым файлам, например картинкам, Word-овским doc-ам и т.д. Для текста предполагается п...

А где же тут BUFFER-FIELD ?

Можно предположить, Вы работаете с динамически создаваемыми таблицами и в этой процедуре что-то извлекается из нее. Не может ли быть ситуации, что "во всех вариантах" подразумевается, что таблица создается перед вызовом, а в ходе выполения удаляется, что и приводит к ошибке при повторном в...

Dan Foreman, Progress Performance Tuning Guide Programs DEF VAR i AS INT NO-UNDO. INPUT FROM ord-line.d . outer-blk: REPEAT TRANSACTION : REPEAT i = 1 TO 100 ON ENDKEY UNDO, LEAVE outer-blk : CREATE order-line. IMPORT order-line. END. END.

DEFINE VARIABLE dValue AS DECIMAL VIEW-AS FILL-IN FORMAT "->>>>>>>9.9999" NO-UNDO INITIAL 1234.567. DEFINE FRAME f dValue WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER SIDE-LABELS NO-UNDERLINE THREE-D SCROLLABLE. ON VALUE-CHANGED OF dValue IN FRAME f DO: DEFINE VARIABLE iPos AS INTEGER NO-UNDO. ...

Думаю ошибка(и) могут быть в том, что: 1) Нет такой ветки 2) Не совсем так надо получать значение DEFINE VARIABLE cKeyVersion AS CHARACTER NO-UNDO. LOAD "CLSID\~{A37DBAF6-214E-4967-A75C-22034F144770}" BASE-KEY "HKEY_CLASSES_ROOT" NO-ERROR. MESSAGE ERROR-STATUS:GET-MESSA...

Надо перед открывающей фигурной скобкой тильду ставить: DEFINE VARIABLE cKeyVersion AS CHARACTER NO-UNDO. LOAD "CLSID\~{93664E1A-F60F-4F5A-86B6-8BEE016616F2}\Version" BASE-KEY "HKEY_CLASSES_ROOT" NO-ERROR. IF NOT ERROR-STATUS:ERROR THEN DO: USE "CLSID\~{93664E...

Потому что DEFINE FRAME cancel_frame can_but. loop: DO WHILE n<a: n = n + 1. VIEW FRAME cancel_frame. v-button-press = FALSE. ON CHOOSE OF can_but IN FRAME cancel_frame DO: v-button-press = TRUE. IF v-button-press = TRUE THEN DO: MESSAGE "goal". LEAVE loop. END. END. RUN proc.p END./*loop*...

Прыгает - значит во время не перерисовывается. Если например быстро водить мышкой над бегущей строкой, то она ползет плавно. Если вместо DISPLAY "". вызвать RUN UpdateWindow (INPUT my_hWnd, OUTPUT iRes). где PROCEDURE UpdateWindow EXTERNAL "USER32.DLL": DEFINE INPUT PARAM...