Цитата:
Сообщение от
Dzemon
Последний вариант.
Как его вызвать:
rec_Date Record Дата
From Date Date
CalendarForm Form Calendar Form
<div class='CALtop'>C/AL</div><div class='CAL'>OnLookup(VAR Text : Text[1024]
: Boolean
CLEAR(CalendarForm);
IF Text <> '' THEN
BEGIN
EVALUATE("From Date",Text);
rec_Date.SETRANGE("Тип периода",rec_Date."Тип периода"::День);
rec_Date.SETRANGE("Начало периода","From Date");
CalendarForm.SETTABLEVIEW(rec_Date);
END;
IF CalendarForm.RUNMODAL = ACTION::LookupOK THEN
BEGIN
rec_Date.RESET;
CalendarForm.GETRECORD(rec_Date);
Text := FORMAT(rec_Date."Начало периода");
EXIT(TRUE);
END
ELSE
EXIT(FALSE);</div>
Щас вот решил скачать и посмотреть творчество уважаемого Dzemon. Ну так, судя по коду и прочим атрибутам: я двигался в том же направлении. А вообще исходным прообразом создания такой вещи для меня послужил 1С: там такая мулька используется довольно давно, а когда начал работать с нави,- не обнаружил там этой штуки, хотя, ясно было, что сделать нечто подобное - достаточно просто... что и продемонстрировал уважаемый Dzemon и Ваш покорный слуга.
) Конечно,- мой вариант несколько проще в исполнении, но передо мной стояла задача простой реализации подобной возможности. Поэтому получилось так, как получилось.
З. Ы. Кстати, я обратил внимание, что практически никого эта вещь не заинтересовала... а зря, очень зря.