OpenEdge ABL

Выполнение процедуры с фреймом в меню печати

В начало
Назад
1
Вперед
В конец

1

Black
Автор темы
Не в сети
COM_KUNENA_SAMPLEDATA_RANK1

Больше

16 окт 2014 13:54 #1 от Black

COM_KUNENA_MESSAGE_CREATED_NEW

Наткнулся на необычный глюк АБСки, ну или "непонятность" для меня.
Написал простенькую процедуру с использванием фрема для ввода входных данных перед выводом отчета.
Если данную процедур подцепить в меню разное/разные процедуры, то процедура отрабатывает как надо без визульных глюков.
В случае если подцепить данную процедуру к, например, МЕНЮ ПЕЧАТИ - ФИЗИЧЕСКИЕ ЛИЦА (ну та которая открывается по CTRL+G из окошка Физ.лицо.), то после выполнения данный фрейм не закрывается, а, как бы, уходит вниз под окно "Физическиое лицо" вместе с менюшкой процедур печати.... и закрывается только после закрытия сначала окна "Физ.лицо", затем меню печати, а потом только наше окошко.

вот инклюдчник определения окна

DEFINE VARIABLE CardTypeCode AS INTEGER LABEL "Тип карты"NO-UNDO.
DEFINE VARIABLE CurrencyCode AS INTEGER LABEL "Валюта" NO-UNDO.

DEFINE FRAME fInputParam
	CardTypeCode VIEW-AS COMBO-BOX HELP "Тип карты" SKIP
	CurrencyCode VIEW-AS COMBO-BOX HELP "Валюта карты"
WITH 3 DOWN KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
SIZE 50 BY 7 CENTERED
TITLE COLOR bright-white "=[ УКАЖИТЕ ТИП КАРТЫ ]=".

PROCEDURE Enable_UI:
	PAUSE(0).
	DISPLAY CardTypeCode
		CurrencyCode
	WITH FRAME fInputParam.
	UPDATE CardTypeCode
		CurrencyCode
	WITH FRAME fInputParam.
END PROCEDURE.

PROCEDURE disable_UI:
	HIDE FRAME fInputParam NO-PAUSE.
	IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
END PROCEDURE.

вот как вызываю окно

MAIN-BLOCK:
DO ON ERROR UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK
   ON END-KEY UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK:

...

	RUN Enable_UI.
	IF NOT THIS-PROCEDURE:PERSISTENT THEN
		WAIT-FOR CLOSE OF THIS-PROCEDURE OR 
		CTRL-J OF FRAME fInputParam FOCUS CardTypeCode.


...

END.

Я чего-то не понимаю или где-то ошибся?

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

Black
Автор темы
Не в сети
COM_KUNENA_SAMPLEDATA_RANK1

Больше

16 окт 2014 14:11 - 16 окт 2014 14:12 #2 от Black

COM_KUNENA_MESSAGE_REPLIED_NEW

все сам нашел.....

PROCEDURE Enable_UI:
	PAUSE(0).
	DISPLAY CardTypeCode
		CurrencyCode
	WITH FRAME fInputParam.
	ENABLE CardTypeCode
		CurrencyCode
	WITH FRAME fInputParam.
END PROCEDURE.

Вместо UPDATE нужно ENABLE ))))

Last edit: 16 окт 2014 14:12 by Black.

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.