Еще можно попробовать вместо оператора
OUTPUT TO PRINTER.
использовать
OUTPUT TO PRINTER PAGED.
хотя в хелпе написано: PAGED is automatic for output to a printer.
Жалко, не на чем попробовать...
Найдено 98 результатов
- 12 мар 2014, 11:49
- Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
- Тема: Динамический QUERY и BUFFER-COPY
- Ответы: 3
- Просмотры: 7342
- 06 мар 2014, 09:59
- Форум: РАБОТА - ПРЕДЛОЖЕНИЕ И ПОИСК
- Тема: Руководитель проекта (АБС БИСквит), Москва
- Ответы: 11
- Просмотры: 28802
- 14 ноя 2013, 12:35
- Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
- Тема: Печать на новом листе (UNIX)
- Ответы: 2
- Просмотры: 4870
- 14 ноя 2013, 09:56
- Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
- Тема: Печать на новом листе (UNIX)
- Ответы: 2
- Просмотры: 4870
Re: Печать на новом листе (UNIX)
Вместо PAGE можно попробовать PUT CHR(12). /* Form Feed */
- 25 окт 2013, 16:35
- Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
- Тема: Вызов немодальных окон
- Ответы: 9
- Просмотры: 11177
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...
- 24 окт 2013, 15:27
- Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
- Тема: Вызов немодальных окон
- Ответы: 9
- Просмотры: 11177
Re: Вызов немодальных окон
Такой же точно эффект наблюдается и в простых Window, не Smart
И в версии 11.1
И в версии 11.1
- 18 июн 2013, 16:01
- Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
- Тема: Временная таблица
- Ответы: 2
- Просмотры: 4851
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...
- 25 май 2013, 09:48
- Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
- Тема: Теряется буфер таблицы
- Ответы: 6
- Просмотры: 8205
Re: Теряется буфер таблицы
Потому, что в данном случае область определения буфера tT2 - сама процедура (из-за "message tT2.fValue"). Да, действительно, при удалении message буфер tT2 теряется. Но, кстати, такой способ можно использовать для расширения области определения объекта -поставить оператор с объектом на ну...
- 24 май 2013, 09:51
- Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
- Тема: Теряется буфер таблицы
- Ответы: 6
- Просмотры: 8205
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....
- 22 май 2013, 10:14
- Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
- Тема: Теряется буфер таблицы
- Ответы: 6
- Просмотры: 8205
Re: Теряется буфер таблицы
Мне кажется, что для того, чтобы первый вариант сработал, условие ttElement.cName = "/root/row" должно идти в таблице ttElement обязательно РАНЬШЕ условия CASE ttElement.cName: WHEN "/root/row/u_numb_regist_record" - в противном случае новая запись таблицы polis.xmlpasp при сраба...
- 17 май 2013, 14:37
- Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
- Тема: Динамический фрейм
- Ответы: 2
- Просмотры: 5257
Re: Динамический фрейм
Возможно по крайней мере 2 способа: 1- Описать все варианты фреймов и спрятать все, кроме стартового. По выбору включать нужный фрейм. Работающий пример: CREATE WIDGET-POOL. DEFINE VARIABLE WINDOW-Frame AS WIDGET-HANDLE NO-UNDO. DEFINE VARIABLE vType_frame AS INTEGER LABEL "Òèï ôðåéìà" VIE...
- 16 май 2013, 10:29
- Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
- Тема: Передача имени таблицы
- Ответы: 7
- Просмотры: 8736
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. После редактирования - обратное присвоение
- 14 май 2013, 09:48
- Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
- Тема: Передача имени таблицы
- Ответы: 7
- Просмотры: 8736
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...
- 11 апр 2013, 10:24
- Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
- Тема: Получить хэндл процедуры в стеке
- Ответы: 10
- Просмотры: 14369
Re: Получить хэндл процедуры в стеке
вызвать внутренню процедуру из процедуры, находящейся в стеке. Не совсем понятно, как вы хотите этого достичь. Обычная процедура выполняется синхронно, поэтому никаких действий до ее завершения вы произвести не сможете, а по завершении процедуры ее контент не сохраняется - обращаться не к чему. Для...
- 13 мар 2013, 12:52
- Форум: PROGRESS - 4GL - ПРОГРАММИРОВАНИЕ
- Тема: Рефлексия TEMP-TABLE
- Ответы: 1
- Просмотры: 3942
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...