Окно параметров просмотра

Создайте новое окно с помощью окна New (File - New). Сохраните его под именем w_period.

В качестве WindowType выберете responce (модальное окно). В закладке Other окна Properties установите координаты окна.

Добавьте два объекта StaticText (Insert - Control - StaticText) и два объекта EditMask (Insert - Control - EditMask). Объекты StaticText будут служить текстом для объектов EditMask, т.к. последние не имеют самостоятельного текстового поля для названия.

Тексты для StaticText: "Дата начала " и " Дата окнончания ".

Названия для объектов EditMask: em_beg и em_end. В закладке Mask окна Properties установите MaskDataType в значение datemask!, в поле Mask выберете маску для даты (например, mm/dd/yyyy).

Добавьте в окно две кнопки (Insert - Control - CommandButton).

В окне закладке General окна Properties для первой кнопки установите имя cb_ok, установите признак default. Последнее будет означать, что кнопка будет срабатывать на нажатие клавиши Enter.

В окне закладке General окна Properties для второй кнопки установите имя cb_cancel, установите признак cancel. Последнее будет означать, что кнопка будет срабатывать на нажатие клавиши Esc.

Объявление переменных

w_account iw_account

Скрипт для события open

iw_account = message.powerobjectparm
em_beg.text = string(iw_account.idt_beg, em_beg.mask)
em_end.text = string(iw_account.idt_end, em_end.mask)
Скрипт для события clicked объекта cb_ok
em_beg.getdata(iw_account.idt_beg)
em_end.getdata(iw_account.idt_end)
closewithreturn(parent, 'OK')

Функция getdata заносит значение объекта EditMask в переменную типа MaskDataType.

При закрытии окна возвращается значение типа string, которое содержится в объекте message и проверяется в вызывающем окне.

Скрипт для события clicked объекта cb_cancel

close(parent)