Найдено 98 результатов

Dilettante_Pro
14 ноя 2013, 12:35
Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
Тема: Печать на новом листе (UNIX)
Ответы: 2
Просмотры: 4785

Re: Печать на новом листе (UNIX)

Еще можно попробовать вместо оператора

OUTPUT TO PRINTER.

использовать

OUTPUT TO PRINTER PAGED.

хотя в хелпе написано: PAGED is automatic for output to a printer.
Жалко, не на чем попробовать...
Dilettante_Pro
14 ноя 2013, 09:56
Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
Тема: Печать на новом листе (UNIX)
Ответы: 2
Просмотры: 4785

Re: Печать на новом листе (UNIX)

Вместо PAGE можно попробовать PUT CHR(12). /* Form Feed */
Dilettante_Pro
25 окт 2013, 16:35
Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
Тема: Вызов немодальных окон
Ответы: 9
Просмотры: 11026

Re: Вызов немодальных окон

Возможный вариант решения проблемы: Головная процедура win0.w запускается как PERSISTENT. Процедуры win1.w и win2.w запускаются следующим образом: ON CHOOSE OF BUTTON-1 IN FRAME fMain /* RUN win1 */ DO: ASSIGN BUTTON-1:SENSITIVE = NO. RUN win1.w PERSISTENT (input BUTTON-1:Handle). END. В win1.w и wi...
Dilettante_Pro
24 окт 2013, 15:27
Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
Тема: Вызов немодальных окон
Ответы: 9
Просмотры: 11026

Re: Вызов немодальных окон

Такой же точно эффект наблюдается и в простых Window, не Smart
И в версии 11.1
Dilettante_Pro
18 июн 2013, 16:01
Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
Тема: Временная таблица
Ответы: 2
Просмотры: 4765

Re: Временная таблица

Можно примерно так: Для таблицы, определенной через DEFINE CREATE BUFFER hBuffer FOR table "tTable". do i = 1 to hBuffer:NUM-FIELDS: hField = hBuffer:BUFFER-FIELD (i). MESSAGE i hField:NAME hField:DATA-TYPE hField:FORMAT VIEW-AS ALERT-BOX INFO. END. Где tTable - имя таблицы hBuffer, hField...
Dilettante_Pro
25 май 2013, 09:48
Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
Тема: Теряется буфер таблицы
Ответы: 6
Просмотры: 8106

Re: Теряется буфер таблицы

Потому, что в данном случае область определения буфера tT2 - сама процедура (из-за "message tT2.fValue"). Да, действительно, при удалении message буфер tT2 теряется. Но, кстати, такой способ можно использовать для расширения области определения объекта -поставить оператор с объектом на ну...
Dilettante_Pro
24 май 2013, 09:51
Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
Тема: Теряется буфер таблицы
Ответы: 6
Просмотры: 8106

Re: Теряется буфер таблицы

Область определения буфера polis.xmlpasp совпадает с блоком FOR EACH ttElement и после каждого цикла буфер освобождается. Если так, то почему прекрасно работает эта программа? def temp-table tT1 field fName as char field fValue as int. def temp-table tT2 field fValue as int. create tT1. assign tT1....
Dilettante_Pro
22 май 2013, 10:14
Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
Тема: Теряется буфер таблицы
Ответы: 6
Просмотры: 8106

Re: Теряется буфер таблицы

Мне кажется, что для того, чтобы первый вариант сработал, условие ttElement.cName = "/root/row" должно идти в таблице ttElement обязательно РАНЬШЕ условия CASE ttElement.cName: WHEN "/root/row/u_numb_regist_record" - в противном случае новая запись таблицы polis.xmlpasp при сраба...
Dilettante_Pro
17 май 2013, 14:37
Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
Тема: Динамический фрейм
Ответы: 2
Просмотры: 5166

Re: Динамический фрейм

Возможно по крайней мере 2 способа: 1- Описать все варианты фреймов и спрятать все, кроме стартового. По выбору включать нужный фрейм. Работающий пример: CREATE WIDGET-POOL. DEFINE VARIABLE WINDOW-Frame AS WIDGET-HANDLE NO-UNDO. DEFINE VARIABLE vType_frame AS INTEGER LABEL "Òèï ôðåéìà" VIE...
Dilettante_Pro
16 май 2013, 10:29
Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
Тема: Передача имени таблицы
Ответы: 7
Просмотры: 8610

Re: Передача имени таблицы

а во фрейме элемент bh:buffer-field("name_field"):buffer-value как fill-in разместить никак нельзя? Создать динамический fill-in (см. HELP CREATE widget statement), присвоить SCREEN_VALUE = bh:buffer-field("name_field"):buffer-value. После редактирования - обратное присвоение
Dilettante_Pro
14 май 2013, 09:48
Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
Тема: Передача имени таблицы
Ответы: 7
Просмотры: 8610

Re: Передача имени таблицы

А можно еще так: Вызывающая процедура run change-table(input buffer Customer:handle). Customer - имя передаваемой таблицы - для примера. Вызываемая процедура - почти как у dmitri, с небольшими изменениями procedure change-table: define input parameter /* ip-table-name as character */ bh as handle no...
Dilettante_Pro
11 апр 2013, 10:24
Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
Тема: Получить хэндл процедуры в стеке
Ответы: 10
Просмотры: 14212

Re: Получить хэндл процедуры в стеке

вызвать внутренню процедуру из процедуры, находящейся в стеке. Не совсем понятно, как вы хотите этого достичь. Обычная процедура выполняется синхронно, поэтому никаких действий до ее завершения вы произвести не сможете, а по завершении процедуры ее контент не сохраняется - обращаться не к чему. Для...
Dilettante_Pro
13 мар 2013, 12:52
Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
Тема: Рефлексия TEMP-TABLE
Ответы: 1
Просмотры: 3867

Re: Рефлексия TEMP-TABLE

Например, так : DEFINE VARIABLE cSourceType AS CHARACTER NO-UNDO. DEFINE VARIABLE cReadMode AS CHARACTER NO-UNDO. DEFINE VARIABLE lOverrideDefaultMapping AS LOGICAL NO-UNDO. DEFINE VARIABLE cFile AS CHARACTER NO-UNDO. DEFINE VARIABLE cSchemaLocation AS CHARACTER NO-UNDO. DEFINE VARIABLE cFieldTypeMa...