let me := this;
if 'Plan_1 Editable' < 'Data|Date' and > 'Plan_2 Editable' then
    ""
else
    "OK"
end;
while weekday(me.'Plan_1 Editable') > 4 or
cnt(select Holidays where Date = me.'Plan_1 Editable') > 0 do
    me.('Plan_1 Editable' := date(year(me.'Plan_1 Editable'), month(me.'Plan_1 Editable'), day(me.'Plan_1 Editable') + 1))
end
;
alert("  Warning PLAN DATE cannot be less than Data|Date and cannot it be a Holiday, The next Available Date is included ")