Как обработать изменение значения поля, подскажите.

[Аленка]

Нужно отловить изменение значения поля с календарем диалога, в процедуре tab по idField не получается, подскажите, пожалуйста.

[RVV]

Это высший пилотаж

Для примера можно посмотреть диалог:
hr_dlg_rep_d1
hr_dlg_structs_list

обратите внимание на выставленные "галки" у поля ...

[Аленка]

RVV
А у меня их нет, может скините сюда какой-нибудь код?

[Mike]

Процедура TAB hr_dlg_structs_list

if DLGFIELD[''] == '-1' then {
LOCAL _dlgname_ := DLGNAME;

if @@id_firm <> 0 then DISFIELD DLGNAME, id_firm;
}; -- -1

if DLGFIELD[''] == 'id_firm' then {
Let @@id_firm := DLGNAME:id_firm;
}; -- id_firm

if DLGFIELD[''] == 'd_from' then {
if ISDATE(CONVERT(varchar,DLGNAME:d_from[''])) = 0
then { Let DLGNAME:d_from := @@d_from;
drawfield DLGNAME, d_from; }
else { Let @@d_from := DLGNAME:d_from['']; };
}; -- d_from

Msg 2141, @pr_lst_structs_tree;
Let _where_structs := '';
Msg 2041, @pr_lst_structs;

alias _seek = 0x2000;


Процедура TAB hr_dlg_rep_d1

if DLGFIELD[''] == '-1' then {
LOCAL _dlgname_ := DLGNAME;

if @@id_firm <> 0 then {
DISFIELD DLGNAME, id_firm;
ALIAS _where_setup := AND ACVW_SETUP.id_firm = @@id_firm;
};
}; -- -1

if DLGFIELD[''] == 'id_firm' then {
Let @@id_firm := DLGNAME:id_firm;

if @@id_firm <> 0
then { ALIAS _where_setup := AND ACVW_SETUP.id_firm = @@id_firm; }
else { LET _where_setup := ''; };
}; -- id_firm

if DLGFIELD[''] == 'd_from' then {
if ISDATE(CONVERT(varchar,DLGNAME:d_from[''])) = 0
then { Let DLGNAME:d_from := @@d_from;
drawfield DLGNAME, d_from; }
else { Let @@d_from := DLGNAME:d_from['']; };
}; -- d_from


execute hr_prc_review_list;

alias _seek = 0x2000;
--------------------------------------------------------------------------------
d_from - как раз дата
галочка в поле d_from - стоит "не проверять"

[RVV]

Поле на диалоге должно быть не EDIT, а LOOKUP
- поставить галку "не проверять" - это отрисует календарь
- поставить @ в "SQL выражение"

То, что написал Mike к делу не относится.
В секции TAB указывается обработка события ...

if DLGFIELD[''] == 'ТАБЛИЦА_ЗАПРОСА.поле' then {

};

[Аленка]

RVV
Спасибо, попробую. По выполнению отпишусь.

[Аленка]

[RVV]

Вы просто не умеете их готовить

Пишите проще.
Такой SQL в запросе диалога - БРЕД.
Дизайнер просто подавился ....

Диалог предполагает в секции FROM имя таблицы ... одной
А поле должно быть datetime ... тогда Дизайнер все поймет .. он умный

В вашем случае можно написать примитивный запрос от фиктивной таблицы (или вообще без таблицы)

@hr_dlg_rep_d
Select
0 as struct_code
, cast('1900-01-01' as datetime) as d_from
, 0 as id_firm



, а то что вы нагородили вынести в
начальное присвоение значений.

[Аленка]

RVV

Дык, я же предупреждала, что я-чайник, с Дизайнером общаюсь только пару недель.

Изначально мой селект выглядел как ваш. Потом начались непонятки с типом datetime, в результате чего получился такой изврат.
В коде инициализации стоит Set dateformat YMD;
Глобально заданы три переменные _wdate,_bdate,_edate, все as Date.
Тем не менее после пересвоения _wdate, на окне появлялось немылимая дата, что-то из 1905 года... ее так cast интерпретировал.

Пришлось изгаляться и сначала загонять даты во временную таблицу с полями типа datetime, считывать их оттуда, тогда все отображалось правильно.

Понимаю, что слишком все мудрено и наверное, все можно делать проще... но я изучаю Босс Дизайнер в основном методом тыка, поскольку техническое описание на него та еще конфетка!

[RVV]

Обратитесь к разработчикам за консультациями,
и узнайте когда очередные курсы по Дизайнеру.

PS: Пишите проще