From: Olivier S. <ob...@us...> - 2005-06-22 09:40:07
|
Update of /cvsroot/jvcl/dev/JVCL3/run In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22885/dev/JVCL3/run Modified Files: JvTFDays.pas Log Message: No more AVs when moving a schedule to empty places Index: JvTFDays.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTFDays.pas,v retrieving revision 1.46 retrieving revision 1.47 diff -C2 -d -r1.46 -r1.47 *** JvTFDays.pas 22 Jun 2005 09:23:39 -0000 1.46 --- JvTFDays.pas 22 Jun 2005 09:39:49 -0000 1.47 *************** *** 7586,7590 **** begin Sched := Cols[I].Schedule; ! if (Sched.SchedName = SchedName) and ((Trunc(Sched.SchedDate) >= Trunc(AAppt.StartDate)) and (Trunc(Sched.SchedDate) <= Trunc(EndDT))) then --- 7586,7590 ---- begin Sched := Cols[I].Schedule; ! if Assigned(Sched) and (Sched.SchedName = SchedName) and ((Trunc(Sched.SchedDate) >= Trunc(AAppt.StartDate)) and (Trunc(Sched.SchedDate) <= Trunc(EndDT))) then *************** *** 7632,7640 **** end; ! SchedName := Coord.Schedule.SchedName; for I := 0 to Cols.Count - 1 do begin Sched := Cols[I].Schedule; ! if (Sched.SchedName = SchedName) and ((Trunc(Sched.SchedDate) >= Trunc(StartDT)) and (Trunc(Sched.SchedDate) <= Trunc(EndDT))) then --- 7632,7641 ---- end; ! if Assigned(Coord.Schedule) then ! SchedName := Coord.Schedule.SchedName; for I := 0 to Cols.Count - 1 do begin Sched := Cols[I].Schedule; ! if Assigned(Sched) and (Sched.SchedName = SchedName) and ((Trunc(Sched.SchedDate) >= Trunc(StartDT)) and (Trunc(Sched.SchedDate) <= Trunc(EndDT))) then |