Последний вариант.
Как его вызвать:
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>