Project JEDI - Issue Tracker
Mantis Bugtracker

Viewing Issue Simple Details Jump to Notes ] View Advanced ] Issue History ] Print ]
ID Category Severity Reproducibility Date Submitted Last Update
0005782 [JEDI VCL] 00 JVCL Components block always 2012-02-02 22:31 2013-12-13 11:25
Reporter limagito View Status public  
Assigned To obones
Priority normal Resolution suspended  
Status resolved   Product Version 3.45
Summary 0005782: JVScheduledevents doesn't load all settings after Revision 11163
Description After revision JVScheduledEvents doesn't load all settings anymore.
The error is located in the TJvEventCollectionItem.Loadstate procedure.
Additional Information They left out the following code since 11163 and since then it doesn't load the End Type Settings anymore.

      Schedule.StartDate := AStartDate;
      Schedule.EndType := AEndType;

      if ARecurringType = srkOneShot then
        Schedule.EndType := sekDate;
        Schedule.EndDate := AStartDate;
        IDayFrequency := Schedule as IJclScheduleDayFrequency;
        with IDayFrequency do
          StartTime := AStartDate.Time;
          EndTime := AEndDate.Time;
          Interval := 1;
      end else

        Case Schedule.EndType of
        sekDate: Schedule.EndDate := AEndDate;
        sekTriggerCount: Schedule.EndCount:= AEndCount;
        sekDayCount: Schedule.EndCount:= AEndCount;

Tags No tags attached.
Attached Files ? file icon JvScheduledEvents.pas [^] (59,197 bytes) 2012-04-01 13:57

- Relationships

-  Notes
obones (administrator)
2012-02-22 15:07

Please provide the zipped sources of a sample application showing this
limagito (reporter)
2012-04-01 14:14


I've just uploaded a working version of JvScheduledEvents.pas

1) I found another bug. There was some code that was comment in revision 11163 (and older). Someone removed the comment (* *), NOT GOOD. I think it's better to remove this part complete. If this code is uncommented then the start of the schedules are completely wrong. This is done in the .Start Procedure. Don't do it twice.

procedure TJvEventCollectionItem.LoadState

      if IsNullTimeStamp(NextFire) or
        (CompareTimeStamps(NextFire, DateTimeToTimeStamp(Now)) < 0) then
      if IsNullTimeStamp(NextFire) then
        FState := sesEnded
        FState := sesWaiting;

2) I've changed the .start procedure, no exception but Exit when already started.

procedure TJvEventCollectionItem.Start;
  if FState in [sesTriggered, sesExecuting] then

3) Removed the exception handling in the Try Except End;
 of the .CMExecEvent Procedure (identical as it is handled in the procedure TScheduleThread.Execute;).

procedure TJvCustomScheduledEvents.CMExecEvent(var Msg: TMessage);
  with Msg do
      Result := 1;

Best Regards,
obones (administrator)
2012-06-11 17:40

Thanks for that but I still need a demo application to see the issue.
obones (administrator)
2013-12-13 11:25

No news, suspending the issue

- Issue History
Date Modified Username Field Change
2012-02-02 22:31 limagito New Issue
2012-02-22 15:07 obones Note Added: 0019463
2012-02-22 15:07 obones Status new => feedback
2012-04-01 13:57 limagito File Added: JvScheduledEvents.pas
2012-04-01 14:14 limagito Note Added: 0019685
2012-06-11 17:40 obones Note Added: 0019875
2013-12-13 11:25 obones Note Added: 0020775
2013-12-13 11:25 obones Status feedback => resolved
2013-12-13 11:25 obones Resolution open => suspended
2013-12-13 11:25 obones Assigned To => obones

Mantis 1.1.6[^]
Copyright © 2000 - 2008 Mantis Group
Powered by Mantis Bugtracker