Timecard employees

@Alberto,

Here is one approach ... Create an Employee table... with composite table of Timecard.   On the Employee.. also create their “default work schedule”.

And the code behind the button...

hmm.. Images not posting like they used to.. :(

double hmmmm..   Well.. here is the code behind the button ..

let t := this;
let msg := “Week Starting Date must be a Sunday”;
if weekday(t.“Week Starting Date”) = 6 then
let tc := first(t.Timecard[“Week Starting Date” = t.“Week Starting Date”]);
if tc then
msg := “Timecard already exists”
else
let tc := (create Timecard);
tc.(Employee := t);
tc.(“Week Starting Date” := t.“Week Starting Date”);
tc.(Sun := t.Sun);
tc.(Mon := t.Mon);
tc.(Tue := t.Tue);
tc.(Wed := t.Wed);
tc.(Thu := t.Thu);
tc.(Fri := t.Fri);
tc.(Sat := t.Sat);
msg := “Timecard created”
end
end;
alert(msg)