Окно параметров просмотра
Создайте новое окно с помощью окна 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)