Календарик

[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>